| line |
true |
false |
branch |
|
211
|
0 |
0 |
if ($self->testKeyword($text, 'attention', 0, undef, 0, '#stay', 'Alert')) |
|
219
|
0 |
0 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'Comment')) |
|
231
|
0 |
0 |
if ($self->testKeyword($text, 'attention', 0, undef, 0, '#stay', 'Alert')) |
|
240
|
0 |
0 |
if ($self->testDetect2Chars($text, '*', ')', 0, 0, 0, undef, 0, '#pop', 'Comment')) |
|
252
|
0 |
0 |
if ($self->testKeyword($text, 'attention', 0, undef, 0, '#stay', 'Alert')) |
|
266
|
0 |
0 |
if ($self->testRegExpr($text, '\\b(begin|case|record)(?=(\\{[^}]*(\\}|$)|\\(\\*.*(\\*\\)|$))*([\\s]|$|//))', 1, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
275
|
0 |
0 |
if ($self->testRegExpr($text, '\\b((object|class)(?=(\\(.*\\))?(\\{[^}]*(\\}|$)|\\(\\*.*(\\*\\)|$))*;?([\\s]|$|//))|try(?=(\\{[^}]*(\\}|$)|\\(\\*.*(\\*\\)|$))*([\\s]|$|//)))', 1, 0, 0, undef, 0, '#stay', 'ISO/Delphi Extended')) |
|
284
|
0 |
0 |
if ($self->testRegExpr($text, '\\bend(?=((\\{[^}]*(\\}|$)|\\(\\*.*(\\*\\)|$))*)([.;\\s]|$)|//|$)', 1, 0, 0, undef, 0, '#stay', 'Keyword')) |
|
291
|
0 |
0 |
if ($self->testKeyword($text, 'keywords', 0, undef, 0, '#stay', 'Keyword')) |
|
298
|
0 |
0 |
if ($self->testKeyword($text, 'ISO/Delphi Extended', 0, undef, 0, '#stay', 'ISO/Delphi Extended')) |
|
305
|
0 |
0 |
if ($self->testKeyword($text, 'types', 0, undef, 0, '#stay', 'Type')) |
|
311
|
0 |
0 |
if ($self->testFloat($text, 0, undef, 0, '#stay', 'Number')) |
|
317
|
0 |
0 |
if ($self->testInt($text, 0, undef, 0, '#stay', 'Number')) |
|
324
|
0 |
0 |
if ($self->testDetectChar($text, q['], 0, 0, 0, undef, 0, 'String', 'String')) |
|
331
|
0 |
0 |
if ($self->testStringDetect($text, '(*$', 0, 0, 0, undef, 0, 'Prep1', 'Directive')) |
|
339
|
0 |
0 |
if ($self->testDetect2Chars($text, '{', '$', 0, 0, 0, undef, 0, 'Prep2', 'Directive')) |
|
347
|
0 |
0 |
if ($self->testDetectChar($text, '{', 0, 0, 0, undef, 0, 'Comment1', 'Comment')) |
|
356
|
0 |
0 |
if ($self->testDetect2Chars($text, '(', '*', 0, 0, 0, undef, 0, 'Comment2', 'Comment')) |
|
364
|
0 |
0 |
if ($self->testDetect2Chars($text, '/', '/', 0, 0, 0, undef, 0, 'Comment3', 'Comment')) |
|
377
|
0 |
0 |
if ($self->testDetect2Chars($text, '*', ')', 0, 0, 0, undef, 0, '#pop', 'Directive')) |
|
389
|
0 |
0 |
if ($self->testDetectChar($text, '}', 0, 0, 0, undef, 0, '#pop', 'Directive')) |
|
401
|
0 |
0 |
if ($self->testDetectChar($text, q['], 0, 0, 0, undef, 0, '#pop', 'String')) |