From 30e8cd664814b4aa5f920a5aa0eaaeaa9d8f0a07 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 17 Dec 2024 18:25:25 +0000
Subject: [PATCH] Error handling improvements

---
 cpdfimage.ml | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/cpdfimage.ml b/cpdfimage.ml
index 963e7fe..1849ab7 100644
--- a/cpdfimage.ml
+++ b/cpdfimage.ml
@@ -598,7 +598,10 @@ let jpeg_to_jpeg pdf ~pixel_threshold ~length_threshold ~percentage_threshold ~j
           if newsize < size && perc_ok then
             begin
               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
+              (*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.));
               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),
@@ -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%!"
            end;
           close_in result
-       with _ ->
+       with e ->
+         Printf.printf "Error %S\n%!" (Printexc.to_string e);
          remove out;
          remove out2
       end
     else
-      begin Printf.printf "external process failed\n%!" end;
-    remove out;
-    remove out2
+      begin
+        Printf.printf "external process failed\n%!";
+        remove out;
+        remove out2
+      end
 
 let suitable_num pdf dict =
   match Pdf.lookup_direct pdf "/ColorSpace" dict with