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