fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adds Wmode check

Browse Source
This commit is contained in:
John Whitington
2025-02-22 15:32:59 +00:00
parent 84f9e24c75
commit 22928a541d
1 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
cpdfua.ml
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,