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

First format 4 truetype cmap table correct reads

This commit is contained in:
John Whitington 2023-06-12 16:51:16 +01:00
parent 26473afbe0
commit 117a40c3d6
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cpdftruetype.ml
View File

@ -83,7 +83,7 @@ let read_magic_formula b glyphIndexArrayStart seg segCount ro c sc =
if !dbg then Printf.printf "read_magic_formula: seg = %i, setCount = %i, ro = %i, c = %i, sc = %i\n" seg segCount ro c sc; if !dbg then Printf.printf "read_magic_formula: seg = %i, setCount = %i, ro = %i, c = %i, sc = %i\n" seg segCount ro c sc;
let position = seg - segCount + ro / 2 + (c - sc) in let position = seg - segCount + ro / 2 + (c - sc) in
if !dbg then Printf.printf "position is %i\n" position; if !dbg then Printf.printf "position is %i\n" position;
b.input.seek_in (glyphIndexArrayStart + position); b.input.seek_in (glyphIndexArrayStart + position * 2);
b.bit <- 0; b.bit <- 0;
b.bitsread <- 0; b.bitsread <- 0;
b.currbyte <- 0; b.currbyte <- 0;
@ -129,7 +129,7 @@ let read_format_4_encoding_table b =
Hashtbl.add t c ((c + del) mod 65536) Hashtbl.add t c ((c + del) mod 65536)
else else
begin begin
flprint "format 4 magic required\n"; if !dbg then flprint "format 4 magic required\n";
let v = read_magic_formula b glyphIndexArrayStart seg segCount ro c sc in let v = read_magic_formula b glyphIndexArrayStart seg segCount ro c sc in
if !dbg then Printf.printf "Value %i returned\n" v; if !dbg then Printf.printf "Value %i returned\n" v;
if v = 0 if v = 0
@ -148,15 +148,15 @@ let print_encoding_table format (table : (int, int) Hashtbl.t) =
Hashtbl.add unicodetable x.Cpdfunicodedata.code_value x.Cpdfunicodedata.character_name) Hashtbl.add unicodetable x.Cpdfunicodedata.code_value x.Cpdfunicodedata.character_name)
unicodedata; unicodedata;
let l = sort compare (list_of_hashtbl table) in let l = sort compare (list_of_hashtbl table) in
Printf.printf "Format table %i: There are %i characters in this font\n" format (length l); if !dbg then Printf.printf "Format table %i: There are %i characters in this font\n" format (length l);
iter iter
(fun (c, gi) -> (fun (c, gi) ->
let str = Printf.sprintf "%04X" c in let str = Printf.sprintf "%04X" c in
Printf.printf "Char %s (%s) is at glyph index %i\n" str (try Hashtbl.find unicodetable str with Not_found -> "Not_found") gi) if !dbg then Printf.printf "Char %s (%s) is at glyph index %i\n" str (try Hashtbl.find unicodetable str with Not_found -> "Not_found") gi)
l l
let read_encoding_table fmt length version b = let read_encoding_table fmt length version b =
Printf.printf "********** format %i table has length, version %i, %i\n" fmt length version; if !dbg then Printf.printf "********** format %i table has length, version %i, %i\n" fmt length version;
match fmt with match fmt with
| 0 -> | 0 ->
if !dbg then Printf.printf "read_encoding_table: format 0\n"; if !dbg then Printf.printf "read_encoding_table: format 0\n";