mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-05-23 14:04:37 +02:00
Adds Wmode check
This commit is contained in:
parent
84f9e24c75
commit
22928a541d
10
cpdfua.ml
10
cpdfua.ml
@ -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,
|
||||||
|
Loading…
x
Reference in New Issue
Block a user