Reference object check
This commit is contained in:
parent
389c63aa51
commit
768ebf1935
19
cpdfua.ml
19
cpdfua.ml
|
@ -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 = ()
|
||||
|
|
Loading…
Reference in New Issue