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

* Some small improvements from Andrey Sobol: better specialization declaration in markdown, write more detailed end log

Browse Source 
git-svn-id: trunk@48489 -
This commit is contained in:
michael 2021-02-01 13:15:05 +00:00
parent b4a1c27c58
commit f128e64ccb
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
utils/fpdoc/dw_markdown.pp
View File

@ -1473,12 +1473,19 @@ begin
if aEL.ExternalName<>'' then
aLine:=aLine+' external name '''+ael.ExternalName+'''';
if Assigned(aEL.AncestorType) then
if (aEL.AncestorType is TPasSpecializeType) then
begin
aLine:=aLine+' ('+ael.AncestorType.Name;
if Assigned(ael.Interfaces) and (aEl.Interfaces.Count>0) then
For I:=0 to aEl.Interfaces.Count-1 do
aLine:=aLine+', '+TPasElement(aEl.Interfaces[i]).Name;
aLine:=aLine+')';
aLine:=aLine+'(specialize ';
aLine:=aLine+ TPasSpecializeType(aEL.AncestorType).DestType.Name;
aLine:=aLine+ '<,>)';
end
else
begin
aLine:=aLine+' ('+ael.AncestorType.Name;
if Assigned(ael.Interfaces) and (aEl.Interfaces.Count>0) then
For I:=0 to aEl.Interfaces.Count-1 do
aLine:=aLine+', '+TPasElement(aEl.Interfaces[i]).Name;
aLine:=aLine+')';
end;
if Assigned(aEl.GUIDExpr) then
aLine:=aLine+' ['+aEl.GUIDExpr.GetDeclaration(True)+']';

2
utils/fpdoc/dwriter.pp
View File

@ -1621,7 +1621,7 @@ end;
procedure TFPDocWriter.OutputResults();
begin
DoLog('Documentation process finished.');
DoLog('Package: %s - Documentation process finished.', [FPackage.Name]);
end;
function TFPDocWriter.ConvertExtShort(AContext: TPasElement;