fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

more inline functions

Browse Source
This commit is contained in:
John Whitington
2024-01-23 18:46:09 +00:00
parent f96fb35ab3
commit 0ea7d25a23
1 changed files with 4 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
cpdfcommand.ml
View File

@ -1387,12 +1387,6 @@ let setdebug () =
set Pdfops.debug; set Pdfops.debug;
args.debug <- true args.debug <- true
let setdebugcrypt () =
args.debugcrypt <- true
let setdebugforce () =
args.debugforce <- true
let setboxes () = let setboxes () =
args.boxes <- true args.boxes <- true
@ -1870,9 +1864,6 @@ let setextractstreamdecomp i =
let setprintobj i = let setprintobj i =
args.op <- Some (PrintObj i) args.op <- Some (PrintObj i)
let setnoprocessstructtrees () =
args.process_struct_trees <- false
(* Parse a control file, make an argv, and then make Arg parse it. *) (* Parse a control file, make an argv, and then make Arg parse it. *)
let rec make_control_argv_and_parse filename = let rec make_control_argv_and_parse filename =
control_args := !control_args @ parse_control_file filename control_args := !control_args @ parse_control_file filename
@ -1990,7 +1981,7 @@ and specs =
Arg.Unit setmergeaddbookmarksusetitles, Arg.Unit setmergeaddbookmarksusetitles,
" Use title of document rather than filename"); " Use title of document rather than filename");
("-no-process-struct-trees", ("-no-process-struct-trees",
Arg.Unit setnoprocessstructtrees, Arg.Unit (fun () -> args.process_struct_trees <- false),
" Do not process structure trees"); " Do not process structure trees");
("-remove-duplicate-fonts", ("-remove-duplicate-fonts",
Arg.Unit set_remove_duplicate_fonts, Arg.Unit set_remove_duplicate_fonts,
@ -2106,7 +2097,7 @@ and specs =
Arg.Unit (setop Decrypt), Arg.Unit (setop Decrypt),
" Decrypt a file"); " Decrypt a file");
("-decrypt-force", ("-decrypt-force",
Arg.Unit setdebugforce, Arg.Unit (fun () -> args.debugforce <- true),
" Decrypt a file even without password"); " Decrypt a file even without password");
("-no-edit", Arg.Unit (fun () -> args.no_edit <- true) , " No edits"); ("-no-edit", Arg.Unit (fun () -> args.no_edit <- true) , " No edits");
("-no-print", Arg.Unit (fun () -> args.no_print <- true), " No printing"); ("-no-print", Arg.Unit (fun () -> args.no_print <- true), " No printing");
@ -2833,8 +2824,8 @@ and specs =
("-obj", Arg.Int setprintobj, "Print object"); ("-obj", Arg.Int setprintobj, "Print object");
(* These items are undocumented *) (* These items are undocumented *)
("-debug", Arg.Unit setdebug, ""); ("-debug", Arg.Unit setdebug, "");
("-debug-crypt", Arg.Unit setdebugcrypt, ""); ("-debug-crypt", Arg.Unit (fun () -> args.debugcrypt <- true), "");
("-debug-force", Arg.Unit setdebugforce, ""); ("-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, "");
("-stay-on-error", Arg.Unit setstayonerror, ""); ("-stay-on-error", Arg.Unit setstayonerror, "");