fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Scaffolding for 01-003-004-005

Browse Source
This commit is contained in:
John Whitington
2025-01-19 17:08:53 +08:00
parent bfbd44a70d
commit 6a501f4642
1 changed files with 25 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
cpdfua.ml
View File

@@ -151,14 +151,36 @@ let string_of_st st =
let rec convert (E (s, ks)) = `Tuple [`String s; `List (map convert ks)] in
Cpdfyojson.Safe.pretty_to_string (convert st)
(* Return a list of (obj number, ops) pairs for all pages and form xobjects in a document. *)
let objnums_and_ops pdf =
[]
(* Content marked as Artifact is present inside tagged content. *)
let matterhorn_01_003 _ _ pdf = unimpl ()
let matterhorn_01_003 _ _ pdf =
let artifact_in_content ops =
false
in
iter
(fun (o, ops) -> if artifact_in_content ops then merror ())
(objnums_and_ops pdf)
(* Tagged content is present inside content marked as Artifact. *)
let matterhorn_01_004 _ _ pdf = unimpl ()
let matterhorn_01_004 _ _ pdf =
let content_in_artifact ops =
false
in
iter
(fun (o, ops) -> if content_in_artifact ops then merror ())
(objnums_and_ops pdf)
(* Content is neither marked as Artifact nor tagged as real content. *)
let matterhorn_01_005 _ _ pdf = unimpl ()
let matterhorn_01_005 _ _ pdf =
let untagged_content ops =
false
in
iter
(fun (o, ops) -> if untagged_content ops then merror ())
(objnums_and_ops pdf)
(* Suspects entry has a value of true. *)
let matterhorn_01_007 _ _ pdf =