summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/luatex/luatexja/tool/table_ivd_aj1.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/luatex/luatexja/tool/table_ivd_aj1.lua')
-rw-r--r--Master/texmf-dist/source/luatex/luatexja/tool/table_ivd_aj1.lua32
1 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([[}}]])
+