diff --git a/cpdfimage.ml b/cpdfimage.ml index e2484dc..ce38af2 100644 --- a/cpdfimage.ml +++ b/cpdfimage.ml @@ -72,10 +72,10 @@ let write_image ~raw ?path_to_p2p ?path_to_im pdf resources name image = | Pdfimage.JBIG2 (stream, _, global) -> begin match global with | None -> - Printf.printf "JBIG2: No global, writing plain\n"; + (*Printf.printf "JBIG2: No global, writing plain\n";*) write_stream (name ^ ".jbig2") stream | Some g -> - Printf.printf "JBIG2: there is a global\n"; + (*Printf.printf "JBIG2: there is a global\n";*) let go () = let serial, _ = Hashtbl.find jbig2_globals g in write_stream (name ^ ".jbig2__" ^ string_of_int serial) stream @@ -490,7 +490,6 @@ let image_of_input fobj i = let pdf, pageroot = Pdfpage.add_pagetree [page] pdf in Pdfpage.add_root pageroot [] pdf - let jpeg_to_jpeg pdf ~q ~path_to_convert s dict reference = Pdf.getstream s; let out = Filename.temp_file "cpdf" "convertin" ^ ".jpg" in @@ -629,16 +628,6 @@ let recompress_1bpp_jbig2_lossless ~path_to_jbig2enc pdf s dict reference = (* JPEG to JPEG: RGB and CMYK JPEGS *) (* Lossless to JPEG: 8bpp Grey, 8bpp RGB, 8bpp CMYK including separation and ICCBased colourspaces *) (* 1 bit: anything to JBIG2 lossless (no globals) *) -(* FIXME Only do if quality < 100 *) -(* FIXME Error when path_to_convert not defined *) -(* FIXME Need the "is it smaller" check from Pdfcodec.encode here too? *) -(* FIXME (this appears to make the file larger than ./cpdf ~/repos/pdfs/PDFTests/main128fail.pdf -recrypt -o out.pdf. Why? Seems to not create new object streams. Make it do so, since this a compression mechanism? An empty Pdf.objiter should not blow up a file like this!) *) -(* FIXME What about predictors? Audit to see if files get smaller. *) -(* FIXME if lossy only 5% smaller, ignore? Set this parameter... *) -(* FIXME error handling for Sys.remove, others *) -(* FIXME Use raw format for all, and make it fast *) -(* FIXME what are the best jbig2enc parameters *) -(* FIXME JBIG2 If we fail, need to have saved old one, otherwise it will no longer be CCITT encoded! Others too! *) let process ?q ?qlossless ?onebppmethod pdf ~path_to_jbig2enc ~path_to_convert = let process_obj _ s = match s with