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

Debug font

This commit is contained in:
John Whitington 2023-06-13 21:02:50 +01:00
parent 411aaa6a71
commit 7e27138211
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdftruetype.ml
View File

@ -451,6 +451,11 @@ let subset_font major minor tables indexToLocFormat subset encoding cmap loca mk
let _ =
Pdfe.logger := (fun s -> print_string s; flush stdout)
let write_font filename data =
let fh = open_out_bin filename in
output_string fh (Pdfio.string_of_bytes data);
close_out fh
let parse ?(subset=[]) data encoding =
if !dbg then
begin
@ -624,6 +629,8 @@ let parse ?(subset=[]) data encoding =
in
Printf.printf "\nMain subset:\n";
debug_t one;
write_font "one.ttf" one.subset_fontfile;
Printf.printf "\nHigher subset:\n";
debug_t two;
write_font "two.ttf" two.subset_fontfile;
[one; two]