diff options
| author | albert-github <albert.tests@gmail.com> | 2014-12-10 13:40:24 (GMT) |
|---|---|---|
| committer | albert-github <albert.tests@gmail.com> | 2014-12-10 13:40:24 (GMT) |
| commit | d3a5f96d07db323ff97fb07766a809769506ef3a (patch) | |
| tree | 174905bb4d77cfbfe3e94c23d8174b3e76686dc9 /src/fortrancode.l | |
| parent | dc37f6c2a42740e6cbd79d1e6c758c5cbc1f10f7 (diff) | |
| download | Doxygen-d3a5f96d07db323ff97fb07766a809769506ef3a.zip Doxygen-d3a5f96d07db323ff97fb07766a809769506ef3a.tar.gz Doxygen-d3a5f96d07db323ff97fb07766a809769506ef3a.tar.bz2 | |
Fortran color CALL as keyword
Color the word CALL as keyword.
Diffstat (limited to 'src/fortrancode.l')
| -rw-r--r-- | src/fortrancode.l | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/fortrancode.l b/src/fortrancode.l index d2f1c42..ad1b20d 100644 --- a/src/fortrancode.l +++ b/src/fortrancode.l @@ -731,8 +731,8 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I /*-------- ignore ------------------------------------------------------------*/ -<Start>{IGNORE}/{BS}"("? { // do not search keywords, intrinsics... TODO: complete list - codifyLines(yytext); +<Start>{IGNORE}/{BS}"(" { // do not search keywords, intrinsics... TODO: complete list + codifyLines(yytext); } /*-------- inner construct ---------------------------------------------------*/ @@ -979,9 +979,11 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I /*-------- subprog calls -----------------------------------------*/ <Start>"call"{BS_} { - codifyLines(yytext); + startFontClass("keyword"); + codifyLines(yytext); + endFontClass(); yy_push_state(YY_START); - BEGIN(SubCall); + BEGIN(SubCall); } <SubCall>{ID} { // subroutine call g_insideBody=TRUE; |