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

work on jbig2lossy

This commit is contained in:
John Whitington 2024-01-11 18:24:42 +00:00
parent c924865349
commit 6447e77e8a
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
cpdfimage.ml
View File

@ -753,10 +753,26 @@ let preprocess_jbig2_lossy ~path_to_jbig2enc ~length_threshold ~pixel_threshold
end end
| _ -> () (* not a stream *) | _ -> () (* not a stream *)
in in
Pdf.objiter process_obj pdf Pdf.objiter process_obj pdf;
if length !objnum_name_pairs > 10000 then Pdfe.log "Too many jbig2 streams" else
(* Call jbig2 to generate one *.jbig2 for each, and a *.jbig2globals *) (* Call jbig2 to generate one *.jbig2 for each, and a *.jbig2globals *)
let jbig2out = Filename.temp_file "cpdf" "jbig2" in
Printf.printf "jbig2out: %s" jbig2out;
(* FIXME: redirect stdout or sterr from jbig2 to remove summary report. *)
let retcode =
let command = Filename.quote_command path_to_jbig2enc (["-p"; "-s"; "-b"; jbig2out] @ map snd !objnum_name_pairs) in
(*Printf.printf "%S\n" command;*) Sys.command command
in
if retcode = 0 then
begin
(* Build the JBIG2Globals stream for the file *) (* Build the JBIG2Globals stream for the file *)
let globals = bytes_of_string (contents_of_file (jbig2out ^ ".sym")) in
let globalobj =
Pdf.addobj pdf (Pdf.Stream {contents = Pdf.Dictionary [("/Length", Pdf.Integer (bytes_size globals))], Pdf.Got globals})
in
()
(* For each file, read in the new JBIG2 data, and build each new image stream to replace the old one *) (* For each file, read in the new JBIG2 data, and build each new image stream to replace the old one *)
end
let process let process
?q ?qlossless ?onebppmethod ~length_threshold ~percentage_threshold ~pixel_threshold ~dpi_threshold ?q ?qlossless ?onebppmethod ~length_threshold ~percentage_threshold ~pixel_threshold ~dpi_threshold