X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fluatexja-compat.sty;h=e066ad3cc9ac178d8172e41ec0fc47b7178d130f;hb=bbcc9c674d3626fe2c647661c7c0d8da1b2b5980;hp=69a86228a648c945db606ba1765508357759b69c;hpb=db4040785dc098cffe603fd6c02b1d084e6b2575;p=luatex-ja%2Fluatexja.git

diff --git a/src/luatexja-compat.sty b/src/luatexja-compat.sty
index 69a8622..e066ad3 100644
--- a/src/luatexja-compat.sty
+++ b/src/luatexja-compat.sty
@@ -96,13 +96,62 @@
 \expandafter\endinput\fi\relax
 
 %% Load Lua modules.
-\RequireLuaModule{luatexja.infomute}
+%\RequireLuaModule{luatexja.infomute}
+% not yet implemented.
 
 %% Silence info messages of luatexbase-mcb
-\directlua{ luatexja.infomute.add_mute("luatexbase-mcb") }
+%\directlua{ luatexja.infomute.add_mute("luatexbase-mcb") }
+% not yet implemented.
 
 %%------------------
 %! これ以降に LuaTeX 用の compat の内容を入れる.
+\RequireLuaModule{luatexja.jisx0208} %% JIS X 0208 => unicode のテーブル
+\RequireLuaModule{luatexja.compat}
+
+\def\euc{\ltj@code@conv{euc}}
+\def\kuten{\ltj@code@conv{kuten}}
+\def\jis{\ltj@code@conv{jis}}
+\def\sjis{\ltj@code@conv{sjis}}
+\def\ucs{\ltj@code@conv{ucs}}
+
+\def\ltj@code@conv#1{%
+  \directlua{ luatexja._cc_next = luatexja.compat.from_#1 }%
+  \ltj@code@convA
+}
+\def\ltj@code@convA{%
+  \expandafter\expandafter\expandafter
+   \ltj@code@convB\ltj@grab@num
+}
+\def\ltj@code@convB#1{%
+  \directlua{ luatexja._cc_next(\ltj@safe@num{#1}) }%
+}
+
+\def\kansuji{%
+  \expandafter\expandafter\expandafter
+   \ltj@kansujiA\ltj@grab@num
+}
+\def\ltj@kansujiA#1{%
+  \directlua{ luatexja.compat.to_kansuji(\ltj@safe@num{#1}) }%
+}
+\define@key[ltj]{japaram}{kansujichar}{%
+  \expandafter\ltj@@set@stack#1:{ksj}{0}{0x7FFFFFFF}}
+
+\ltjsetparameter{kansujichar={0,`〇}}
+\ltjsetparameter{kansujichar={1,`一}}
+\ltjsetparameter{kansujichar={2,`二}}
+\ltjsetparameter{kansujichar={3,`三}}
+\ltjsetparameter{kansujichar={4,`四}}
+\ltjsetparameter{kansujichar={5,`五}}
+\ltjsetparameter{kansujichar={6,`六}}
+\ltjsetparameter{kansujichar={7,`七}}
+\ltjsetparameter{kansujichar={8,`八}}
+\ltjsetparameter{kansujichar={9,`九}}
+
+\ifltj@in@latex
+  \newcommand\printglossary{\@input@{\jobname.gls}}
+\fi
+\newcount\hour
+\newcount\minute
 
 %%------------------ all done
 \ltj@compat@AtEnd