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

Less noise

This commit is contained in:
John Whitington 2023-10-31 12:25:54 +00:00
parent d2dcee3e08
commit 42e838e5ce
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cpdfcommand.ml
View File

@ -3178,8 +3178,7 @@ let split_max_fits pdf s p q =
args.out <- r; args.out <- r;
let fh = open_in_bin filename in let fh = open_in_bin filename in
let size = in_channel_length fh in let size = in_channel_length fh in
close_in fh; begin try close_in fh; Sys.remove filename with _ -> () end;
Sys.remove filename;
size <= s size <= s
(* Binary search on q from current value down to p to find max which fits. Returns q. Upon failure, returns -1 *) (* Binary search on q from current value down to p to find max which fits. Returns q. Upon failure, returns -1 *)
@ -3201,7 +3200,7 @@ let rec split_max enc original_filename ~squeeze output_spec s pdf =
let newq = split_max_search pdf s !p !p !q in let newq = split_max_search pdf s !p !p !q in
if newq = -1 then (Printf.eprintf "Failed to make small enough split at page %i. No files written.\n" !p; exit 2) else if newq = -1 then (Printf.eprintf "Failed to make small enough split at page %i. No files written.\n" !p; exit 2) else
begin begin
Printf.printf "Pages %i-%i will fit...\n%!" !p newq; (*Printf.printf "Pages %i-%i will fit...\n%!" !p newq;*)
outs := ilist !p newq::!outs; outs := ilist !p newq::!outs;
p := newq + 1; p := newq + 1;
q := endpage q := endpage