fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-04-15 10:48:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

Complete 30_002

Browse Source
This commit is contained in:
John Whitington 2025-03-27 13:05:47 +00:00
parent 19762f09df
commit 3806710a18
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
cpdfua.ml
View File

@ -1054,19 +1054,28 @@ let matterhorn_30_002 _ _ pdf =
let ops = Pdfops.parse_operators pdf (match Pdf.lookup_direct pdf "/Resources" obj with Some r -> r | None -> Pdf.Dictionary []) [obj] in let ops = Pdfops.parse_operators pdf (match Pdf.lookup_direct pdf "/Resources" obj with Some r -> r | None -> Pdf.Dictionary []) [obj] in
keep (function Pdfops.Op_BDC (n, d) when Pdf.lookup_direct pdf "/MCID" d <> None -> true | _ -> false) ops <> [] keep (function Pdfops.Op_BDC (n, d) when Pdf.lookup_direct pdf "/MCID" d <> None -> true | _ -> false) ops <> []
in in
(* 0. Regularize inheritance amongst pages. *) (* Regularize inheritance amongst pages. *)
Pdfpage.replace_inherit pdf (Pdf.page_reference_numbers pdf); Pdfpage.replace_inherit pdf (Pdf.page_reference_numbers pdf);
(* 1. Find list of xobject object numbers *) (* Find list of xobject object numbers *)
let xobj_objnums = let xobj_objnums =
Pdf.objselect (function o -> match Pdf.lookup_direct pdf "/Subtype" o with Some (Pdf.Name "/Form") -> true | _ -> false) pdf Pdf.objselect (function o -> match Pdf.lookup_direct pdf "/Subtype" o with Some (Pdf.Name "/Form") -> true | _ -> false) pdf
in in
(* 2. Trim to only ones containing MCIDs *) (* Trim to only ones containing MCIDs *)
let containing_mcids = keep contains_mcid xobj_objnums in let containing_mcids = keep contains_mcid xobj_objnums in
(* 3. Find from which place each of these is referenced. For pages, it's from (* We check that an xobject which contains MCIDs is not referenced
a page. For Xobjects, it's from an xobject. But, two pages (or xobjects) directly from multiple (page or xobject) i.e is in their /XObject lists.
could reference an xobject which references an xobject with an MCID - so In both cases (page, form xobject) we can look in /Resources/XObject *)
there is transitivity to deal with! *) let to_check = xobj_objnums @ Pdf.page_reference_numbers pdf in
() let results =
flatten
(map
(fun objnum ->
match Pdf.lookup_chain pdf (Pdf.Indirect objnum) ["/Resources"; "/XObject"] with
| Some (Pdf.Dictionary d) -> option_map (function (_, Pdf.Indirect i) when mem i containing_mcids -> Some i | _ -> None) d
| _ -> [])
to_check)
in
if setify results <> results then merror ()
(* A Type 0 font dictionary with encoding other than Identity-H and Identity-V (* A Type 0 font dictionary with encoding other than Identity-H and Identity-V
has values for Registry in both CIDSystemInfo dictionaries that are not has values for Registry in both CIDSystemInfo dictionaries that are not