fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Two small fixes

This commit is contained in:
John Whitington 2024-06-26 15:12:20 +01:00
parent 165d36872d
commit ab7073cad8
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
cpdfua.ml
View File

@ -498,8 +498,10 @@ let matterhorn_20_001 _ _ pdf =
Content Configuration Dictionary that is the value of the D entry in the
OCProperties entry in the Catalog dictionary. *)
let matterhorn_20_002 _ _ pdf =
match Pdf.lookup_chain pdf pdf.Pdf.trailerdict ["/Root"; "/OCProperties"; "/D"; "/Name"] with
| Some (Pdf.String "") | None -> merror ()
match Pdf.lookup_chain pdf pdf.Pdf.trailerdict ["/Root"; "/OCProperties"; "/D"],
Pdf.lookup_chain pdf pdf.Pdf.trailerdict ["/Root"; "/OCProperties"; "/D"; "/Name"]
with
| Some _, (Some (Pdf.String "") | None) -> merror ()
| _ -> ()
(* An AS entry appears in an Optional Content Configuration Dictionary. *)
@ -793,9 +795,9 @@ let matterhorn_31_004 _ _ pdf =
(fun _ n ->
match Pdf.lookup_direct pdf "/Subtype" n with
| Some (Pdf.Name "/CIDFontType2") ->
begin match Pdf.lookup_direct pdf "/CIDtoGIDMap" n with
begin match Pdf.lookup_direct pdf "/CIDToGIDMap" n with
| Some (Pdf.Name "/Identity" | Pdf.Stream _) -> ()
| _ -> merror ()
| _ -> merror_str (Pdfwrite.string_of_pdf n)
end
| _ -> ())
pdf
@ -806,7 +808,7 @@ let matterhorn_31_005 _ _ pdf =
(fun _ n ->
match Pdf.lookup_direct pdf "/Subtype" n with
| Some (Pdf.Name "/CIDFontType2") ->
begin match Pdf.lookup_direct pdf "/CIDtoGIDMap" n with
begin match Pdf.lookup_direct pdf "/CIDToGIDMap" n with
| Some _ -> ()
| _ -> merror ()
end