diff options
author | Dimitri van Heesch <dimitri@stack.nl> | 2016-08-28 10:04:40 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-08-28 10:04:40 (GMT) |
commit | 725c7e35be17898c7cc7bfc51b8e2dfbca82bbb5 (patch) | |
tree | c018a331e72f3e57bf3d2289c899eeb7d8fe1a1d | |
parent | 8e22dfa7a81c2f656ae6aabb594875ef661ab1bb (diff) | |
parent | 4a7673fed2f28a24e0c7e8bb94621b0e14ac9ed5 (diff) | |
download | Doxygen-725c7e35be17898c7cc7bfc51b8e2dfbca82bbb5.zip Doxygen-725c7e35be17898c7cc7bfc51b8e2dfbca82bbb5.tar.gz Doxygen-725c7e35be17898c7cc7bfc51b8e2dfbca82bbb5.tar.bz2 |
Merge pull request #509 from albert-github/feature/bug_fortran_preproc_string
FORTRAN determination string in preprocessing
-rw-r--r-- | src/pre.l | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -1737,6 +1737,7 @@ CHARLIT (("'"\\[0-7]{1,3}"'")|("'"\\."'")|("'"[^'\\\n]{1,4}"'")) %x SkipString %x CopyLine %x CopyString +%x CopyStringFtn %x Include %x IncludeID %x EndImport @@ -1850,6 +1851,11 @@ CHARLIT (("'"\\[0-7]{1,3}"'")|("'"\\."'")|("'"[^'\\\n]{1,4}"'")) outputChar(*yytext); BEGIN( CopyString ); } +<CopyLine>\' { + if (getLanguageFromFileName(g_yyFileName)!=SrcLangExt_Fortran) REJECT; + outputChar(*yytext); + BEGIN( CopyStringFtn ); + } <CopyString>[^\"\\\r\n]+ { outputArray(yytext,(int)yyleng); } @@ -1860,6 +1866,16 @@ CHARLIT (("'"\\[0-7]{1,3}"'")|("'"\\."'")|("'"[^'\\\n]{1,4}"'")) outputChar(*yytext); BEGIN( CopyLine ); } +<CopyStringFtn>[^\'\\\r\n]+ { + outputArray(yytext,(int)yyleng); + } +<CopyStringFtn>\\. { + outputArray(yytext,(int)yyleng); + } +<CopyStringFtn>\' { + outputChar(*yytext); + BEGIN( CopyLine ); + } <CopyLine>{ID}/{BN}{0,80}"(" { g_expectGuard = FALSE; Define *def=0; |