diff options
author | Dimitri van Heesch <dimitri@stack.nl> | 2012-07-12 15:32:41 (GMT) |
---|---|---|
committer | Dimitri van Heesch <dimitri@stack.nl> | 2012-07-12 15:32:41 (GMT) |
commit | 52445a98210e9aa50b3fd4bb36995e117539e490 (patch) | |
tree | 84ec1ff38937e82a2dfe563fc2d140bc337ffd7f /src/fortranscanner.l | |
parent | 0ce3aea886f4e95da56d164b3944fd54d3d68f89 (diff) | |
download | Doxygen-52445a98210e9aa50b3fd4bb36995e117539e490.zip Doxygen-52445a98210e9aa50b3fd4bb36995e117539e490.tar.gz Doxygen-52445a98210e9aa50b3fd4bb36995e117539e490.tar.bz2 |
Release-1.8.1.2
Diffstat (limited to 'src/fortranscanner.l')
-rw-r--r-- | src/fortranscanner.l | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index 0eb62a1..a5902a8 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -1028,6 +1028,20 @@ private { startCommentBlock(TRUE); yy_push_state(DocBackLine); } + else + { + /* handle out of place !< comment as a normal comment */ + if (YY_START == String) { yyColNr -= yyleng; REJECT; } // "!" is ignored in strings + // skip comment line (without docu comments "!>" "!<" ) + /* ignore further "!" and ignore comments in Strings */ + if ((YY_START != StrIgnore) && (YY_START != String)) + { + yy_push_state(YY_START); + BEGIN(StrIgnore); + debugStr="*!"; + //fprintf(stderr,"start comment %d\n",yyLineNr); + } + } } <DocBackLine>.* { // contents of current comment line docBlock+=yytext; |