Skip to content

D
doxverilog
Commit d3a5f96d authored by albert-github's avatar albert-github
Browse files
Options

Fortran color CALL as keyword 

Color the word CALL as keyword.
parent dc37f6c2
Show whitespace changes
Inline Side-by-side
Showing with 6 additions and 4 deletions
src/fortrancode.l
View file @ d3a5f96d
...@@ -731,7 +731,7 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I ...@@ -731,7 +731,7 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
/*-------- ignore ------------------------------------------------------------*/ /*-------- ignore ------------------------------------------------------------*/
<Start>{IGNORE}/{BS}"("? { // do not search keywords, intrinsics... TODO: complete list <Start>{IGNORE}/{BS}"(" { // do not search keywords, intrinsics... TODO: complete list
codifyLines(yytext); codifyLines(yytext);
} }
/*-------- inner construct ---------------------------------------------------*/ /*-------- inner construct ---------------------------------------------------*/
...@@ -979,7 +979,9 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I ...@@ -979,7 +979,9 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
/*-------- subprog calls -----------------------------------------*/ /*-------- subprog calls -----------------------------------------*/
<Start>"call"{BS_} { <Start>"call"{BS_} {
startFontClass("keyword");
codifyLines(yytext); codifyLines(yytext);
endFontClass();
yy_push_state(YY_START); yy_push_state(YY_START);
BEGIN(SubCall); BEGIN(SubCall);
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment