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

* TList -> TFPList to match latest changes in fcl-passrc

Browse Source 
git-svn-id: trunk@19669 -
This commit is contained in:
michael 2011-11-22 18:15:28 +00:00
parent 6cb6569d51
commit bb54f1375c
4 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
utils/fpdoc/dglobals.pp
View File

@ -173,7 +173,7 @@ type
// Assumes a list of TObject instances and frees them on destruction // Assumes a list of TObject instances and frees them on destruction
TObjectList = class(TList) TObjectList = class(TFPList)
public public
destructor Destroy; override; destructor Destroy; override;
end; end;
@ -271,7 +271,7 @@ type
DescrDocNames: TStringList; // Names of the XML documents DescrDocNames: TStringList; // Names of the XML documents
FRootLinkNode: TLinkNode; FRootLinkNode: TLinkNode;
FRootDocNode: TDocNode; FRootDocNode: TDocNode;
FPackages: TList; // List of TFPPackage objects FPackages: TFPList; // List of TFPPackage objects
CurModule: TPasModule; CurModule: TPasModule;
CurPackageDocNode: TDocNode; CurPackageDocNode: TDocNode;
public public
@ -554,7 +554,7 @@ begin
FRootDocNode := TDocNode.Create('', nil); FRootDocNode := TDocNode.Create('', nil);
HidePrivate := True; HidePrivate := True;
InterfaceOnly:=True; InterfaceOnly:=True;
FPackages := TList.Create; FPackages := TFPList.Create;
end; end;
destructor TFPDocEngine.Destroy; destructor TFPDocEngine.Destroy;
@ -696,7 +696,7 @@ var
result:=Copy(AName, DotPos2 + 1, length(AName)-dotpos2); result:=Copy(AName, DotPos2 + 1, length(AName)-dotpos2);
end; end;
function SearchInList(clslist:TList;s:string):TPasElement; function SearchInList(clslist:TFPList;s:string):TPasElement;
var i : integer; var i : integer;
ClassEl: TPasElement; ClassEl: TPasElement;
begin begin
@ -1084,7 +1084,7 @@ function TFPDocEngine.FindElement(const AName: String): TPasElement;
function FindInModule(AModule: TPasModule; const LocalName: String): TPasElement; function FindInModule(AModule: TPasModule; const LocalName: String): TPasElement;
var var
l: TList; l: TFPList;
i: Integer; i: Integer;
begin begin
@ -1181,7 +1181,7 @@ function TFPDocEngine.ResolveLink(AModule: TPasModule;
var var
i: Integer; i: Integer;
ThisPackage: TLinkNode; ThisPackage: TLinkNode;
UnitList: TList; UnitList: TFPList;
function CanWeExit(AResult: string): boolean; function CanWeExit(AResult: string): boolean;
var var
@ -1422,7 +1422,7 @@ function TFPDocEngine.FindDocNode(ARefModule: TPasModule;
const AName: String): TDocNode; const AName: String): TDocNode;
var var
CurPackage: TDocNode; CurPackage: TDocNode;
UnitList: TList; UnitList: TFPList;
i: Integer; i: Integer;
begin begin
if Length(AName) = 0 then if Length(AName) = 0 then

16
utils/fpdoc/dw_html.pp
View File

@ -503,7 +503,7 @@ constructor THTMLWriter.Create(APackage: TPasPackage; AEngine: TFPDocEngine);
end; end;
procedure AddPages(AElement: TPasElement; ASubpageIndex: Integer; procedure AddPages(AElement: TPasElement; ASubpageIndex: Integer;
AList: TList); AList: TFPList);
var var
i: Integer; i: Integer;
begin begin
@ -1507,7 +1507,7 @@ function THTMLWriter.AppendHyperlink(Parent: TDOMNode;
Element: TPasElement): TDOMElement; Element: TPasElement): TDOMElement;
var var
s: String; s: String;
UnitList: TList; UnitList: TFPList;
i: Integer; i: Integer;
ThisPackage: TLinkNode; ThisPackage: TLinkNode;
begin begin
@ -2346,7 +2346,7 @@ end;
procedure THTMLWriter.AddModuleIdentifiers(AModule : TPasModule; L : TStrings); procedure THTMLWriter.AddModuleIdentifiers(AModule : TPasModule; L : TStrings);
Procedure AddElementsFromList(L : TStrings; List : TList); Procedure AddElementsFromList(L : TStrings; List : TFPList);
Var Var
I : Integer; I : Integer;
@ -2539,12 +2539,12 @@ procedure THTMLWriter.CreateModulePageBody(AModule: TPasModule;
end; end;
end; end;
procedure CreateSimpleSubpage(const ATitle: DOMString; AList: TList); procedure CreateSimpleSubpage(const ATitle: DOMString; AList: TFPList);
var var
TableEl, TREl, TDEl, CodeEl: TDOMElement; TableEl, TREl, TDEl, CodeEl: TDOMElement;
i, j: Integer; i, j: Integer;
Decl: TPasElement; Decl: TPasElement;
SortedList: TList; SortedList: TFPList;
DocNode: TDocNode; DocNode: TDocNode;
S : String; S : String;
@ -2552,7 +2552,7 @@ procedure THTMLWriter.CreateModulePageBody(AModule: TPasModule;
AppendMenuBar(ASubpageIndex); AppendMenuBar(ASubpageIndex);
S:=ATitle; S:=ATitle;
AppendTitle(Format(SDocUnitTitle + ': %s', [AModule.Name, S])); AppendTitle(Format(SDocUnitTitle + ': %s', [AModule.Name, S]));
SortedList := TList.Create; SortedList := TFPList.Create;
try try
for i := 0 to AList.Count - 1 do for i := 0 to AList.Count - 1 do
begin begin
@ -3125,13 +3125,13 @@ var
procedure CreateSortedSubpage(AFilter: TMemberFilter); procedure CreateSortedSubpage(AFilter: TMemberFilter);
var var
List: TList; List: TFPList;
ThisClass: TPasClassType; ThisClass: TPasClassType;
i, j: Integer; i, j: Integer;
Member: TPasElement; Member: TPasElement;
TableEl, TREl, TDEl, ParaEl, LinkEl: TDOMElement; TableEl, TREl, TDEl, ParaEl, LinkEl: TDOMElement;
begin begin
List := TList.Create; List := TFPList.Create;
try try
ThisClass := AClass; ThisClass := AClass;
while True do while True do

6
utils/fpdoc/dw_man.pp
View File

@ -91,7 +91,7 @@ Type
procedure WriteManRef(APasElement : TPasElement; Comma : Boolean); procedure WriteManRef(APasElement : TPasElement; Comma : Boolean);
procedure WriteModuleSeealso(Comma : Boolean); procedure WriteModuleSeealso(Comma : Boolean);
procedure SortElementList(List : TList); procedure SortElementList(List : TFPList);
Function GetDescrString(AContext: TPasElement; DescrNode: TDOMElement) : String; Function GetDescrString(AContext: TPasElement; DescrNode: TDOMElement) : String;
function ConstValue(ConstDecl: TPasConst): String; virtual; function ConstValue(ConstDecl: TPasConst): String; virtual;
procedure WriteCommentLine; procedure WriteCommentLine;
@ -192,7 +192,7 @@ constructor TManWriter.Create(APackage: TPasPackage; AEngine: TFPDocEngine);
Engine.AddLink(AElement.PathName, ElementToManPage(AElement)); Engine.AddLink(AElement.PathName, ElementToManPage(AElement));
end; end;
procedure AddList(AElement: TPasElement; AList: TList); procedure AddList(AElement: TPasElement; AList: TFPList);
var var
i: Integer; i: Integer;
begin begin
@ -1722,7 +1722,7 @@ begin
Result:=CompareText(TPasElement(P1).Name,TPasElement(P2).Name); Result:=CompareText(TPasElement(P1).Name,TPasElement(P2).Name);
end; end;
procedure TManWriter.SortElementList(List : TList); procedure TManWriter.SortElementList(List : TFPList);
begin begin
List.Sort(@CompareElements); List.Sort(@CompareElements);

6
utils/fpdoc/dwlinear.pp
View File

@ -34,7 +34,7 @@ Type
// Auxiliary routines // Auxiliary routines
procedure DescrBeginURL(const AURL: DOMString); override; // Provides a default implementation procedure DescrBeginURL(const AURL: DOMString); override; // Provides a default implementation
procedure DescrEndURL; override; procedure DescrEndURL; override;
procedure SortElementList(List : TList); procedure SortElementList(List : TFPList);
procedure StartListing(Frames: Boolean); procedure StartListing(Frames: Boolean);
Function ShowMember(M : TPasElement) : boolean; Function ShowMember(M : TPasElement) : boolean;
procedure StartChapter(ChapterName : String; ChapterLabel : String); virtual; procedure StartChapter(ChapterName : String; ChapterLabel : String); virtual;
@ -1154,7 +1154,7 @@ begin
Result:=CompareText(TPasElement(P1).Name,TPasElement(P2).Name); Result:=CompareText(TPasElement(P1).Name,TPasElement(P2).Name);
end; end;
procedure TLinearWriter.SortElementList(List : TList); procedure TLinearWriter.SortElementList(List : TFPList);
begin begin
List.Sort(@CompareElements); List.Sort(@CompareElements);
@ -1229,7 +1229,7 @@ constructor TLinearWriter.Create(APackage: TPasPackage; AEngine: TFPDocEngine);
Engine.AddLink(AElement.PathName, GetLabel(AElement)); Engine.AddLink(AElement.PathName, GetLabel(AElement));
end; end;
procedure AddList(AElement: TPasElement; AList: TList); procedure AddList(AElement: TPasElement; AList: TFPList);
var var
i: Integer; i: Integer;
begin begin