mirror of
https://github.com/johnwhitington/cpdf-source.git
synced 2025-06-05 22:09:39 +02:00
Delete XML declaration from XMP
This commit is contained in:
@ -314,7 +314,9 @@ let bytes_of_xmltree t =
|
|||||||
| D d -> `Data d
|
| D d -> `Data d
|
||||||
in
|
in
|
||||||
Cpdfxmlm.output_doc_tree frag o t;
|
Cpdfxmlm.output_doc_tree frag o t;
|
||||||
bytes_of_string (Buffer.contents buf)
|
(* Delete the ?xml declaration, per XMP spec. *)
|
||||||
|
let s = Buffer.contents buf in
|
||||||
|
bytes_of_string (String.sub s 39 (String.length s - 39))
|
||||||
|
|
||||||
let rec string_of_xmltree = function
|
let rec string_of_xmltree = function
|
||||||
D d ->
|
D d ->
|
||||||
|
Reference in New Issue
Block a user