diff options
| author | Chris Hansen <hansec@uw.edu> | 2014-05-05 20:56:20 (GMT) |
|---|---|---|
| committer | Chris Hansen <hansec@uw.edu> | 2014-05-05 20:56:20 (GMT) |
| commit | dbd1985de07ccd19caf57ffa36c88811048689a4 (patch) | |
| tree | 4f3380cff67de020a06b2cbefd931674ebe4b1e2 | |
| parent | e9b40bf029d8315467a69c3a97b83624293cd5b6 (diff) | |
| download | Doxygen-dbd1985de07ccd19caf57ffa36c88811048689a4.zip Doxygen-dbd1985de07ccd19caf57ffa36c88811048689a4.tar.gz Doxygen-dbd1985de07ccd19caf57ffa36c88811048689a4.tar.bz2 | |
Added class/procedure vardefs to FORTRAN code highlighting
| -rw-r--r-- | src/fortrancode.l | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/fortrancode.l b/src/fortrancode.l index 2fbde73..3e49c65 100644 --- a/src/fortrancode.l +++ b/src/fortrancode.l @@ -688,7 +688,8 @@ NUM_TYPE (complex|integer|logical|real) LOG_OPER (\.and\.|\.eq\.|\.eqv\.|\.ge\.|\.gt\.|\.le\.|\.lt\.|\.ne\.|\.neqv\.|\.or\.|\.not\.) KIND {ARGS} CHAR (CHARACTER{ARGS}?|CHARACTER{BS}"*"({BS}[0-9]+|{ARGS})) -TYPE_SPEC (({NUM_TYPE}({BS}"*"{BS}[0-9]+)?)|({NUM_TYPE}{KIND})|DOUBLE{BS}COMPLEX|DOUBLE{BS}PRECISION|{CHAR}) +TYPE_SPEC (({NUM_TYPE}({BS}"*"{BS}[0-9]+)?)|({NUM_TYPE}{KIND})|DOUBLE{BS}COMPLEX|DOUBLE{BS}PRECISION|{CHAR}|PROCEDURE) +TYPE_PREFIX ((TYPE|CLASS|PROCEDURE){BS}"(") INTENT_SPEC intent{BS}"("{BS}(in|out|in{BS}out){BS}")" ATTR_SPEC (IMPLICIT|ALLOCATABLE|DIMENSION{ARGS}|EXTERNAL|{INTENT_SPEC}|INTRINSIC|OPTIONAL|PARAMETER|POINTER|PROTECTED|PRIVATE|PUBLIC|SAVE|TARGET|RECURSIVE|PURE|IMPURE|ELEMENTAL) @@ -877,7 +878,7 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I endFontClass(); } /*-------- variable declaration ----------------------------------*/ -<Start>"type"{BS}"(" { +<Start>^{BS}{TYPE_PREFIX}/{ID} { yy_push_state(YY_START); BEGIN(TypeDecl); startFontClass("keywordtype"); |