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

Support for cpdflib getImageResolution

This commit is contained in:
John Whitington 2024-02-07 14:42:38 +00:00
parent 60a587fd4b
commit 8684ec3092
3 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
cpdfcommand.ml
View File

@ -4255,14 +4255,11 @@ let go () =
Cpdfimage.extract_images ~raw:(args.encoding = Cpdfmetadata.Raw) ?path_to_p2p:(match args.path_to_p2p with "" -> None | x -> Some x) ?path_to_im:(match args.path_to_im with "" -> None | x -> Some x) args.encoding args.dedup args.dedup_per_page pdf range output_spec
| Some (ImageResolution f) ->
let pdf = get_single_pdf args.op true in
let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in
let images = Cpdfimage.image_resolution pdf range f in
if args.format_json then
flprint
(Cpdfyojson.Safe.pretty_to_string
(`List (map (fun (pagenum, xobject, w, h, wdpi, hdpi, objnum) ->
`Assoc [("Object", `Int objnum); ("Page", `Int pagenum); ("XObject", `String xobject); ("W", `Int w); ("H", `Int h); ("Xdpi", `Float wdpi); ("Ydpi", `Float hdpi)]) images)))
else
let range = parse_pagespec_allow_empty pdf (get_pagespec ()) in
if args.format_json then
flprint (Pdfio.string_of_bytes (Cpdfimage.image_resolution_json pdf range f))
else
let images = Cpdfimage.image_resolution pdf range f in
iter
(function (pagenum, xobject, w, h, wdpi, hdpi, objnum) ->
if wdpi < f || hdpi < f then

8
cpdfimage.ml
View File

@ -324,6 +324,14 @@ let image_resolution pdf range dpi =
image_resolution pdf range dpi;
rev !image_results
let image_resolution_json pdf range dpi =
let images = image_resolution pdf range dpi in
Pdfio.bytes_of_string
(Cpdfyojson.Safe.pretty_to_string
(`List (map (fun (pagenum, xobject, w, h, wdpi, hdpi, objnum) ->
`Assoc [("Object", `Int objnum); ("Page", `Int pagenum); ("XObject", `String xobject);
("W", `Int w); ("H", `Int h); ("Xdpi", `Float wdpi); ("Ydpi", `Float hdpi)]) images)))
(* All the images in file referenced at least once from the given range of pages. *)
let images pdf range =
let images = null_hash () in

2
cpdfimage.mli
View File

@ -11,6 +11,8 @@ val extract_images :
(** Report image resolutions. *)
val image_resolution : Pdf.t -> int list -> float -> (int * string * int * int * float * float * int) list
val image_resolution_json : Pdf.t -> int list -> float -> Pdfio.bytes
(** List images in JSON format *)
val images : Pdf.t -> int list -> Cpdfyojson.Safe.t