Permalink
Browse files

Code color of , (comma) together with only in use statement

The comma was colored as part of the word only (keywordtype), this should not be the case.
  • Loading branch information...
albert-github committed Nov 18, 2017
1 parent d8001ef commit 6f7264f4a16f5b1240291c6d33a0e4cc98ba30e4
Showing with 8 additions and 8 deletions.
  1. +8 −8 src/fortrancode.l
View
@@ -774,6 +774,13 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
yy_push_state(YY_START);
BEGIN(Use);
}
<Use>"ONLY" { // TODO: rename
startFontClass("keywordtype");
codifyLines(yytext);
endFontClass();
yy_push_state(YY_START);
BEGIN(UseOnly);
}
<Use>{ID} {
QCString tmp = yytext;
tmp = tmp.lower();
@@ -790,14 +797,7 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
useMembers->append(tmp, useEntry);
addUse(tmp);
}
<Use>,{BS}"ONLY" { // TODO: rename
startFontClass("keywordtype");
codifyLines(yytext);
endFontClass();
yy_push_state(YY_START);
BEGIN(UseOnly);
}
<UseOnly,Import>{BS},{BS} { codifyLines(yytext); }
<Use,UseOnly,Import>{BS},{BS} { codifyLines(yytext); }
<UseOnly,Import>{BS}&{BS}"\n" { codifyLines(yytext);
g_contLineNr++;
YY_FTN_RESET}

0 comments on commit 6f7264f

Please sign in to comment.