paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 08:31:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fpdoc parts of binary support + disable options.

Browse Source 
git-svn-id: trunk@13837 -
This commit is contained in:
marco 2009-10-10 18:33:40 +00:00
parent daa4757c92
commit 1b977aa8c9
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
utils/fpdoc/dw_htmlchm.inc
View File

@ -15,6 +15,8 @@ type
FDefaultPage: String;
FCSSFile: String;
FMakeSearchable,
FNoBinToc,
FNoBinIndex,
FAutoTOC,
FAutoIndex: Boolean;
FOtherFiles: String;
@ -238,6 +240,7 @@ begin
end;
end;
if not nobintoc then
fchm.AppendBinaryTOCFromSiteMap(Toc);
TOC.SaveToStream(Stream);
TOC.Free;
@ -413,6 +416,8 @@ begin
// save
Index.SaveToStream(Stream);
if not nobinindex then
fchm.AppendBinaryindexFromSitemap(index,false);
Index.Free;
Stream.Position :=0 ;
FChm.AppendIndex(Stream);
@ -450,8 +455,8 @@ begin
FChm.TempRawStream := FTempUncompressed;
FChm.OnGetFileData := @RetrieveOtherFiles;
FChm.OnLastFile := @LastFileAdded;
fchm.hasbinarytoc:=true;
fchm.hasbinarytoc:=not nobinarytoc;;
fchm.hasbinaryindex:=not nobinaryindex;
ProcessOptions;
FileStream := TMemoryStream.Create;
@ -488,6 +493,8 @@ end;
function TCHMHTMLWriter.InterPretOption(const Cmd, Arg: String): boolean;
begin
Result:=True;
FNoBinToc:=False;
FnoBinIndex:=False;
if Cmd = '--toc-file' then
FTOCName := arg
else if Cmd = '--index-file' then
@ -502,6 +509,10 @@ begin
FAutoIndex := True
else if Cmd = '--auto-toc' then
FAutoTOC := True
else if Cmd = '--no-bintoc' then
FNoBinToc := True
else if Cmd = '--no-binindex' then
FNoBinIndex := True
else if Cmd = '--make-searchable' then
FMakeSearchable := True
else