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

* Patch by Graeme Geldenhuys to fix various issues (bug ID 23432)

Browse Source 
git-svn-id: trunk@23222 -
This commit is contained in:
michael 2012-12-26 14:13:10 +00:00
parent bba4932ef9
commit 3588c39a55
3 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/fpdoc/dw_ipflin.pas
View File

@ -196,7 +196,6 @@ const
cMax = 100; cMax = 100;
var var
sl: TStringlist; sl: TStringlist;
ns: string;
i: integer; i: integer;
lText: string; lText: string;
begin begin
@ -632,8 +631,6 @@ begin
end; end;
function TIPFNewWriter.GetLabel(AElement: TPasElement): String; function TIPFNewWriter.GetLabel(AElement: TPasElement): String;
var
i: Integer;
begin begin
if AElement.ClassType = TPasUnresolvedTypeRef then if AElement.ClassType = TPasUnresolvedTypeRef then
Result := Engine.ResolveLink(Module, AElement.Name) Result := Engine.ResolveLink(Module, AElement.Name)
@ -704,7 +701,7 @@ end;
Function TIPFNewWriter.StripText(S : String) : String; Function TIPFNewWriter.StripText(S : String) : String;
var var
I,L: Integer; I: Integer;
begin begin
//Result := S; //Result := S;
SetLength(Result, 0); SetLength(Result, 0);

2
utils/fpdoc/dw_latex.pp
View File

@ -128,9 +128,9 @@ Type
procedure DescrBeginTableCell; override; procedure DescrBeginTableCell; override;
procedure DescrEndTableCell; override; procedure DescrEndTableCell; override;
// TFPDocWriter class methods // TFPDocWriter class methods
Function InterPretOption(Const Cmd,Arg : String) : boolean; override;
Property ImageDir : String Read FImageDir Write FImageDir; Property ImageDir : String Read FImageDir Write FImageDir;
public public
Function InterPretOption(Const Cmd,Arg : String) : boolean; override;
Class Function FileNameExtension : String; override; Class Function FileNameExtension : String; override;
end; end;

4
utils/fpdoc/dwlinear.pp
View File

@ -86,6 +86,8 @@ Type
procedure WriteUnitEntry(UnitRef : TPasType);virtual; Abstract; procedure WriteUnitEntry(UnitRef : TPasType);virtual; Abstract;
procedure EndUnitOverview; virtual; Abstract; procedure EndUnitOverview; virtual; Abstract;
Property LastURL : DomString Read FLastURL Write FLastURL; Property LastURL : DomString Read FLastURL Write FLastURL;
// Overriden from fpdocwriter;
procedure DescrWriteText(const AText: DOMString); override;
Public Public
Constructor Create(APackage: TPasPackage; AEngine: TFPDocEngine); override; Constructor Create(APackage: TPasPackage; AEngine: TFPDocEngine); override;
function InterpretOption(const Cmd, Arg: String): Boolean; override; function InterpretOption(const Cmd, Arg: String): Boolean; override;
@ -113,8 +115,6 @@ Type
procedure WriteExample(ADocNode: TDocNode); procedure WriteExample(ADocNode: TDocNode);
procedure WriteSeeAlso(ADocNode: TDocNode); procedure WriteSeeAlso(ADocNode: TDocNode);
Procedure WriteTopicNode(Node : TDocNode; Level : Integer); Procedure WriteTopicNode(Node : TDocNode; Level : Integer);
// Overriden from fpdocwriter;
procedure DescrWriteText(const AText: DOMString); override;
end; end;
implementation implementation