Finished SplitMax implementation

This commit is contained in:
John Whitington 2023-10-26 17:59:57 +01:00
parent a3745be835
commit 3ea4086a0b
2 changed files with 3 additions and 1 deletions

View File

@ -3185,11 +3185,12 @@ let rec split_max_search pdf s b p q =
else split_max_search pdf s b p half
let rec split_max enc original_filename ~squeeze output_spec s pdf =
Printf.printf "***split_max\n";
let outs = ref [] in
let p = ref 1 in
let endpage = Pdfpage.endpage pdf in
let q = ref endpage in
while !p < !q do
while !p < !q || !p = endpage do
(*Printf.printf "Calling split_max_search %i %i %i\n%!" !p !p !q;*)
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\n" !p; exit 2) else

View File

@ -1,3 +1,4 @@
%Document -split-max
\documentclass{book}
% Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf,
% dotnetcpdflibmanual.pdf, jcpdflibmanual.pdf jscpdflibmanual.pdf etc.