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

* add underline support. Patch by Oleg, mantis #35946

Browse Source 
git-svn-id: trunk@42935 -
This commit is contained in:
marco 2019-09-07 15:16:13 +00:00
parent 560c0b228e
commit 61e777a4ff
6 changed files with 67 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
utils/fpdoc/dw_html.pp
View File

@ -145,6 +145,8 @@ type
procedure DescrEndItalic; override;
procedure DescrBeginEmph; override;
procedure DescrEndEmph; override;
procedure DescrBeginUnderline; override;
procedure DescrEndUnderline; override;
procedure DescrWriteImageEl(const AFileName, ACaption, ALinkName : DOMString); override;
procedure DescrWriteFileEl(const AText: DOMString); override;
procedure DescrWriteKeywordEl(const AText: DOMString); override;
@ -1101,6 +1103,16 @@ begin
PopOutputNode;
end;
procedure THTMLWriter.DescrBeginUnderline;
begin
PushOutputNode(CreateEl(CurOutputNode, 'u'));
end;
procedure THTMLWriter.DescrEndUnderline;
begin
PopOutputNode;
end;
procedure THTMLWriter.DescrWriteImageEl(const AFileName, ACaption, ALinkName : DOMString);
Var

12
utils/fpdoc/dw_latex.pp
View File

@ -87,6 +87,8 @@ Type
procedure DescrEndItalic; override;
procedure DescrBeginEmph; override;
procedure DescrEndEmph; override;
procedure DescrBeginUnderline; override;
procedure DescrEndUnderline; override;
procedure DescrWriteImageEl(const AFileName, ACaption, ALinkName : DOMString); override;
procedure DescrWriteFileEl(const AText: DOMString); override;
procedure DescrWriteKeywordEl(const AText: DOMString); override;
@ -287,6 +289,16 @@ begin
Write('}');
end;
procedure TLaTeXWriter.DescrBeginUnderline;
begin
Write('\underline{');
end;
procedure TLaTeXWriter.DescrEndUnderline;
begin
Write('}');
end;
procedure TLaTeXWriter.DescrWriteImageEl(const AFileName, ACaption, ALinkName : DOMString);
Var

12
utils/fpdoc/dw_linrtf.pp
View File

@ -121,6 +121,8 @@ type
procedure DescrEndItalic; override;
procedure DescrBeginEmph; override;
procedure DescrEndEmph; override;
procedure DescrBeginUnderline; override;
procedure DescrEndUnderline; override;
procedure DescrWriteFileEl(const AText: DOMString); override;
procedure DescrWriteKeywordEl(const AText: DOMString); override;
procedure DescrWriteVarEl(const AText: DOMString); override;
@ -344,6 +346,16 @@ begin
Write('}')
end;
procedure TRTFWriter.DescrBeginUnderline;
begin
Write('{\ul ');
end;
procedure TRTFWriter.DescrEndUnderline;
begin
Write('}');
end;
procedure TRTFWriter.DescrWriteFileEl(const AText: DOMString);
begin
Write('{\f0 ');

13
utils/fpdoc/dw_man.pp
View File

@ -138,6 +138,8 @@ Type
procedure DescrEndItalic; override;
procedure DescrBeginEmph; override;
procedure DescrEndEmph; override;
procedure DescrBeginUnderline; override;
procedure DescrEndUnderline; override;
procedure DescrWriteFileEl(const AText: DOMString); override;
procedure DescrWriteKeywordEl(const AText: DOMString); override;
procedure DescrWriteVarEl(const AText: DOMString); override;
@ -425,6 +427,17 @@ begin
NewLine;
end;
procedure TManWriter.DescrBeginUnderline;
begin
NewLine;
Write('.I '); //use ITALIC!
end;
procedure TManWriter.DescrEndUnderline;
begin
NewLine;
end;
procedure TManWriter.DescrWriteFileEl(const AText: DOMString);
Var

10
utils/fpdoc/dw_txt.pp
View File

@ -89,6 +89,8 @@ Type
procedure DescrEndItalic; override;
procedure DescrBeginEmph; override;
procedure DescrEndEmph; override;
procedure DescrBeginUnderline; override;
procedure DescrEndUnderline; override;
procedure DescrWriteFileEl(const AText: DOMString); override;
procedure DescrWriteKeywordEl(const AText: DOMString); override;
procedure DescrWriteVarEl(const AText: DOMString); override;
@ -270,6 +272,14 @@ procedure TTXTWriter.DescrEndEmph;
begin
end;
procedure TTXTWriter.DescrBeginUnderline;
begin
end;
procedure TTXTWriter.DescrEndUnderline;
begin
end;
procedure TTXTWriter.DescrWriteFileEl(const AText: DOMString);
begin
DescrWriteText(AText);

8
utils/fpdoc/dwriter.pp
View File

@ -117,6 +117,8 @@ type
procedure DescrEndBold; virtual; abstract;
procedure DescrBeginItalic; virtual; abstract;
procedure DescrEndItalic; virtual; abstract;
procedure DescrBeginUnderline; virtual; abstract;
procedure DescrEndUnderline; virtual; abstract;
procedure DescrBeginEmph; virtual; abstract;
procedure DescrEndEmph; virtual; abstract;
procedure DescrWriteImageEl(const AFileName, ACaption,ALinkName : DOMString); virtual;
@ -637,6 +639,12 @@ begin
ConvertBaseShortList(AContext, Node, False);
DescrEndEmph;
end else
if Node.NodeName = 'u' then
begin
DescrBeginUnderline;
ConvertBaseShortList(AContext, Node, False);
DescrEndUnderline;
end else
if Node.NodeName = 'file' then
DescrWriteFileEl(ConvertTextContent)
else if Node.NodeName = 'kw' then