diff options
| author | albert-github <albert.tests@gmail.com> | 2018-07-20 12:30:03 (GMT) |
|---|---|---|
| committer | albert-github <albert.tests@gmail.com> | 2018-07-20 12:30:03 (GMT) |
| commit | 5088fb700cd0bb4a9ce676ae235d48586229e1ba (patch) | |
| tree | ba2ac8c185013c4083b8f9354243cf394e41b49c /src/classdef.cpp | |
| parent | 3e310e8d977ab9a3341c6d40336337f530ed9e4c (diff) | |
| download | Doxygen-5088fb700cd0bb4a9ce676ae235d48586229e1ba.zip Doxygen-5088fb700cd0bb4a9ce676ae235d48586229e1ba.tar.gz Doxygen-5088fb700cd0bb4a9ce676ae235d48586229e1ba.tar.bz2 | |
Bug 648180 - Fortran: tagfile.tag:789: warning: Unknown compound attribute `type' found!
In Fortran the keyword 'type' is used that in the context of the tag file is 'struct'.
Diffstat (limited to 'src/classdef.cpp')
| -rw-r--r-- | src/classdef.cpp | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/classdef.cpp b/src/classdef.cpp index 4977760..657968e 100644 --- a/src/classdef.cpp +++ b/src/classdef.cpp @@ -1582,7 +1582,11 @@ void ClassDef::writeSummaryLinks(OutputList &ol) void ClassDef::writeTagFile(FTextStream &tagFile) { if (!isLinkableInProject()) return; - tagFile << " <compound kind=\"" << compoundTypeString(); + tagFile << " <compound kind=\""; + if (isFortran() && (compoundTypeString() == "type")) + tagFile << "struct"; + else + tagFile << compoundTypeString(); tagFile << "\""; if (isObjectiveC()) { tagFile << " objc=\"yes\""; } tagFile << ">" << endl; @@ -4500,6 +4504,11 @@ bool ClassDef::isObjectiveC() const return getLanguage()==SrcLangExt_ObjC; } +bool ClassDef::isFortran() const +{ + return getLanguage()==SrcLangExt_Fortran; +} + bool ClassDef::isCSharp() const { return getLanguage()==SrcLangExt_CSharp; |