From 879ac16bbb8a3a2fcd0fd806004e6869692600d1 Mon Sep 17 00:00:00 2001 From: John Whitington Date: Tue, 4 Oct 2022 22:19:56 +0100 Subject: [PATCH] more --- cpdfembed.ml | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/cpdfembed.ml b/cpdfembed.ml index 99e879c..bbd9099 100644 --- a/cpdfembed.ml +++ b/cpdfembed.ml @@ -1,24 +1,6 @@ (* Embed a font *) open Pdfutil -(* For the first stage of our embedder, we are only allowing Latin, and we don't actually subset. - a) Get a list of Unicode codepoints; - b) See which of them are in the glyph list; - c) See which of those are in (StdEncoding|MacRomanEncoding|WinAnsiEncoding), and get their codes; - d) Build a font to do just those; - (* FUTURE *) - 2) Allow characters not in the standard encodings by builing one or more secondary subsets *) - -(*let () = - iter - (fun u -> - Printf.printf "unicode %i --> " u; - let glyphname = Hashtbl.find glyphlist_table [u] in - Printf.printf "glyph name %s --> " glyphname; - let pdfcode = Hashtbl.find encoding_table glyphname in - Printf.printf "pdf code %i\n" pdfcode) - unicodepoints *) - let pdfcode_of_unicode_codepoint encoding_table glyphlist_table u = try Some (Hashtbl.find encoding_table (Hashtbl.find glyphlist_table [u]))