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

First working XMp setter

This commit is contained in:
John Whitington 2019-06-28 17:02:59 +01:00
parent d90cddecd1
commit 2a72b0995b
1 changed files with 22 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
cpdf.ml
View File

@ -3381,10 +3381,19 @@ 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 = match value with Pdf.String s -> s | _ -> failwith "set_pdf_info_xml: not a string" in let str = match value with Pdf.String s -> s | _ -> 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)
let set_pdf_info_xml_many only_when_present changes value xmldata pdf =
let xmldata = ref xmldata in
List.iter
(fun (kind, fieldname) ->
xmldata := set_pdf_info_xml only_when_present kind fieldname value !xmldata pdf)
changes;
!xmldata
(* \section{Set an entry in the /Info dictionary} *) (* \section{Set an entry in the /Info dictionary} *)
let set_pdf_info ?(xmp_also=false) ?(xmp_also_when_present=false) ?(xmp_just_set=false) (key, value, version) pdf = let set_pdf_info ?(xmp_also=false) ?(xmp_also_when_present=false) ?(xmp_just_set=false) (key, value, version) pdf =
let infodict = let infodict =
@ -3405,13 +3414,23 @@ let set_pdf_info ?(xmp_also=false) ?(xmp_also_when_present=false) ?(xmp_just_set
begin match get_metadata pdf with begin match get_metadata pdf with
None -> pdf None -> pdf
| Some xmldata -> | Some xmldata ->
let kind, fieldname = let changes =
dc, "title" match key with
| "/Producer" -> [(adobe, "Producer")]
| "/Creator" -> [(adobe, "Creator"); (xmp, "CreatorTool"); (dc, "creator")]
| "/Author" -> [(adobe, "Author")]
| "/Title" -> [(adobe, "Title"); (dc, "title")]
| "/Subject" -> [(adobe, "Subject"); (dc, "subject")]
| "/Keywords" -> [(adobe, "Keywords")]
| "/CreationDate" -> [(adobe, "CreationDate"); (xmp, "CreateDate")] (* FIXME Fudge date format *)
| "/ModDate" -> [(adobe, "ModDate"); (xmp, "ModifyDate")] (* FIXME Fudge date format *)
| "/Trapped" -> [(adobe, "Trapped")]
| _ -> failwith "Unknown call to set_pdf_info"
in in
let pdf = let pdf =
set_metadata_from_bytes set_metadata_from_bytes
true true
(set_pdf_info_xml xmp_also_when_present kind fieldname value xmldata pdf) (set_pdf_info_xml_many xmp_also_when_present changes value xmldata pdf)
pdf pdf
in in
pdf pdf