Restore proper font cleaving

This commit is contained in:
John Whitington 2023-07-13 16:26:05 +01:00
parent bdc9d8e239
commit 126b10bd61
1 changed files with 2 additions and 3 deletions

View File

@ -496,14 +496,13 @@ let write_font filename data =
close_out fh close_out fh
let find_main encoding subset = let find_main encoding subset =
(take subset 5, [drop subset 5]) let encoding_table = Pdftext.table_of_encoding encoding in
(*let encoding_table = Pdftext.table_of_encoding encoding in
let first, rest = let first, rest =
List.partition List.partition
(fun u -> try ignore (Hashtbl.find encoding_table u); true with Not_found -> false) (fun u -> try ignore (Hashtbl.find encoding_table u); true with Not_found -> false)
subset subset
in in
(first, splitinto 224 rest)*) (first, splitinto 224 rest)
let parse ~subset data encoding = let parse ~subset data encoding =
let mk_b byte_offset = bitbytes_of_input (let i = input_of_bytes data in i.seek_in byte_offset; i) in let mk_b byte_offset = bitbytes_of_input (let i = input_of_bytes data in i.seek_in byte_offset; i) in