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