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

Small fix by Andrey to fix links

Browse Source 
git-svn-id: trunk@48269 -
This commit is contained in:
michael 2021-01-21 15:20:11 +00:00
parent d83e1a33ca
commit 79f2398e6a
1 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
utils/fpdoc/dwriter.pp
View File

@ -257,7 +257,7 @@ Type
FPageInfos: TFPObjectList; // list of TPageInfo objects
FLinkUnresolvedCnt: Integer;
function GetPageCount: Integer;
function LinkFix(ALink:String):String;
Protected
FAllocator: TFileAllocator;
Procedure LinkUnresolvedInc();
@ -431,24 +431,13 @@ end;
function TMultiFileDocWriter.ResolveLinkID(const Name: String): DOMString;
var
res,s: String;
res: String;
begin
res:=Engine.ResolveLink(Module,Name, True);
// engine can return backslashes on Windows
if Length(res) > 0 then
begin
s:=Copy(Res, 1, Length(CurDirectory) + 1);
if (S= CurDirectory + '/') or (s= CurDirectory + '\') then
begin
// TODO: I didn`t see a call to this code on a processing the lcl ana lazutil. What is that?
Res := Copy(Res, Length(CurDirectory) + 2, Length(Res));
//writeLn('INFO: ResolveLinkID "\" - ', Res);
end
else if not IsLinkAbsolute(Res) then
Res := BaseDirectory + Res;
end;
Result:=UTF8Decode(Res);
res:= LinkFix(res);
Result:=UTF8Decode(res);
end;
function TMultiFileDocWriter.ResolveLinkIDUnStrict(const Name: String
@ -474,9 +463,27 @@ begin
// have cut last element
res:= Engine.ResolveLink(Module, Copy(Name, 1, IdLast-1), True);
end;
res:= LinkFix(res);
Result:=UTF8Decode(res);
end;
function TMultiFileDocWriter.LinkFix(ALink: String): String;
var
res, s:String;
begin
res:= ALink;
if Length(res) > 0 then
begin
// If the link is in the same directory as current dir, then remove the directory part.
s:=Copy(res, 1, Length(CurDirectory) + 1);
if (S= CurDirectory + '/') or (s= CurDirectory + '\') then
res := Copy(res, Length(CurDirectory) + 2, Length(res))
else if not IsLinkAbsolute(res) then
res := BaseDirectory + res;
end;
Result:= res;
end;
{ Used for:
- <link> elements in descriptions
- "see also" entries