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

Booleans for trapped and untrapped

Browse Source
This commit is contained in:
John Whitington
2019-06-28 18:05:55 +01:00
parent 2a72b0995b
commit c55bd10d11
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
cpdf.ml
View File

@@ -3381,8 +3381,13 @@ let rec set_xml_field only_when_present kind fieldname value = function
let set_pdf_info_xml only_when_present kind fieldname value xmldata pdf = let set_pdf_info_xml only_when_present kind fieldname value xmldata pdf =
let dtd, tree = xmltree_of_bytes xmldata in let dtd, tree = xmltree_of_bytes xmldata in
(* FIXME NEED BOOLEANS HERE FOR TRAPPED/UNTRAPPED *) let str =
let str = match value with Pdf.String s -> s | _ -> failwith "set_pdf_info_xml: not a string" in match value with
Pdf.String s -> s
| Pdf.Boolean true -> "True"
| Pdf.Boolean false -> "False"
| _ -> failwith "set_pdf_info_xml: not a string"
in
let newtree = set_xml_field only_when_present kind fieldname str tree in let newtree = set_xml_field only_when_present kind fieldname str tree in
bytes_of_xmltree (dtd, newtree) bytes_of_xmltree (dtd, newtree)