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

Ready to add write_cmap

This commit is contained in:
John Whitington 2023-06-22 15:48:38 +01:00
parent 1c8ee8623a
commit b8a42f5901
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
cpdftruetype.ml
View File

@ -4,7 +4,7 @@ open Pdfio
(* FIXME No need for bitstream - everything is byte based, so we can use a normal input *) (* FIXME No need for bitstream - everything is byte based, so we can use a normal input *)
let dbg = ref false let dbg = ref true
type t = type t =
{flags : int; {flags : int;
@ -260,6 +260,9 @@ let write_glyf_table subset cmap bs mk_b glyfoffset loca =
for x = 1 to padding do putval bs 8 0l done; for x = 1 to padding do putval bs 8 0l done;
len len
let write_cmap_table subset cmap bs =
0l
let read_os2_table unitsPerEm b blength = let read_os2_table unitsPerEm b blength =
let version = read_ushort b in let version = read_ushort b in
if !dbg then Printf.printf "OS/2 table blength = %i bytes, version number = %i\n" blength version; if !dbg then Printf.printf "OS/2 table blength = %i bytes, version number = %i\n" blength version;
@ -369,6 +372,7 @@ let subset_font major minor tables indexToLocFormat subset encoding cmap loca mk
(* 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
let cmap_table_size_reduction = ref 0l in
let newtables = let newtables =
Array.of_list Array.of_list
(map (map
@ -381,12 +385,23 @@ let subset_font major minor tables indexToLocFormat subset encoding cmap loca mk
if !dbg then Printf.printf "new glyf table length = %li\n" newlen; if !dbg then Printf.printf "new glyf table length = %li\n" newlen;
glyf_table_size_reduction := i32sub (padword ttlength) paddedlen; glyf_table_size_reduction := i32sub (padword ttlength) paddedlen;
newlen newlen
else ttlength else if string_of_tag tag = "cmap" && subset <> [] then
let bs = make_write_bitstream () in
let newlen = write_cmap_table subset cmap bs in
let paddedlen = i32ofi (bytes_size (bytes_of_write_bitstream bs)) in
if !dbg then Printf.printf "new cmap table length = %li\n" newlen;
cmap_table_size_reduction := i32sub (padword ttlength) paddedlen;
newlen
else
ttlength
in in
(* Don't reduce by a table size reduction we have just set, but otherwise do. *)
let offset' = let offset' =
i32sub i32sub
(i32sub offset header_size_reduction) (i32sub offset header_size_reduction)
(if string_of_tag tag = "glyf" then 0l else !glyf_table_size_reduction) (if string_of_tag tag = "glyf" then !cmap_table_size_reduction else
if string_of_tag tag = "cmap" then !glyf_table_size_reduction else
i32add !cmap_table_size_reduction !glyf_table_size_reduction)
in in
(tag, checksum, offset', ttlength)) (tag, checksum, offset', ttlength))
(rev !tablesout)) (rev !tablesout))