X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fluatexja-compat.sty;h=a8d27a912d186fa24cc33d9b6f96590a24373de6;hb=0f0921ced2b53537326ad20ce546020b3cae2670;hp=5f519b387ff5f7cdf9ee7258d50ebffe5a2024c7;hpb=011b5162a7b1eeb3d7a547dda3846427bba88460;p=luatex-ja%2Fluatexja.git

diff --git a/src/luatexja-compat.sty b/src/luatexja-compat.sty
index 5f519b3..a8d27a9 100644
--- a/src/luatexja-compat.sty
+++ b/src/luatexja-compat.sty
@@ -65,13 +65,13 @@
   \expandafter\let\csname ifltj@in@latex\expandafter\endcsname
     \csname iftrue\endcsname
   \NeedsTeXFormat{LaTeX2e}
-  \ProvidesPackage{luatexja-compat}[2015/02/22 Compatibility with pTeX]
+  \ProvidesPackage{luatexja-compat}[2017/05/05 Compatibility with pTeX]
 \fi                             %</LaTeX>
 
 % Load core module if not yet.
 \ifx\luatexjacoreLoaded\@undefined
   \ifltj@in@latex                 %<*LaTeX>
-    \RequirePackage{luatexja-core}[2013/05/14]
+    \RequirePackage{luatexja-core}
   \else                           %<*!LaTeX>
     \input luatexja-core.sty %
   \fi                             %</LaTeX>
@@ -99,41 +99,15 @@
 \def\sjis{\ltj@code@conv{sjis}}
 \def\ucs{\ltj@code@conv{ucs}}
 
-\ifltj@token@avail@scan %%%%%%%%%%%%%%%%%%%%%%%% new tokenlib
 \def\ltj@code@conv#1{%
-  \directlua{luatexja.compat.from_#1(luatexja.token.scan_int())}%
+  \directlua{luatexja.compat.from_#1(token.scan_int())}%
 }
-\else %%%%%%%%%%%%%%%%%%%%%%%% old tokenlib
-\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}) }%
-}
-\fi %%%%%%%%%%%%%%%%%%%%%%%%
 
-
-\ifltj@token@avail@scan %%%%%%%%%%%%%%%%%%%%%%%% new tokenlib
-\def\kansuji{%
-  \directlua{luatexja.compat.to_kansuji(luatexja.token.scan_int())}%
-}
-\else %%%%%%%%%%%%%%%%%%%%%%%% old tokenlib
 \def\kansuji{%
-  \expandafter\expandafter\expandafter
-   \ltj@kansujiA\ltj@grab@num
-}
-\def\ltj@kansujiA#1{%
-  \directlua{luatexja.compat.to_kansuji(\ltj@safe@num{#1}) }%
+  \directlua{luatexja.compat.to_kansuji(token.scan_int())}%
 }
-\fi %%%%%%%%%%%%%%%%%%%%%%%%
 
-\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,`一}}