paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 18:49:14 +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 -
(cherry picked from commit f128e64ccb)
This commit is contained in:
michael 2021-02-01 13:15:05 +00:00 committed by Florian Klämpfl
parent 9d8955d25c
commit 91e62e553a
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 if aEL.ExternalName<>'' then
aLine:=aLine+' external name '''+ael.ExternalName+''''; aLine:=aLine+' external name '''+ael.ExternalName+'''';
if Assigned(aEL.AncestorType) then if Assigned(aEL.AncestorType) then
if (aEL.AncestorType is TPasSpecializeType) then
begin begin
aLine:=aLine+' ('+ael.AncestorType.Name; aLine:=aLine+'(specialize ';
if Assigned(ael.Interfaces) and (aEl.Interfaces.Count>0) then aLine:=aLine+ TPasSpecializeType(aEL.AncestorType).DestType.Name;
For I:=0 to aEl.Interfaces.Count-1 do aLine:=aLine+ '<,>)';
aLine:=aLine+', '+TPasElement(aEl.Interfaces[i]).Name; end
aLine:=aLine+')'; 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; end;
if Assigned(aEl.GUIDExpr) then if Assigned(aEl.GUIDExpr) then
aLine:=aLine+' ['+aEl.GUIDExpr.GetDeclaration(True)+']'; aLine:=aLine+' ['+aEl.GUIDExpr.GetDeclaration(True)+']';

2
utils/fpdoc/dwriter.pp
View File

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