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-11-18 16:32:35 -08:00
parent d395085408
commit b5977ae65e
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
cpdfcommand.ml
View File

@ -201,6 +201,8 @@ type op =
| OCGOrderAll | OCGOrderAll
| StampAsXObject of string | StampAsXObject of string
| PrintFontEncoding of string | PrintFontEncoding of string
| TableOfContents
| Typeset of string
let string_of_op = function let string_of_op = function
| PrintFontEncoding _ -> "PrintFontEncoding" | PrintFontEncoding _ -> "PrintFontEncoding"
@ -329,6 +331,8 @@ let string_of_op = function
| OCGRename -> "OCGRename" | OCGRename -> "OCGRename"
| OCGOrderAll -> "OCGOrderAll" | OCGOrderAll -> "OCGOrderAll"
| StampAsXObject _ -> "StampAsXObject" | StampAsXObject _ -> "StampAsXObject"
| TableOfContents -> "TableOfContents"
| Typeset _ -> "Typeset"
(* Inputs: filename, pagespec. *) (* Inputs: filename, pagespec. *)
type input_kind = type input_kind =
@ -750,7 +754,7 @@ let banned banlist = function
| SetModify _|SetCreator _|SetProducer _|RemoveDictEntry _ | ReplaceDictEntry _ | PrintDictEntry _ | SetMetadata _ | SetModify _|SetCreator _|SetProducer _|RemoveDictEntry _ | ReplaceDictEntry _ | PrintDictEntry _ | SetMetadata _
| ExtractText | ExtractImages | ExtractFontFile | ExtractText | ExtractImages | ExtractFontFile
| AddPageLabels | RemovePageLabels | OutputJSON | OCGCoalesce | AddPageLabels | RemovePageLabels | OutputJSON | OCGCoalesce
| OCGRename | OCGList | OCGOrderAll | PrintFontEncoding _ | OCGRename | OCGList | OCGOrderAll | PrintFontEncoding _ | TableOfContents | Typeset _
-> false (* Always allowed *) -> false (* Always allowed *)
(* Combine pages is not allowed because we would not know where to get the (* Combine pages is not allowed because we would not know where to get the
-recrypt from -- the first or second file? *) -recrypt from -- the first or second file? *)
@ -1625,6 +1629,9 @@ let setdictentrysearch s =
let setprintfontencoding s = let setprintfontencoding s =
setop (PrintFontEncoding s) () setop (PrintFontEncoding s) ()
let settypeset s =
setop (Typeset 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
@ -2379,6 +2386,12 @@ and specs =
("-print-font-table-page", ("-print-font-table-page",
Arg.Int setfontpage, Arg.Int setfontpage,
" Set page for -print-font-table"); " Set page for -print-font-table");
("-table-of-contents",
Arg.Unit (setop TableOfContents),
" Typeset a table of contents from bookmarks");
("-typeset",
Arg.String settypeset,
" Typeset a text file as a PDF");
(* These items are undocumented *) (* These items are undocumented *)
("-remove-unused-resources", Arg.Unit (setop RemoveUnusedResources), ""); ("-remove-unused-resources", Arg.Unit (setop RemoveUnusedResources), "");
("-stay-on-error", Arg.Unit setstayonerror, ""); ("-stay-on-error", Arg.Unit setstayonerror, "");
@ -3816,6 +3829,10 @@ let go () =
| Some (PrintFontEncoding fontname) -> | Some (PrintFontEncoding fontname) ->
let pdf = get_single_pdf args.op true in let pdf = get_single_pdf args.op true in
Cpdffont.print_font_table pdf fontname args.copyfontpage Cpdffont.print_font_table pdf fontname args.copyfontpage
| Some TableOfContents ->
Printf.printf "Making a table of contents...\n"
| Some (Typeset filename) ->
Printf.printf "Typesetting a text file...\n"
(* Advise the user if a combination of command line flags makes little sense, (* Advise the user if a combination of command line flags makes little sense,
or error out if it make no sense at all. *) or error out if it make no sense at all. *)