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

Deep copy

Browse Source
This commit is contained in:
John Whitington
2024-11-28 16:37:37 +00:00
parent 5421fe8f04
commit c8c8ddcae9
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
cpdfcommand.ml
View File

@@ -3758,7 +3758,8 @@ let write_images device res quality boxname annots antialias downsample spec pdf
end; end;
let tmppdf = Filename.temp_file "cpdf" ".pdf" in let tmppdf = Filename.temp_file "cpdf" ".pdf" in
tempfiles := tmppdf::!tempfiles; tempfiles := tmppdf::!tempfiles;
Pdfwrite.pdf_to_file pdf tmppdf; Pdfwrite.pdf_to_file (Pdf.deep_copy pdf) tmppdf;
let endpage = Pdfpage.endpage pdf in
iter2 iter2
(fun page pnum -> (fun page pnum ->
if not (mem pnum range) then () else if not (mem pnum range) then () else
@@ -3783,7 +3784,7 @@ let write_images device res quality boxname annots antialias downsample spec pdf
| _ -> Pdfe.log "Rasterization failed\n"; exit 2 | _ -> Pdfe.log "Rasterization failed\n"; exit 2
end) end)
(Pdfpage.pages_of_pagetree pdf) (Pdfpage.pages_of_pagetree pdf)
(ilist 1 (Pdfpage.endpage pdf)); (ilist 1 endpage);
Sys.remove tmppdf Sys.remove tmppdf
(* Main function *) (* Main function *)