File indexing completed on 2024-05-12 04:02:07
0001 <!DOCTYPE html> 0002 <html><head> 0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> 0004 <title>highlight.scheme</title> 0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (Scheme) - Theme (Breeze Light)"/> 0006 </head><body style="background-color:#ffffff;color:#1f1c1b"><pre> 0007 <span style="color:#898887">; This is a test file to test kates scheme highlighting</span> 0008 <span style="color:#898887">; This is a comment</span> 0009 0010 <span style="color:#898887">; Brackets colors</span> 0011 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span><span style="color:#008800;font-weight:bold">(</span><span style="color:#3689e6;font-weight:bold">(</span><span style="color:#a100a1;font-weight:bold">(</span><span style="color:#ff0000;font-weight:bold">(</span><span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span><span style="color:#008800;font-weight:bold">(</span><span style="color:#3689e6;font-weight:bold">(</span><span style="color:#a100a1;font-weight:bold">(</span><span style="color:#ff0000;font-weight:bold">(</span> <span style="color:#ff0000;font-weight:bold">)</span><span style="color:#a100a1;font-weight:bold">)</span><span style="color:#3689e6;font-weight:bold">)</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span><span style="color:#a100a1;font-weight:bold">)</span><span style="color:#3689e6;font-weight:bold">)</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0012 0013 <span style="color:#898887">;; Another comment, usually used.</span> 0014 <span style="color:#0057ae;background-color:#e0e9f8">;BEGIN region marker</span> 0015 <span style="color:#898887">;; a vektor</span> 0016 <span style="color:#ff0000;font-weight:bold">#(</span><span style="color:#b08000">1</span> <span style="color:#b08000">2</span> <span style="color:#b08000">3</span> <span style="color:#b08000">4</span> <span style="color:#b08000">5</span><span style="color:#ff0000;font-weight:bold">)</span> 0017 <span style="color:#ca60ca">[</span>'a 'b 'c<span style="color:#ca60ca">]</span> 0018 <span style="color:#0057ae;background-color:#e0e9f8">;END region marker</span> 0019 <span style="color:#898887">;; this represents integer 28 (</span><span style="color:#ca9219;background-color:#451e1a;font-weight:bold">FIXME</span><span style="color:#898887">: does not work perfectly atm!)</span> 0020 <span style="color:#b08000">28</span> <span style="color:#b08000">028</span> <span style="color:#3daee9">#e</span><span style="color:#b08000">28</span> <span style="color:#3daee9">#i</span><span style="color:#b08000">28</span> <span style="color:#898887">;; Normal, normal, exact, inexact</span> 0021 <span style="color:#3daee9">#b</span><span style="color:#b08000">11100</span> <span style="color:#3daee9">#o</span><span style="color:#b08000">34</span> <span style="color:#3daee9">#d</span><span style="color:#b08000">28</span> <span style="color:#3daee9">#x</span><span style="color:#b08000">1c</span> <span style="color:#898887">;; Bin, oct, dec, hex</span> 0022 <span style="color:#3daee9">#oe</span><span style="color:#b08000">34</span> <span style="color:#3daee9">#eo</span><span style="color:#b08000">34</span> <span style="color:#898887">;; combined.</span> 0023 <span style="color:#3daee9">#o#e</span><span style="color:#b08000">34</span> <span style="color:#3daee9">#e#o</span><span style="color:#b08000">34</span> <span style="color:#898887">;; combined.</span> 0024 <span style="color:#898887">;; inf</span> 0025 <span style="color:#3daee9">#i</span><span style="color:#644a9b">+</span>inf.0 <span style="color:#b08000">3</span>+inf.0 0026 0027 <span style="color:#898887">;; symbols</span> 0028 &symbol-42 0029 symbol-42<span style="color:#898887">;comment</span> 0030 0031 <span style="color:#898887">;; char.</span> 0032 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#924c9d">#\y</span> <span style="color:#924c9d">#\space</span><span style="color:#ff0000;font-weight:bold">)</span> <span style="color:#898887">;; list: `y' space.</span> 0033 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#924c9d">#\ </span> <span style="color:#924c9d">#\\</span> <span style="color:#924c9d">#\)</span><span style="color:#ff0000;font-weight:bold">)</span> <span style="color:#898887">;; list of spaces, backslash and`)'.</span> 0034 <span style="color:#924c9d">#\newline</span> <span style="color:#898887">;; a newline-char</span> 0035 <span style="color:#924c9d">#\NewLine</span> <span style="color:#898887">;; another one :)</span> 0036 <span style="color:#924c9d">#\</span><span style="color:#bf0303;text-decoration:underline">pager</span> <span style="color:#898887">;; bad char</span> 0037 0038 <span style="color:#bf0303">"Hello, world"</span> <span style="color:#898887">;; a string</span> 0039 0040 <span style="color:#bf0303">"hoho, what do you</span> 0041 <span style="color:#bf0303">want to do ;; this is NO comment</span> 0042 <span style="color:#bf0303">with that?"</span> 0043 0044 <span style="color:#898887">;; R5RS definiert diese beiden.</span> 0045 <span style="color:#bf0303">"Das ist </span><span style="color:#924c9d">\"</span><span style="color:#bf0303">in Anführungszeichen</span><span style="color:#924c9d">\"</span><span style="color:#bf0303"> und mit </span><span style="color:#924c9d">\\</span><span style="color:#bf0303"> Backslash."</span> 0046 0047 <span style="color:#bf0303">"hexadecimal char </span><span style="color:#924c9d">\x1aF;</span><span style="color:#bf0303">."</span> 0048 0049 <span style="color:#898887">;; Kawa string templates</span> 0050 <span style="color:#bf0303">&{Hello </span><span style="color:#ff0000;font-weight:bold">&[</span>name<span style="color:#ff0000;font-weight:bold">]</span><span style="color:#bf0303">!}</span> 'no-string 0051 <span style="color:#bf0303">&{This has a {braced} section.}</span> 'no-string 0052 <span style="color:#bf0303">&{</span><span style="color:#924c9d">&#27;</span><span style="color:#bf0303"> </span><span style="color:#924c9d">&#x1B;</span><span style="color:#bf0303"> </span><span style="color:#924c9d">&amp;</span><span style="color:#bf0303"> </span><span style="color:#924c9d">&lt;</span><span style="color:#bf0303"> </span><span style="color:#924c9d">&gt;</span><span style="color:#bf0303"> </span><span style="color:#924c9d">&quot;</span><span style="color:#bf0303"> </span><span style="color:#924c9d">&apos;</span><span style="color:#bf0303">}</span> 'no-string 0053 <span style="color:#898887">; Multiline string literals</span> 0054 <span style="color:#ff0000;font-weight:bold">(</span>string-capitalize <span style="color:#bf0303">&{one two three</span> 0055 <span style="color:#bf0303">uno dos tres</span> 0056 <span style="color:#bf0303">}</span><span style="color:#ff0000;font-weight:bold">)</span> 0057 <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">write</span> <span style="color:#ff8800;font-weight:bold">(</span>string-capitalize <span style="color:#bf0303">&{</span> 0058 <span style="color:#bf0303"> </span><span style="color:#ca60ca">&|</span><span style="color:#bf0303">one two three</span> 0059 <span style="color:#bf0303"> </span><span style="color:#ca60ca">&|</span><span style="color:#bf0303">uno dos tres</span> 0060 <span style="color:#bf0303">}</span><span style="color:#ff8800;font-weight:bold">)</span> out<span style="color:#ff0000;font-weight:bold">)</span> 0061 <span style="color:#bf0303">&{abc</span><span style="color:#ca60ca">&-</span><span style="color:#bf0303"> </span><span style="color:#898887">#|comment|#</span> 0062 <span style="color:#bf0303"> def}</span> 'no-string 0063 <span style="color:#bf0303">&{</span><span style="color:#898887">&#|line 1|#</span><span style="color:#bf0303">one two</span> 0064 <span style="color:#bf0303"> </span><span style="color:#898887">&#|line 2|#</span><span style="color:#bf0303"> three</span> 0065 <span style="color:#bf0303"> </span><span style="color:#898887">&#|line 3|#</span><span style="color:#bf0303">uno dos tres</span> 0066 <span style="color:#bf0303">}</span> 'no-string 0067 <span style="color:#898887">; Embedded expressions</span> 0068 <span style="color:#bf0303">&{Hello </span><span style="color:#ff0000;font-weight:bold">&[</span><span style="color:#ff8800;font-weight:bold">(</span>string-capitalize name<span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">]</span><span style="color:#bf0303">!}</span> 'no-string 0069 <span style="color:#bf0303">&{Hello </span><span style="color:#ff0000;font-weight:bold">&(</span>string-capitalize name<span style="color:#ff0000;font-weight:bold">)</span><span style="color:#bf0303">!}</span> 'no-string 0070 <span style="color:#898887">; formatting</span> 0071 <span style="color:#bf0303">&{</span><span style="color:#0095ff;font-weight:bold">&~{</span><span style="color:#ff0000;font-weight:bold">&[</span>arr<span style="color:#ff0000;font-weight:bold">]</span><span style="color:#0095ff;font-weight:bold">&~^_&~</span><span style="color:#bf0303">}</span><span style="color:#ca60ca">}</span> 'no-string 0072 <span style="color:#bf0303">&{</span><span style="color:#0095ff;font-weight:bold">&~{&~a</span><span style="color:#bf0303">[arr]</span><span style="color:#0095ff;font-weight:bold">&~^_&~</span><span style="color:#bf0303">}</span><span style="color:#ca60ca">}</span> 'no-string 0073 0074 <span style="color:#898887">;; Kawa XML literals</span> 0075 <span style="color:#bf0303">#<p>The result is <b>final</b>!</p></span> 'no-xml 0076 <span style="color:#bf0303">#<em>The result is </span><span style="color:#ff0000;font-weight:bold">&{</span>result<span style="color:#ff0000;font-weight:bold">}</span><span style="color:#bf0303">.</em></span> 'no-xml 0077 <span style="color:#bf0303">#<p>This is <(</span><span style="font-weight:bold">if</span> be-bold 'strong 'em<span style="color:#bf0303">)>important</>!</p></span> 'no-xml 0078 <span style="color:#bf0303">#<p>This is <{</span><span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">if</span> be-bold 'strong 'em<span style="color:#ff0000;font-weight:bold">)</span><span style="color:#bf0303">}>important</>!</p></span> 'no-xml 0079 <span style="color:#bf0303">#<p>Special characters <![CDATA[</span><span style="color:#bf0303">< > & ' "</span><span style="color:#bf0303">]]> here.</p></span> 'no-xml 0080 <span style="color:#bf0303">#<p>Special characters </span><span style="color:#b08000">&lt;</span><span style="color:#bf0303"> </span><span style="color:#b08000">&gt;</span><span style="color:#bf0303"> </span><span style="color:#b08000">&amp;</span><span style="color:#bf0303"> </span><span style="color:#b08000">&quot;</span><span style="color:#bf0303"> </span><span style="color:#b08000">&apos;</span><span style="color:#bf0303"> here.</p></span> 'no-xml 0081 <span style="color:#bf0303">#<gnu:b</span><span style="color:#006e28"> xmlns:gnu=</span><span style="color:#bf0303">"http://gnu.org/"</span><span style="color:#bf0303">/></span> 'no-xml 0082 <span style="color:#bf0303">#<chapter><?dbhtml</span><span style="color:#006e28"> filename="intro.html" </span><span style="color:#bf0303">?></span> 0083 <span style="color:#bf0303"><title>Introduction</title></span> 0084 <span style="color:#bf0303">...</span> 0085 <span style="color:#bf0303"></chapter></span> 'no-xml 0086 0087 0088 <span style="color:#898887">;; Kawa Regular expression</span> 0089 <span style="color:#ca60ca">#/</span><span style="color:#0095ff;font-weight:bold">a\.c</span><span style="color:#ca60ca">/</span> 0090 <span style="color:#ca60ca">#/</span><span style="color:#0095ff;font-weight:bold">a</span><span style="color:#ca60ca">/</span><span style="color:#0095ff;font-weight:bold">i</span> 0091 <span style="color:#ca60ca">#/</span><span style="color:#0095ff;font-weight:bold">a</span><span style="color:#ca60ca">/</span><span style="color:#0095ff;font-weight:bold">im</span> 0092 0093 0094 <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">let</span> <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span>x <span style="color:#008800;font-weight:bold">(</span><span style="color:#ca60ca">+</span> <span style="color:#b08000">1</span> <span style="color:#b08000">2</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span> <span style="color:#888800;font-weight:bold">(</span>y <span style="color:#bf0303">"blah"</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#898887">;; `let' highlighting.</span> 0095 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">and</span> <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">number?</span> x<span style="color:#888800;font-weight:bold">)</span> <span style="color:#898887">;; `and' highlighting.</span> 0096 <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">string?</span> y<span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0097 0098 <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">let*</span> <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span>x <span style="color:#b08000">2</span><span style="color:#888800;font-weight:bold">)</span> <span style="color:#888800;font-weight:bold">(</span>y <span style="color:#008800;font-weight:bold">(</span><span style="color:#ca60ca">+</span> x <span style="color:#b08000">1</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#898887">;; `let*' too.</span> 0099 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">or</span> <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">negative?</span> x<span style="color:#888800;font-weight:bold">)</span> <span style="color:#898887">;; `or' anyways.</span> 0100 <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">negative?</span> y<span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0101 0102 <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">do</span> <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span>vec <span style="color:#008800;font-weight:bold">(</span><span style="font-weight:bold">make-vector</span> <span style="color:#b08000">5</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span> <span style="color:#898887">;; `do' you may guess!</span> 0103 <span style="color:#888800;font-weight:bold">(</span>i <span style="color:#b08000">0</span> <span style="color:#008800;font-weight:bold">(</span><span style="color:#ca60ca">+</span> i <span style="color:#b08000">1</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span> 0104 <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span><span style="color:#ca60ca">=</span> i <span style="color:#b08000">5</span><span style="color:#888800;font-weight:bold">)</span> vec<span style="color:#ff8800;font-weight:bold">)</span> 0105 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">vector-set!</span> vec i i<span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0106 0107 <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">quasiquote</span> <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span><span style="color:#ca60ca">+</span> <span style="color:#b08000">1</span> <span style="color:#b08000">2</span><span style="color:#888800;font-weight:bold">)</span> <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">unquote</span> <span style="color:#008800;font-weight:bold">(</span><span style="color:#ca60ca">+</span> <span style="color:#b08000">1</span> <span style="color:#b08000">2</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0108 <span style="color:#898887">;; same as: `((+ 1 2) ,(+ 1 2))</span> 0109 0110 <span style="color:#898887">;; see above.</span> 0111 <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">quasiquote</span> <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span><span style="color:#ca60ca">+</span> <span style="color:#b08000">1</span> <span style="color:#b08000">2</span><span style="color:#888800;font-weight:bold">)</span> <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">unquote-splicing</span> <span style="color:#008800;font-weight:bold">(</span><span style="font-weight:bold">list</span> <span style="color:#b08000">1</span> <span style="color:#b08000">2</span> <span style="color:#b08000">3</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0112 <span style="color:#898887">;; same as: `((+ 1 2) ,@(+ 1 2))</span> 0113 0114 <span style="color:#898887">;; not necessary.</span> 0115 <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">quote</span> <span style="color:#ff8800;font-weight:bold">()</span><span style="color:#ff0000;font-weight:bold">)</span> 0116 0117 <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">cond</span> <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">string?</span> x<span style="color:#888800;font-weight:bold">)</span> <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">string->symbol</span> x<span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#898887">;; `cond' highlighting.</span> 0118 <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">symbol?</span> x<span style="color:#888800;font-weight:bold">)</span> <span style="color:#ca60ca">=></span> <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#008800;font-weight:bold">(</span>x<span style="color:#008800;font-weight:bold">)</span> x<span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#898887">;; `=>' highlighting.</span> 0119 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">else</span> <span style="color:#898887">;; `else' highlighting.</span> 0120 <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">error</span> <span style="color:#bf0303">"Blah"</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0121 0122 <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">case</span> x <span style="color:#898887">;; `case' highlighting.</span> 0123 <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span><span style="color:#b08000">#t</span><span style="color:#888800;font-weight:bold">)</span> 'true<span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span><span style="color:#b08000">#f</span><span style="color:#888800;font-weight:bold">)</span> 'false<span style="color:#ff8800;font-weight:bold">)</span> 0124 <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span><span style="color:#008800;font-weight:bold">()</span><span style="color:#888800;font-weight:bold">)</span> 'null<span style="color:#ff8800;font-weight:bold">)</span> 0125 <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span><span style="color:#b08000">0</span><span style="color:#888800;font-weight:bold">)</span> 'zero<span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0126 0127 <span style="color:#898887">;; highlight `let-syntax' and `syntax-rules' .</span> 0128 <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">let-syntax</span> <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span>when <span style="color:#008800;font-weight:bold">(</span><span style="font-weight:bold">syntax-rules</span> <span style="color:#3689e6;font-weight:bold">()</span> 0129 <span style="color:#3689e6;font-weight:bold">(</span><span style="color:#a100a1;font-weight:bold">(</span>when test stmt1 stmt2 <span style="color:#ca60ca">...</span><span style="color:#a100a1;font-weight:bold">)</span> 0130 <span style="color:#898887">;; hl `begin' .</span> 0131 <span style="color:#a100a1;font-weight:bold">(</span><span style="font-weight:bold">if</span> test <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">begin</span> stmt1 stmt2 <span style="color:#ca60ca">...</span><span style="color:#ff0000;font-weight:bold">)</span><span style="color:#a100a1;font-weight:bold">)</span><span style="color:#3689e6;font-weight:bold">)</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span> 0132 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">let</span> <span style="color:#888800;font-weight:bold">(</span><span style="color:#008800;font-weight:bold">(</span><span style="font-weight:bold">if</span> <span style="color:#b08000">#t</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span> <span style="color:#898887">;; here`if' is actually no keyword.</span> 0133 <span style="color:#888800;font-weight:bold">(</span>when <span style="font-weight:bold">if</span> <span style="color:#008800;font-weight:bold">(</span><span style="font-weight:bold">set!</span> <span style="font-weight:bold">if</span> 'now<span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span> <span style="color:#898887">;; nor here.</span> 0134 <span style="font-weight:bold">if</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0135 0136 <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">letrec-syntax</span> <span style="color:#ca60ca">...</span><span style="color:#ff0000;font-weight:bold">)</span> <span style="color:#898887">;; hl `letrec-syntax'.</span> 0137 0138 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define-syntax</span><span style="color:#644a9b"> when</span> 0139 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">syntax-rules</span> <span style="color:#888800;font-weight:bold">()</span> 0140 <span style="color:#888800;font-weight:bold">(</span><span style="color:#008800;font-weight:bold">(</span>when test stmt1 stmt2 <span style="color:#ca60ca">...</span><span style="color:#008800;font-weight:bold">)</span> 0141 <span style="color:#008800;font-weight:bold">(</span><span style="font-weight:bold">if</span> test <span style="color:#3689e6;font-weight:bold">(</span><span style="font-weight:bold">begin</span> stmt1 stmt2 <span style="color:#ca60ca">...</span><span style="color:#3689e6;font-weight:bold">)</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span>) 0142 0143 <span style="color:#898887">;; variable definitions.</span> 0144 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define</span><span style="color:#644a9b"> natural-numbers </span><span style="color:#898887">;; hl `define' and the var name</span> 0145 <span style="color:#898887">;; endless stream of all natual numbers.</span> 0146 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">letrec</span> <span style="color:#888800;font-weight:bold">(</span><span style="color:#008800;font-weight:bold">(</span>next-cell <span style="color:#898887">;; hl `letrec'.</span> 0147 <span style="color:#3689e6;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#a100a1;font-weight:bold">(</span>x<span style="color:#a100a1;font-weight:bold">)</span> <span style="color:#898887">;; hl `lambda'.</span> 0148 <span style="color:#898887">;; hl `delay' .</span> 0149 <span style="color:#a100a1;font-weight:bold">(</span><span style="font-weight:bold">cons</span> x <span style="color:#ff0000;font-weight:bold">(</span>delay <span style="color:#ff8800;font-weight:bold">(</span>next-cell <span style="color:#888800;font-weight:bold">(</span><span style="color:#ca60ca">+</span> x <span style="color:#b08000">1</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span><span style="color:#a100a1;font-weight:bold">)</span><span style="color:#3689e6;font-weight:bold">)</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span> 0150 <span style="color:#888800;font-weight:bold">(</span>next-cell <span style="color:#b08000">0</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0151 0152 <span style="color:#898887">;; a procedure with unusual but allowed name.</span> 0153 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define</span><span style="color:#644a9b"> 1+</span> 0154 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#888800;font-weight:bold">(</span>x<span style="color:#888800;font-weight:bold">)</span> 0155 <span style="color:#888800;font-weight:bold">(</span><span style="color:#ca60ca">+</span> x <span style="color:#b08000">1</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0156 0157 <span style="color:#898887">;; a predicate</span> 0158 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define</span><span style="color:#644a9b"> between?</span> 0159 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#888800;font-weight:bold">(</span>x y z<span style="color:#888800;font-weight:bold">)</span> 0160 <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">if</span> <span style="color:#008800;font-weight:bold">(</span><span style="font-weight:bold">and</span> <span style="color:#3689e6;font-weight:bold">(</span><span style="color:#ca60ca">>=</span> x y<span style="color:#3689e6;font-weight:bold">)</span> <span style="color:#3689e6;font-weight:bold">(</span><span style="color:#ca60ca"><=</span> x z<span style="color:#3689e6;font-weight:bold">)</span><span style="color:#008800;font-weight:bold">)</span> 0161 <span style="color:#b08000">#t</span> <span style="color:#898887">;; True</span> 0162 <span style="color:#b08000">#f</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> <span style="color:#898887">;; False.</span> 0163 0164 <span style="color:#898887">;; imperative procedure</span> 0165 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define</span><span style="color:#644a9b"> set-something!</span> 0166 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#888800;font-weight:bold">(</span>required-argument another-one <span style="color:#ca60ca">.</span> all-remaining-args<span style="color:#888800;font-weight:bold">)</span> 0167 <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">set-car!</span> another-one <span style="color:#008800;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> all-args 0168 <span style="color:#3689e6;font-weight:bold">(</span><span style="font-weight:bold">set-cdr!</span> required-argument 0169 <span style="color:#a100a1;font-weight:bold">(</span><span style="font-weight:bold">append</span> all-remaining-args 0170 all-args<span style="color:#a100a1;font-weight:bold">)</span><span style="color:#3689e6;font-weight:bold">)</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0171 0172 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define</span><span style="color:#644a9b"> compose</span> 0173 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#888800;font-weight:bold">(</span>f g<span style="color:#888800;font-weight:bold">)</span> 0174 <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#008800;font-weight:bold">(</span>x<span style="color:#008800;font-weight:bold">)</span> 0175 <span style="color:#008800;font-weight:bold">(</span>f <span style="color:#3689e6;font-weight:bold">(</span>g x<span style="color:#3689e6;font-weight:bold">)</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0176 0177 <span style="color:#898887">;; syntactical sugar for procedure-definitions.</span> 0178 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define</span><span style="color:#644a9b"> </span><span style="color:#ff8800;font-weight:bold">(</span>compose f g<span style="color:#ff8800;font-weight:bold">)</span> 0179 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#888800;font-weight:bold">(</span>x<span style="color:#888800;font-weight:bold">)</span> 0180 <span style="color:#888800;font-weight:bold">(</span>f <span style="color:#008800;font-weight:bold">(</span>g x<span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0181 0182 <span style="color:#898887">;;;;;;;;;;;;;;;;;;;;;;;;;;;</span> 0183 <span style="color:#898887">;; NOW: Guile extensions ;;</span> 0184 <span style="color:#898887">;;;;;;;;;;;;;;;;;;;;;;;;;;;</span> 0185 0186 <span style="color:#898887">;; procedure-generator.</span> 0187 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define</span><span style="color:#644a9b"> </span><span style="color:#ff8800;font-weight:bold">(</span><span style="color:#888800;font-weight:bold">(</span>compose f g<span style="color:#888800;font-weight:bold">)</span> x<span style="color:#ff8800;font-weight:bold">)</span> 0188 <span style="color:#ff8800;font-weight:bold">(</span>f <span style="color:#888800;font-weight:bold">(</span>g x<span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0189 0190 <span style="color:#898887">;; scheme doesn't say, which chars may be in variables...</span> 0191 <span style="color:#898887">;; At least: Guile accepts umlauts</span> 0192 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define-private</span><span style="color:#644a9b"> </span><span style="color:#ff8800;font-weight:bold">(</span>timetr??? sprache<span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#898887">;; hl `define-private'.</span> 0193 <span style="color:#ff8800;font-weight:bold">(</span>list-dialekt? sprache<span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0194 0195 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define-public</span><span style="color:#644a9b"> x </span><span style="color:#b08000">#t</span><span style="color:#ff0000;font-weight:bold">)</span> <span style="color:#898887">;; hl `define-public'.</span> 0196 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define-module</span><span style="color:#644a9b"> </span><span style="color:#ff8800;font-weight:bold">(</span>foo bar<span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> <span style="color:#898887">;; hl `define-module'.</span> 0197 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define-macro</span><span style="color:#644a9b"> </span><span style="color:#ff8800;font-weight:bold">(</span>neither <span style="color:#ca60ca">.</span> exprs<span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#898887">;; hl `define-macro'.</span> 0198 <span style="color:#ff8800;font-weight:bold">`(</span><span style="font-weight:bold">and</span> ,<span style="color:#888800;font-weight:bold">@(</span>map <span style="color:#008800;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#3689e6;font-weight:bold">(</span>x<span style="color:#3689e6;font-weight:bold">)</span> <span style="color:#3689e6;font-weight:bold">`(</span><span style="font-weight:bold">not</span> ,x<span style="color:#3689e6;font-weight:bold">)</span><span style="color:#008800;font-weight:bold">)</span> exprs<span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0199 0200 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">defmacro</span><span style="color:#644a9b"> neither </span>exprs <span style="color:#898887">;; `defmacro' as well.</span> 0201 <span style="color:#ff8800;font-weight:bold">`(</span><span style="font-weight:bold">and</span> ,<span style="color:#888800;font-weight:bold">@(</span>map <span style="color:#008800;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#3689e6;font-weight:bold">(</span>x<span style="color:#3689e6;font-weight:bold">)</span> <span style="color:#3689e6;font-weight:bold">`(</span><span style="font-weight:bold">not</span> ,x<span style="color:#3689e6;font-weight:bold">)</span><span style="color:#008800;font-weight:bold">)</span> exprs<span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> 0202 0203 <span style="color:#898887">;; hl, but I really don't know what this is supposed to do :-)</span> 0204 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define-syntax-macro</span><span style="color:#644a9b"> ...</span><span style="color:#ff0000;font-weight:bold">)</span> 0205 0206 <span style="color:#898887">;; hl GOOPS-`defines'</span> 0207 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define-method</span><span style="color:#644a9b"> </span><span style="color:#ff8800;font-weight:bold">(</span>foo bar <span style="color:#888800;font-weight:bold">(</span>baz <vector><span style="color:#888800;font-weight:bold">)</span> qux<span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#ca60ca">...</span><span style="color:#ff0000;font-weight:bold">)</span> 0208 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define-class</span><span style="color:#644a9b"> <foo> </span><span style="color:#ca60ca">...</span><span style="color:#ff0000;font-weight:bold">)</span> 0209 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define-generic</span><span style="color:#644a9b"> foo</span><span style="color:#ff0000;font-weight:bold">)</span> 0210 <span style="color:#ff0000;font-weight:bold">(</span><span style="color:#0095ff;font-weight:bold">define-accessor</span><span style="color:#644a9b"> bar</span><span style="color:#ff0000;font-weight:bold">)</span> 0211 0212 <span style="color:#898887">;; Keywords!</span> 0213 <span style="color:#ff0000;font-weight:bold">(</span>blah #:foo <span style="color:#b08000">33</span> #:bar <span style="color:#b08000">44</span><span style="color:#ff0000;font-weight:bold">)</span> 0214 0215 <span style="color:#898887">;; another convention for symbols:</span> 0216 #<span style="color:#ca60ca">{</span>foo<span style="color:#ca60ca">}</span># 0217 0218 #<span style="color:#ca60ca">{</span>a 0219 few 0220 lines<span style="color:#ca60ca">}</span># 0221 0222 #<span style="color:#ca60ca">{</span><span style="color:#b08000">4711</span><span style="color:#ca60ca">}</span># 0223 0224 <span style="color:#898887">;; more chars.</span> 0225 <span style="color:#924c9d">#\nul</span> <span style="color:#924c9d">#\nl</span> <span style="color:#924c9d">#\esc</span> <span style="color:#924c9d">#\bs</span> <span style="color:#924c9d">#\bel</span> <span style="color:#924c9d">#\syn</span> <span style="color:#924c9d">#\ack</span> <span style="color:#924c9d">#\sp</span> <span style="color:#898887">;; etc, utc, itc, oops (this is boring)</span> 0226 0227 <span style="color:#898887">#| R6RS / SRFI-30 block comment</span> 0228 <span style="color:#898887">supports #| nested block |# comments |#</span> 0229 'now-no-comment-anymore 0230 0231 <span style="color:#898887">#!</span> 0232 <span style="color:#898887"> guile block-comment.</span> 0233 <span style="color:#898887">!#</span> 0234 0235 <span style="color:#898887">;; now, a bit hairy:</span> 0236 <span style="color:#898887">#! comment !#</span> 0237 <span style="color:#898887">still comment!!!</span> 0238 <span style="color:#898887">!#</span> 0239 'now-no-comment-anymore 0240 0241 <span style="color:#898887">;; more precise:</span> 0242 <span style="color:#898887">#! comment !#</span> 0243 <span style="color:#898887">still comment</span> 0244 <span style="color:#898887">!# still comment!</span> 0245 <span style="color:#898887">!#</span> 0246 'now-no-comment-anymore 0247 0248 <span style="color:#898887">;; Datum comment</span> 0249 <span style="color:#898887">#;(1 2 3)</span> 'now-no-comment-anymore 0250 <span style="color:#898887">#;1</span> 'now-no-comment-anymore 0251 <span style="color:#898887">#;#o12</span> 'now-no-comment-anymore 0252 <span style="color:#898887">#;"bla bla\""</span> 'now-no-comment-anymore 0253 <span style="color:#898887">#;[1 2 3]</span> 'now-no-comment-anymore 0254 <span style="color:#898887">#;[1 [2 (3 (4))]]</span> 'now-no-comment-anymore 0255 <span style="color:#898887">#;(1 (2 [3 [4]]))</span> 'now-no-comment-anymore 0256 <span style="color:#898887">#;#/reg/im</span> 'now-no-comment-anymore 0257 <span style="color:#898887">#;#<p>The result is <b>final</b>!</p></span> 'now-no-comment-anymore 0258 <span style="color:#898887">#;#<em>The result is &{result}.</em></span> 'now-no-comment-anymore 0259 <span style="color:#898887">#;#<p>This is <(if be-bold 'strong 'em)>important</>!</p></span> 'now-no-comment-anymore 0260 <span style="color:#898887">#;#<p>This is <{(if be-bold 'strong 'em)}>important</>!</p></span> 'now-no-comment-anymore 0261 <span style="color:#898887">#;#<p>Specal characters <![CDATA[< > & ' "]]> here.</p></span> 'now-no-comment-anymore 0262 <span style="color:#898887">#;#<p>Specal characters &lt; &gt; &amp; &quot; &apos; here.</p></span> 'now-no-comment-anymore 0263 <span style="color:#898887">#;#<gnu:b xmlns:gnu="http://gnu.org/"/></span> 'now-no-comment-anymore 0264 <span style="color:#898887">#;#<chapter><?dbhtml filename="intro.html" ?></span> 0265 <span style="color:#898887"><title>Introduction</title></span> 0266 <span style="color:#898887">...</span> 0267 <span style="color:#898887"></chapter></span> 'now-no-comment-anymore 0268 <span style="color:#898887">#;#&{Hello &[name]!}</span> 'now-no-comment-anymore 0269 <span style="color:#898887">#;&{This has a {braced} section.}</span> 'now-no-comment-anymore 0270 <span style="color:#898887">#;&{&#27;&#x1B; &amp; &lt; &gt; &quot; &apos;}</span> 'now-no-comment-anymore 0271 <span style="color:#898887">#;(string-capitalize &{one two three</span> 0272 <span style="color:#898887">uno dos tres</span> 0273 <span style="color:#898887">})</span> 'now-no-comment-anymore 0274 <span style="color:#898887">#;(write (string-capitalize &{</span> 0275 <span style="color:#898887"> &|one two three</span> 0276 <span style="color:#898887"> &|uno dos tres</span> 0277 <span style="color:#898887">}) out)</span> 'now-no-comment-anymore 0278 <span style="color:#898887">#;&{abc&-</span> 0279 <span style="color:#898887"> def}</span> 'now-no-comment-anymore 0280 <span style="color:#898887">#;&{&#|line 1|#one two</span> 0281 <span style="color:#898887"> &#|line 2|# three</span> 0282 <span style="color:#898887"> &#|line 3|#uno dos tres</span> 0283 <span style="color:#898887">}</span> 'now-no-comment-anymore 0284 <span style="color:#898887">#;&{Hello &[(string-capitalize name)]!}</span> 'now-no-comment-anymore 0285 <span style="color:#898887">#;&{Hello &(string-capitalize name)!}</span> 'now-no-comment-anymore 0286 <span style="color:#898887">#;&{&~{&[arr]&~^_&~}}</span> 'now-no-comment-anymore 0287 <span style="color:#898887">#;&{&~{&~a[arr]&~^_&~}}</span> 'now-no-comment-anymore 0288 <span style="color:#898887">#;(</span> 0289 <span style="color:#898887">1</span> 0290 <span style="color:#898887">2</span> 0291 <span style="color:#898887">3)</span> 'now-no-comment-anymore 0292 0293 <span style="color:#898887">; identifier with hex-escape</span> 0294 H\x65;llo<span style="color:#898887">; commment</span> 0295 H\x65;\x6c;lo<span style="color:#898887">; commment</span> 0296 0297 <span style="color:#ff0000;font-weight:bold">(</span><span style="font-weight:bold">while</span> <span style="color:#ff8800;font-weight:bold">(</span><span style="color:#ca60ca">></span> foo <span style="color:#b08000">10</span><span style="color:#ff8800;font-weight:bold">)</span> <span style="color:#898887">;; Highlight `while'.</span> 0298 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">set!</span> foo <span style="color:#888800;font-weight:bold">(</span><span style="color:#ca60ca">-</span> foo <span style="color:#b08000">1</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span> 0299 <span style="color:#ff8800;font-weight:bold">(</span><span style="font-weight:bold">catch</span> <span style="color:#b08000">#t</span> <span style="color:#898887">;; Highlight `catch'.</span> 0300 <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#008800;font-weight:bold">()</span> <span style="color:#008800;font-weight:bold">(</span><span style="font-weight:bold">display</span> foo<span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span> 0301 <span style="color:#888800;font-weight:bold">(</span><span style="font-weight:bold">lambda</span> <span style="color:#008800;font-weight:bold">(</span>key <span style="color:#ca60ca">.</span> args<span style="color:#008800;font-weight:bold">)</span> 0302 <span style="color:#008800;font-weight:bold">(</span><span style="font-weight:bold">if</span> <span style="color:#3689e6;font-weight:bold">(</span><span style="font-weight:bold">eq?</span> key 'system-error<span style="color:#3689e6;font-weight:bold">)</span> 0303 <span style="color:#3689e6;font-weight:bold">(</span><span style="font-weight:bold">break</span><span style="color:#3689e6;font-weight:bold">)</span> <span style="color:#898887">;; Highlight `break'.</span> 0304 <span style="color:#3689e6;font-weight:bold">(</span><span style="font-weight:bold">continue</span><span style="color:#3689e6;font-weight:bold">)</span><span style="color:#008800;font-weight:bold">)</span><span style="color:#888800;font-weight:bold">)</span><span style="color:#ff8800;font-weight:bold">)</span><span style="color:#ff0000;font-weight:bold">)</span> <span style="color:#898887">;; Highlight `continue'.</span> 0305 </pre></body></html>