From 84f9e24c7541e851b05512858345ce4d95d82044 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Sat, 22 Feb 2025 13:53:58 +0000
Subject: [PATCH] Implement 31_008

---
 cpdfua.ml | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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