diff options
Diffstat (limited to 'src/commentcnv.l')
-rw-r--r-- | src/commentcnv.l | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/src/commentcnv.l b/src/commentcnv.l index d3a7a92..36ce39e 100644 --- a/src/commentcnv.l +++ b/src/commentcnv.l @@ -379,6 +379,17 @@ void replaceComment(int offset); BEGIN(CComment); } } +<Scan>"!>" { + if (g_lang!=SrcLangExt_F90) + { + REJECT; + } + else + { + copyToOutput(yytext,yyleng); + BEGIN(CComment); + } + } <CComment>"{@code"/[ \t\n] { copyToOutput("@code",5); g_lastCommentContext = YY_START; @@ -664,7 +675,8 @@ void replaceComment(int offset); { //printf("** Adding start of comment!\n"); if (g_lang!=SrcLangExt_Python && - g_lang!=SrcLangExt_VHDL) + g_lang!=SrcLangExt_VHDL && + g_lang!=SrcLangExt_F90) { ADDCHAR('/'); ADDCHAR('*'); @@ -682,7 +694,8 @@ void replaceComment(int offset); { //printf("** Adding terminator for comment!\n"); if (g_lang!=SrcLangExt_Python && - g_lang!=SrcLangExt_VHDL) + g_lang!=SrcLangExt_VHDL && + g_lang!=SrcLangExt_F90) { ADDCHAR('*'); ADDCHAR('/'); |