diff options
author | dimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2010-11-18 21:50:39 (GMT) |
---|---|---|
committer | dimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2010-11-18 21:50:39 (GMT) |
commit | 0014470c309dccbc2ac72c527391039900b8cf3d (patch) | |
tree | a6d2454b4e6d53003fa829bb7134fe373461ed97 /src/fortranscanner.l | |
parent | 01f41c40b8505c8f197ef1e5bf7e3a3bc777dc0e (diff) | |
download | Doxygen-0014470c309dccbc2ac72c527391039900b8cf3d.zip Doxygen-0014470c309dccbc2ac72c527391039900b8cf3d.tar.gz Doxygen-0014470c309dccbc2ac72c527391039900b8cf3d.tar.bz2 |
Release-1.7.2-20101118
Diffstat (limited to 'src/fortranscanner.l')
-rw-r--r-- | src/fortranscanner.l | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index cb6a9f9..3156eb1 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -527,7 +527,7 @@ PREFIX (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTA /*------- module/global/typedef variable ---------------------------------------------------*/ -<SubprogBody,SubprogBodyContains>^{BS}"end"({BS}{SUBPROG}({BS_}{ID})?)?{BS}/(\n|!) { +<SubprogBody,SubprogBodyContains>^{BS}[0-9]*{BS}"end"({BS}{SUBPROG}({BS_}{ID})?)?{BS}/(\n|!) { //fprintf(stderr,"1e=========> got end subprog: %s\n", yytext); /* args is used for parameters in list of functions, argList for @@ -696,7 +696,7 @@ PREFIX (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTA // TYPE_SPEC is for old function style function result result= yytext; result= result.stripWhiteSpace(); - extractPrefix(result); + //extractPrefix(result); //fprintf(stderr, "===%s\n", (const char*)result); current->type = result; yy_push_state(SubprogPrefix); @@ -712,7 +712,7 @@ PREFIX (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTA // Fortran subroutine or function found result= yytext; result= result.stripWhiteSpace(); - extractPrefix(result); + //extractPrefix(result); addSubprogram(result); yy_push_state(Subprog); } @@ -841,7 +841,9 @@ PREFIX (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTA %% //---------------------------------------------------------------------------- -static void extractPrefix(QCString &text) { +#if 0 +static void extractPrefix(QCString &text) +{ int prefixIndex = 0; int curIndex = 0; bool cont = TRUE; @@ -860,6 +862,7 @@ static void extractPrefix(QCString &text) { } } } +#endif static int getAmpersandAtTheStart(const char *buf, int length) { |