Commit 1cfa914c authored by albert-github's avatar albert-github

Fortran color code of END

The color for the single END in Fortran code was of the color of the flow type entities though for all the flow entities the entity name is mandatory. For the entity statements of some keywords e.g. SUBROUTINE and FUNCTION the entity name is not mandatory with the END statement. The color of the single END statement has been changed from the flow type to the normal keyword type.
parent 540f0b66
...@@ -757,12 +757,11 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I ...@@ -757,12 +757,11 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
codifyLines(yytext); codifyLines(yytext);
endFontClass(); endFontClass();
} }
<Start>"end"({BS}{FLOW})?/[ \t\n] { // list is a bit long as not all have possible end <Start>"end"({BS}{FLOW})/[ \t\n] { // list is a bit long as not all have possible end
startFontClass("keywordflow"); startFontClass("keywordflow");
codifyLines(yytext); codifyLines(yytext);
endFontClass(); endFontClass();
} }
<Start>"implicit"{BS}"none" { <Start>"implicit"{BS}"none" {
startFontClass("keywordtype"); startFontClass("keywordtype");
codifyLines(yytext); codifyLines(yytext);
...@@ -893,7 +892,7 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I ...@@ -893,7 +892,7 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
yy_pop_state(); yy_pop_state();
YY_FTN_RESET YY_FTN_RESET
} }
<Start>^{BS}"end"{BS}("block"{BS}"data"|{SUBPROG}|"module"|"program"|"type"|"interface"){BS} { // Fortran subroutine or function ends <Start>^{BS}"end"{BS}("block"{BS}"data"|{SUBPROG}|"module"|"program"|"type"|"interface")?{BS} { // Fortran subroutine or function ends
//cout << "===> end function " << yytext << endl; //cout << "===> end function " << yytext << endl;
endScope(); endScope();
startFontClass("keyword"); startFontClass("keyword");
......
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