* fpdoc parts of binary support + disable options.

git-svn-id: trunk@13837 -

utils/fpdoc/dw_htmlchm.inc

@@ -15,6 +15,8 @@ type
     FDefaultPage: String;
     FCSSFile: String;
     FMakeSearchable,
+    FNoBinToc,
+    FNoBinIndex,
     FAutoTOC,
     FAutoIndex: Boolean;
     FOtherFiles: String;
@@ -238,7 +240,8 @@ begin
     end;
   end;
 
-  fchm.AppendBinaryTOCFromSiteMap(Toc);  
+  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