Removed debug print
This commit is contained in:
parent
3b9b91e5f3
commit
2fd9c2ec0f
|
@ -2750,7 +2750,6 @@ let go () =
|
||||||
flprint
|
flprint
|
||||||
("cpdf Version " ^ string_of_int major_version ^ "." ^ string_of_int minor_version ^ " " ^ version_date ^ "\n")
|
("cpdf Version " ^ string_of_int major_version ^ "." ^ string_of_int minor_version ^ " " ^ version_date ^ "\n")
|
||||||
| None | Some Merge ->
|
| None | Some Merge ->
|
||||||
(* 14th Sept 2010 - changed to write_pdf false pdf because we're not supposed to change it.*)
|
|
||||||
begin match args.out, args.inputs with
|
begin match args.out, args.inputs with
|
||||||
| _, (_::_ as inputs) ->
|
| _, (_::_ as inputs) ->
|
||||||
let write_pdf x pdf =
|
let write_pdf x pdf =
|
||||||
|
@ -2781,8 +2780,6 @@ let go () =
|
||||||
(* FIXME Here, if the output file is different from the
|
(* FIXME Here, if the output file is different from the
|
||||||
input file, and we're just extracting pages, might we use a
|
input file, and we're just extracting pages, might we use a
|
||||||
lazy read? *)
|
lazy read? *)
|
||||||
(*Pdfwrite.debug_whole_pdf pdf;*)
|
|
||||||
flprint "Just one file, we'll use Pdfpage.pdf_of_pages...\n";
|
|
||||||
if hd ranges <> "all" || hd rotations <> Pdfmerge.DNR || !Pdfpage.flat_pagetrees then
|
if hd ranges <> "all" || hd rotations <> Pdfmerge.DNR || !Pdfpage.flat_pagetrees then
|
||||||
let pdf = if hd rotations <> Pdfmerge.DNR then prerotate_pdf pdf (hd rotations) else pdf in
|
let pdf = if hd rotations <> Pdfmerge.DNR then prerotate_pdf pdf (hd rotations) else pdf in
|
||||||
let range = parse_pagespec pdf (hd ranges) in
|
let range = parse_pagespec pdf (hd ranges) in
|
||||||
|
|
Loading…
Reference in New Issue