| line |
true |
false |
branch |
|
446
|
18 |
4560 |
if ($self->includeRules("find_strings", $text)) |
|
451
|
144 |
4416 |
if ($self->includeRules("find_decls", $text)) |
|
456
|
68 |
4348 |
if ($self->includeRules("find_intrinsics", $text)) |
|
461
|
4 |
4344 |
if ($self->includeRules("find_io_stmnts", $text)) |
|
466
|
16 |
4328 |
if ($self->includeRules("find_op_and_log", $text)) |
|
471
|
36 |
4292 |
if ($self->includeRules("find_numbers", $text)) |
|
476
|
0 |
4292 |
if ($self->includeRules("find_preprocessor", $text)) |
|
481
|
0 |
4292 |
if ($self->includeRules("find_comments", $text)) |
|
486
|
192 |
4100 |
if ($self->includeRules("find_symbols", $text)) |
|
491
|
8 |
4092 |
if ($self->includeRules("find_end_stmnts", $text)) |
|
496
|
6 |
4086 |
if ($self->includeRules("find_begin_stmnts", $text)) |
|
505
|
0 |
0 |
if ($self->testDetectSpaces($text, 0, undef, 0, "#stay", undef)) |
|
512
|
0 |
0 |
if ($self->testRegExpr($text, "&\\s*\$", 0, 0, 0, undef, 0, "#stay", "Keyword")) |
|
520
|
0 |
0 |
if ($self->testDetectChar($text, "&", 0, 0, 0, undef, 1, "#pop", "Keyword")) |
|
528
|
0 |
0 |
if ($self->testRegExpr($text, "(!.*)?\$", 0, 0, 0, undef, 1, "#stay", "Comment")) |
|
541
|
4 |
4088 |
if ($self->testRegExpr($text, "\\bmodule\\s+procedure\\b", 1, 0, 0, undef, 0, "#stay", "Keyword")) |
|
550
|
2 |
4086 |
if ($self->testRegExpr($text, "\\b(program|subroutine|function|module|block\\s*data)\\b", 1, 0, 0, undef, 0, "#stay", "Keyword")) |
|
563
|
0 |
4292 |
if ($self->testRegExpr($text, "[cC\\*].*\$", 0, 0, 0, 0, 0, "#stay", "Comment")) |
|
570
|
0 |
4292 |
if ($self->testRegExpr($text, "!.*\$", 0, 0, 0, undef, 0, "#stay", "Comment")) |
|
583
|
0 |
4560 |
if ($self->testRegExpr($text, "\\binteger[\\*]\\d{1,2}", 1, 0, 0, undef, 0, "#stay", "Data Type")) |
|
591
|
0 |
4560 |
if ($self->testRegExpr($text, "\\breal[\\*]\\d{1,2}", 1, 0, 0, undef, 0, "#stay", "Data Type")) |
|
599
|
0 |
4560 |
if ($self->testRegExpr($text, "\\bcomplex[\\*]\\d{1,2}", 1, 0, 0, undef, 0, "#stay", "Data Type")) |
|
607
|
4 |
4556 |
if ($self->testRegExpr($text, "\\bend\\s*type\\b", 1, 0, 0, undef, 0, "#stay", "Data Type")) |
|
614
|
46 |
4510 |
if ($self->testKeyword($text, "types", 0, undef, 0, "#stay", "Data Type")) |
|
622
|
0 |
4510 |
if ($self->testRegExpr($text, "^\\s*data\\b", 1, 0, 0, undef, 0, "#stay", "Data Type")) |
|
630
|
10 |
4500 |
if ($self->testRegExpr($text, "^\\s*real\\s*[(]", 1, 0, 0, undef, 0, "find_paren", "Data Type")) |
|
638
|
8 |
4492 |
if ($self->testRegExpr($text, "^\\s*real(?![\\w\\*])", 1, 0, 0, undef, 0, "#stay", "Data Type")) |
|
646
|
0 |
4492 |
if ($self->testRegExpr($text, "\\bcharacter[*][0-9]+\\b", 1, 0, 0, undef, 0, "#stay", "Data Type")) |
|
654
|
18 |
4474 |
if ($self->testRegExpr($text, "\\b(type|integer|complex|character|logical|intent|dimension)\\b\\s*[(]", 1, 0, 0, undef, 0, "find_paren", "Data Type")) |
|
662
|
14 |
4460 |
if ($self->testRegExpr($text, "\\b(type|integer|complex|character|logical|intent|dimension)\\b", 1, 0, 0, undef, 0, "#stay", "Data Type")) |
|
670
|
44 |
4416 |
if ($self->testDetect2Chars($text, ":", ":", 0, 0, 0, undef, 0, "#stay", "Data Type")) |
|
684
|
2 |
4098 |
if ($self->testRegExpr($text, "\\bend\\s*(program|subroutine|function|module|block\\s*data)\\b", 1, 0, 0, undef, 0, "#stay", "Keyword")) |
|
692
|
4 |
4094 |
if ($self->testRegExpr($text, "\\bend\\s*(do|if|select|where|forall|interface)\\b", 1, 0, 0, undef, 0, "#stay", "Keyword")) |
|
701
|
2 |
4092 |
if ($self->testRegExpr($text, "\\bend\\b", 1, 0, 0, undef, 0, "#stay", "Keyword")) |
|
713
|
52 |
4364 |
if ($self->testKeyword($text, "keywords", 0, undef, 0, "#stay", "Keyword")) |
|
720
|
8 |
4356 |
if ($self->testKeyword($text, "elemental_procs", 0, undef, 0, "#stay", "Elemental Procedure")) |
|
727
|
4 |
4352 |
if ($self->testKeyword($text, "inquiry_fn", 0, undef, 0, "#stay", "Inquiry Function")) |
|
734
|
4 |
4348 |
if ($self->testKeyword($text, "transform_fn", 0, undef, 0, "#stay", "Transformational Function")) |
|
741
|
0 |
4348 |
if ($self->testKeyword($text, "non_elem_subr", 0, undef, 0, "#stay", "Non elemental subroutine")) |
|
753
|
0 |
0 |
if ($self->testDetectChar($text, "*", 0, 0, 0, undef, 0, "#stay", "IO Function")) |
|
760
|
0 |
0 |
if ($self->testDetectChar($text, "(", 0, 0, 0, undef, 0, "inside_func_paren", "Normal Text")) |
|
767
|
0 |
0 |
if ($self->testDetectChar($text, ")", 0, 0, 0, undef, 0, "#pop", "IO Function")) |
|
774
|
0 |
0 |
if ($self->testKeyword($text, "io_keywords", 0, undef, 0, "#stay", "IO Function")) |
|
781
|
0 |
0 |
if ($self->testKeyword($text, "inquire_keywords", 0, undef, 0, "#stay", "IO Function")) |
|
788
|
0 |
0 |
if ($self->testKeyword($text, "open_keywords", 0, undef, 0, "#stay", "IO Function")) |
|
793
|
0 |
0 |
if ($self->includeRules("find_strings", $text)) |
|
798
|
0 |
0 |
if ($self->includeRules("find_intrinsics", $text)) |
|
803
|
0 |
0 |
if ($self->includeRules("find_numbers", $text)) |
|
808
|
0 |
0 |
if ($self->includeRules("find_symbols", $text)) |
|
821
|
0 |
4348 |
if ($self->testRegExpr($text, "\\b(read|write|backspace|rewind|end\\s*file|close)\\s*[(]", 1, 0, 0, undef, 0, "find_io_paren", "IO Function")) |
|
829
|
0 |
4348 |
if ($self->testRegExpr($text, "\\bopen\\s*[(]", 1, 0, 0, undef, 0, "find_io_paren", "IO Function")) |
|
837
|
0 |
4348 |
if ($self->testRegExpr($text, "\\binquire\\s*[(]", 1, 0, 0, undef, 0, "find_io_paren", "IO Function")) |
|
845
|
0 |
4348 |
if ($self->testRegExpr($text, "\\bformat\\s*[(]", 1, 0, 0, undef, 0, "format_stmnt", "IO Function")) |
|
853
|
0 |
4348 |
if ($self->testRegExpr($text, "\\bend\\s*file\\b", 1, 0, 0, undef, 0, "#stay", "IO Function")) |
|
860
|
4 |
4344 |
if ($self->testKeyword($text, "io_functions", 0, undef, 0, "#stay", "IO Function")) |
|
873
|
12 |
4316 |
if ($self->testRegExpr($text, "[0-9]*\\.[0-9]+([de][+-]?[0-9]+)?([_]([0-9]+|[a-z][\\w_]*))?", 1, 0, 0, undef, 0, "#stay", "Float")) |
|
881
|
0 |
4316 |
if ($self->testRegExpr($text, "\\b[0-9]+\\.[0-9]*([de][+-]?[0-9]+)?([_]([0-9]+|[a-z][\\w_]*))?(?![a-z])", 1, 0, 0, undef, 0, "#stay", "Float")) |
|
889
|
0 |
4316 |
if ($self->testRegExpr($text, "\\b[0-9]+[de][+-]?[0-9]+([_]([0-9]+|[a-z][\\w_]*))?", 1, 0, 0, undef, 0, "#stay", "Float")) |
|
896
|
24 |
4292 |
if ($self->testRegExpr($text, "\\b[0-9]+([_]([0-9]+|[a-zA-Z][\\w_]*))?", 0, 0, 0, undef, 0, "#stay", "Decimal")) |
|
904
|
0 |
4292 |
if ($self->testRegExpr($text, "\\b[bozx](['][0-9a-f]+[']|[\"][0-9a-f]+[\"])", 1, 0, 0, undef, 0, "#stay", "Decimal")) |
|
917
|
0 |
4344 |
if ($self->testRegExpr($text, "\\.(true|false)\\.", 1, 0, 0, undef, 0, "#stay", "Logical")) |
|
924
|
6 |
4338 |
if ($self->testRegExpr($text, "\\.[A-Za-z]+\\.", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
931
|
10 |
4328 |
if ($self->testRegExpr($text, "(==|/=|<|<=|>|>=)", 0, 0, 0, undef, 0, "#stay", "Operator")) |
|
943
|
0 |
200 |
if ($self->testDetectChar($text, "(", 0, 0, 0, undef, 0, "find_paren", "Data Type")) |
|
950
|
28 |
172 |
if ($self->testDetectChar($text, ")", 0, 0, 0, undef, 0, "#pop", "Data Type")) |
|
963
|
0 |
4292 |
if ($self->testRegExpr($text, "(#|cDEC\\\$|CDEC\\\$).*\$", 0, 0, 0, 0, 0, "#stay", "Preprocessor")) |
|
975
|
12 |
4566 |
if ($self->testDetectChar($text, "'", 0, 0, 0, undef, 0, "string_1", "String")) |
|
982
|
6 |
4560 |
if ($self->testDetectChar($text, "\"", 0, 0, 0, undef, 0, "string_2", "String")) |
|
995
|
0 |
4292 |
if ($self->testDetect2Chars($text, "*", "*", 0, 0, 0, undef, 0, "#stay", "Keyword")) |
|
1003
|
0 |
4292 |
if ($self->testDetect2Chars($text, "(", "/", 0, 0, 0, undef, 0, "#stay", "Keyword")) |
|
1011
|
0 |
4292 |
if ($self->testDetect2Chars($text, "/", ")", 0, 0, 0, undef, 0, "#stay", "Keyword")) |
|
1018
|
58 |
4234 |
if ($self->testAnyChar($text, "&+-*/=?[]^{|}~", 0, 0, undef, 0, "#stay", "Keyword")) |
|
1025
|
134 |
4100 |
if ($self->testAnyChar($text, "(),", 0, 0, undef, 0, "#stay", "Symbol")) |
|
1037
|
0 |
0 |
if ($self->testDetectChar($text, "(", 0, 0, 0, undef, 0, "format_stmnt", "IO Function")) |
|
1044
|
0 |
0 |
if ($self->testDetectChar($text, ")", 0, 0, 0, undef, 0, "#pop", "IO Function")) |
|
1052
|
0 |
0 |
if ($self->testRegExpr($text, "[0-9]*/", 1, 0, 0, undef, 0, "#stay", "IO Function")) |
|
1059
|
0 |
0 |
if ($self->testAnyChar($text, ":", 0, 0, undef, 0, "#stay", "IO Function")) |
|
1064
|
0 |
0 |
if ($self->includeRules("find_strings", $text)) |
|
1069
|
0 |
0 |
if ($self->includeRules("find_symbols", $text)) |
|
1081
|
0 |
0 |
if ($self->testDetectChar($text, "(", 0, 0, 0, undef, 0, "inside_func_paren", "Normal Text")) |
|
1088
|
0 |
0 |
if ($self->testDetectChar($text, ")", 0, 0, 0, undef, 0, "#pop", "Normal Text")) |
|
1093
|
0 |
0 |
if ($self->includeRules("find_strings", $text)) |
|
1098
|
0 |
0 |
if ($self->includeRules("find_intrinsics", $text)) |
|
1103
|
0 |
0 |
if ($self->includeRules("find_numbers", $text)) |
|
1115
|
10 |
2 |
if ($self->testRegExpr($text, "[^']*'", 0, 0, 0, undef, 0, "#pop", "String")) |
|
1122
|
0 |
2 |
if ($self->testRegExpr($text, "&\\s*\$", 0, 0, 0, undef, 0, "end_of_string", "Keyword")) |
|
1129
|
0 |
2 |
if ($self->testRegExpr($text, ".*(?=&\\s*\$)", 0, 0, 0, undef, 0, "end_of_string", "String")) |
|
1141
|
6 |
0 |
if ($self->testRegExpr($text, "[^\"]*\"", 0, 0, 0, undef, 0, "#pop", "String")) |
|
1148
|
0 |
0 |
if ($self->testRegExpr($text, "&\\s*\$", 0, 0, 0, undef, 0, "end_of_string", "Keyword")) |
|
1155
|
0 |
0 |
if ($self->testRegExpr($text, ".*(?=&\\s*\$)", 0, 0, 0, undef, 0, "end_of_string", "String")) |