From ab0137d0a3f9f8fc686c8804fb910eb99ca9cd75 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 30 Jul 2017 22:20:15 +0000 Subject: luatexja (30jul17) git-svn-id: svn://tug.org/texlive/trunk@44924 c570f23f-e606-0410-a88d-b1316a301751 --- .../source/luatex/luatexja/tool/jisx0208table.tex | 112 --------------------- .../source/luatex/luatexja/tool/table_ivd_aj1.lua | 32 ++++++ .../source/luatex/luatexja/tool/table_jisx0208.lua | 112 +++++++++++++++++++++ 3 files changed, 144 insertions(+), 112 deletions(-) delete mode 100644 Master/texmf-dist/source/luatex/luatexja/tool/jisx0208table.tex create mode 100644 Master/texmf-dist/source/luatex/luatexja/tool/table_ivd_aj1.lua create mode 100644 Master/texmf-dist/source/luatex/luatexja/tool/table_jisx0208.lua (limited to 'Master/texmf-dist/source') diff --git a/Master/texmf-dist/source/luatex/luatexja/tool/jisx0208table.tex b/Master/texmf-dist/source/luatex/luatexja/tool/jisx0208table.tex deleted file mode 100644 index f3de6b982ec..00000000000 --- a/Master/texmf-dist/source/luatex/luatexja/tool/jisx0208table.tex +++ /dev/null @@ -1,112 +0,0 @@ -%#! euptex -% cat jisx0208table.log | tr -s '\n' > ../src/luatexja/jisx0208.lua -% の後,少々修正 -\catcode`\!=1 -\catcode`\?=2 - -\catcode`@11 -\def\@firstoftwo#1#2{#1} -\def\@secondoftwo#1#2{#2} -\def\ifnumcomp#1#2#3{% - \ifnum\numexpr#1\relax#2\numexpr#3\relax - \expandafter\@firstoftwo - \else - \expandafter\@secondoftwo - \fi -} -\def\truncdiv#1#2{% - \ifnumcomp{#1}<{(#1)/(#2)*(#2)}{% - \numexpr(#1)/(#2)-1% - }{% - \numexpr(#1)/(#2)% - }% -} -\def\hex#1{% - \ifnumcomp{#1}<0{}{\hn@i{#1}{}}% -} -\def\hn@i#1#2{% - \ifnumcomp{#1}<{16} - {% - \hn@digit{#1}#2% - }{% - \expandafter\hn@ii\expandafter{% - \the\numexpr\truncdiv{#1}{16}% - }{#1}{#2}% - }% -} -\def\hn@ii#1#2#3{% - \expandafter\hn@i\expandafter{% - \number\numexpr#1\expandafter\expandafter\expandafter - \expandafter\expandafter\expandafter\expandafter}% - \expandafter\expandafter\expandafter\expandafter - \expandafter\expandafter\expandafter{% - \hn@digit{(#2)-16*(#1)}#3}% -} -\begingroup -\catcode`012\catcode`112\catcode`212\catcode`312\catcode`412 -\catcode`512\catcode`612\catcode`712\catcode`812\catcode`912 -\catcode`A12\catcode`B12\catcode`C12\catcode`D12\catcode`E12 -\catcode`F12 -\gdef\hn@digit#1{% - \ifcase\numexpr#1\relax 0% - \or \expandafter 1% - \or \expandafter 2% - \or \expandafter 3% - \or \expandafter 4% - \or \expandafter 5% - \or \expandafter 6% - \or \expandafter 7% - \or \expandafter 8% - \or \expandafter 9% - \or \expandafter A% - \or \expandafter B% - \or \expandafter C% - \or \expandafter D% - \or \expandafter E% - \or \expandafter F% - \fi -} -\endgroup - - -\catcode`\{=12 -\catcode`\}=12 -\def\folio!? - -\newcount\ku -\newcount\ten -\newcount\tmp -\newcount\tmpa -\newcount\tmpb -\font\tt=cmtt10 at 10pt\tt\baselineskip=12pt\parindent=0pt\parskip=0pt - -\catcode`\_=12 -\message!^^Jluatexbase.provides_module({? -\message!^^J name = 'luatexja.jisx0208'})? -\message!^^Jmodule('luatexja.jisx0208', package.seeall)? -\message!^^Jtable_jisx0208_uptex = {? - -\ku=1 -\loop - \tmp=\ku \multiply\tmp"100 \advance\tmp"2020 %" - ! \ten=1 - \loop - \advance\tmp1 - \tmpa=\jis\tmp \tmpb=\tmp\advance\tmpb-"2020%" - \ifnum\tmpa=0\else - \ifnum\tmpa>256 - \kansujichar1=\tmpa - \message!^^J [0x\hex\tmpb] = 0x\hex\tmpa, --(\kansuji1)? - \else - \message!^^J [0x\hex\tmpb] = 0x\hex\tmpa, ? - \fi - \fi - \advance\ten 1 - \ifnum\ten<95\relax\repeat - ? - \advance\ku 1 -\ifnum\ku<95\relax\repeat - -\message!^^J}? - -\end 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 ../src/luatexja/jisx0208.lua +% の後,少々修正 +\catcode`\!=1 +\catcode`\?=2 + +\catcode`@11 +\def\@firstoftwo#1#2{#1} +\def\@secondoftwo#1#2{#2} +\def\ifnumcomp#1#2#3{% + \ifnum\numexpr#1\relax#2\numexpr#3\relax + \expandafter\@firstoftwo + \else + \expandafter\@secondoftwo + \fi +} +\def\truncdiv#1#2{% + \ifnumcomp{#1}<{(#1)/(#2)*(#2)}{% + \numexpr(#1)/(#2)-1% + }{% + \numexpr(#1)/(#2)% + }% +} +\def\hex#1{% + \ifnumcomp{#1}<0{}{\hn@i{#1}{}}% +} +\def\hn@i#1#2{% + \ifnumcomp{#1}<{16} + {% + \hn@digit{#1}#2% + }{% + \expandafter\hn@ii\expandafter{% + \the\numexpr\truncdiv{#1}{16}% + }{#1}{#2}% + }% +} +\def\hn@ii#1#2#3{% + \expandafter\hn@i\expandafter{% + \number\numexpr#1\expandafter\expandafter\expandafter + \expandafter\expandafter\expandafter\expandafter}% + \expandafter\expandafter\expandafter\expandafter + \expandafter\expandafter\expandafter{% + \hn@digit{(#2)-16*(#1)}#3}% +} +\begingroup +\catcode`012\catcode`112\catcode`212\catcode`312\catcode`412 +\catcode`512\catcode`612\catcode`712\catcode`812\catcode`912 +\catcode`A12\catcode`B12\catcode`C12\catcode`D12\catcode`E12 +\catcode`F12 +\gdef\hn@digit#1{% + \ifcase\numexpr#1\relax 0% + \or \expandafter 1% + \or \expandafter 2% + \or \expandafter 3% + \or \expandafter 4% + \or \expandafter 5% + \or \expandafter 6% + \or \expandafter 7% + \or \expandafter 8% + \or \expandafter 9% + \or \expandafter A% + \or \expandafter B% + \or \expandafter C% + \or \expandafter D% + \or \expandafter E% + \or \expandafter F% + \fi +} +\endgroup + + +\catcode`\{=12 +\catcode`\}=12 +\def\folio!? + +\newcount\ku +\newcount\ten +\newcount\tmp +\newcount\tmpa +\newcount\tmpb +\font\tt=cmtt10 at 10pt\tt\baselineskip=12pt\parindent=0pt\parskip=0pt + +\catcode`\_=12 +\message!^^Jluatexbase.provides_module({? +\message!^^J name = 'luatexja.jisx0208'})? +\message!^^Jmodule('luatexja.jisx0208', package.seeall)? +\message!^^Jtable_jisx0208_uptex = {? + +\ku=1 +\loop + \tmp=\ku \multiply\tmp"100 \advance\tmp"2020 %" + ! \ten=1 + \loop + \advance\tmp1 + \tmpa=\jis\tmp \tmpb=\tmp\advance\tmpb-"2020%" + \ifnum\tmpa=0\else + \ifnum\tmpa>256 + \kansujichar1=\tmpa + \message!^^J [0x\hex\tmpb] = 0x\hex\tmpa, --(\kansuji1)? + \else + \message!^^J [0x\hex\tmpb] = 0x\hex\tmpa, ? + \fi + \fi + \advance\ten 1 + \ifnum\ten<95\relax\repeat + ? + \advance\ku 1 +\ifnum\ku<95\relax\repeat + +\message!^^J}? + +\end -- cgit v1.2.3