File Coverage

blib/lib/Syntax/Highlight/Engine/Kate/Asm6502.pm
Criterion Covered Total %
statement 20 183 10.9
branch 0 158 0.0
condition 1 3 33.3
subroutine 4 7 57.1
pod 0 4 0.0
total 25 355 7.0


line stmt bran cond sub pod time code
1             # Copyright (c) 2005 - 2006 Hans Jeuken. All rights reserved.
2             # This program is free software; you can redistribute it and/or
3             # modify it under the same terms as Perl itself.
4              
5             # This file was generated from the 'asm6502.xml' file of the syntax highlight
6             # engine of the kate text editor (http://www.kate-editor.org
7              
8             #kate xml version 1.04
9             #kate version 2.1
10             #generated: Sun Feb 3 22:02:04 2008, localtime
11              
12             package Syntax::Highlight::Engine::Kate::Asm6502;
13              
14             our $VERSION = '0.12';
15              
16 1     1   486 use strict;
  1         2  
  1         26  
17 1     1   5 use warnings;
  1         1  
  1         25  
18 1     1   4 use base('Syntax::Highlight::Engine::Kate::Template');
  1         2  
  1         1253  
19              
20             sub new {
21 1     1 0 540 my $proto = shift;
22 1   33     10 my $class = ref($proto) || $proto;
23 1         10 my $self = $class->SUPER::new(@_);
24 1         11 $self->attributes({
25             'Command' => 'Normal',
26             'Comment' => 'Comment',
27             'Data Type' => 'DataType',
28             'Decimal' => 'DecVal',
29             'Hex' => 'BaseN',
30             'Keyword' => 'Keyword',
31             'Normal Text' => 'Normal',
32             'Operator' => 'Others',
33             'Parameter' => 'Others',
34             'Preprocessor' => 'Others',
35             'String' => 'String',
36             'Substitution' => 'Others',
37             });
38 1         10 $self->contextdata({
39             'Base' => {
40             callback => \&parseBase,
41             attribute => 'Normal Text',
42             },
43             'Commentar 2' => {
44             callback => \&parseCommentar2,
45             attribute => 'Comment',
46             },
47             });
48 1         6 $self->deliminators('\\s||\\.|\\(|\\)|:|\\!|\\+|,|-|<|=|>|\\%|\\&|\\*|\\/|;|\\?|\\[|\\]|\\^|\\{|\\||\\}|\\~|\\\\');
49 1         3 $self->basecontext('Base');
50 1         4 $self->keywordscase(0);
51 1         3 $self->initialize;
52 1         2 bless ($self, $class);
53 1         3 return $self;
54             }
55              
56             sub language {
57 0     0 0   return 'Asm6502';
58             }
59              
60             sub parseBase {
61 0     0 0   my ($self, $text) = @_;
62             # String => '#define.*$'
63             # attribute => 'Preprocessor'
64             # context => '#stay'
65             # type => 'RegExpr'
66 0 0         if ($self->testRegExpr($text, '#define.*$', 0, 0, 0, undef, 0, '#stay', 'Preprocessor')) {
67 0           return 1
68             }
69             # String => '#include .*$'
70             # attribute => 'Preprocessor'
71             # context => '#stay'
72             # type => 'RegExpr'
73 0 0         if ($self->testRegExpr($text, '#include .*$', 0, 0, 0, undef, 0, '#stay', 'Preprocessor')) {
74 0           return 1
75             }
76             # String => ';.*$'
77             # attribute => 'Comment'
78             # context => '#stay'
79             # type => 'RegExpr'
80 0 0         if ($self->testRegExpr($text, ';.*$', 0, 0, 0, undef, 0, '#stay', 'Comment')) {
81 0           return 1
82             }
83             # String => '\.byte'
84             # attribute => 'Data Type'
85             # context => '#stay'
86             # type => 'RegExpr'
87 0 0         if ($self->testRegExpr($text, '\\.byte', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
88 0           return 1
89             }
90             # String => '\.byt'
91             # attribute => 'Data Type'
92             # context => '#stay'
93             # type => 'RegExpr'
94 0 0         if ($self->testRegExpr($text, '\\.byt', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
95 0           return 1
96             }
97             # String => '\.word'
98             # attribute => 'Data Type'
99             # context => '#stay'
100             # type => 'RegExpr'
101 0 0         if ($self->testRegExpr($text, '\\.word', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
102 0           return 1
103             }
104             # String => '\.asc'
105             # attribute => 'Data Type'
106             # context => '#stay'
107             # type => 'RegExpr'
108 0 0         if ($self->testRegExpr($text, '\\.asc', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
109 0           return 1
110             }
111             # String => '\.dsb'
112             # attribute => 'Data Type'
113             # context => '#stay'
114             # type => 'RegExpr'
115 0 0         if ($self->testRegExpr($text, '\\.dsb', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
116 0           return 1
117             }
118             # String => '\.fopt'
119             # attribute => 'Data Type'
120             # context => '#stay'
121             # type => 'RegExpr'
122 0 0         if ($self->testRegExpr($text, '\\.fopt', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
123 0           return 1
124             }
125             # String => '\.text'
126             # attribute => 'Data Type'
127             # context => '#stay'
128             # type => 'RegExpr'
129 0 0         if ($self->testRegExpr($text, '\\.text', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
130 0           return 1
131             }
132             # String => '\.data'
133             # attribute => 'Data Type'
134             # context => '#stay'
135             # type => 'RegExpr'
136 0 0         if ($self->testRegExpr($text, '\\.data', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
137 0           return 1
138             }
139             # String => '\.bss'
140             # attribute => 'Data Type'
141             # context => '#stay'
142             # type => 'RegExpr'
143 0 0         if ($self->testRegExpr($text, '\\.bss', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
144 0           return 1
145             }
146             # String => '\.zero'
147             # attribute => 'Data Type'
148             # context => '#stay'
149             # type => 'RegExpr'
150 0 0         if ($self->testRegExpr($text, '\\.zero', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
151 0           return 1
152             }
153             # String => '\.align'
154             # attribute => 'Data Type'
155             # context => '#stay'
156             # type => 'RegExpr'
157 0 0         if ($self->testRegExpr($text, '\\.align', 0, 0, 0, undef, 0, '#stay', 'Data Type')) {
158 0           return 1
159             }
160             # String => '\$[A-Za-z0-9]*'
161             # attribute => 'Hex'
162             # context => '#stay'
163             # type => 'RegExpr'
164 0 0         if ($self->testRegExpr($text, '\\$[A-Za-z0-9]*', 0, 0, 0, undef, 0, '#stay', 'Hex')) {
165 0           return 1
166             }
167             # String => ',x$'
168             # attribute => 'Keyword'
169             # context => '#stay'
170             # insensitive => 'TRUE'
171             # type => 'RegExpr'
172 0 0         if ($self->testRegExpr($text, ',x$', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
173 0           return 1
174             }
175             # String => ',y$'
176             # attribute => 'Keyword'
177             # context => '#stay'
178             # insensitive => 'TRUE'
179             # type => 'RegExpr'
180 0 0         if ($self->testRegExpr($text, ',y$', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
181 0           return 1
182             }
183             # String => '#'
184             # attribute => 'Keyword'
185             # context => '#stay'
186             # insensitive => 'TRUE'
187             # type => 'RegExpr'
188 0 0         if ($self->testRegExpr($text, '#', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
189 0           return 1
190             }
191             # String => 'TAX'
192             # attribute => 'Keyword'
193             # context => '#stay'
194             # insensitive => 'TRUE'
195             # type => 'StringDetect'
196 0 0         if ($self->testStringDetect($text, 'TAX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
197 0           return 1
198             }
199             # String => 'ADC'
200             # attribute => 'Keyword'
201             # context => '#stay'
202             # insensitive => 'TRUE'
203             # type => 'StringDetect'
204 0 0         if ($self->testStringDetect($text, 'ADC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
205 0           return 1
206             }
207             # String => 'AND'
208             # attribute => 'Keyword'
209             # context => '#stay'
210             # insensitive => 'TRUE'
211             # type => 'StringDetect'
212 0 0         if ($self->testStringDetect($text, 'AND', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
213 0           return 1
214             }
215             # String => 'ASL'
216             # attribute => 'Keyword'
217             # context => '#stay'
218             # insensitive => 'TRUE'
219             # type => 'StringDetect'
220 0 0         if ($self->testStringDetect($text, 'ASL', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
221 0           return 1
222             }
223             # String => 'BCC'
224             # attribute => 'Keyword'
225             # context => '#stay'
226             # insensitive => 'TRUE'
227             # type => 'StringDetect'
228 0 0         if ($self->testStringDetect($text, 'BCC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
229 0           return 1
230             }
231             # String => 'BCS'
232             # attribute => 'Keyword'
233             # context => '#stay'
234             # insensitive => 'TRUE'
235             # type => 'StringDetect'
236 0 0         if ($self->testStringDetect($text, 'BCS', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
237 0           return 1
238             }
239             # String => 'BEQ'
240             # attribute => 'Keyword'
241             # context => '#stay'
242             # insensitive => 'TRUE'
243             # type => 'StringDetect'
244 0 0         if ($self->testStringDetect($text, 'BEQ', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
245 0           return 1
246             }
247             # String => 'BIT'
248             # attribute => 'Keyword'
249             # context => '#stay'
250             # insensitive => 'TRUE'
251             # type => 'StringDetect'
252 0 0         if ($self->testStringDetect($text, 'BIT', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
253 0           return 1
254             }
255             # String => 'BMI'
256             # attribute => 'Keyword'
257             # context => '#stay'
258             # insensitive => 'TRUE'
259             # type => 'StringDetect'
260 0 0         if ($self->testStringDetect($text, 'BMI', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
261 0           return 1
262             }
263             # String => 'BNE'
264             # attribute => 'Keyword'
265             # context => '#stay'
266             # insensitive => 'TRUE'
267             # type => 'StringDetect'
268 0 0         if ($self->testStringDetect($text, 'BNE', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
269 0           return 1
270             }
271             # String => 'BPL'
272             # attribute => 'Keyword'
273             # context => '#stay'
274             # insensitive => 'TRUE'
275             # type => 'StringDetect'
276 0 0         if ($self->testStringDetect($text, 'BPL', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
277 0           return 1
278             }
279             # String => 'BRK'
280             # attribute => 'Keyword'
281             # context => '#stay'
282             # insensitive => 'TRUE'
283             # type => 'StringDetect'
284 0 0         if ($self->testStringDetect($text, 'BRK', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
285 0           return 1
286             }
287             # String => 'BVC'
288             # attribute => 'Keyword'
289             # context => '#stay'
290             # insensitive => 'TRUE'
291             # type => 'StringDetect'
292 0 0         if ($self->testStringDetect($text, 'BVC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
293 0           return 1
294             }
295             # String => 'BVS'
296             # attribute => 'Keyword'
297             # context => '#stay'
298             # insensitive => 'TRUE'
299             # type => 'StringDetect'
300 0 0         if ($self->testStringDetect($text, 'BVS', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
301 0           return 1
302             }
303             # String => 'CLC'
304             # attribute => 'Keyword'
305             # context => '#stay'
306             # insensitive => 'TRUE'
307             # type => 'StringDetect'
308 0 0         if ($self->testStringDetect($text, 'CLC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
309 0           return 1
310             }
311             # String => 'CLD'
312             # attribute => 'Keyword'
313             # context => '#stay'
314             # insensitive => 'TRUE'
315             # type => 'StringDetect'
316 0 0         if ($self->testStringDetect($text, 'CLD', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
317 0           return 1
318             }
319             # String => 'CLI'
320             # attribute => 'Keyword'
321             # context => '#stay'
322             # insensitive => 'TRUE'
323             # type => 'StringDetect'
324 0 0         if ($self->testStringDetect($text, 'CLI', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
325 0           return 1
326             }
327             # String => 'CLV'
328             # attribute => 'Keyword'
329             # context => '#stay'
330             # insensitive => 'TRUE'
331             # type => 'StringDetect'
332 0 0         if ($self->testStringDetect($text, 'CLV', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
333 0           return 1
334             }
335             # String => 'CMP'
336             # attribute => 'Keyword'
337             # context => '#stay'
338             # insensitive => 'TRUE'
339             # type => 'StringDetect'
340 0 0         if ($self->testStringDetect($text, 'CMP', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
341 0           return 1
342             }
343             # String => 'CPX'
344             # attribute => 'Keyword'
345             # context => '#stay'
346             # insensitive => 'TRUE'
347             # type => 'StringDetect'
348 0 0         if ($self->testStringDetect($text, 'CPX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
349 0           return 1
350             }
351             # String => 'CPY'
352             # attribute => 'Keyword'
353             # context => '#stay'
354             # insensitive => 'TRUE'
355             # type => 'StringDetect'
356 0 0         if ($self->testStringDetect($text, 'CPY', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
357 0           return 1
358             }
359             # String => 'DEC'
360             # attribute => 'Keyword'
361             # context => '#stay'
362             # insensitive => 'TRUE'
363             # type => 'StringDetect'
364 0 0         if ($self->testStringDetect($text, 'DEC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
365 0           return 1
366             }
367             # String => 'DEX'
368             # attribute => 'Keyword'
369             # context => '#stay'
370             # insensitive => 'TRUE'
371             # type => 'StringDetect'
372 0 0         if ($self->testStringDetect($text, 'DEX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
373 0           return 1
374             }
375             # String => 'DEY'
376             # attribute => 'Keyword'
377             # context => '#stay'
378             # insensitive => 'TRUE'
379             # type => 'StringDetect'
380 0 0         if ($self->testStringDetect($text, 'DEY', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
381 0           return 1
382             }
383             # String => 'EOR'
384             # attribute => 'Keyword'
385             # context => '#stay'
386             # insensitive => 'TRUE'
387             # type => 'StringDetect'
388 0 0         if ($self->testStringDetect($text, 'EOR', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
389 0           return 1
390             }
391             # String => 'INC'
392             # attribute => 'Keyword'
393             # context => '#stay'
394             # insensitive => 'TRUE'
395             # type => 'StringDetect'
396 0 0         if ($self->testStringDetect($text, 'INC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
397 0           return 1
398             }
399             # String => 'INX'
400             # attribute => 'Keyword'
401             # context => '#stay'
402             # insensitive => 'TRUE'
403             # type => 'StringDetect'
404 0 0         if ($self->testStringDetect($text, 'INX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
405 0           return 1
406             }
407             # String => 'INY'
408             # attribute => 'Keyword'
409             # context => '#stay'
410             # insensitive => 'TRUE'
411             # type => 'StringDetect'
412 0 0         if ($self->testStringDetect($text, 'INY', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
413 0           return 1
414             }
415             # String => 'JMP'
416             # attribute => 'Keyword'
417             # context => '#stay'
418             # insensitive => 'TRUE'
419             # type => 'StringDetect'
420 0 0         if ($self->testStringDetect($text, 'JMP', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
421 0           return 1
422             }
423             # String => 'JSR'
424             # attribute => 'Keyword'
425             # context => '#stay'
426             # insensitive => 'TRUE'
427             # type => 'StringDetect'
428 0 0         if ($self->testStringDetect($text, 'JSR', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
429 0           return 1
430             }
431             # String => 'LDA'
432             # attribute => 'Keyword'
433             # context => '#stay'
434             # insensitive => 'TRUE'
435             # type => 'StringDetect'
436 0 0         if ($self->testStringDetect($text, 'LDA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
437 0           return 1
438             }
439             # String => 'LDX'
440             # attribute => 'Keyword'
441             # context => '#stay'
442             # insensitive => 'TRUE'
443             # type => 'StringDetect'
444 0 0         if ($self->testStringDetect($text, 'LDX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
445 0           return 1
446             }
447             # String => 'LDY'
448             # attribute => 'Keyword'
449             # context => '#stay'
450             # insensitive => 'TRUE'
451             # type => 'StringDetect'
452 0 0         if ($self->testStringDetect($text, 'LDY', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
453 0           return 1
454             }
455             # String => 'LSR'
456             # attribute => 'Keyword'
457             # context => '#stay'
458             # insensitive => 'TRUE'
459             # type => 'StringDetect'
460 0 0         if ($self->testStringDetect($text, 'LSR', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
461 0           return 1
462             }
463             # String => 'NOP'
464             # attribute => 'Keyword'
465             # context => '#stay'
466             # insensitive => 'TRUE'
467             # type => 'StringDetect'
468 0 0         if ($self->testStringDetect($text, 'NOP', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
469 0           return 1
470             }
471             # String => 'ORA'
472             # attribute => 'Keyword'
473             # context => '#stay'
474             # insensitive => 'TRUE'
475             # type => 'StringDetect'
476 0 0         if ($self->testStringDetect($text, 'ORA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
477 0           return 1
478             }
479             # String => 'PHA'
480             # attribute => 'Keyword'
481             # context => '#stay'
482             # insensitive => 'TRUE'
483             # type => 'StringDetect'
484 0 0         if ($self->testStringDetect($text, 'PHA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
485 0           return 1
486             }
487             # String => 'PHP'
488             # attribute => 'Keyword'
489             # context => '#stay'
490             # insensitive => 'TRUE'
491             # type => 'StringDetect'
492 0 0         if ($self->testStringDetect($text, 'PHP', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
493 0           return 1
494             }
495             # String => 'PLA'
496             # attribute => 'Keyword'
497             # context => '#stay'
498             # insensitive => 'TRUE'
499             # type => 'StringDetect'
500 0 0         if ($self->testStringDetect($text, 'PLA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
501 0           return 1
502             }
503             # String => 'PLP'
504             # attribute => 'Keyword'
505             # context => '#stay'
506             # insensitive => 'TRUE'
507             # type => 'StringDetect'
508 0 0         if ($self->testStringDetect($text, 'PLP', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
509 0           return 1
510             }
511             # String => 'ROL'
512             # attribute => 'Keyword'
513             # context => '#stay'
514             # insensitive => 'TRUE'
515             # type => 'StringDetect'
516 0 0         if ($self->testStringDetect($text, 'ROL', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
517 0           return 1
518             }
519             # String => 'ROR'
520             # attribute => 'Keyword'
521             # context => '#stay'
522             # insensitive => 'TRUE'
523             # type => 'StringDetect'
524 0 0         if ($self->testStringDetect($text, 'ROR', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
525 0           return 1
526             }
527             # String => 'RTI'
528             # attribute => 'Keyword'
529             # context => '#stay'
530             # insensitive => 'TRUE'
531             # type => 'StringDetect'
532 0 0         if ($self->testStringDetect($text, 'RTI', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
533 0           return 1
534             }
535             # String => 'RTS'
536             # attribute => 'Keyword'
537             # context => '#stay'
538             # insensitive => 'TRUE'
539             # type => 'StringDetect'
540 0 0         if ($self->testStringDetect($text, 'RTS', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
541 0           return 1
542             }
543             # String => 'SBC'
544             # attribute => 'Keyword'
545             # context => '#stay'
546             # insensitive => 'TRUE'
547             # type => 'StringDetect'
548 0 0         if ($self->testStringDetect($text, 'SBC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
549 0           return 1
550             }
551             # String => 'SEC'
552             # attribute => 'Keyword'
553             # context => '#stay'
554             # insensitive => 'TRUE'
555             # type => 'StringDetect'
556 0 0         if ($self->testStringDetect($text, 'SEC', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
557 0           return 1
558             }
559             # String => 'SED'
560             # attribute => 'Keyword'
561             # context => '#stay'
562             # insensitive => 'TRUE'
563             # type => 'StringDetect'
564 0 0         if ($self->testStringDetect($text, 'SED', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
565 0           return 1
566             }
567             # String => 'SEI'
568             # attribute => 'Keyword'
569             # context => '#stay'
570             # insensitive => 'TRUE'
571             # type => 'StringDetect'
572 0 0         if ($self->testStringDetect($text, 'SEI', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
573 0           return 1
574             }
575             # String => 'STA'
576             # attribute => 'Keyword'
577             # context => '#stay'
578             # insensitive => 'TRUE'
579             # type => 'StringDetect'
580 0 0         if ($self->testStringDetect($text, 'STA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
581 0           return 1
582             }
583             # String => 'STX'
584             # attribute => 'Keyword'
585             # context => '#stay'
586             # insensitive => 'TRUE'
587             # type => 'StringDetect'
588 0 0         if ($self->testStringDetect($text, 'STX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
589 0           return 1
590             }
591             # String => 'STY'
592             # attribute => 'Keyword'
593             # context => '#stay'
594             # insensitive => 'TRUE'
595             # type => 'StringDetect'
596 0 0         if ($self->testStringDetect($text, 'STY', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
597 0           return 1
598             }
599             # String => 'TAY'
600             # attribute => 'Keyword'
601             # context => '#stay'
602             # insensitive => 'TRUE'
603             # type => 'StringDetect'
604 0 0         if ($self->testStringDetect($text, 'TAY', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
605 0           return 1
606             }
607             # String => 'TSX'
608             # attribute => 'Keyword'
609             # context => '#stay'
610             # insensitive => 'TRUE'
611             # type => 'StringDetect'
612 0 0         if ($self->testStringDetect($text, 'TSX', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
613 0           return 1
614             }
615             # String => 'TXA'
616             # attribute => 'Keyword'
617             # context => '#stay'
618             # insensitive => 'TRUE'
619             # type => 'StringDetect'
620 0 0         if ($self->testStringDetect($text, 'TXA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
621 0           return 1
622             }
623             # String => 'TXS'
624             # attribute => 'Keyword'
625             # context => '#stay'
626             # insensitive => 'TRUE'
627             # type => 'StringDetect'
628 0 0         if ($self->testStringDetect($text, 'TXS', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
629 0           return 1
630             }
631             # String => 'TYA'
632             # attribute => 'Keyword'
633             # context => '#stay'
634             # insensitive => 'TRUE'
635             # type => 'StringDetect'
636 0 0         if ($self->testStringDetect($text, 'TYA', 1, 0, 0, undef, 0, '#stay', 'Keyword')) {
637 0           return 1
638             }
639             # String => '\*='
640             # attribute => 'Decimal'
641             # context => '#stay'
642             # type => 'RegExpr'
643 0 0         if ($self->testRegExpr($text, '\\*=', 0, 0, 0, undef, 0, '#stay', 'Decimal')) {
644 0           return 1
645             }
646             # attribute => 'String'
647             # char => '"'
648             # char1 => '"'
649             # context => '#stay'
650             # type => 'RangeDetect'
651 0 0         if ($self->testRangeDetect($text, '"', '"', 0, 0, undef, 0, '#stay', 'String')) {
652 0           return 1
653             }
654             # String => '-+<>=;'
655             # attribute => 'Operator'
656             # context => '#stay'
657             # type => 'AnyChar'
658 0 0         if ($self->testAnyChar($text, '-+<>=;', 0, 0, undef, 0, '#stay', 'Operator')) {
659 0           return 1
660             }
661             # attribute => 'Comment'
662             # beginRegion => 'Comment'
663             # char => '/'
664             # char1 => '*'
665             # context => 'Commentar 2'
666             # type => 'Detect2Chars'
667 0 0         if ($self->testDetect2Chars($text, '/', '*', 0, 0, 0, undef, 0, 'Commentar 2', 'Comment')) {
668 0           return 1
669             }
670 0           return 0;
671             };
672              
673             sub parseCommentar2 {
674 0     0 0   my ($self, $text) = @_;
675             # attribute => 'Comment'
676             # char => '*'
677             # char1 => '/'
678             # context => '#pop'
679             # endRegion => 'Comment'
680             # type => 'Detect2Chars'
681 0 0         if ($self->testDetect2Chars($text, '*', '/', 0, 0, 0, undef, 0, '#pop', 'Comment')) {
682 0           return 1
683             }
684 0           return 0;
685             };
686              
687              
688             1;
689              
690             __END__