Implement 31_008

This commit is contained in:
John Whitington
2025-02-22 13:53:58 +00:00
parent 82ca9bc7ac
commit 84f9e24c75

View File

@@ -1202,11 +1202,9 @@ let matterhorn_31_007 _ _ pdf =
let matterhorn_31_008 _ _ pdf = let matterhorn_31_008 _ _ pdf =
Pdf.objiter Pdf.objiter
(fun _ o -> (fun _ o ->
(* 1. Locate all places a CMap dictionary can be. *) match Pdf.lookup_direct pdf "/UseCMap" o with
(* 2. Get the cmap and read the usecmap *) | Some (Pdf.Name n) when not (List.mem n cmap_names) -> merror_str n
(* 3. Check against the list *) | _ -> ())
()
)
pdf pdf
(* For a font used by text intended to be rendered the font program is not (* For a font used by text intended to be rendered the font program is not