|
66
|
1 <lexer>
|
|
|
2 <config>
|
|
|
3 <name>Haskell</name>
|
|
|
4 <alias>haskell</alias>
|
|
|
5 <alias>hs</alias>
|
|
|
6 <filename>*.hs</filename>
|
|
|
7 <mime_type>text/x-haskell</mime_type>
|
|
|
8 </config>
|
|
|
9 <rules>
|
|
|
10 <state name="escape">
|
|
|
11 <rule pattern="[abfnrtv"\'&\\]">
|
|
|
12 <token type="LiteralStringEscape"/>
|
|
|
13 <pop depth="1"/>
|
|
|
14 </rule>
|
|
|
15 <rule pattern="\^[][\p{Lu}@^_]">
|
|
|
16 <token type="LiteralStringEscape"/>
|
|
|
17 <pop depth="1"/>
|
|
|
18 </rule>
|
|
|
19 <rule pattern="NUL|SOH|[SE]TX|EOT|ENQ|ACK|BEL|BS|HT|LF|VT|FF|CR|S[OI]|DLE|DC[1-4]|NAK|SYN|ETB|CAN|EM|SUB|ESC|[FGRU]S|SP|DEL">
|
|
|
20 <token type="LiteralStringEscape"/>
|
|
|
21 <pop depth="1"/>
|
|
|
22 </rule>
|
|
|
23 <rule pattern="o[0-7]+">
|
|
|
24 <token type="LiteralStringEscape"/>
|
|
|
25 <pop depth="1"/>
|
|
|
26 </rule>
|
|
|
27 <rule pattern="x[\da-fA-F]+">
|
|
|
28 <token type="LiteralStringEscape"/>
|
|
|
29 <pop depth="1"/>
|
|
|
30 </rule>
|
|
|
31 <rule pattern="\d+">
|
|
|
32 <token type="LiteralStringEscape"/>
|
|
|
33 <pop depth="1"/>
|
|
|
34 </rule>
|
|
|
35 <rule pattern="\s+\\">
|
|
|
36 <token type="LiteralStringEscape"/>
|
|
|
37 <pop depth="1"/>
|
|
|
38 </rule>
|
|
|
39 </state>
|
|
|
40 <state name="root">
|
|
|
41 <rule pattern="\s+">
|
|
|
42 <token type="Text"/>
|
|
|
43 </rule>
|
|
|
44 <rule pattern="--(?![!#$%&*+./<=>?@^|_~:\\]).*?$">
|
|
|
45 <token type="CommentSingle"/>
|
|
|
46 </rule>
|
|
|
47 <rule pattern="\{-">
|
|
|
48 <token type="CommentMultiline"/>
|
|
|
49 <push state="comment"/>
|
|
|
50 </rule>
|
|
|
51 <rule pattern="\bimport\b">
|
|
|
52 <token type="KeywordReserved"/>
|
|
|
53 <push state="import"/>
|
|
|
54 </rule>
|
|
|
55 <rule pattern="\bmodule\b">
|
|
|
56 <token type="KeywordReserved"/>
|
|
|
57 <push state="module"/>
|
|
|
58 </rule>
|
|
|
59 <rule pattern="\berror\b">
|
|
|
60 <token type="NameException"/>
|
|
|
61 </rule>
|
|
|
62 <rule pattern="\b(case|class|data|default|deriving|do|else|family|if|in|infix[lr]?|instance|let|newtype|of|then|type|where|_)(?!\')\b">
|
|
|
63 <token type="KeywordReserved"/>
|
|
|
64 </rule>
|
|
|
65 <rule pattern="'[^\\]'">
|
|
|
66 <token type="LiteralStringChar"/>
|
|
|
67 </rule>
|
|
|
68 <rule pattern="^[_\p{Ll}][\w\']*">
|
|
|
69 <token type="NameFunction"/>
|
|
|
70 </rule>
|
|
|
71 <rule pattern="'?[_\p{Ll}][\w']*">
|
|
|
72 <token type="Name"/>
|
|
|
73 </rule>
|
|
|
74 <rule pattern="('')?[\p{Lu}][\w\']*">
|
|
|
75 <token type="KeywordType"/>
|
|
|
76 </rule>
|
|
|
77 <rule pattern="(')[\p{Lu}][\w\']*">
|
|
|
78 <token type="KeywordType"/>
|
|
|
79 </rule>
|
|
|
80 <rule pattern="(')\[[^\]]*\]">
|
|
|
81 <token type="KeywordType"/>
|
|
|
82 </rule>
|
|
|
83 <rule pattern="(')\([^)]*\)">
|
|
|
84 <token type="KeywordType"/>
|
|
|
85 </rule>
|
|
|
86 <rule pattern="\\(?![:!#$%&*+.\\/<=>?@^|~-]+)">
|
|
|
87 <token type="NameFunction"/>
|
|
|
88 </rule>
|
|
|
89 <rule pattern="(<-|::|->|=>|=)(?![:!#$%&*+.\\/<=>?@^|~-]+)">
|
|
|
90 <token type="OperatorWord"/>
|
|
|
91 </rule>
|
|
|
92 <rule pattern=":[:!#$%&*+.\\/<=>?@^|~-]*">
|
|
|
93 <token type="KeywordType"/>
|
|
|
94 </rule>
|
|
|
95 <rule pattern="[:!#$%&*+.\\/<=>?@^|~-]+">
|
|
|
96 <token type="Operator"/>
|
|
|
97 </rule>
|
|
|
98 <rule pattern="\d+[eE][+-]?\d+">
|
|
|
99 <token type="LiteralNumberFloat"/>
|
|
|
100 </rule>
|
|
|
101 <rule pattern="\d+\.\d+([eE][+-]?\d+)?">
|
|
|
102 <token type="LiteralNumberFloat"/>
|
|
|
103 </rule>
|
|
|
104 <rule pattern="0[oO][0-7]+">
|
|
|
105 <token type="LiteralNumberOct"/>
|
|
|
106 </rule>
|
|
|
107 <rule pattern="0[xX][\da-fA-F]+">
|
|
|
108 <token type="LiteralNumberHex"/>
|
|
|
109 </rule>
|
|
|
110 <rule pattern="\d+">
|
|
|
111 <token type="LiteralNumberInteger"/>
|
|
|
112 </rule>
|
|
|
113 <rule pattern="'">
|
|
|
114 <token type="LiteralStringChar"/>
|
|
|
115 <push state="character"/>
|
|
|
116 </rule>
|
|
|
117 <rule pattern=""">
|
|
|
118 <token type="LiteralString"/>
|
|
|
119 <push state="string"/>
|
|
|
120 </rule>
|
|
|
121 <rule pattern="\[\]">
|
|
|
122 <token type="KeywordType"/>
|
|
|
123 </rule>
|
|
|
124 <rule pattern="\(\)">
|
|
|
125 <token type="NameBuiltin"/>
|
|
|
126 </rule>
|
|
|
127 <rule pattern="[][(),;`{}]">
|
|
|
128 <token type="Punctuation"/>
|
|
|
129 </rule>
|
|
|
130 </state>
|
|
|
131 <state name="import">
|
|
|
132 <rule pattern="\s+">
|
|
|
133 <token type="Text"/>
|
|
|
134 </rule>
|
|
|
135 <rule pattern=""">
|
|
|
136 <token type="LiteralString"/>
|
|
|
137 <push state="string"/>
|
|
|
138 </rule>
|
|
|
139 <rule pattern="\)">
|
|
|
140 <token type="Punctuation"/>
|
|
|
141 <pop depth="1"/>
|
|
|
142 </rule>
|
|
|
143 <rule pattern="qualified\b">
|
|
|
144 <token type="Keyword"/>
|
|
|
145 </rule>
|
|
|
146 <rule pattern="([\p{Lu}][\w.]*)(\s+)(as)(\s+)([\p{Lu}][\w.]*)">
|
|
|
147 <bygroups>
|
|
|
148 <token type="NameNamespace"/>
|
|
|
149 <token type="Text"/>
|
|
|
150 <token type="Keyword"/>
|
|
|
151 <token type="Text"/>
|
|
|
152 <token type="Name"/>
|
|
|
153 </bygroups>
|
|
|
154 <pop depth="1"/>
|
|
|
155 </rule>
|
|
|
156 <rule pattern="([\p{Lu}][\w.]*)(\s+)(hiding)(\s+)(\()">
|
|
|
157 <bygroups>
|
|
|
158 <token type="NameNamespace"/>
|
|
|
159 <token type="Text"/>
|
|
|
160 <token type="Keyword"/>
|
|
|
161 <token type="Text"/>
|
|
|
162 <token type="Punctuation"/>
|
|
|
163 </bygroups>
|
|
|
164 <push state="funclist"/>
|
|
|
165 </rule>
|
|
|
166 <rule pattern="([\p{Lu}][\w.]*)(\s+)(\()">
|
|
|
167 <bygroups>
|
|
|
168 <token type="NameNamespace"/>
|
|
|
169 <token type="Text"/>
|
|
|
170 <token type="Punctuation"/>
|
|
|
171 </bygroups>
|
|
|
172 <push state="funclist"/>
|
|
|
173 </rule>
|
|
|
174 <rule pattern="[\w.]+">
|
|
|
175 <token type="NameNamespace"/>
|
|
|
176 <pop depth="1"/>
|
|
|
177 </rule>
|
|
|
178 </state>
|
|
|
179 <state name="module">
|
|
|
180 <rule pattern="\s+">
|
|
|
181 <token type="Text"/>
|
|
|
182 </rule>
|
|
|
183 <rule pattern="([\p{Lu}][\w.]*)(\s+)(\()">
|
|
|
184 <bygroups>
|
|
|
185 <token type="NameNamespace"/>
|
|
|
186 <token type="Text"/>
|
|
|
187 <token type="Punctuation"/>
|
|
|
188 </bygroups>
|
|
|
189 <push state="funclist"/>
|
|
|
190 </rule>
|
|
|
191 <rule pattern="[\p{Lu}][\w.]*">
|
|
|
192 <token type="NameNamespace"/>
|
|
|
193 <pop depth="1"/>
|
|
|
194 </rule>
|
|
|
195 </state>
|
|
|
196 <state name="funclist">
|
|
|
197 <rule pattern="\s+">
|
|
|
198 <token type="Text"/>
|
|
|
199 </rule>
|
|
|
200 <rule pattern="[\p{Lu}]\w*">
|
|
|
201 <token type="KeywordType"/>
|
|
|
202 </rule>
|
|
|
203 <rule pattern="(_[\w\']+|[\p{Ll}][\w\']*)">
|
|
|
204 <token type="NameFunction"/>
|
|
|
205 </rule>
|
|
|
206 <rule pattern="--(?![!#$%&*+./<=>?@^|_~:\\]).*?$">
|
|
|
207 <token type="CommentSingle"/>
|
|
|
208 </rule>
|
|
|
209 <rule pattern="\{-">
|
|
|
210 <token type="CommentMultiline"/>
|
|
|
211 <push state="comment"/>
|
|
|
212 </rule>
|
|
|
213 <rule pattern=",">
|
|
|
214 <token type="Punctuation"/>
|
|
|
215 </rule>
|
|
|
216 <rule pattern="[:!#$%&*+.\\/<=>?@^|~-]+">
|
|
|
217 <token type="Operator"/>
|
|
|
218 </rule>
|
|
|
219 <rule pattern="\(">
|
|
|
220 <token type="Punctuation"/>
|
|
|
221 <push state="funclist" state="funclist"/>
|
|
|
222 </rule>
|
|
|
223 <rule pattern="\)">
|
|
|
224 <token type="Punctuation"/>
|
|
|
225 <pop depth="2"/>
|
|
|
226 </rule>
|
|
|
227 </state>
|
|
|
228 <state name="comment">
|
|
|
229 <rule pattern="[^-{}]+">
|
|
|
230 <token type="CommentMultiline"/>
|
|
|
231 </rule>
|
|
|
232 <rule pattern="\{-">
|
|
|
233 <token type="CommentMultiline"/>
|
|
|
234 <push/>
|
|
|
235 </rule>
|
|
|
236 <rule pattern="-\}">
|
|
|
237 <token type="CommentMultiline"/>
|
|
|
238 <pop depth="1"/>
|
|
|
239 </rule>
|
|
|
240 <rule pattern="[-{}]">
|
|
|
241 <token type="CommentMultiline"/>
|
|
|
242 </rule>
|
|
|
243 </state>
|
|
|
244 <state name="character">
|
|
|
245 <rule pattern="[^\\']'">
|
|
|
246 <token type="LiteralStringChar"/>
|
|
|
247 <pop depth="1"/>
|
|
|
248 </rule>
|
|
|
249 <rule pattern="\\">
|
|
|
250 <token type="LiteralStringEscape"/>
|
|
|
251 <push state="escape"/>
|
|
|
252 </rule>
|
|
|
253 <rule pattern="'">
|
|
|
254 <token type="LiteralStringChar"/>
|
|
|
255 <pop depth="1"/>
|
|
|
256 </rule>
|
|
|
257 </state>
|
|
|
258 <state name="string">
|
|
|
259 <rule pattern="[^\\"]+">
|
|
|
260 <token type="LiteralString"/>
|
|
|
261 </rule>
|
|
|
262 <rule pattern="\\">
|
|
|
263 <token type="LiteralStringEscape"/>
|
|
|
264 <push state="escape"/>
|
|
|
265 </rule>
|
|
|
266 <rule pattern=""">
|
|
|
267 <token type="LiteralString"/>
|
|
|
268 <pop depth="1"/>
|
|
|
269 </rule>
|
|
|
270 </state>
|
|
|
271 </rules>
|
|
|
272 </lexer> |
