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

More excising of cpdftk

This commit is contained in:
John Whitington 2014-10-14 19:45:10 +01:00
parent ded4c5f22d
commit fc8f53641e
1 changed files with 14 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
cpdfcommand.ml
View File

@ -244,16 +244,9 @@ type args =
mutable tobox : string option;
mutable mediabox_if_missing : bool;
mutable topage : string option;
mutable printf_format : bool;
mutable scale_stamp_to_fit : bool;
mutable keep_this_id : string option;
mutable do_ask : bool;
mutable verbose : bool;
mutable dont_overwrite_inputs : bool;
mutable dont_overwrite_existing_files : bool;
mutable makenewid : bool;
mutable ismulti : bool;
mutable uprightstamp : bool;
mutable labelstyle : Pdfpagelabels.labelstyle;
mutable labelprefix : string option;
mutable labelstartval : int;
@ -329,16 +322,9 @@ let args =
tobox = None;
mediabox_if_missing = false;
topage = None;
printf_format = false;
scale_stamp_to_fit = false;
keep_this_id = None;
do_ask = false;
verbose = false;
dont_overwrite_inputs = false;
dont_overwrite_existing_files = false;
makenewid = false;
ismulti = false;
uprightstamp = false;
labelstyle = Pdfpagelabels.DecimalArabic;
labelprefix = None;
labelstartval = 1;
@ -409,20 +395,14 @@ let reset_arguments () =
args.tobox <- None;
args.mediabox_if_missing <- false;
args.topage <- None;
args.printf_format <- false;
args.scale_stamp_to_fit <- false;
args.keep_this_id <- None;
args.makenewid <- false;
args.ismulti <- false;
args.uprightstamp <- false;
args.labelstyle <- Pdfpagelabels.DecimalArabic;
args.labelprefix <- None;
args.labelstartval <- 1;
args.squeeze <- false
(* We don't reset args.do_ask and args.verbose, because they operate on all
parts of the AND-ed command line sent from cpdftk. Also do not reset
original_filename, since we want it to work across AND sections. Also do not
reset cpdflin. *)
(* Do not reset original_filename or cpdflin, since we want it to work across ANDs. *)
let banlist_of_args () =
let l = ref [] in
@ -1105,9 +1085,6 @@ let setflatkids () =
let settopage s =
args.topage <- Some s
let setprintfformat () =
args.printf_format <- true
let setscalestamptofit () =
args.scale_stamp_to_fit <- true
@ -1116,18 +1093,9 @@ let setkeepthisid () =
| (InFile s, _, _, _, _)::_ -> args.keep_this_id <- Some s
| _ -> ()
let setdoask () =
args.do_ask <- true
let setverbose () =
args.verbose <- true
let setmakenewid () =
args.makenewid <- true
let setuprightstamp () =
args.uprightstamp <- true
let setjustifyleft () =
args.justification <- Cpdf.LeftJustify
@ -3126,15 +3094,9 @@ let go () =
| "stamp_use_stdin" -> pdf_of_stdin "" ""
| x -> pdfread_pdf_of_file None None x
in
let overpdf = if args.uprightstamp then Cpdf.upright ~fast:args.fast (ilist 1 (Pdfpage.endpage overpdf)) overpdf else overpdf in
let pdf = get_single_pdf args.op false in
let range = parse_pagespec pdf (get_pagespec ()) in
let pdf =
if args.ismulti
then
let overpdf = equalize_pages_extend pdf overpdf in
Cpdf.combine_pages args.fast pdf overpdf true false false
else
Cpdf.stamp args.position args.fast args.scale_stamp_to_fit true range overpdf pdf
in
write_pdf false pdf
@ -3144,15 +3106,9 @@ let go () =
| "stamp_use_stdin" -> pdf_of_stdin "" ""
| x -> pdfread_pdf_of_file None None x
in
let underpdf = if args.uprightstamp then Cpdf.upright ~fast:args.fast (ilist 1 (Pdfpage.endpage underpdf)) underpdf else underpdf in
let pdf = get_single_pdf args.op false in
let range = parse_pagespec pdf (get_pagespec ()) in
let pdf =
if args.ismulti
then
let underpdf = equalize_pages_extend pdf underpdf in
Cpdf.combine_pages args.fast pdf underpdf true true false
else
Cpdf.stamp args.position args.fast args.scale_stamp_to_fit false range underpdf pdf
in
write_pdf false pdf