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

Better replace

This commit is contained in:
John Whitington 2017-05-28 19:45:02 +01:00
parent 645be7b342
commit 8e90da9c62
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cpdf.ml
View File

@ -1170,10 +1170,10 @@ let remove_metadata pdf =
(* List the bookmarks, optionally deunicoding the text, in the given range to the given output *) (* List the bookmarks, optionally deunicoding the text, in the given range to the given output *)
let list_bookmarks encoding range pdf output = let list_bookmarks encoding range pdf output =
let process_string s = let process_string s =
let rec replace c cs = function let rec replace c x y = function
| [] -> [] | [] -> []
| h::t when h = c -> cs @ replace c cs t | h::t when h = c -> x::y::replace c x y t
| h::t -> h::replace c cs t | h::t -> h::replace c x y t
in in
(* Convert to UTF8, raw, or stripped, and escape backslashed and quotation marks *) (* Convert to UTF8, raw, or stripped, and escape backslashed and quotation marks *)
let codepoints = Pdftext.codepoints_of_pdfdocstring s in let codepoints = Pdftext.codepoints_of_pdfdocstring s in
@ -1182,7 +1182,7 @@ let list_bookmarks encoding range pdf output =
and nl = int_of_char '\n' and nl = int_of_char '\n'
and n = int_of_char 'n' and n = int_of_char 'n'
and q = int_of_char '\"' in and q = int_of_char '\"' in
replace bs [bs; bs] (replace nl [bs; n] (replace q [bs; q] codepoints)) replace bs bs bs (replace nl bs n (replace q bs q codepoints))
in in
match encoding with match encoding with
| UTF8 -> Pdftext.utf8_of_codepoints escaped | UTF8 -> Pdftext.utf8_of_codepoints escaped