diff options
| author | albert-github <albert.tests@gmail.com> | 2017-11-18 17:41:27 (GMT) |
|---|---|---|
| committer | albert-github <albert.tests@gmail.com> | 2017-11-18 17:41:27 (GMT) |
| commit | 6f7264f4a16f5b1240291c6d33a0e4cc98ba30e4 (patch) | |
| tree | c3db0fd7056bc5dd97480631d9a8bfd666cc5d1c /src | |
| parent | d8001efd89146e04d92f5ea41ab27a7de09b6c53 (diff) | |
| download | Doxygen-6f7264f4a16f5b1240291c6d33a0e4cc98ba30e4.zip Doxygen-6f7264f4a16f5b1240291c6d33a0e4cc98ba30e4.tar.gz Doxygen-6f7264f4a16f5b1240291c6d33a0e4cc98ba30e4.tar.bz2 | |
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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fortrancode.l | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/fortrancode.l b/src/fortrancode.l index 1f22700..141e762 100644 --- a/src/fortrancode.l +++ b/src/fortrancode.l @@ -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} |