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

* Fixed 9808: used units now correctly parsed

Browse Source 
git-svn-id: trunk@9578 -
This commit is contained in:
michael 2007-12-29 22:49:18 +00:00
parent 3987285103
commit 5e93a4ee3f
1 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
utils/fpdoc/makeskel.pp
View File

@ -35,7 +35,10 @@ type
TCmdLineAction = (actionHelp, actionConvert);
TSkelEngine = class(TFPDocEngine)
FModules : TStringList;
public
Destructor Destroy; override;
function FindModule(const AName: String): TPasModule; override;
function CreateElement(AClass: TPTreeElement; const AName: String;
AParent: TPasElement; AVisibility :TPasMemberVisibility;
const ASourceFilename: String; ASourceLinenumber: Integer): TPasElement; override;
@ -64,6 +67,45 @@ var
PackageName, OutputName: String;
f: Text;
function TSkelEngine.FindModule(const AName: String): TPasModule;
Var
I : Integer;
begin
Result:=Inherited FindModule(AName);
If (Result=Nil) then
begin // Create dummy list and search in that.
If (FModules=Nil) then
begin
FModules:=TStringList.Create;
FModules.Sorted:=True;
end;
I:=FModules.IndexOf(AName);
IF (I=-1) then
begin
Result:=TPasModule.Create(AName,Nil);
FModules.AddObject(AName,Result);
end
else
Result:=FModules.Objects[i] as TPasModule;
end;
end;
Destructor TSkelEngine.Destroy;
Var
I : Integer;
begin
If Assigned(FModules) then
begin
For I:=0 to FModules.Count-1 do
FModules.Objects[i].Free;
FreeAndNil(FModules);
end;
end;
function TSkelEngine.CreateElement(AClass: TPTreeElement; const AName: String;
AParent: TPasElement; AVisibility : TPasMemberVisibility;