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

Fix image output on decompressed files

This commit is contained in:
John Whitington 2024-11-22 14:30:37 +00:00
parent 17224e6907
commit a2369a946f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfcommand.ml
View File

@ -4471,8 +4471,9 @@ let go () =
begin match json with begin match json with
| `List l -> | `List l ->
iter iter
(function (`Assoc [(_, `Int i); (_, `List pages); (_, `String name); (_, `Int w); (_, `Int h); (_, `Int size); (_, bpc); (_, cs); (_, `String filter)]) -> (function (`Assoc [(_, `Int i); (_, `List pages); (_, `String name); (_, `Int w); (_, `Int h); (_, `Int size); (_, bpc); (_, cs); (_, filter)]) ->
let pages = combine_with_spaces (map (function `Int i -> string_of_int i | _ -> "") pages) in let pages = combine_with_spaces (map (function `Int i -> string_of_int i | _ -> "") pages) in
let filter = match filter with `String s -> s | _ -> "none" in
let bpc = match bpc with `Int bpc -> string_of_int bpc | _ -> "none" in let bpc = match bpc with `Int bpc -> string_of_int bpc | _ -> "none" in
let cs = match cs with `String cs -> cs | _ -> "none" in let cs = match cs with `String cs -> cs | _ -> "none" in
flprint (Printf.sprintf "%i, %s, %s, %i, %i, %i, %s, %s, %s\n" i pages name w h size bpc cs filter) flprint (Printf.sprintf "%i, %s, %s, %i, %i, %i, %s, %s, %s\n" i pages name w h size bpc cs filter)