Преглед на файлове

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

git-svn-id: trunk@48489 -
michael преди 4 години
родител
ревизия
f128e64ccb
променени са 2 файла, в които са добавени 13 реда и са изтрити 6 реда
  1. 12 5
      utils/fpdoc/dw_markdown.pp
  2. 1 1
      utils/fpdoc/dwriter.pp

+ 12 - 5
utils/fpdoc/dw_markdown.pp

@@ -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)+']';

+ 1 - 1
utils/fpdoc/dwriter.pp

@@ -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;