Adds Wmode check

This commit is contained in:
John Whitington 2025-02-22 15:32:59 +00:00
parent 84f9e24c75
commit 22928a541d

View File

@ -1189,12 +1189,10 @@ the CMap stream. *)
let matterhorn_31_007 _ _ pdf = let matterhorn_31_007 _ _ pdf =
Pdf.objiter Pdf.objiter
(fun _ o -> (fun _ o ->
(* 1. Locate all places a CMap dictionary can be *) match Pdf.lookup_direct pdf "/WMode" o with
(* 2. Get at the CMap and read the wmode *) | Some (Pdf.Integer fromdict) ->
(* 3. Read the wmode from the cmap dictionary *) if (Pdfcmap.parse_cmap pdf o).wmode <> Some fromdict then merror ()
(* 4. Whinge if different. *) | _ -> ())
()
)
pdf pdf
(* A CMap references another CMap which is not listed in ISO 32000-1:2008, (* A CMap references another CMap which is not listed in ISO 32000-1:2008,