paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 14:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpdoc: fixed ElementType, issue 39887

Browse Source
This commit is contained in:
mattias 2022-09-10 16:22:11 +02:00
parent a23a4805f4
commit e9c278b9f1
1 changed files with 25 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
utils/fpdoc/dw_chm.pp
View File

@ -426,28 +426,34 @@ type
function ElementType(Element: TPasElement): TClassMemberType;
var
ETypeName: String;
C: TClass;
begin
Result := cmtUnknown;
if not Assigned(Element) then Exit;
ETypeName := Element.ElementTypeName;
if Length(ETypeName) = 0 then Exit;
// opearator
if ETypeName[2] = 'p' then Exit(cmtOperator);
if ETypeName[3] = 'n' then Exit(cmtConstant);
// overloaded we don't care
if ETypeName[1] = 'o' then ETypeName := Copy(ETypeName, 12, Length(ETypeName));
if ETypeName[1] = 'f' then Exit(cmtFunction);
if ETypeName[1] = 'c' then Exit(cmtConstructor);
if ETypeName[1] = 'd' then Exit(cmtDestructor);
if ETypeName[1] = 'v' then Exit(cmtVariable);
if ETypeName[1] = 'i' then Exit(cmtInterface);
// the p's
if ETypeName[4] = 'c' then Exit(cmtProcedure);
if ETypeName[4] = 'p' then Exit(cmtProperty);
// Unknown
// WriteLn(' Warning El name: '+ Element.Name+' path: '+Element.PathName+' TypeName: '+Element.ElementTypeName);
C:=Element.ClassType;
if (C=TPasProcedure) or (C=TPasClassProcedure) then
exit(cmtProcedure)
else if (C=TPasFunction) or (C=TPasClassFunction) then
exit(cmtFunction)
else if (C=TPasConstructor) or (C=TPasClassConstructor) then
exit(cmtConstructor)
else if (C=TPasDestructor) or (C=TPasClassDestructor) then
exit(cmtDestructor)
else if (C=TPasOperator) or (C=TPasClassOperator) then
exit(cmtOperator)
else if C=TPasConst then
exit(cmtConstant)
else if C=TPasVariable then
exit(cmtVariable)
else if C=TPasProperty then
exit(cmtProperty)
else
begin
// Unknown
exit(cmtUnknown);
// WriteLn(' Warning El name: '+ Element.Name+' path: '+Element.PathName+' TypeName: '+Element.ElementTypeName);
end;
end;
procedure TCHMHTMLWriter.GenerateIndex;