fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-03-10 00:20:06 +01:00
Code Issues Packages Projects Releases Wiki Activity

28_008

Browse Source
This commit is contained in:
John Whitington 2025-01-19 14:40:35 +08:00
parent f86979130b
commit e0575043e8
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
cpdfua.ml
View File

@ -882,7 +882,24 @@ let matterhorn_28_017 _ _ pdf =
(* The appearance stream of a PrinterMark annotation is not marked as Artifact.
*)
let matterhorn_28_018 _ _ pdf =
unimpl ()
let annotations =
map
(Pdf.lookup_obj pdf)
(Pdf.objselect (fun o -> match Pdf.lookup_direct pdf "/Subtype" o with Some (Pdf.Name "/PrinterMark") -> true | _ -> false) pdf)
in
let form_xobjects =
let ns = option_map (fun a -> Pdf.lookup_chain pdf a ["/AP"; "/N"]) annotations in
flatten
(map
(function Pdf.Dictionary d -> (map (Pdf.direct pdf) (map snd d)) | x -> [x])
ns)
in
iter
(fun stream ->
let resources = match Pdf.lookup_direct pdf "/Resources" stream with Some d -> d | None -> Pdf.Dictionary [] in
let ops = Pdfops.parse_operators pdf resources [stream] in
if Cpdftype.add_artifacts ops <> ops then merror ())
form_xobjects
(* A reference XObject is present. *)
let matterhorn_30_001 _ _ pdf =