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

Documentation fixes

This commit is contained in:
John Whitington 2019-10-21 12:06:04 +01:00
parent d9291dfd85
commit 72146cd764
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

@ -1446,6 +1446,8 @@ 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
let nothing () = ()
(* 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
@ -1523,6 +1525,9 @@ and specs =
("-control", ("-control",
Arg.String make_control_argv_and_parse, Arg.String make_control_argv_and_parse,
" Use a control file. Deprecated. Use -args."); " Use a control file. Deprecated. Use -args.");
("-args",
Arg.Unit nothing,
" Get arguments from a file.");
("-merge", ("-merge",
Arg.Unit (setop Merge), Arg.Unit (setop Merge),
" Merge a number of files into one"); " Merge a number of files into one");