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

-debug-readable-ops

This commit is contained in:
John Whitington 2024-09-20 17:01:41 +01:00
parent f54be28366
commit 12af6510d3
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cpdfcommand.ml
View File

@ -1897,6 +1897,10 @@ let expand_namespace = function
| "PDF2" -> pdf2_namespace | "PDF2" -> pdf2_namespace
| x -> x | x -> x
let setreadableops () =
Pdfops.whitespace := "\n";
Pdfops.always_add_whitespace := true
let specs = let specs =
[("-version", [("-version",
Arg.Unit (setop Version), Arg.Unit (setop Version),
@ -2899,6 +2903,7 @@ let specs =
("-debug-force", Arg.Unit (fun () -> args.debugforce <- true), ""); ("-debug-force", Arg.Unit (fun () -> args.debugforce <- true), "");
("-debug-malformed", Arg.Set Pdfread.debug_always_treat_malformed, ""); ("-debug-malformed", Arg.Set Pdfread.debug_always_treat_malformed, "");
("-debug-stderr-to-stdout", Arg.Unit setstderrtostdout, ""); ("-debug-stderr-to-stdout", Arg.Unit setstderrtostdout, "");
("-debug-readable-ops", Arg.Unit setreadableops, "");
("-stay-on-error", Arg.Unit setstayonerror, ""); ("-stay-on-error", Arg.Unit setstayonerror, "");
(* These items are unfinished *) (* These items are unfinished *)
("-extract-text", Arg.Unit (setop ExtractText), ""); ("-extract-text", Arg.Unit (setop ExtractText), "");