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

Re-instated octal escape sequences when -raw is used for -set-title etc.

This commit is contained in:
John Whitington 2014-01-14 13:35:20 +00:00
parent bda4cfbb79
commit 0dd958c95b
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
cpdf.ml
View File

@ -881,6 +881,7 @@ let set_viewer_preference (key, value, version) pdf =
(* \section{Set an entry in the /Info dictionary} *)
let set_pdf_info (key, value, version) pdf =
Printf.printf "set_pdf_info: %s %s\n" key (Pdfwrite.string_of_pdf value);
let infodict =
match Pdf.lookup_direct pdf "/Info" pdf.Pdf.trailerdict with
| Some d -> d

16
cpdfcommand.ml
View File

@ -2684,7 +2684,18 @@ let addrectangle (w, h) color position relative_to_cropbox underneath range pdf
in
Cpdf.process_pages addrectangle_page pdf range
(* Main function *)
let rec unescape_octals prev = function
| [] -> rev prev
| '\\'::('0'..'9' as a)::('0'..'9' as b)::('0'..'9' as c)::t ->
let chr = char_of_int (int_of_string ("0o" ^ implode [a;b;c])) in
unescape_octals (chr::prev) t
| '\\'::'\\'::t -> unescape_octals ('\\'::prev) t
| h::t -> unescape_octals (h::prev) t
let unescape_octals s =
implode (unescape_octals [] (explode s))
(* Main function *)
let go () =
match args.op with
| Some Version ->
@ -2965,8 +2976,9 @@ let go () =
| Some ((SetAuthor _ | SetTitle _ | SetSubject _ | SetKeywords _
| SetCreate _ | SetModify _ | SetCreator _ | SetProducer _
| SetTrapped | SetUntrapped) as op) ->
flprint "a set operation\n";
let key, value, version =
let f s = if args.encoding <> Cpdf.Raw then Pdftext.pdfdocstring_of_utf8 s else s in
let f s = if args.encoding <> Cpdf.Raw then Pdftext.pdfdocstring_of_utf8 s else unescape_octals s in
match op with
| SetAuthor s -> "/Author", Pdf.String (f s), 0
| SetTitle s -> "/Title", Pdf.String (f s), 1