\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/02/22 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>
% not yet implemented.
%%------------------
-\RequireLuaTeXjaSubmodule{jisx0208}
\RequireLuaTeXjaSubmodule{compat}
\def\euc{\ltj@code@conv{euc}}
\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
-}
-\def\ltj@kansujiA#1{%
- \directlua{luatexja.compat.to_kansuji(\ltj@safe@num{#1}) }%
+ \directlua{luatexja.compat.to_kansuji(luatexja.token.scan_int())}%
}
+
\define@key[ltj]{japaram}{kansujichar}{%
\expandafter\ltj@@set@stack#1:{KSJ}{0}{0x7FFFFFFF}}
\ltjsetparameter{kansujichar={7,`七}}
\ltjsetparameter{kansujichar={8,`八}}
\ltjsetparameter{kansujichar={9,`九}}
+\ltj@@decl@array@param{kansujichar}
\ifltj@in@latex
\newcommand\printglossary{\@input@{\jobname.gls}}