| line |
true |
false |
branch |
|
84
|
0 |
0 |
if ($self->testDetectChar($text, "'", 0, 0, 0, undef, 0, "#pop", "String")) |
|
97
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(category|object|protocol)(?=[(])", 0, 0, 0, undef, 0, "entityrelations", "Directive")) |
|
105
|
0 |
0 |
if ($self->testRegExpr($text, "\\bend_(category|object|protocol)[.]", 0, 0, 0, undef, 0, "#pop", "Directive")) |
|
112
|
0 |
0 |
if ($self->testRegExpr($text, "\\bp(ublic|r(otected|ivate))(?=[(])", 0, 0, 0, undef, 0, "#pop", "Directive")) |
|
119
|
0 |
0 |
if ($self->testRegExpr($text, "\\bencoding(?=[(])", 0, 0, 0, undef, 0, "#pop", "Directive")) |
|
126
|
0 |
0 |
if ($self->testRegExpr($text, "\\bin(fo|itialization)(?=[(])", 0, 0, 0, undef, 0, "#pop", "Directive")) |
|
133
|
0 |
0 |
if ($self->testRegExpr($text, "\\bdynamic[.]", 0, 0, 0, undef, 0, "#pop", "Directive")) |
|
140
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(alias|d(ynamic|iscontiguous)|m(etapredicate|ode|ultifile))(?=[(])", 0, 0, 0, undef, 0, "#pop", "Directive")) |
|
147
|
0 |
0 |
if ($self->testRegExpr($text, "\\bop(?=[(])", 0, 0, 0, undef, 0, "#pop", "Directive")) |
|
154
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(calls|uses)(?=[(])", 0, 0, 0, undef, 0, "#pop", "Directive")) |
|
166
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(extends|i(nstantiates|mp(lements|orts))|specializes)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Directive")) |
|
174
|
0 |
0 |
if ($self->testDetect2Chars($text, ")", ".", 0, 0, 0, undef, 0, "normal", "Normal")) |
|
188
|
0 |
0 |
if ($self->testDetect2Chars($text, "*", "/", 0, 0, 0, undef, 0, "#pop", "Comment")) |
|
200
|
0 |
0 |
if ($self->testRegExpr($text, "^\\s*:-", 0, 0, 0, undef, 0, "directive", "Normal")) |
|
207
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(after|before)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
214
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(parameter|this|se(lf|nder))(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
221
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(current_predicate|predicate_property)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
228
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(expand_term|phrase)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
235
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(abolish|c(reate|urrent))_(object|protocol|category)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
242
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(object|protocol|category)_property(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
249
|
0 |
0 |
if ($self->testRegExpr($text, "\\bextends_(object|protocol)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
256
|
0 |
0 |
if ($self->testRegExpr($text, "\\bimplements_protocol(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
263
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(instantiates|specializes)_class(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
270
|
0 |
0 |
if ($self->testRegExpr($text, "\\bimports_category(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
277
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(current_event|(abolish|define)_events)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
284
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(current|set)_logtalk_flag(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
291
|
0 |
0 |
if ($self->testRegExpr($text, "\\blogtalk_(compile|l(ibrary_path|oad))(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
298
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(clause|retract(all)?)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
305
|
0 |
0 |
if ($self->testRegExpr($text, "\\ba(bolish|ssert(a|z))(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
312
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(ca(ll|tch)|throw)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
319
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(fail|true)\\b", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
326
|
0 |
0 |
if ($self->testRegExpr($text, "\\b((bag|set)of|f(ind|or)all)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
333
|
0 |
0 |
if ($self->testRegExpr($text, "\\bunify_with_occurs_check(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
340
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(functor|arg|copy_term)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
347
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(rem|mod|abs|sign)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
354
|
0 |
0 |
if ($self->testRegExpr($text, "\\bfloat(_(integer|fractional)_part)?(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
361
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(floor|truncate|round|ceiling)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
368
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(cos|atan|exp|log|s(in|qrt))(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
375
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(var|atom(ic)?|integer|float|compound|n(onvar|umber))(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
382
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(current|set)_(in|out)put(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
389
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(open|close)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
396
|
0 |
0 |
if ($self->testRegExpr($text, "\\bflush_output(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
403
|
0 |
0 |
if ($self->testRegExpr($text, "\\bflush_output\\b", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
410
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(stream_property|at_end_of_stream|set_stream_position)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
417
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(nl|(get|peek|put)_(byte|c(har|ode)))(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
424
|
0 |
0 |
if ($self->testRegExpr($text, "\\bnl\\b", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
431
|
0 |
0 |
if ($self->testRegExpr($text, "\\bread(_term)?(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
438
|
0 |
0 |
if ($self->testRegExpr($text, "\\bwrite(q|_(canonical|term))?(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
445
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(current_)?op(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
452
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(current_)?char_conversion(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
459
|
0 |
0 |
if ($self->testRegExpr($text, "\\batom_(length|c(hars|o(ncat|des)))(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
466
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(char_code|sub_atom)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
473
|
0 |
0 |
if ($self->testRegExpr($text, "\\bnumber_c(hars|odes)(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
480
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(set|current)_prolog_flag(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
487
|
0 |
0 |
if ($self->testRegExpr($text, "\\bhalt\\b", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
494
|
0 |
0 |
if ($self->testRegExpr($text, "\\bhalt(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
501
|
0 |
0 |
if ($self->testRegExpr($text, "\\b[A-Z_]\\w*", 0, 0, 0, undef, 0, "#stay", "Variable")) |
|
508
|
0 |
0 |
if ($self->testDetectChar($text, "%", 0, 0, 0, undef, 0, "single line comment", "Comment")) |
|
517
|
0 |
0 |
if ($self->testDetect2Chars($text, "/", "*", 0, 0, 0, undef, 0, "multiline comment", "Comment")) |
|
524
|
0 |
0 |
if ($self->testDetectChar($text, "\"", 0, 0, 0, undef, 0, "string", "String")) |
|
531
|
0 |
0 |
if ($self->testDetectChar($text, "'", 0, 0, 0, undef, 0, "atom", "String")) |
|
538
|
0 |
0 |
if ($self->testRegExpr($text, "0'.", 0, 0, 0, undef, 0, "#stay", "Number")) |
|
545
|
0 |
0 |
if ($self->testRegExpr($text, "0b[0-1]+", 0, 0, 0, undef, 0, "#stay", "Number")) |
|
552
|
0 |
0 |
if ($self->testRegExpr($text, "0o[0-7]+", 0, 0, 0, undef, 0, "#stay", "Number")) |
|
559
|
0 |
0 |
if ($self->testRegExpr($text, "0x[0-9a-fA-F]+", 0, 0, 0, undef, 0, "#stay", "Number")) |
|
566
|
0 |
0 |
if ($self->testRegExpr($text, "\\d+(\\.\\d+)?([eE]([-+])?\\d+)?", 0, 0, 0, undef, 0, "#stay", "Number")) |
|
574
|
0 |
0 |
if ($self->testDetect2Chars($text, ":", ":", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
582
|
0 |
0 |
if ($self->testDetect2Chars($text, "^", "^", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
590
|
0 |
0 |
if ($self->testDetectChar($text, "{", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
598
|
0 |
0 |
if ($self->testDetectChar($text, "}", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
605
|
0 |
0 |
if ($self->testRegExpr($text, "\\bonce(?=[(])", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
612
|
0 |
0 |
if ($self->testRegExpr($text, "\\brepeat\\b", 0, 0, 0, undef, 0, "#stay", "Built-in")) |
|
620
|
0 |
0 |
if ($self->testDetect2Chars($text, ">", ">", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
628
|
0 |
0 |
if ($self->testDetect2Chars($text, "<", "<", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
636
|
0 |
0 |
if ($self->testDetect2Chars($text, "/", "\\", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
644
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "/", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
652
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "\\", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
659
|
0 |
0 |
if ($self->testRegExpr($text, "\\bis\\b", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
666
|
0 |
0 |
if ($self->testStringDetect($text, "=:=", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
673
|
0 |
0 |
if ($self->testStringDetect($text, "=\\=", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
680
|
0 |
0 |
if ($self->testDetectChar($text, "<", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
688
|
0 |
0 |
if ($self->testDetect2Chars($text, "=", "<", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
695
|
0 |
0 |
if ($self->testDetectChar($text, ">", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
703
|
0 |
0 |
if ($self->testDetect2Chars($text, ">", "=", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
710
|
0 |
0 |
if ($self->testStringDetect($text, "=..", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
717
|
0 |
0 |
if ($self->testDetectChar($text, "=", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
725
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "=", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
733
|
0 |
0 |
if ($self->testDetect2Chars($text, "=", "=", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
740
|
0 |
0 |
if ($self->testStringDetect($text, "\\==", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
747
|
0 |
0 |
if ($self->testStringDetect($text, "\@=<", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
755
|
0 |
0 |
if ($self->testDetect2Chars($text, "\@", "<", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
762
|
0 |
0 |
if ($self->testStringDetect($text, "\@>=", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
770
|
0 |
0 |
if ($self->testDetect2Chars($text, "\@", ">", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
778
|
0 |
0 |
if ($self->testDetect2Chars($text, "/", "/", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
785
|
0 |
0 |
if ($self->testAnyChar($text, "+-*/", 0, 0, undef, 0, "#stay", "Operator")) |
|
792
|
0 |
0 |
if ($self->testRegExpr($text, "\\b(mod|rem)\\b", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
800
|
0 |
0 |
if ($self->testDetect2Chars($text, "*", "*", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
807
|
0 |
0 |
if ($self->testStringDetect($text, "-->", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
814
|
0 |
0 |
if ($self->testAnyChar($text, "!;", 0, 0, undef, 0, "#stay", "Operator")) |
|
822
|
0 |
0 |
if ($self->testDetect2Chars($text, "-", ">", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
830
|
0 |
0 |
if ($self->testDetect2Chars($text, "\\", "+", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
837
|
0 |
0 |
if ($self->testAnyChar($text, "?\@", 0, 0, undef, 0, "#stay", "Operator")) |
|
846
|
0 |
0 |
if ($self->testDetect2Chars($text, ":", "-", 0, 0, 0, undef, 0, "#stay", "Normal")) |
|
853
|
0 |
0 |
if ($self->testRegExpr($text, "\\b[a-z]\\w*", 0, 0, 0, undef, 0, "#stay", "Normal")) |
|
870
|
0 |
0 |
if ($self->testDetectChar($text, "\"", 0, 0, 0, undef, 0, "#pop", "String")) |