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

Introduced post-checks on command line flags

This commit is contained in:
John Whitington 2020-07-26 16:04:59 +01:00
parent 405540d9fb
commit 40170283be
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cpdfcommand.ml
View File

@ -4530,10 +4530,17 @@ let go () =
flush stdout; flush stdout;
write_pdf false pdf write_pdf false pdf
let parse_argv () = (* Advise the user if a combination of command line flags makes little sense,
or error out if it make no sense at all. *)
let check_command_line () =
if args.gs_malformed && !Pdfread.error_on_malformed then
error "Setting both -gs-malformed and -error-on-malformed makes no sense"
let parse_argv () s specs anon_fun usage_msg =
if args.debug then if args.debug then
Array.iter (Printf.eprintf "arg: %s\n") Sys.argv; Array.iter (Printf.eprintf "arg: %s\n") Sys.argv;
Arg.parse_argv ~current:(ref 0) Arg.parse_argv ~current:(ref 0) s specs anon_fun usage_msg;
check_command_line ()
let align_specs s = let align_specs s =
Arg.align s Arg.align s