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

+ Strip path from sourcefilename in generated docs

Browse Source
This commit is contained in:
michael 2004-07-25 22:40:13 +00:00
parent 720d2792ec
commit 107ae4d266
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
utils/fpdoc/dw_html.pp
View File

@ -607,6 +607,7 @@ var
El: TDOMElement;
DocInfo: TDocInfo;
CSSName: String;
begin
Doc := TXHTMLDocument.Create;
with TXHTMLDocument(Doc) do
@ -865,12 +866,14 @@ end;
procedure THTMLWriter.DescrBeginLink(const AId: DOMString);
var
s: DOMString;
a,s: String;
begin
s := ResolveLinkID(AId);
a:=AId;
s := ResolveLinkID(a);
if Length(s) = 0 then
begin
WriteLn(Format(SErrUnknownLinkID, [AId]));
WriteLn(Format(SErrUnknownLinkID, [a]));
PushOutputNode(CreateEl(CurOutputNode, 'b'));
end else
PushOutputNode(CreateLink(CurOutputNode, s));
@ -1675,7 +1678,7 @@ end;
procedure THTMLWriter.AppendSourceRef(AElement: TPasElement);
begin
AppendText(CreatePara(BodyElement), Format(SDocSourcePosition,
[AElement.SourceFilename, AElement.SourceLinenumber]));
[ExtractFileName(AElement.SourceFilename), AElement.SourceLinenumber]));
end;
Procedure THTMLWriter.AppendSeeAlsoSection(AElement : TPasElement;DocNode : TDocNode);
@ -1981,9 +1984,12 @@ procedure THTMLWriter.CreateModulePageBody(AModule: TPasModule;
Decl: TPasElement;
SortedList: TList;
DocNode: TDocNode;
S : String;
begin
AppendMenuBar(ASubpageIndex);
AppendTitle(Format(SDocUnitTitle + ': %s', [AModule.Name, ATitle]));
S:=ATitle;
AppendTitle(Format(SDocUnitTitle + ': %s', [AModule.Name, S]));
SortedList := TList.Create;
try
for i := 0 to AList.Count - 1 do
@ -2796,7 +2802,10 @@ end.
{
$Log$
Revision 1.6 2004-06-06 10:53:02 michael
Revision 1.7 2004-07-25 22:40:13 michael
+ Strip path from sourcefilename in generated docs
Revision 1.6 2004/06/06 10:53:02 michael
+ Added Topic support
Revision 1.5 2003/11/28 12:51:37 sg