fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-16 11:50:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

more

Browse Source
This commit is contained in:
John Whitington 2020-12-20 17:35:47 +00:00
parent 21ef7e8f99
commit 018ef019d8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfcommand.ml
View File

@ -2883,7 +2883,7 @@ let rec extract_images_form_xobject pdf serial stem pnum form =
in in
(* Remove any already in !written. Add any remaining to !written, if !args.dedup or !args.dedup_page *) (* Remove any already in !written. Add any remaining to !written, if !args.dedup or !args.dedup_page *)
let images = keep (fun o -> Pdf.lookup_direct pdf "/Subtype" o = Some (Pdf.Name "/Image")) xobjects in let images = keep (fun o -> Pdf.lookup_direct pdf "/Subtype" o = Some (Pdf.Name "/Image")) xobjects in
let images, already_written = List.partition (function Pdf.Indirect n -> mem n !written | _ -> false) images in let already_written, images = List.partition (function Pdf.Indirect n -> mem n !written | _ -> false) images in
written := (option_map (function Pdf.Indirect n -> Some n | _ -> None) images) @ !written; written := (option_map (function Pdf.Indirect n -> Some n | _ -> None) images) @ !written;
images images
in in
@ -2907,7 +2907,7 @@ let extract_images pdf range stem =
| _ -> [] | _ -> []
in in
let images = keep (fun o -> Pdf.lookup_direct pdf "/Subtype" o = Some (Pdf.Name "/Image")) xobjects in let images = keep (fun o -> Pdf.lookup_direct pdf "/Subtype" o = Some (Pdf.Name "/Image")) xobjects in
let images, already_written = List.partition (function Pdf.Indirect n -> mem n !written | _ -> false) images in let already_written, images = List.partition (function Pdf.Indirect n -> mem n !written | _ -> false) images in
written := (option_map (function Pdf.Indirect n -> Some n | _ -> None) images) @ !written; written := (option_map (function Pdf.Indirect n -> Some n | _ -> None) images) @ !written;
let forms = keep (fun o -> Pdf.lookup_direct pdf "/Subtype" o = Some (Pdf.Name "/Form")) xobjects in let forms = keep (fun o -> Pdf.lookup_direct pdf "/Subtype" o = Some (Pdf.Name "/Form")) xobjects in
extract_images_inner serial pdf page.Pdfpage.resources stem pnum images; extract_images_inner serial pdf page.Pdfpage.resources stem pnum images;