Reference object check

This commit is contained in:
John Whitington 2024-06-06 17:10:52 +01:00
parent 389c63aa51
commit 768ebf1935
1 changed files with 17 additions and 2 deletions

View File

@ -214,8 +214,23 @@ let matterhorn_28_015 pdf = ()
let matterhorn_28_016 pdf = ()
let matterhorn_28_017 pdf = ()
let matterhorn_28_018 pdf = ()
let matterhorn_30_001 pdf = ()
let matterhorn_30_002 pdf = ()
(* A reference XObject is present. *)
let matterhorn_30_001 pdf =
Pdf.objiter
(fun _ o ->
match Pdf.lookup_direct pdf "/Subtype" o, Pdf.lookup_direct pdf "/Ref" o with
| Some (Pdf.Name "/Form"), Some _ -> merror ()
| _ -> ())
pdf
(* Form XObject contains MCIDs and is referenced more than once. *)
let matterhorn_30_002 pdf =
(* We need to consider inheritence here. What solutions do we already have for that, and do we
need anything new? *)
()
let matterhorn_31_001 pdf = ()
let matterhorn_31_002 pdf = ()
let matterhorn_31_003 pdf = ()