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

+ Initial OS/2 IPF support added

Browse Source
This commit is contained in:
yuri 2003-10-08 11:41:54 +00:00
parent f0e37e3520
commit 4d8f1265e0
2 changed files with 1496 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1429
utils/fpdoc/dw_ipf.pp Normal file
View File

File diff suppressed because it is too large Load Diff

18
utils/fpdoc/fpdoc.pp
View File

@ -18,7 +18,7 @@ program FPDoc;
uses
SysUtils, Classes, Gettext, DOM, XMLWrite,
dGlobals, PasTree, PParser, dw_XML, dw_HTML, dw_LaTeX;
dGlobals, PasTree, PParser, dw_XML, dw_HTML, dw_LaTeX, dw_ipf;
resourcestring
STitle = 'FPDoc - Free Pascal Documentation Tool';
@ -33,7 +33,7 @@ resourcestring
type
TCmdLineAction = (actionHelp, actionConvert);
TOutputFormat = (fmtHTM, fmtHTML, fmtXHTML, fmtLaTeX, fmtXMLStruct);
TOutputFormat = (fmtHTM, fmtHTML, fmtXHTML, fmtLaTeX, fmtXMLStruct, fmtIPF);
const
CmdLineAction: TCmdLineAction = actionConvert;
@ -126,6 +126,8 @@ begin
OutputFormat := fmtXHTML
else if Arg = 'LATEX' then
OutputFormat := fmtLaTeX
else if Arg = 'IPF' then
OutputFormat := fmtIPF
else if Arg = 'XML-STRUCT' then
OutputFormat := fmtXMLStruct
else
@ -270,6 +272,13 @@ begin
else
CreateLaTeXDocForPackage(Engine.Package, Engine);
end;
fmtIPF:
begin
if Length(Engine.Output) = 0 then
WriteLn(SCmdLineOutputOptionMissing)
else
CreateIPFDocForPackage(Engine.Package, Engine);
end;
{ fmtXMLStruct:
for i := 0 to InputFiles.Count - 1 do
begin
@ -296,7 +305,10 @@ end.
{
$Log$
Revision 1.3 2003-03-27 17:14:13 sg
Revision 1.4 2003-10-08 11:41:54 yuri
+ Initial OS/2 IPF support added
Revision 1.3 2003/03/27 17:14:13 sg
* Added --ostarget and --cputarget
Revision 1.2 2003/03/18 19:28:44 michael