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 2022-10-05 15:10:07 +01:00
parent 879ac16bbb
commit 09f6c28032
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
cpdftruetype.ml
View File

@ -46,18 +46,17 @@ CMapName currentdict /CMap defineresource pop\n\
end\n\ end\n\
end\n" end\n"
let tounicode_map (s : int) (us : int list) = let tounicode_map s us =
let b = Buffer.create 1024 in let b = Buffer.create 1024 in
let s = ref s in let s = ref s in
Buffer.add_string b tounicode_preamble;
Buffer.add_string b (Printf.sprintf "%i beginbfrange\n" (length us)); Buffer.add_string b (Printf.sprintf "%i beginbfrange\n" (length us));
iter iter
(fun u -> Buffer.add_string b (Printf.sprintf "<%02x><%02x><%04x>" !s !s u); (fun u -> Buffer.add_string b (Printf.sprintf "<%02x><%02x><%04x>" !s !s u);
s := !s + 1) s := !s + 1)
us; us;
Buffer.contents b Buffer.add_string b tounicode_postamble;
bytes_of_string (Buffer.contents b)
let tounicode s us =
bytes_of_string (tounicode_preamble ^ tounicode_map s us ^ tounicode_postamble)
let required_tables = let required_tables =
["head"; "hhea"; "loca"; "cmap"; "maxp"; "cvt "; "glyf"; "prep"; "hmtx"; "fpgm"] ["head"; "hhea"; "loca"; "cmap"; "maxp"; "cvt "; "glyf"; "prep"; "hmtx"; "fpgm"]
@ -192,6 +191,9 @@ let write_loca_table subset cmap indexToLocFormat bs arr =
| _ -> raise (Pdf.PDFError "Unknown indexToLocFormat in write_loca_table")) | _ -> raise (Pdf.PDFError "Unknown indexToLocFormat in write_loca_table"))
arr arr
let write_glyf_table subset cmap bs =
()
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;
@ -335,9 +337,11 @@ let remove_unneeded_tables major minor tables indexToLocFormat subset encoding c
Array.iter Array.iter
(fun (tag, _, _, _) -> (fun (tag, _, _, _) ->
if !dbg then Printf.printf "Writing %s table\n" (string_of_tag tag); if !dbg then Printf.printf "Writing %s table\n" (string_of_tag tag);
(*if string_of_tag tag = "loca" then if string_of_tag tag = "loca" then
write_loca_table subset cmap indexToLocFormat bs loca write_loca_table subset cmap indexToLocFormat bs loca
else*) else if string_of_tag tag = "glyf" then
write_glyf_table subset cmap bs
else
match findtag tag with match findtag tag with
| (og_off, Some len) -> | (og_off, Some len) ->
let b = mk_b (i32toi og_off) in let b = mk_b (i32toi og_off) in