diff options
| author | Dimitri van Heesch <dimitri@stack.nl> | 2014-05-06 19:29:43 (GMT) |
|---|---|---|
| committer | Dimitri van Heesch <dimitri@stack.nl> | 2014-05-06 19:29:43 (GMT) |
| commit | d5d946a6cdb8155c2119413be1516a837887bbb0 (patch) | |
| tree | 516be703abe4e7c85db7b3a2509c608c8662f301 | |
| parent | e9b40bf029d8315467a69c3a97b83624293cd5b6 (diff) | |
| parent | d8221cb7a73efc8f20068636c3d2fec84ce8cb8b (diff) | |
| download | Doxygen-d5d946a6cdb8155c2119413be1516a837887bbb0.zip Doxygen-d5d946a6cdb8155c2119413be1516a837887bbb0.tar.gz Doxygen-d5d946a6cdb8155c2119413be1516a837887bbb0.tar.bz2 | |
Merge pull request #166 from hansec/fortran_import
Add import keyword to FORTRAN code highlighting
| -rw-r--r-- | src/fortrancode.l | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/src/fortrancode.l b/src/fortrancode.l index 2fbde73..b2991f5 100644 --- a/src/fortrancode.l +++ b/src/fortrancode.l @@ -716,6 +716,7 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I %x DocBlock %x Use %x UseOnly +%x Import %x TypeDecl %x Declaration %x DeclContLine @@ -791,19 +792,30 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I yy_push_state(YY_START); BEGIN(UseOnly); } -<UseOnly>{BS},{BS} { codifyLines(yytext); } -<UseOnly>{BS}&{BS}"\n" { codifyLines(yytext); YY_FTN_RESET} +<UseOnly,Import>{BS},{BS} { codifyLines(yytext); } +<UseOnly,Import>{BS}&{BS}"\n" { codifyLines(yytext); YY_FTN_RESET} <UseOnly>{ID} { g_insideBody=TRUE; generateLink(*g_code, yytext); g_insideBody=FALSE; useEntry->onlyNames.append(yytext); } -<Use,UseOnly>"\n" { +<Use,UseOnly,Import>"\n" { unput(*yytext); yy_pop_state();YY_FTN_RESET } - +<Start>"import"{BS_} { + startFontClass("keywordtype"); + codifyLines(yytext); + endFontClass(); + yy_push_state(YY_START); + BEGIN(Import); + } +<Import>{ID} { + g_insideBody=TRUE; + generateLink(*g_code, yytext); + g_insideBody=FALSE; + } /*-------- fortran module -----------------------------------------*/ <Start>("block"{BS}"data"|"program"|"module"|"type"|"interface")/{BS_}|({COMMA}{ACCESS_SPEC})|\n { // startScope(); |