summaryrefslogtreecommitdiffstats
path: root/src/fortrancode.l
diff options
context:
space:
mode:
authoralbert-github <albert.tests@gmail.com>2014-12-10 13:40:24 (GMT)
committeralbert-github <albert.tests@gmail.com>2014-12-10 13:40:24 (GMT)
commitd3a5f96d07db323ff97fb07766a809769506ef3a (patch)
tree174905bb4d77cfbfe3e94c23d8174b3e76686dc9 /src/fortrancode.l
parentdc37f6c2a42740e6cbd79d1e6c758c5cbc1f10f7 (diff)
downloadDoxygen-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.l10
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;