fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Finished SplitMax implementation

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfcommand.ml
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 else split_max_search pdf s b p half
let rec split_max enc original_filename ~squeeze output_spec s pdf = let rec split_max enc original_filename ~squeeze output_spec s pdf =
Printf.printf "***split_max\n";
let outs = ref [] in let outs = ref [] in
let p = ref 1 in let p = ref 1 in
let endpage = Pdfpage.endpage pdf in let endpage = Pdfpage.endpage pdf in
let q = ref endpage 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;*) (*Printf.printf "Calling split_max_search %i %i %i\n%!" !p !p !q;*)
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\n" !p; exit 2) else if newq = -1 then (Printf.eprintf "Failed to make small enough split at page %i\n" !p; exit 2) else

1
cpdfmanual.tex
View File

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