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

* Fixed error where unit names with underscores are not correctly handled

Browse Source 
git-svn-id: trunk@12402 -
This commit is contained in:
michael 2008-12-19 17:37:20 +00:00
parent 7ea44b56bf
commit 7ebbcb4c9f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/fpdoc/dw_latex.pp
View File

@ -641,13 +641,13 @@ end;
procedure TLatexWriter.WriteOverviewMember(ALabel,AName,Access,ADescr : String);
begin
WriteLnF('\pageref{%s} & %s & %s & %s \\',[ALabel,AName,Access,ADescr]);
WriteLnF('\pageref{%s} & %s & %s & %s \\',[ALabel,EscapeText(AName),Access,ADescr]);
end;
procedure TLatexWriter.WriteOverviewMember(ALabel,AName,ADescr : String);
begin
WriteLnF('\pageref{%s} & %s & %s \\',[ALabel,AName,ADescr]);
WriteLnF('\pageref{%s} & %s & %s \\',[ALabel,EscapeText(AName),ADescr]);
end;
class function TLaTeXWriter.FileNameExtension: String;
@ -676,7 +676,7 @@ procedure TLatexWriter.StartUnitOverview(AModuleName,AModuleLabel : String);
begin
WriteLnF('\begin{FPCltable}{lr}{%s}{%s:0units}',
[Format(SDocUsedUnitsByUnitXY, [EscapeText(AModuleName)]), AModuleName]);
[Format(SDocUsedUnitsByUnitXY, [EscapeText(AModuleName)]), StripText(AModuleName)]);
WriteLn('Name & Page \\ \hline');
end;
@ -684,7 +684,7 @@ procedure TLatexWriter.WriteUnitEntry(UnitRef : TPasType);
begin
WriteLnF('%s\index{unit!%s} & \pageref{%s} \\',
[UnitRef.Name, UnitRef.Name, StripText(GetLabel(UnitRef))]);
[EscapeText(UnitRef.Name), EscapeText(UnitRef.Name), StripText(GetLabel(UnitRef))]);
end;
procedure TLatexWriter.EndUnitOverview;