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

more

This commit is contained in:
John Whitington 2024-01-12 13:06:29 +00:00
parent f2a8a44e79
commit edb36171be
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cpdfimage.ml
View File

@ -742,7 +742,7 @@ let preprocess_jbig2_lossy ~path_to_jbig2enc ~length_threshold ~pixel_threshold
let data = match s with Pdf.Stream {contents = _, Pdf.Got d} -> d | _ -> assert false in let data = match s with Pdf.Stream {contents = _, Pdf.Got d} -> d | _ -> assert false in
pnm_to_channel_1_inverted fh w h data; pnm_to_channel_1_inverted fh w h data;
close_out fh; close_out fh;
(*Printf.printf "obj %i = %s\n%!" objnum out;*) if !debug_image_processing then Printf.printf "obj %i is suitable\n%!" objnum;
objnum_name_pairs := (objnum, out)::!objnum_name_pairs objnum_name_pairs := (objnum, out)::!objnum_name_pairs
end end
| _ -> () (* not a 1bpp image *) | _ -> () (* not a 1bpp image *)
@ -754,7 +754,12 @@ let preprocess_jbig2_lossy ~path_to_jbig2enc ~length_threshold ~pixel_threshold
if length !objnum_name_pairs = 0 then () else if length !objnum_name_pairs = 0 then () else
let jbig2out = Filename.temp_file "cpdf" "jbig2" in let jbig2out = Filename.temp_file "cpdf" "jbig2" in
let retcode = let retcode =
let command = Filename.quote_command path_to_jbig2enc ~stderr:Filename.null (["-p"; "-s"; "-b"; jbig2out] @ map snd !objnum_name_pairs) in let command =
Filename.quote_command
path_to_jbig2enc
?stderr:(if !debug_image_processing then None else Some Filename.null)
(["-p"; "-s"; "-b"; jbig2out] @ map snd !objnum_name_pairs)
in
(*Printf.printf "%S\n" command;*) Sys.command command (*Printf.printf "%S\n" command;*) Sys.command command
in in
if retcode = 0 then if retcode = 0 then