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

* Added patch from Vincent Snijders to add a footer to each HTML page

Browse Source
This commit is contained in:
michael 2005-05-09 18:50:13 +00:00
parent 7764270152
commit 5d5f1cee3c
2 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/fpdoc/dglobals.pp
View File

@ -96,6 +96,9 @@ resourcestring
SManUsageNoUnitPrefix = 'Do not prefix man pages with unit name.';
SManUsageWriterDescr = 'UNIX man page output.';
SManUsagePackageDescription = 'Use descr as the description of man pages';
// HTML usage
SHTMLUsageFooter = 'Append xhmtl from file as footer to html page';
STitle = 'FPDoc - Free Pascal Documentation Tool';
SCopyright = '(c) 2000 - 2003 Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org';
@ -1217,7 +1220,10 @@ end.
{
$Log$
Revision 1.10 2005-05-04 08:38:58 michael
Revision 1.11 2005-05-09 18:50:13 michael
* Added patch from Vincent Snijders to add a footer to each HTML page
Revision 1.10 2005/05/04 08:38:58 michael
+ Added support for opaque types
Revision 1.9 2005/02/14 17:13:38 peter

26
utils/fpdoc/dw_html.pp
View File

@ -104,6 +104,8 @@ type
CurOutputNode: TDOMNode;
InsideHeadRow, DoPasHighlighting: Boolean;
HighlighterFlags: Byte;
FooterFile: string;
function ResolveLinkID(const Name: String): DOMString;
function ResolveLinkWithinPackage(AElement: TPasElement;
@ -206,6 +208,7 @@ type
procedure FinishElementPage(AElement: TPasElement);
Procedure AppendSeeAlsoSection(AElement : TPasElement;DocNode : TDocNode);
Procedure AppendExampleSection(AElement : TPasElement;DocNode : TDocNode);
procedure AppendFooter;
procedure CreatePageBody(AElement: TPasElement; ASubpageIndex: Integer); virtual;
procedure CreatePackagePageBody;
@ -240,6 +243,7 @@ type
property OnTest: TNotifyEvent read FOnTest write SetOnTest;
Function InterPretOption(Const Cmd,Arg : String) : boolean; override;
Procedure WriteDoc; override;
class procedure Usage(List: TStrings); override;
end;
THTMWriter = class(THTMLWriter)
@ -250,7 +254,7 @@ type
implementation
uses SysUtils, XHTML, XMLWrite, HTMWrite, sh_pas;
uses SysUtils, XHTML, XMLRead, XMLWrite, HTMWrite, sh_pas;
Function FixHTMLpath(S : String) : STring;
@ -554,6 +558,7 @@ begin
HTMLEl.AppendChild(BodyElement);
CreatePageBody(AElement, ASubpageIndex);
AppendFooter;
HeadEl.AppendChild(El);
El['rel'] := 'stylesheet';
@ -1798,6 +1803,12 @@ begin
end;
end;
procedure THTMLWriter.AppendFooter;
begin
if FooterFile<>'' then
ReadXMLFragment(BodyElement, FooterFile);
end;
procedure THTMLWriter.FinishElementPage(AElement: TPasElement);
var
@ -2833,6 +2844,8 @@ begin
Result:=True;
if Cmd = '--html-search' then
SearchPage := Arg
else if Cmd = '--footer' then
FooterFile := Arg
else
Result:=False;
end;
@ -2843,6 +2856,12 @@ begin
WriteHTMLPages;
end;
procedure THTMLWriter.Usage(List: TStrings);
begin
List.add('--footer');
List.Add(SHTMLUsageFooter);
end;
// private methods
function THTMLWriter.GetPageCount: Integer;
@ -2879,7 +2898,10 @@ end.
{
$Log$
Revision 1.16 2005-05-04 08:38:58 michael
Revision 1.17 2005-05-09 18:50:13 michael
* Added patch from Vincent Snijders to add a footer to each HTML page
Revision 1.16 2005/05/04 08:38:58 michael
+ Added support for opaque types
Revision 1.15 2005/02/14 17:13:38 peter