X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fluatexja-compat.sty;h=3bba582fc4b72d4b2f61ff95a35f8b84bb58a1cf;hb=eb118f3e5ea0852407b5261817700401699528b9;hp=7feb21a499b749c06d2561dd38da235e25f44c69;hpb=41b03ea6a8c8f1254aca62ff30b8abe53786ac7c;p=luatex-ja%2Fluatexja.git

diff --git a/src/luatexja-compat.sty b/src/luatexja-compat.sty
index 7feb21a..3bba582 100644
--- a/src/luatexja-compat.sty
+++ b/src/luatexja-compat.sty
@@ -65,23 +65,9 @@
   \expandafter\let\csname ifltj@in@latex\expandafter\endcsname
     \csname iftrue\endcsname
   \NeedsTeXFormat{LaTeX2e}
-  \ProvidesPackage{luatexja-compat}[2013/05/14 Compatibility with pTeX]
+  \ProvidesPackage{luatexja-compat}[2015/05/09 Compatibility with pTeX]
 \fi                             %</LaTeX>
 
-% ltj-compat-ptex.sty is not maintained for a long time.
-% %% If the engine is pTeX, then load the module for it and exit.
-% \edef\ltj@@tempa{\string\kansuji}
-% \edef\ltj@@tempb{\meaning\kansuji}
-% \ifx\ltj@@tempa\ltj@@tempb      %<*pTeX>
-%   \let\ltj@@compat@pTeX=t
-%   \ifltj@in@latex                 %<*LaTeX>
-%     \RequirePackage{ltj-compat-ptex}[2012/04/21]
-%   \else                           %<*!LaTeX>
-%     \input ltj-compat-ptex.sty %
-%   \fi                             %</LaTeX>
-%   \ltj@compat@AtEnd
-% \expandafter\endinput\fi\relax  %</pTeX>
-
 % Load core module if not yet.
 \ifx\luatexjacoreLoaded\@undefined
   \ifltj@in@latex                 %<*LaTeX>
@@ -105,7 +91,6 @@
 % not yet implemented.
 
 %%------------------
-\RequireLuaTeXjaSubmodule{jisx0208}
 \RequireLuaTeXjaSubmodule{compat}
 
 \def\euc{\ltj@code@conv{euc}}
@@ -115,26 +100,14 @@
 \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@or{nil}{#1}) }%
+  \directlua{luatexja.compat.from_#1(luatexja.token.scan_int())}%
 }
 
 \def\kansuji{%
-  \expandafter\expandafter\expandafter
-   \ltj@kansujiA\ltj@grab@num
+  \directlua{luatexja.compat.to_kansuji(luatexja.token.scan_int())}%
 }
-\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}}
+
+\define@key[ltj]{japaram}{kansujichar}{\ltj@@set@stack{KSJ}{0}{0x7FFFFFFF}#1 }
 
 \ltjsetparameter{kansujichar={0,`〇}}
 \ltjsetparameter{kansujichar={1,`一}}
@@ -146,6 +119,7 @@
 \ltjsetparameter{kansujichar={7,`七}}
 \ltjsetparameter{kansujichar={8,`八}}
 \ltjsetparameter{kansujichar={9,`九}}
+\ltj@@decl@array@param{kansujichar}
 
 \ifltj@in@latex
   \newcommand\printglossary{\@input@{\jobname.gls}}