|
66
|
1 <lexer>
|
|
|
2 <config>
|
|
|
3 <name>Scheme</name>
|
|
|
4 <alias>scheme</alias>
|
|
|
5 <alias>scm</alias>
|
|
|
6 <filename>*.scm</filename>
|
|
|
7 <filename>*.ss</filename>
|
|
|
8 <mime_type>text/x-scheme</mime_type>
|
|
|
9 <mime_type>application/x-scheme</mime_type>
|
|
|
10 </config>
|
|
|
11 <rules>
|
|
|
12 <state name="root">
|
|
|
13 <rule pattern=";.*$">
|
|
|
14 <token type="CommentSingle"/>
|
|
|
15 </rule>
|
|
|
16 <rule pattern="#\|">
|
|
|
17 <token type="CommentMultiline"/>
|
|
|
18 <push state="multiline-comment"/>
|
|
|
19 </rule>
|
|
|
20 <rule pattern="#;\s*\(">
|
|
|
21 <token type="Comment"/>
|
|
|
22 <push state="commented-form"/>
|
|
|
23 </rule>
|
|
|
24 <rule pattern="#!r6rs">
|
|
|
25 <token type="Comment"/>
|
|
|
26 </rule>
|
|
|
27 <rule pattern="\s+">
|
|
|
28 <token type="Text"/>
|
|
|
29 </rule>
|
|
|
30 <rule pattern="-?\d+\.\d+">
|
|
|
31 <token type="LiteralNumberFloat"/>
|
|
|
32 </rule>
|
|
|
33 <rule pattern="-?\d+">
|
|
|
34 <token type="LiteralNumberInteger"/>
|
|
|
35 </rule>
|
|
|
36 <rule pattern=""(\\\\|\\"|[^"])*"">
|
|
|
37 <token type="LiteralString"/>
|
|
|
38 </rule>
|
|
|
39 <rule pattern="'[\w!$%&*+,/:<=>?@^~|-]+">
|
|
|
40 <token type="LiteralStringSymbol"/>
|
|
|
41 </rule>
|
|
|
42 <rule pattern="#\\(alarm|backspace|delete|esc|linefeed|newline|page|return|space|tab|vtab|x[0-9a-zA-Z]{1,5}|.)">
|
|
|
43 <token type="LiteralStringChar"/>
|
|
|
44 </rule>
|
|
|
45 <rule pattern="(#t|#f)">
|
|
|
46 <token type="NameConstant"/>
|
|
|
47 </rule>
|
|
|
48 <rule pattern="('|#|`|,@|,|\.)">
|
|
|
49 <token type="Operator"/>
|
|
|
50 </rule>
|
|
|
51 <rule pattern="(lambda |define |if |else |cond |and |or |case |let |let\* |letrec |begin |do |delay |set\! |\=\> |quote |quasiquote |unquote |unquote\-splicing |define\-syntax |let\-syntax |letrec\-syntax |syntax\-rules )">
|
|
|
52 <token type="Keyword"/>
|
|
|
53 </rule>
|
|
|
54 <rule pattern="(?<='\()[\w!$%&*+,/:<=>?@^~|-]+">
|
|
|
55 <token type="NameVariable"/>
|
|
|
56 </rule>
|
|
|
57 <rule pattern="(?<=#\()[\w!$%&*+,/:<=>?@^~|-]+">
|
|
|
58 <token type="NameVariable"/>
|
|
|
59 </rule>
|
|
|
60 <rule pattern="(?<=\()(\* |\+ |\- |\/ |\< |\<\= |\= |\> |\>\= |abs |acos |angle |append |apply |asin |assoc |assq |assv |atan |boolean\? |caaaar |caaadr |caaar |caadar |caaddr |caadr |caar |cadaar |cadadr |cadar |caddar |cadddr |caddr |cadr |call\-with\-current\-continuation |call\-with\-input\-file |call\-with\-output\-file |call\-with\-values |call\/cc |car |cdaaar |cdaadr |cdaar |cdadar |cdaddr |cdadr |cdar |cddaar |cddadr |cddar |cdddar |cddddr |cdddr |cddr |cdr |ceiling |char\-\>integer |char\-alphabetic\? |char\-ci\<\=\? |char\-ci\<\? |char\-ci\=\? |char\-ci\>\=\? |char\-ci\>\? |char\-downcase |char\-lower\-case\? |char\-numeric\? |char\-ready\? |char\-upcase |char\-upper\-case\? |char\-whitespace\? |char\<\=\? |char\<\? |char\=\? |char\>\=\? |char\>\? |char\? |close\-input\-port |close\-output\-port |complex\? |cons |cos |current\-input\-port |current\-output\-port |denominator |display |dynamic\-wind |eof\-object\? |eq\? |equal\? |eqv\? |eval |even\? |exact\-\>inexact |exact\? |exp |expt |floor |for\-each |force |gcd |imag\-part |inexact\-\>exact |inexact\? |input\-port\? |integer\-\>char |integer\? |interaction\-environment |lcm |length |list |list\-\>string |list\-\>vector |list\-ref |list\-tail |list\? |load |log |magnitude |make\-polar |make\-rectangular |make\-string |make\-vector |map |max |member |memq |memv |min |modulo |negative\? |newline |not |null\-environment |null\? |number\-\>string |number\? |numerator |odd\? |open\-input\-file |open\-output\-file |output\-port\? |pair\? |peek\-char |port\? |positive\? |procedure\? |quotient |rational\? |rationalize |read |read\-char |real\-part |real\? |remainder |reverse |round |scheme\-report\-environment |set\-car\! |set\-cdr\! |sin |sqrt |string |string\-\>list |string\-\>number |string\-\>symbol |string\-append |string\-ci\<\=\? |string\-ci\<\? |string\-ci\=\? |string\-ci\>\=\? |string\-ci\>\? |string\-copy |string\-fill\! |string\-length |string\-ref |string\-set\! |string\<\=\? |string\<\? |string\=\? |string\>\=\? |string\>\? |string\? |substring |symbol\-\>string |symbol\? |tan |transcript\-off |transcript\-on |truncate |values |vector |vector\-\>list |vector\-fill\! |vector\-length |vector\-ref |vector\-set\! |vector\? |with\-input\-from\-file |with\-output\-to\-file |write |write\-char |zero\? )">
|
|
|
61 <token type="NameBuiltin"/>
|
|
|
62 </rule>
|
|
|
63 <rule pattern="(?<=\()[\w!$%&*+,/:<=>?@^~|-]+">
|
|
|
64 <token type="NameFunction"/>
|
|
|
65 </rule>
|
|
|
66 <rule pattern="[\w!$%&*+,/:<=>?@^~|-]+">
|
|
|
67 <token type="NameVariable"/>
|
|
|
68 </rule>
|
|
|
69 <rule pattern="(\(|\))">
|
|
|
70 <token type="Punctuation"/>
|
|
|
71 </rule>
|
|
|
72 <rule pattern="(\[|\])">
|
|
|
73 <token type="Punctuation"/>
|
|
|
74 </rule>
|
|
|
75 </state>
|
|
|
76 <state name="multiline-comment">
|
|
|
77 <rule pattern="#\|">
|
|
|
78 <token type="CommentMultiline"/>
|
|
|
79 <push/>
|
|
|
80 </rule>
|
|
|
81 <rule pattern="\|#">
|
|
|
82 <token type="CommentMultiline"/>
|
|
|
83 <pop depth="1"/>
|
|
|
84 </rule>
|
|
|
85 <rule pattern="[^|#]+">
|
|
|
86 <token type="CommentMultiline"/>
|
|
|
87 </rule>
|
|
|
88 <rule pattern="[|#]">
|
|
|
89 <token type="CommentMultiline"/>
|
|
|
90 </rule>
|
|
|
91 </state>
|
|
|
92 <state name="commented-form">
|
|
|
93 <rule pattern="\(">
|
|
|
94 <token type="Comment"/>
|
|
|
95 <push/>
|
|
|
96 </rule>
|
|
|
97 <rule pattern="\)">
|
|
|
98 <token type="Comment"/>
|
|
|
99 <pop depth="1"/>
|
|
|
100 </rule>
|
|
|
101 <rule pattern="[^()]+">
|
|
|
102 <token type="Comment"/>
|
|
|
103 </rule>
|
|
|
104 </state>
|
|
|
105 </rules>
|
|
|
106 </lexer> |
