diff options
| author | albert-github <albert.tests@gmail.com> | 2020-06-29 16:14:20 (GMT) |
|---|---|---|
| committer | albert-github <albert.tests@gmail.com> | 2020-06-29 16:14:20 (GMT) |
| commit | 442da6dfa5ab1d48b632ab24e15acb0719ab0bbd (patch) | |
| tree | 3f4a14b34c62e569d7a16add85d62f09828b1643 /src/fortranscanner.l | |
| parent | d5916c06fba9667911a19cf658e7c5ab54daf72c (diff) | |
| download | Doxygen-442da6dfa5ab1d48b632ab24e15acb0719ab0bbd.zip Doxygen-442da6dfa5ab1d48b632ab24e15acb0719ab0bbd.tar.gz Doxygen-442da6dfa5ab1d48b632ab24e15acb0719ab0bbd.tar.bz2 | |
Missing links in Fortran in case use statement with upper case characters in name
Based on the question: https://stackoverflow.com/questions/62557644/automatic-link-to-fortran-classes-in-method-arguments-description-in-doxygen#62595302
The problem regarding the missing linking was checked and contrary to the idea that it was depending on the `ONLY` clause it was due to the fact that a conversion to lower case was missing.
Diffstat (limited to 'src/fortranscanner.l')
| -rw-r--r-- | src/fortranscanner.l | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index 195293f..2c3c23f 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -467,6 +467,7 @@ SCOPENAME ({ID}{BS}"::"{BS})* <Use>{ID} { DBG_CTX((stderr,"using dir %s\n",yytext)); yyextra->current->name=yytext; + yyextra->current->name=yyextra->current->name.lower(); yyextra->current->fileName = yyextra->fileName; yyextra->current->section=Entry::USINGDIR_SEC; yyextra->current_root->moveToSubEntryAndRefresh(yyextra->current); @@ -475,12 +476,14 @@ SCOPENAME ({ID}{BS}"::"{BS})* } <Use>{ID}/, { yyextra->useModuleName=yytext; + yyextra->useModuleName=yyextra->useModuleName.lower(); } <Use>,{BS}"ONLY" { BEGIN(UseOnly); } <UseOnly>{BS},{BS} {} <UseOnly>{ID} { yyextra->current->name= yyextra->useModuleName+"::"+yytext; + yyextra->current->name=yyextra->current->name.lower(); yyextra->current->fileName = yyextra->fileName; yyextra->current->section=Entry::USINGDECL_SEC; yyextra->current_root->moveToSubEntryAndRefresh(yyextra->current); |