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

Fix (1, 0) cmap

This commit is contained in:
John Whitington 2023-07-05 13:22:25 +01:00
parent fff1c96037
commit 0628cb0251
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdftruetype.ml
View File

@ -322,7 +322,7 @@ let write_cmap_table subset cmap bs =
putval bs 16 0l; (* table version number *) putval bs 16 0l; (* table version number *)
putval bs 16 1l; (* number of encoding tables *) putval bs 16 1l; (* number of encoding tables *)
putval bs 16 1l; (* platform ID *) putval bs 16 1l; (* platform ID *)
putval bs 16 1l; (* platform encoding ID *) putval bs 16 0l; (* platform encoding ID *)
putval bs 32 12l; (* subtable offset = 12 bytes from beginning of table *) putval bs 32 12l; (* subtable offset = 12 bytes from beginning of table *)
putval bs 16 6l; (* Table format 6 *) putval bs 16 6l; (* Table format 6 *)
putval bs 16 (i32ofi (10 + 2 * length glyphindexes)); (* subtable length *) putval bs 16 (i32ofi (10 + 2 * length glyphindexes)); (* subtable length *)
@ -518,10 +518,11 @@ let write_font filename data =
close_out fh close_out fh
let find_main encoding subset = let find_main encoding subset =
let encoding_table = Pdftext.table_of_encoding encoding in cleave subset 3
(*let encoding_table = Pdftext.table_of_encoding encoding in
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*)
let parse ?(subset=[]) data encoding = let parse ?(subset=[]) data encoding =
if !dbg then if !dbg then