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

* Add FPC define, check for unit for short description

Browse Source 
git-svn-id: trunk@42786 -
This commit is contained in:
michael 2019-08-24 09:51:13 +00:00
parent 3acca85597
commit 0f55367c37
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
utils/fpdoc/makeskel.pp
View File

@ -23,8 +23,7 @@ program MakeSkel;
{$h+} {$h+}
uses uses
SysUtils, Classes, Gettext, SysUtils, Classes, Gettext, dGlobals, PasTree, PParser,PScanner;
dGlobals, PasTree, PParser,PScanner;
resourcestring resourcestring
STitle = 'MakeSkel - FPDoc skeleton XML description file generator'; STitle = 'MakeSkel - FPDoc skeleton XML description file generator';
@ -235,7 +234,9 @@ Function TSkelEngine.WriteElement(Var F : Text;El : TPasElement; ADocNode : TDoc
begin begin
Result:=(APasElement.ClassType=TPasArgument) or Result:=(APasElement.ClassType=TPasArgument) or
(APasElement.ClassType=TPasResultElement) or (APasElement.ClassType=TPasResultElement) or
(APasElement.ClassType=TPasEnumValue); (APasElement.ClassType=TPasEnumValue) or
(aPaselement.ClassType=TPasUsesUnit) or
((APasElement.CLassType=TPasVariable) and (APasElement.Parent is TPasRecordType));
end; end;
Function IsTypeVarConst(APasElement : TPasElement) : Boolean; Function IsTypeVarConst(APasElement : TPasElement) : Boolean;
@ -398,7 +399,7 @@ begin
FEmittedList:=TStringList.Create; FEmittedList:=TStringList.Create;
FEmittedList.Sorted:=True; FEmittedList.Sorted:=True;
try try
Module:=ParseSource (Self,AFileName,ATarget,ACPU,[poUseStreams,poSkipDefaultDefs]); Module:=ParseSource (Self,AFileName+' -dFPC',ATarget,ACPU,[poUseStreams,poSkipDefaultDefs]);
If UpdateMode then If UpdateMode then
begin begin
N:=FindDocNode(Module); N:=FindDocNode(Module);