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

Octal digits go 0..7 not 0..9!

Browse Source
This commit is contained in:
John Whitington
2015-05-31 15:10:48 +01:00
parent 26378caeff
commit 25668ecfe8
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
cpdf.ml
View File

@@ -1698,7 +1698,7 @@ let split_at_newline t =
let rec unescape_chars prev = function let rec unescape_chars prev = function
| [] -> rev prev | [] -> rev prev
| '\\'::('0'..'9' as a)::('0'..'9' as b)::('0'..'9' as c)::t -> | '\\'::('0'..'7' as a)::('0'..'7' as b)::('0'..'7' as c)::t ->
let chr = char_of_int (int_of_string ("0o" ^ implode [a;b;c])) in let chr = char_of_int (int_of_string ("0o" ^ implode [a;b;c])) in
unescape_chars (chr::prev) t unescape_chars (chr::prev) t
| '\\'::'\\'::t -> unescape_chars ('\\'::prev) t | '\\'::'\\'::t -> unescape_chars ('\\'::prev) t