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

more

This commit is contained in:
John Whitington 2023-07-04 15:58:38 +01:00
parent 595417f2e4
commit 300a2c504b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cpdftruetype.ml
View File

@ -386,10 +386,12 @@ let subset_font major minor tables indexToLocFormat subset encoding cmap loca mk
(fun i (tag, checkSum, offset, ttlength) -> (fun i (tag, checkSum, offset, ttlength) ->
if !dbg then Printf.printf "tag = %li = %s, offset = %li\n" tag (string_of_tag tag) offset; if !dbg then Printf.printf "tag = %li = %s, offset = %li\n" tag (string_of_tag tag) offset;
if mem (string_of_tag tag) required_tables then if mem (string_of_tag tag) required_tables then
tablesout := (tag, checkSum, i32sub offset !cut, ttlength)::!tablesout tablesout := (tag, checkSum, i32sub offset !cut, ttlength)::!tablesout
else else
cut := i32add !cut (match tables.(i + 1) with (_, _, offset', _) -> i32sub offset' offset)) if i < Array.length tables - 1 then
cut := i32add !cut (match tables.(i + 1) with (_, _, offset', _) -> i32sub offset' offset))
tables; tables;
Printf.printf "*********** after iteri\n";
(* Reduce offsets by the reduction in header table size *) (* Reduce offsets by the reduction in header table size *)
let header_size_reduction = i32ofi (16 * (Array.length tables - length !tablesout)) in let header_size_reduction = i32ofi (16 * (Array.length tables - length !tablesout)) in
let glyf_table_size_reduction = ref 0l in let glyf_table_size_reduction = ref 0l in