luatexja (30jul17)

git-svn-id: svn://tug.org/texlive/trunk@44924 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 32 insertions, 0 deletions

diff --git a/Master/texmf-dist/source/luatex/luatexja/tool/table_ivd_aj1.lua b/Master/texmf-dist/source/luatex/luatexja/tool/table_ivd_aj1.lua
new file mode 100644
index 00000000000..cf898a47b21
--- /dev/null
+++ b/Master/texmf-dist/source/luatex/luatexja/tool/table_ivd_aj1.lua
@@ -0,0 +1,32 @@
+print([[
+return {
+version = 2,
+table_ivd_aj1 = {]])
+
+local f = io.open('IVD_Sequences.txt')
+local t, maxcid = {}, 0
+local s = f:read()
+while s do
+    if s:match('#') then
+	print('-- ' .. s)
+    elseif s:match('Adobe.Japan.') then
+	local c1,c2,c3 = s:match('(%x+)%s+(%x+);%s+Adobe.Japan.;%s+CID%+(%d+)')
+	c1, c2, c3 = tonumber(c1, 16), tonumber(c2, 16), tonumber(c3)
+	if c2 and c2>=0xE0100 then
+	    c2 = c2 - 0xE00FF
+	    if maxcid<c3 then maxcid = c3 end
+	    t[c3] = c2*0x200000+c1
+	end
+    end
+    s = f:read()
+end
+f:close()
+
+for i=1,maxcid do
+    print(' ' .. tostring(t[i] or false) .. ',')
+end
+
+
+-- ( echo 'luatexja.otf.ivd_aj1 = {' ; grep 'Adobe-Japan1' IVD_Sequences.txt|sed 's/\([0-9A-F][0-9A-F]*\) \([0-9A-F][0-9A-F]*\)\;.*CID.\([0-9][0-9]*\)$/[\3]=\{0x\1,0x\2\},/' ; echo '}' )
+print([[}}]])
+
diff --git a/Master/texmf-dist/source/luatex/luatexja/tool/jisx0208table.tex b/Master/texmf-dist/source/luatex/luatexja/tool/table_jisx0208.lua
index f3de6b982ec..f3de6b982ec 100644
--- a/Master/texmf-dist/source/luatex/luatexja/tool/jisx0208table.tex
+++ b/Master/texmf-dist/source/luatex/luatexja/tool/table_jisx0208.lua