Skip to content
Merged
Original file line number Diff line number Diff line change
Expand Up @@ -49,7 +49,9 @@ public class FortranAnalyzerFactory extends FileAnalyzerFactory {
"F95",
"F03",
"F08",
"F15"};
"F15",
"F77",
"I"};

public FortranAnalyzerFactory() {
super(null, null, SUFFIXES, null, null, "text/plain", AbstractAnalyzer.Genre.PLAIN, NAME, true);
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@
* Portions Copyright (c) 2017, Chris Fraire <[email protected]>.
*/

Identifier = [a-zA-Z_] [a-zA-Z0-9_]*
Identifier = [a-zA-Z_] [a-zA-Z0-9_$]*
Label = [0-9]+

Number = ([0-9]+\.[0-9]+|[0-9][0-9]* | [0][xX] [0-9a-fA-F]+ )([uUdDlL]+)?
Original file line number Diff line number Diff line change
Expand Up @@ -52,11 +52,13 @@ import org.opengrok.indexer.analysis.JFlexSymbolMatcher;
return yystate(); }
}

{WhspChar}* "include" {WhspChar}* (\'[^\'\n\r]+\'| \"[^\"\n\r]+\") {}
{Number} {}

\" { yybegin(STRING); }
\' { yybegin(QSTRING); }
\! { yybegin(SCOMMENT); }
"C" { yybegin(SCOMMENT); }
}

<STRING> {
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -59,7 +59,7 @@ import org.opengrok.indexer.web.HtmlConsts;
}
%}

File = [a-zA-Z]{FNameChar}* ".inc"
File = [a-zA-Z]{FNameChar}* "." ("i"|"inc")

%state STRING SCOMMENT QSTRING LCOMMENT

Expand Down Expand Up @@ -95,6 +95,14 @@ File = [a-zA-Z]{FNameChar}* ".inc"
onNonSymbolMatched(">", yychar + 1 + file.length());
}

"'" ({File}|{FPath}) "'" {
chkLOC();
onNonSymbolMatched("'", yychar);
String file = yytext();
file = file.substring(1, file.length() - 1);
onFilelikeMatched(file, yychar + 1);
onNonSymbolMatched("'", yychar + 1 + file.length());
}
/*{Hier}
{ onPathlikeMatched(yytext(), '.', false, yychar); }
*/
Expand Down