fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more

This commit is contained in:
John Whitington 2021-12-01 15:50:04 -08:00
parent 48a3ba7462
commit b7ad66df73
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
cpdfcommand.ml
View File

@ -475,7 +475,8 @@ type args =
mutable impose_linewidth : float; mutable impose_linewidth : float;
mutable format_json : bool; mutable format_json : bool;
mutable replace_dict_entry_value : Pdf.pdfobject; mutable replace_dict_entry_value : Pdf.pdfobject;
mutable dict_entry_search : Pdf.pdfobject option} mutable dict_entry_search : Pdf.pdfobject option;
mutable toc_title : string}
let args = let args =
{op = None; {op = None;
@ -591,7 +592,8 @@ let args =
impose_linewidth = 0.; impose_linewidth = 0.;
format_json = false; format_json = false;
replace_dict_entry_value = Pdf.Null; replace_dict_entry_value = Pdf.Null;
dict_entry_search = None} dict_entry_search = None;
toc_title = "Table of Contents"}
let reset_arguments () = let reset_arguments () =
args.op <- None; args.op <- None;
@ -692,7 +694,8 @@ let reset_arguments () =
args.impose_linewidth <- 0.; args.impose_linewidth <- 0.;
args.format_json <- false; args.format_json <- false;
args.replace_dict_entry_value <- Pdf.Null; args.replace_dict_entry_value <- Pdf.Null;
args.dict_entry_search <- None args.dict_entry_search <- None;
args.toc_title <- "Table of Contents"
(* Do not reset original_filename or cpdflin or was_encrypted or (* Do not reset original_filename or cpdflin or was_encrypted or
* was_decrypted_with_owner or recrypt or producer or creator or path_to_* or * was_decrypted_with_owner or recrypt or producer or creator or path_to_* or
* gs_malformed or gs_quiet, since we want these to work across ANDs. Or * gs_malformed or gs_quiet, since we want these to work across ANDs. Or
@ -1632,6 +1635,9 @@ let setprintfontencoding s =
let settypeset s = let settypeset s =
setop (Typeset s) () setop (Typeset s) ()
let settableofcontentstitle s =
args.toc_title <- s
let whingemalformed () = let whingemalformed () =
prerr_string "Command line must be of exactly the form\ncpdf <infile> -gs <path> -gs-malformed-force -o <outfile>\n"; prerr_string "Command line must be of exactly the form\ncpdf <infile> -gs <path> -gs-malformed-force -o <outfile>\n";
exit 1 exit 1
@ -2389,6 +2395,9 @@ and specs =
("-table-of-contents", ("-table-of-contents",
Arg.Unit (setop TableOfContents), Arg.Unit (setop TableOfContents),
" Typeset a table of contents from bookmarks"); " Typeset a table of contents from bookmarks");
("-table-of-contents-title",
Arg.String settableofcontentstitle,
" Set (or clear if empty) the TOC title");
("-typeset", ("-typeset",
Arg.String settypeset, Arg.String settypeset,
" Typeset a text file as a PDF"); " Typeset a text file as a PDF");
@ -2975,7 +2984,7 @@ let typeset_table_of_contents pdf =
let toc_pages = let toc_pages =
Cpdftype.typeset 50. 50. 50. 50. firstpage_papersize pdf Cpdftype.typeset 50. 50. 50. 50. firstpage_papersize pdf
([Cpdftype.Font big; ([Cpdftype.Font big;
Cpdftype.Text "Table of Contents"; Cpdftype.Text args.toc_title;
Cpdftype.NewLine; Cpdftype.NewLine;
Cpdftype.VGlue {glen = 20.; gstretch = 0.}; Cpdftype.VGlue {glen = 20.; gstretch = 0.};
Cpdftype.Font f] @ flatten lines) Cpdftype.Font f] @ flatten lines)