fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

prepare for jbig reprocessing implementation

This commit is contained in:
John Whitington 2023-12-22 17:21:23 +00:00
parent b8aaf29420
commit 57aabda801
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cpdfimage.ml
View File

@ -590,15 +590,12 @@ let lossless_to_jpeg pdf ~qlossless ~path_to_convert s dict reference =
print_string (Printf.sprintf "%s (%s) [%s]\n" colspace bpc filter); print_string (Printf.sprintf "%s (%s) [%s]\n" colspace bpc filter);
() (* an image we cannot or do not handle *) () (* an image we cannot or do not handle *)
let recompress_1bpp_ccitt pdf s dict reference =
()
let recompress_1bpp_jbig2_lossless pdf s dict reference = let recompress_1bpp_jbig2_lossless pdf s dict reference =
() ()
(* JPEG to JPEG: RGB and CMYK JPEGS *) (* JPEG to JPEG: RGB and CMYK JPEGS *)
(* Lossless to JPEG: 8bpp Grey, 8bpp RGB, 8bpp CMYK including separation add ICCBased colourspaces *) (* Lossless to JPEG: 8bpp Grey, 8bpp RGB, 8bpp CMYK including separation add ICCBased colourspaces *)
(* 1 bit: anything to CCITT; anything to JBIG2 lossless (no globals yet) *) (* 1 bit: anything to JBIG2 lossless (no globals) *)
let process ?q ?qlossless ?onebppmethod pdf ~path_to_convert = let process ?q ?qlossless ?onebppmethod pdf ~path_to_convert =
let process_obj _ s = let process_obj _ s =
match s with match s with
@ -617,8 +614,7 @@ let process ?q ?qlossless ?onebppmethod pdf ~path_to_convert =
| Some (Pdf.Name "/Image"), _, Some (Pdf.Integer 1), _ | Some (Pdf.Name "/Image"), _, Some (Pdf.Integer 1), _
| Some (Pdf.Name "/Image"), _, _, Some (Pdf.Boolean true) -> | Some (Pdf.Name "/Image"), _, _, Some (Pdf.Boolean true) ->
begin match onebppmethod with begin match onebppmethod with
| Some "CCITT" -> recompress_1bpp_ccitt pdf s dict reference | Some "JBIG2" -> recompress_1bpp_jbig2_lossless pdf s dict reference
| Some "JBIG2Lossless" -> recompress_1bpp_jbig2_lossless pdf s dict reference
| _ -> () | _ -> ()
end end
| Some (Pdf.Name "/Image"), _, _, _ -> | Some (Pdf.Name "/Image"), _, _, _ ->