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

Error handling improvements

Browse Source
This commit is contained in:
John Whitington 2024-12-17 18:25:25 +00:00
parent 87c6136f3e
commit 30e8cd6648
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cpdfimage.ml
View File

@ -598,7 +598,10 @@ let jpeg_to_jpeg pdf ~pixel_threshold ~length_threshold ~percentage_threshold ~j
if newsize < size && perc_ok then if newsize < size && perc_ok then
begin begin
let data = Pdfio.bytes_of_input_channel result in let data = Pdfio.bytes_of_input_channel result in
(*Printf.printf "Got %i bytes of result\n" (Pdfio.bytes_size data);
Printf.printf "%02X %02X %02X %02X\n" (Pdfio.bget data 0) (Pdfio.bget data 1) (Pdfio.bget data 2) (Pdfio.bget data 3);*)
let w, h = Cpdfjpeg.jpeg_dimensions data in let w, h = Cpdfjpeg.jpeg_dimensions data in
(*Printf.printf "Finsihed call to jpeg_dimensions\n";*)
if !debug_image_processing then Printf.printf "JPEG to JPEG %i -> %i (%i%%)\n%!" size newsize (int_of_float (float newsize /. float size *. 100.)); if !debug_image_processing then Printf.printf "JPEG to JPEG %i -> %i (%i%%)\n%!" size newsize (int_of_float (float newsize /. float size *. 100.));
reference := reference :=
Pdf.add_dict_entry (Pdf.add_dict_entry (Pdf.add_dict_entry dict "/Length" (Pdf.Integer newsize)) "/Width" (Pdf.Integer w)) "/Height" (Pdf.Integer h), Pdf.add_dict_entry (Pdf.add_dict_entry (Pdf.add_dict_entry dict "/Length" (Pdf.Integer newsize)) "/Width" (Pdf.Integer w)) "/Height" (Pdf.Integer h),
@ -609,14 +612,17 @@ let jpeg_to_jpeg pdf ~pixel_threshold ~length_threshold ~percentage_threshold ~j
if !debug_image_processing then Printf.printf "no size reduction\n%!" if !debug_image_processing then Printf.printf "no size reduction\n%!"
end; end;
close_in result close_in result
with _ -> with e ->
Printf.printf "Error %S\n%!" (Printexc.to_string e);
remove out; remove out;
remove out2 remove out2
end end
else else
begin Printf.printf "external process failed\n%!" end; begin
Printf.printf "external process failed\n%!";
remove out; remove out;
remove out2 remove out2
end
let suitable_num pdf dict = let suitable_num pdf dict =
match Pdf.lookup_direct pdf "/ColorSpace" dict with match Pdf.lookup_direct pdf "/ColorSpace" dict with