| 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, q[\\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, q['], 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, q[[^']*'], 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')) |