fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Ready for 6,20,21,25,26

This commit is contained in:
John Whitington 2024-05-31 14:23:24 +01:00
parent fb4a87bf66
commit 05effc7eb1
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
cpdfua.ml
View File

@ -10,8 +10,16 @@ let matterhorn_01_005 pdf = ()
let matterhorn_01_007 pdf = () let matterhorn_01_007 pdf = ()
let matterhorn_02_001 pdf = () let matterhorn_02_001 pdf = ()
let matterhorn_02_003 pdf = () let matterhorn_02_003 pdf = ()
(* Document does not contain an XMP metadata stream *)
let matterhorn_06_001 pdf = () let matterhorn_06_001 pdf = ()
(* The XMP metadata stream in the Catalog dictionary does not include the
PDF/UA identifier. *)
let matterhorn_06_002 pdf = () let matterhorn_06_002 pdf = ()
(* XMP metadata stream does not contain dc:title *)
let matterhorn_06_003 pdf = () let matterhorn_06_003 pdf = ()
(* ViewerPreferences dictionary of the Catalog dictionary does not contain a (* ViewerPreferences dictionary of the Catalog dictionary does not contain a
@ -29,6 +37,8 @@ let matterhorn_07_001 pdf =
end end
| _ -> merror () | _ -> merror ()
(* ViewerPreferences dictionary of the Catalog dictionary contains a
DisplayDocTitle entry with a value of false. *)
let matterhorn_07_002 pdf = let matterhorn_07_002 pdf =
match Pdf.lookup_direct pdf "/Root" pdf.Pdf.trailerdict with match Pdf.lookup_direct pdf "/Root" pdf.Pdf.trailerdict with
| Some catalog -> | Some catalog ->
@ -64,13 +74,35 @@ let matterhorn_17_002 pdf = ()
let matterhorn_17_003 pdf = () let matterhorn_17_003 pdf = ()
let matterhorn_19_003 pdf = () let matterhorn_19_003 pdf = ()
let matterhorn_19_004 pdf = () let matterhorn_19_004 pdf = ()
(* Name entry is missing or has an empty string as its value in an Optional
Content Configuration Dictionary in the Configs entry in the OCProperties
entry in the Catalog dictionary. *)
let matterhorn_20_001 pdf = () let matterhorn_20_001 pdf = ()
(* Name entry is missing or has an empty string as its value in an Optional
Content Configuration Dictionary that is the value of the D entry in the
OCProperties entry in the Catalog dictionary. *)
let matterhorn_20_002 pdf = () let matterhorn_20_002 pdf = ()
(* An AS entry appears in an Optional Content Configuration Dictionary. *)
let matterhorn_20_003 pdf = () let matterhorn_20_003 pdf = ()
(* The file specification dictionary for an embedded file does not contain F
and UF entries. *)
let matterhorn_21_001 pdf = () let matterhorn_21_001 pdf = ()
(* File contains the dynamicRender element with value “required”. *)
let matterhorn_25_001 pdf = () let matterhorn_25_001 pdf = ()
(* The file is encrypted but does not contain a P entry in its encryption
dictionary. *)
let matterhorn_26_001 pdf = () let matterhorn_26_001 pdf = ()
(* The file is encrypted and does contain a P entry but the 10th bit position
of the P entry is false. *)
let matterhorn_26_002 pdf = () let matterhorn_26_002 pdf = ()
let matterhorn_28_002 pdf = () let matterhorn_28_002 pdf = ()
let matterhorn_28_004 pdf = () let matterhorn_28_004 pdf = ()
let matterhorn_28_005 pdf = () let matterhorn_28_005 pdf = ()