diff options
author | dimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2008-03-09 18:07:08 (GMT) |
---|---|---|
committer | dimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2008-03-09 18:07:08 (GMT) |
commit | fb91b752942b81dac21be5ad18bcb09fbafa711b (patch) | |
tree | c4662316ba92eaf4d6ffbd9d06645fd4c6e85195 /src/fortrancode.l | |
parent | b43cd6311a712c01c2c8297fa00809730e504d70 (diff) | |
download | Doxygen-fb91b752942b81dac21be5ad18bcb09fbafa711b.zip Doxygen-fb91b752942b81dac21be5ad18bcb09fbafa711b.tar.gz Doxygen-fb91b752942b81dac21be5ad18bcb09fbafa711b.tar.bz2 |
Release-1.5.5-20080309
Diffstat (limited to 'src/fortrancode.l')
-rw-r--r-- | src/fortrancode.l | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/fortrancode.l b/src/fortrancode.l index 5ca162e..85699de 100644 --- a/src/fortrancode.l +++ b/src/fortrancode.l @@ -542,7 +542,7 @@ void endUseScope() currentUseNames= useStack.pop(); if (currentUseNames == 0) { - fprintf(stderr,"fortrancode.l: stack empty!"); + fprintf(stderr,"WARNING: fortrancode.l: stack empty!"); //exit(-1); } } @@ -691,7 +691,7 @@ IGNORE (IMPLICIT{BS}NONE|CONTAINS|WRITE|READ|ALLOCATE|DEALLOCATE|SIZE) currentModule=0; REJECT; } -<Start>"end"({BS_}("program"|"module"|"type"|"interface"))? { // +<Start>^{BS}"end"({BS}("program"|"module"|"type"|"interface")({BS_}{ID})?)?{BS}/(\n|!) { // endUseScope(); startFontClass("keyword"); codifyLines(yytext); @@ -722,7 +722,7 @@ IGNORE (IMPLICIT{BS}NONE|CONTAINS|WRITE|READ|ALLOCATE|DEALLOCATE|SIZE) <Subprog>"\n" { codifyLines(yytext); yy_pop_state(); } -<Start>"end"({BS_}{SUBPROG})? { // Fortran subroutine or function ends +<Start>"^{BS}end"({BS}{SUBPROG}({BS_}{ID})?)?{BS}/(\n|!) { // Fortran subroutine or function ends //cout << "===> end function " << yytext << endl; endUseScope(); startFontClass("keyword"); @@ -860,6 +860,8 @@ IGNORE (IMPLICIT{BS}NONE|CONTAINS|WRITE|READ|ALLOCATE|DEALLOCATE|SIZE) endFontClass(); yy_pop_state(); } +<String>. {str+=yytext;} + <*>\"|\' { /* string starts */ /* if(YY_START == StrIgnore) REJECT; // ignore in simple comments */ yy_push_state(YY_START); @@ -867,7 +869,6 @@ IGNORE (IMPLICIT{BS}NONE|CONTAINS|WRITE|READ|ALLOCATE|DEALLOCATE|SIZE) BEGIN(String); str=yytext; } -<String>. {str+=yytext;} /*-----------------------------------------------------------------------------*/ <*>\n { |