|
66
|
1 <lexer>
|
|
|
2 <config>
|
|
|
3 <name>Perl</name>
|
|
|
4 <alias>perl</alias>
|
|
|
5 <alias>pl</alias>
|
|
|
6 <filename>*.pl</filename>
|
|
|
7 <filename>*.pm</filename>
|
|
|
8 <filename>*.t</filename>
|
|
|
9 <mime_type>text/x-perl</mime_type>
|
|
|
10 <mime_type>application/x-perl</mime_type>
|
|
|
11 <dot_all>true</dot_all>
|
|
|
12 </config>
|
|
|
13 <rules>
|
|
|
14 <state name="root">
|
|
|
15 <rule pattern="\A\#!.+?$">
|
|
|
16 <token type="CommentHashbang"/>
|
|
|
17 </rule>
|
|
|
18 <rule pattern="\#.*?$">
|
|
|
19 <token type="CommentSingle"/>
|
|
|
20 </rule>
|
|
|
21 <rule pattern="^=[a-zA-Z0-9]+\s+.*?\n=cut">
|
|
|
22 <token type="CommentMultiline"/>
|
|
|
23 </rule>
|
|
|
24 <rule pattern="(continue|foreach|unless|return|elsif|CHECK|while|BEGIN|reset|print|until|next|else|INIT|then|last|redo|case|our|new|for|END|if|do|my)\b">
|
|
|
25 <token type="Keyword"/>
|
|
|
26 </rule>
|
|
|
27 <rule pattern="(format)(\s+)(\w+)(\s*)(=)(\s*\n)">
|
|
|
28 <bygroups>
|
|
|
29 <token type="Keyword"/>
|
|
|
30 <token type="Text"/>
|
|
|
31 <token type="Name"/>
|
|
|
32 <token type="Text"/>
|
|
|
33 <token type="Punctuation"/>
|
|
|
34 <token type="Text"/>
|
|
|
35 </bygroups>
|
|
|
36 <push state="format"/>
|
|
|
37 </rule>
|
|
|
38 <rule pattern="(eq|lt|gt|le|ge|ne|not|and|or|cmp)\b">
|
|
|
39 <token type="OperatorWord"/>
|
|
|
40 </rule>
|
|
|
41 <rule pattern="s/(\\\\|\\[^\\]|[^\\/])*/(\\\\|\\[^\\]|[^\\/])*/[egimosx]*">
|
|
|
42 <token type="LiteralStringRegex"/>
|
|
|
43 </rule>
|
|
|
44 <rule pattern="s!(\\\\|\\!|[^!])*!(\\\\|\\!|[^!])*![egimosx]*">
|
|
|
45 <token type="LiteralStringRegex"/>
|
|
|
46 </rule>
|
|
|
47 <rule pattern="s\\(\\\\|[^\\])*\\(\\\\|[^\\])*\\[egimosx]*">
|
|
|
48 <token type="LiteralStringRegex"/>
|
|
|
49 </rule>
|
|
|
50 <rule pattern="s@(\\\\|\\[^\\]|[^\\@])*@(\\\\|\\[^\\]|[^\\@])*@[egimosx]*">
|
|
|
51 <token type="LiteralStringRegex"/>
|
|
|
52 </rule>
|
|
|
53 <rule pattern="s%(\\\\|\\[^\\]|[^\\%])*%(\\\\|\\[^\\]|[^\\%])*%[egimosx]*">
|
|
|
54 <token type="LiteralStringRegex"/>
|
|
|
55 </rule>
|
|
|
56 <rule pattern="s\{(\\\\|\\[^\\]|[^\\}])*\}\s*">
|
|
|
57 <token type="LiteralStringRegex"/>
|
|
|
58 <push state="balanced-regex"/>
|
|
|
59 </rule>
|
|
|
60 <rule pattern="s<(\\\\|\\[^\\]|[^\\>])*>\s*">
|
|
|
61 <token type="LiteralStringRegex"/>
|
|
|
62 <push state="balanced-regex"/>
|
|
|
63 </rule>
|
|
|
64 <rule pattern="s\[(\\\\|\\[^\\]|[^\\\]])*\]\s*">
|
|
|
65 <token type="LiteralStringRegex"/>
|
|
|
66 <push state="balanced-regex"/>
|
|
|
67 </rule>
|
|
|
68 <rule pattern="s\((\\\\|\\[^\\]|[^\\)])*\)\s*">
|
|
|
69 <token type="LiteralStringRegex"/>
|
|
|
70 <push state="balanced-regex"/>
|
|
|
71 </rule>
|
|
|
72 <rule pattern="m?/(\\\\|\\[^\\]|[^\\/\n])*/[gcimosx]*">
|
|
|
73 <token type="LiteralStringRegex"/>
|
|
|
74 </rule>
|
|
|
75 <rule pattern="m(?=[/!\\{<\[(@%$])">
|
|
|
76 <token type="LiteralStringRegex"/>
|
|
|
77 <push state="balanced-regex"/>
|
|
|
78 </rule>
|
|
|
79 <rule pattern="((?<==~)|(?<=\())\s*/(\\\\|\\[^\\]|[^\\/])*/[gcimosx]*">
|
|
|
80 <token type="LiteralStringRegex"/>
|
|
|
81 </rule>
|
|
|
82 <rule pattern="\s+">
|
|
|
83 <token type="Text"/>
|
|
|
84 </rule>
|
|
|
85 <rule pattern="(getprotobynumber|getprotobyname|getservbyport|getservbyname|gethostbyname|gethostbyaddr|getnetbyaddr|getnetbyname|setprotoent|setpriority|getsockname|getprotoent|getpriority|getpeername|endprotoent|setsockopt|endhostent|setservent|socketpair|getsockopt|endservent|sethostent|getservent|gethostent|getnetent|wantarray|localtime|quotemeta|setnetent|prototype|endnetent|rewinddir|endpwent|endgrent|getpwent|getpwnam|getgrgid|dbmclose|continue|closedir|shutdown|setpwent|shmwrite|syswrite|truncate|formline|setgrent|getgrent|readpipe|getgrnam|readlink|readline|getpwuid|getlogin|telldir|opendir|shmread|readdir|getpgrp|getppid|waitpid|binmode|reverse|sprintf|unshift|symlink|seekdir|sysopen|defined|dbmopen|sysread|sysseek|connect|lcfirst|ucfirst|setpgrp|syscall|import|chroot|system|gmtime|unlink|unpack|semget|semctl|select|msgrcv|length|printf|listen|scalar|caller|rindex|substr|splice|rename|msgctl|msgget|delete|msgsnd|exists|values|socket|fileno|format|accept|shmget|shmctl|ioctl|alarm|atan2|utime|untie|bless|chdir|chmod|undef|umask|chomp|times|close|crypt|srand|split|mkdir|sleep|lstat|study|rmdir|local|fcntl|flock|write|shift|index|semop|chown|tell|join|send|warn|kill|wait|grep|glob|bind|last|pack|getc|fork|link|seek|push|rand|read|exit|sort|exec|open|eval|sqrt|redo|stat|chop|next|each|dump|time|recv|tied|goto|keys|pipe|map|tie|cos|die|eof|pop|sin|pos|oct|ref|exp|int|ord|log|our|hex|abs|vec|chr|uc|tr|my|lc)\b">
|
|
|
86 <token type="NameBuiltin"/>
|
|
|
87 </rule>
|
|
|
88 <rule pattern="((__(DATA|DIE|WARN)__)|(STD(IN|OUT|ERR)))\b">
|
|
|
89 <token type="NameBuiltinPseudo"/>
|
|
|
90 </rule>
|
|
|
91 <rule pattern="(<<)([\'"]?)([a-zA-Z_]\w*)(\2;?\n.*?\n)(\3)(\n)">
|
|
|
92 <bygroups>
|
|
|
93 <token type="LiteralString"/>
|
|
|
94 <token type="LiteralString"/>
|
|
|
95 <token type="LiteralStringDelimiter"/>
|
|
|
96 <token type="LiteralString"/>
|
|
|
97 <token type="LiteralStringDelimiter"/>
|
|
|
98 <token type="Text"/>
|
|
|
99 </bygroups>
|
|
|
100 </rule>
|
|
|
101 <rule pattern="__END__">
|
|
|
102 <token type="CommentPreproc"/>
|
|
|
103 <push state="end-part"/>
|
|
|
104 </rule>
|
|
|
105 <rule pattern="\$\^[ADEFHILMOPSTWX]">
|
|
|
106 <token type="NameVariableGlobal"/>
|
|
|
107 </rule>
|
|
|
108 <rule pattern="\$[\\\"\[\]'&`+*.,;=%~?@$!<>(^|/-](?!\w)">
|
|
|
109 <token type="NameVariableGlobal"/>
|
|
|
110 </rule>
|
|
|
111 <rule pattern="[$@%#]+">
|
|
|
112 <token type="NameVariable"/>
|
|
|
113 <push state="varname"/>
|
|
|
114 </rule>
|
|
|
115 <rule pattern="0_?[0-7]+(_[0-7]+)*">
|
|
|
116 <token type="LiteralNumberOct"/>
|
|
|
117 </rule>
|
|
|
118 <rule pattern="0x[0-9A-Fa-f]+(_[0-9A-Fa-f]+)*">
|
|
|
119 <token type="LiteralNumberHex"/>
|
|
|
120 </rule>
|
|
|
121 <rule pattern="0b[01]+(_[01]+)*">
|
|
|
122 <token type="LiteralNumberBin"/>
|
|
|
123 </rule>
|
|
|
124 <rule pattern="(?i)(\d*(_\d*)*\.\d+(_\d*)*|\d+(_\d*)*\.\d+(_\d*)*)(e[+-]?\d+)?">
|
|
|
125 <token type="LiteralNumberFloat"/>
|
|
|
126 </rule>
|
|
|
127 <rule pattern="(?i)\d+(_\d*)*e[+-]?\d+(_\d*)*">
|
|
|
128 <token type="LiteralNumberFloat"/>
|
|
|
129 </rule>
|
|
|
130 <rule pattern="\d+(_\d+)*">
|
|
|
131 <token type="LiteralNumberInteger"/>
|
|
|
132 </rule>
|
|
|
133 <rule pattern="'(\\\\|\\[^\\]|[^'\\])*'">
|
|
|
134 <token type="LiteralString"/>
|
|
|
135 </rule>
|
|
|
136 <rule pattern=""(\\\\|\\[^\\]|[^"\\])*"">
|
|
|
137 <token type="LiteralString"/>
|
|
|
138 </rule>
|
|
|
139 <rule pattern="`(\\\\|\\[^\\]|[^`\\])*`">
|
|
|
140 <token type="LiteralStringBacktick"/>
|
|
|
141 </rule>
|
|
|
142 <rule pattern="<([^\s>]+)>">
|
|
|
143 <token type="LiteralStringRegex"/>
|
|
|
144 </rule>
|
|
|
145 <rule pattern="(q|qq|qw|qr|qx)\{">
|
|
|
146 <token type="LiteralStringOther"/>
|
|
|
147 <push state="cb-string"/>
|
|
|
148 </rule>
|
|
|
149 <rule pattern="(q|qq|qw|qr|qx)\(">
|
|
|
150 <token type="LiteralStringOther"/>
|
|
|
151 <push state="rb-string"/>
|
|
|
152 </rule>
|
|
|
153 <rule pattern="(q|qq|qw|qr|qx)\[">
|
|
|
154 <token type="LiteralStringOther"/>
|
|
|
155 <push state="sb-string"/>
|
|
|
156 </rule>
|
|
|
157 <rule pattern="(q|qq|qw|qr|qx)\<">
|
|
|
158 <token type="LiteralStringOther"/>
|
|
|
159 <push state="lt-string"/>
|
|
|
160 </rule>
|
|
|
161 <rule pattern="(q|qq|qw|qr|qx)([\W_])(.|\n)*?\2">
|
|
|
162 <token type="LiteralStringOther"/>
|
|
|
163 </rule>
|
|
|
164 <rule pattern="(package)(\s+)([a-zA-Z_]\w*(?:::[a-zA-Z_]\w*)*)">
|
|
|
165 <bygroups>
|
|
|
166 <token type="Keyword"/>
|
|
|
167 <token type="Text"/>
|
|
|
168 <token type="NameNamespace"/>
|
|
|
169 </bygroups>
|
|
|
170 </rule>
|
|
|
171 <rule pattern="(use|require|no)(\s+)([a-zA-Z_]\w*(?:::[a-zA-Z_]\w*)*)">
|
|
|
172 <bygroups>
|
|
|
173 <token type="Keyword"/>
|
|
|
174 <token type="Text"/>
|
|
|
175 <token type="NameNamespace"/>
|
|
|
176 </bygroups>
|
|
|
177 </rule>
|
|
|
178 <rule pattern="(sub)(\s+)">
|
|
|
179 <bygroups>
|
|
|
180 <token type="Keyword"/>
|
|
|
181 <token type="Text"/>
|
|
|
182 </bygroups>
|
|
|
183 <push state="funcname"/>
|
|
|
184 </rule>
|
|
|
185 <rule pattern="(package|require|use|no)\b">
|
|
|
186 <token type="Keyword"/>
|
|
|
187 </rule>
|
|
|
188 <rule pattern="(\[\]|\*\*|::|<<|>>|>=|<=>|<=|={3}|!=|=~|!~|&&?|\|\||\.{1,3})">
|
|
|
189 <token type="Operator"/>
|
|
|
190 </rule>
|
|
|
191 <rule pattern="[-+/*%=<>&^|!\\~]=?">
|
|
|
192 <token type="Operator"/>
|
|
|
193 </rule>
|
|
|
194 <rule pattern="[()\[\]:;,<>/?{}]">
|
|
|
195 <token type="Punctuation"/>
|
|
|
196 </rule>
|
|
|
197 <rule pattern="(?=\w)">
|
|
|
198 <token type="Name"/>
|
|
|
199 <push state="name"/>
|
|
|
200 </rule>
|
|
|
201 </state>
|
|
|
202 <state name="cb-string">
|
|
|
203 <rule pattern="\\[{}\\]">
|
|
|
204 <token type="LiteralStringOther"/>
|
|
|
205 </rule>
|
|
|
206 <rule pattern="\\">
|
|
|
207 <token type="LiteralStringOther"/>
|
|
|
208 </rule>
|
|
|
209 <rule pattern="\{">
|
|
|
210 <token type="LiteralStringOther"/>
|
|
|
211 <push state="cb-string"/>
|
|
|
212 </rule>
|
|
|
213 <rule pattern="\}">
|
|
|
214 <token type="LiteralStringOther"/>
|
|
|
215 <pop depth="1"/>
|
|
|
216 </rule>
|
|
|
217 <rule pattern="[^{}\\]+">
|
|
|
218 <token type="LiteralStringOther"/>
|
|
|
219 </rule>
|
|
|
220 </state>
|
|
|
221 <state name="balanced-regex">
|
|
|
222 <rule pattern="/(\\\\|\\[^\\]|[^\\/])*/[egimosx]*">
|
|
|
223 <token type="LiteralStringRegex"/>
|
|
|
224 <pop depth="1"/>
|
|
|
225 </rule>
|
|
|
226 <rule pattern="!(\\\\|\\[^\\]|[^\\!])*![egimosx]*">
|
|
|
227 <token type="LiteralStringRegex"/>
|
|
|
228 <pop depth="1"/>
|
|
|
229 </rule>
|
|
|
230 <rule pattern="\\(\\\\|[^\\])*\\[egimosx]*">
|
|
|
231 <token type="LiteralStringRegex"/>
|
|
|
232 <pop depth="1"/>
|
|
|
233 </rule>
|
|
|
234 <rule pattern="\{(\\\\|\\[^\\]|[^\\}])*\}[egimosx]*">
|
|
|
235 <token type="LiteralStringRegex"/>
|
|
|
236 <pop depth="1"/>
|
|
|
237 </rule>
|
|
|
238 <rule pattern="<(\\\\|\\[^\\]|[^\\>])*>[egimosx]*">
|
|
|
239 <token type="LiteralStringRegex"/>
|
|
|
240 <pop depth="1"/>
|
|
|
241 </rule>
|
|
|
242 <rule pattern="\[(\\\\|\\[^\\]|[^\\\]])*\][egimosx]*">
|
|
|
243 <token type="LiteralStringRegex"/>
|
|
|
244 <pop depth="1"/>
|
|
|
245 </rule>
|
|
|
246 <rule pattern="\((\\\\|\\[^\\]|[^\\)])*\)[egimosx]*">
|
|
|
247 <token type="LiteralStringRegex"/>
|
|
|
248 <pop depth="1"/>
|
|
|
249 </rule>
|
|
|
250 <rule pattern="@(\\\\|\\[^\\]|[^\\@])*@[egimosx]*">
|
|
|
251 <token type="LiteralStringRegex"/>
|
|
|
252 <pop depth="1"/>
|
|
|
253 </rule>
|
|
|
254 <rule pattern="%(\\\\|\\[^\\]|[^\\%])*%[egimosx]*">
|
|
|
255 <token type="LiteralStringRegex"/>
|
|
|
256 <pop depth="1"/>
|
|
|
257 </rule>
|
|
|
258 <rule pattern="\$(\\\\|\\[^\\]|[^\\$])*\$[egimosx]*">
|
|
|
259 <token type="LiteralStringRegex"/>
|
|
|
260 <pop depth="1"/>
|
|
|
261 </rule>
|
|
|
262 </state>
|
|
|
263 <state name="lt-string">
|
|
|
264 <rule pattern="\\[<>\\]">
|
|
|
265 <token type="LiteralStringOther"/>
|
|
|
266 </rule>
|
|
|
267 <rule pattern="\\">
|
|
|
268 <token type="LiteralStringOther"/>
|
|
|
269 </rule>
|
|
|
270 <rule pattern="\<">
|
|
|
271 <token type="LiteralStringOther"/>
|
|
|
272 <push state="lt-string"/>
|
|
|
273 </rule>
|
|
|
274 <rule pattern="\>">
|
|
|
275 <token type="LiteralStringOther"/>
|
|
|
276 <pop depth="1"/>
|
|
|
277 </rule>
|
|
|
278 <rule pattern="[^<>]+">
|
|
|
279 <token type="LiteralStringOther"/>
|
|
|
280 </rule>
|
|
|
281 </state>
|
|
|
282 <state name="format">
|
|
|
283 <rule pattern="\.\n">
|
|
|
284 <token type="LiteralStringInterpol"/>
|
|
|
285 <pop depth="1"/>
|
|
|
286 </rule>
|
|
|
287 <rule pattern="[^\n]*\n">
|
|
|
288 <token type="LiteralStringInterpol"/>
|
|
|
289 </rule>
|
|
|
290 </state>
|
|
|
291 <state name="funcname">
|
|
|
292 <rule pattern="[a-zA-Z_]\w*[!?]?">
|
|
|
293 <token type="NameFunction"/>
|
|
|
294 </rule>
|
|
|
295 <rule pattern="\s+">
|
|
|
296 <token type="Text"/>
|
|
|
297 </rule>
|
|
|
298 <rule pattern="(\([$@%]*\))(\s*)">
|
|
|
299 <bygroups>
|
|
|
300 <token type="Punctuation"/>
|
|
|
301 <token type="Text"/>
|
|
|
302 </bygroups>
|
|
|
303 </rule>
|
|
|
304 <rule pattern=";">
|
|
|
305 <token type="Punctuation"/>
|
|
|
306 <pop depth="1"/>
|
|
|
307 </rule>
|
|
|
308 <rule pattern=".*?\{">
|
|
|
309 <token type="Punctuation"/>
|
|
|
310 <pop depth="1"/>
|
|
|
311 </rule>
|
|
|
312 </state>
|
|
|
313 <state name="end-part">
|
|
|
314 <rule pattern=".+">
|
|
|
315 <token type="CommentPreproc"/>
|
|
|
316 <pop depth="1"/>
|
|
|
317 </rule>
|
|
|
318 </state>
|
|
|
319 <state name="varname">
|
|
|
320 <rule pattern="\s+">
|
|
|
321 <token type="Text"/>
|
|
|
322 </rule>
|
|
|
323 <rule pattern="\{">
|
|
|
324 <token type="Punctuation"/>
|
|
|
325 <pop depth="1"/>
|
|
|
326 </rule>
|
|
|
327 <rule pattern="\)|,">
|
|
|
328 <token type="Punctuation"/>
|
|
|
329 <pop depth="1"/>
|
|
|
330 </rule>
|
|
|
331 <rule pattern="\w+::">
|
|
|
332 <token type="NameNamespace"/>
|
|
|
333 </rule>
|
|
|
334 <rule pattern="[\w:]+">
|
|
|
335 <token type="NameVariable"/>
|
|
|
336 <pop depth="1"/>
|
|
|
337 </rule>
|
|
|
338 </state>
|
|
|
339 <state name="name">
|
|
|
340 <rule pattern="[a-zA-Z_]\w*(::[a-zA-Z_]\w*)*(::)?(?=\s*->)">
|
|
|
341 <token type="NameNamespace"/>
|
|
|
342 <pop depth="1"/>
|
|
|
343 </rule>
|
|
|
344 <rule pattern="[a-zA-Z_]\w*(::[a-zA-Z_]\w*)*::">
|
|
|
345 <token type="NameNamespace"/>
|
|
|
346 <pop depth="1"/>
|
|
|
347 </rule>
|
|
|
348 <rule pattern="[\w:]+">
|
|
|
349 <token type="Name"/>
|
|
|
350 <pop depth="1"/>
|
|
|
351 </rule>
|
|
|
352 <rule pattern="[A-Z_]+(?=\W)">
|
|
|
353 <token type="NameConstant"/>
|
|
|
354 <pop depth="1"/>
|
|
|
355 </rule>
|
|
|
356 <rule pattern="(?=\W)">
|
|
|
357 <token type="Text"/>
|
|
|
358 <pop depth="1"/>
|
|
|
359 </rule>
|
|
|
360 </state>
|
|
|
361 <state name="rb-string">
|
|
|
362 <rule pattern="\\[()\\]">
|
|
|
363 <token type="LiteralStringOther"/>
|
|
|
364 </rule>
|
|
|
365 <rule pattern="\\">
|
|
|
366 <token type="LiteralStringOther"/>
|
|
|
367 </rule>
|
|
|
368 <rule pattern="\(">
|
|
|
369 <token type="LiteralStringOther"/>
|
|
|
370 <push state="rb-string"/>
|
|
|
371 </rule>
|
|
|
372 <rule pattern="\)">
|
|
|
373 <token type="LiteralStringOther"/>
|
|
|
374 <pop depth="1"/>
|
|
|
375 </rule>
|
|
|
376 <rule pattern="[^()]+">
|
|
|
377 <token type="LiteralStringOther"/>
|
|
|
378 </rule>
|
|
|
379 </state>
|
|
|
380 <state name="sb-string">
|
|
|
381 <rule pattern="\\[\[\]\\]">
|
|
|
382 <token type="LiteralStringOther"/>
|
|
|
383 </rule>
|
|
|
384 <rule pattern="\\">
|
|
|
385 <token type="LiteralStringOther"/>
|
|
|
386 </rule>
|
|
|
387 <rule pattern="\[">
|
|
|
388 <token type="LiteralStringOther"/>
|
|
|
389 <push state="sb-string"/>
|
|
|
390 </rule>
|
|
|
391 <rule pattern="\]">
|
|
|
392 <token type="LiteralStringOther"/>
|
|
|
393 <pop depth="1"/>
|
|
|
394 </rule>
|
|
|
395 <rule pattern="[^\[\]]+">
|
|
|
396 <token type="LiteralStringOther"/>
|
|
|
397 </rule>
|
|
|
398 </state>
|
|
|
399 </rules>
|
|
|
400 </lexer> |
