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

Matterhorn 31_004/005

This commit is contained in:
John Whitington 2024-06-08 15:06:36 +01:00
parent e2bc9a29fc
commit 235104c56a
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
cpdfua.ml
View File

@ -362,10 +362,30 @@ let matterhorn_31_003 pdf =
(* A Type 2 CID font contains neither a stream nor the name Identity as the
value of the CIDToGIDMap entry. *)
let matterhorn_31_004 pdf = ()
let matterhorn_31_004 pdf =
Pdf.objiter
(fun _ n ->
match Pdf.lookup_direct pdf "/Subtype" n with
| Some (Pdf.Name "/CIDFontType2") ->
begin match Pdf.lookup_direct pdf "/CIDtoGIDMap" n with
| Some (Pdf.Name "/Identity" | Pdf.Stream _) -> ()
| _ -> merror ()
end
| _ -> ())
pdf
(* A Type 2 CID font does not contain a CIDToGIDMap entry. *)
let matterhorn_31_005 pdf = ()
let matterhorn_31_005 pdf =
Pdf.objiter
(fun _ n ->
match Pdf.lookup_direct pdf "/Subtype" n with
| Some (Pdf.Name "/CIDFontType2") ->
begin match Pdf.lookup_direct pdf "/CIDtoGIDMap" n with
| Some _ -> ()
| _ -> merror ()
end
| _ -> ())
pdf
(* A CMap is neither listed as described in ISO 32000-1:2008, 9.7.5.2, Table
118 nor is it embedded. *)