This commit is contained in:
John Whitington 2022-10-20 17:16:59 +01:00
parent dda96864a6
commit a83b004cee
1 changed files with 3 additions and 1 deletions

View File

@ -538,7 +538,9 @@ let parse ?(subset=[]) data encoding =
let second_tounicode =
if subset = [] then None else
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
in
[{flags; minx; miny; maxx; maxy; italicangle; ascent; descent;