Skip to content

D
doxverilog
Commit a2c09323 authored by Dimitri van Heesch's avatar Dimitri van Heesch
Browse files
Options

Merge pull request #263 from albert-github/feature/bug_fortran_call_color 

Fortran color CALL as keyword
parents a754afcb d3a5f96d
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 4 deletions
src/fortrancode.l
View file @ a2c09323
...@@ -731,8 +731,8 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I ...@@ -731,8 +731,8 @@ 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,9 +979,11 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I ...@@ -979,9 +979,11 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
/*-------- subprog calls -----------------------------------------*/ /*-------- subprog calls -----------------------------------------*/
<Start>"call"{BS_} { <Start>"call"{BS_} {
codifyLines(yytext); startFontClass("keyword");
codifyLines(yytext);
endFontClass();
yy_push_state(YY_START); yy_push_state(YY_START);
BEGIN(SubCall); BEGIN(SubCall);
} }
<SubCall>{ID} { // subroutine call <SubCall>{ID} { // subroutine call
g_insideBody=TRUE; g_insideBody=TRUE;
......
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