summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/jfontmaps/jis04cmap_exp/cmapdec.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/jfontmaps/jis04cmap_exp/cmapdec.lua')
-rw-r--r--Master/texmf-dist/source/jfontmaps/jis04cmap_exp/cmapdec.lua54
1 files changed, 0 insertions, 54 deletions
diff --git a/Master/texmf-dist/source/jfontmaps/jis04cmap_exp/cmapdec.lua b/Master/texmf-dist/source/jfontmaps/jis04cmap_exp/cmapdec.lua
deleted file mode 100644
index 3438b1f9e61..00000000000
--- a/Master/texmf-dist/source/jfontmaps/jis04cmap_exp/cmapdec.lua
+++ /dev/null
@@ -1,54 +0,0 @@
-local line, fh -- line, file handler
-local tt -- 作業用 table
-
-local function load_cid_char()
- local cid, ucs, ucsa
- line = fh:read("*l")
- while line do
- if string.find(line, "end...?char") then
- line = fh:read("*l"); return
- else -- WMA l is in the form "<%x+>%s%d+"
- ucs, cid = string.match(line, "<(%x+)>%s+<?(%x+)>?")
- cid = tonumber(cid); ucs = tonumber(ucs, 16);
- tt[ucs] = cid
- end
- line = fh:read("*l")
- end
-end
-
-local function load_cid_range()
- local bucs, eucs, cid
- line = fh:read("*l")
- while line do
- if string.find(line, "end...?range") then
- line = fh:read("*l"); return
- else -- WMA l is in the form "<%x+>%s+<%x+>"
- bucs, eucs, cid = string.match(line, "<(%x+)>%s+<(%x+)>%s+<?(%x+)>?")
- cid = tonumber(cid);
- bucs = tonumber(bucs, 16); eucs = tonumber(eucs, 16)
- for ucs = bucs, eucs do
- tt[ucs], cid = cid, cid + 1
- end
- end
- line = fh:read("*l")
- end
- end
-
-local function open_cmap_file(cmap_name, out_table)
- fh = io.open(kpse.find_file(cmap_name, 'cmap files'), "r")
- if not out_table then tt = {} else tt = out_table end
- line = fh:read("*l")
- while line do
- if string.find(line, "%x+%s+begin...?char") then
- load_cid_char()
- elseif string.find(line, "%x+%s+begin...?range") then
- load_cid_range()
- else
- line = fh:read("*l")
- end
- end
- fh:close();
- return tt
-end
-
-return { open_cmap_file = open_cmap_file }; \ No newline at end of file