diff options
author | albert-github <albert.tests@gmail.com> | 2018-02-15 14:25:15 (GMT) |
---|---|---|
committer | albert-github <albert.tests@gmail.com> | 2018-02-15 14:25:15 (GMT) |
commit | 4013e52ba0f87eb12f8a1c8cb3b2714c0d519a81 (patch) | |
tree | 2c5faa323f02a26208c70ee794a4e906d8156e7f /src/fortranscanner.l | |
parent | b6f01ff09b17e5c2288f2418ef0a8f074456c357 (diff) | |
download | Doxygen-4013e52ba0f87eb12f8a1c8cb3b2714c0d519a81.zip Doxygen-4013e52ba0f87eb12f8a1c8cb3b2714c0d519a81.tar.gz Doxygen-4013e52ba0f87eb12f8a1c8cb3b2714c0d519a81.tar.bz2 |
Fortran improvements (2)
- handling of type / class statement especially in declarations in source browser and scanner
- color code import statement in source browser
Diffstat (limited to 'src/fortranscanner.l')
-rw-r--r-- | src/fortranscanner.l | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index 85b6de9..ca071cf 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -602,7 +602,7 @@ abstract { current->spec |= Entry::AbstractClass; } extends{ARGS} { - QCString basename = extractFromParens(yytext); + QCString basename = extractFromParens(yytext).lower(); current->extends->append(new BaseInfo(basename, Public, Normal)); } public { @@ -667,7 +667,8 @@ private { addCurrentEntry(1); } {BS}"=>"[^(\n|\!)]* { /* Specific bindings come after the ID. */ - last_entry->args = yytext; + QCString args = yytext; + last_entry->args = args.lower(); } "\n" { currentModifiers = SymbolModifiers(); |