more
This commit is contained in:
parent
dda96864a6
commit
a83b004cee
|
@ -538,7 +538,9 @@ let parse ?(subset=[]) data encoding =
|
||||||
let second_tounicode =
|
let second_tounicode =
|
||||||
if subset = [] then None else
|
if subset = [] then None else
|
||||||
let h = null_hash () in
|
let h = null_hash () in
|
||||||
Hashtbl.add h 0 (string_of_int (hd subset));
|
let s = (implode (tl (tl (explode (Pdftext.utf16be_of_codepoints [hd subset]))))) in
|
||||||
|
Printf.printf "String for tounicode = %S\n" s;
|
||||||
|
Hashtbl.add h 0 s;
|
||||||
Some h
|
Some h
|
||||||
in
|
in
|
||||||
[{flags; minx; miny; maxx; maxy; italicangle; ascent; descent;
|
[{flags; minx; miny; maxx; maxy; italicangle; ascent; descent;
|
||||||
|
|
Loading…
Reference in New Issue