fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-04-14 02:12:27 +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
keep (function Pdfops.Op_BDC (n, d) when Pdf.lookup_direct pdf "/MCID" d <> None -> true | _ -> false) ops <> []
in
(* 0. Regularize inheritance amongst pages. *)
(* Regularize inheritance amongst pages. *)
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 =
Pdf.objselect (function o -> match Pdf.lookup_direct pdf "/Subtype" o with Some (Pdf.Name "/Form") -> true | _ -> false) pdf
in
(* 2. Trim to only ones containing MCIDs *)
(* Trim to only ones containing MCIDs *)
let containing_mcids = keep contains_mcid xobj_objnums in
(* 3. Find from which place each of these is referenced. For pages, it's from
a page. For Xobjects, it's from an xobject. But, two pages (or xobjects)
could reference an xobject which references an xobject with an MCID - so
there is transitivity to deal with! *)
()
(* We check that an xobject which contains MCIDs is not referenced
directly from multiple (page or xobject) i.e is in their /XObject lists.
In both cases (page, form xobject) we can look in /Resources/XObject *)
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
has values for Registry in both CIDSystemInfo dictionaries that are not