mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-06-05 22:09:39 +02:00
Implement 31_008
This commit is contained in:
@@ -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
|
||||||
|
Reference in New Issue
Block a user