6 %% Avoid multiple loading.
7 \csname\if11luatexjacompatLoaded\fi\endcsname
9 \catcode32=\the\catcode32%
10 \catcode33=\the\catcode33%
11 \catcode35=\the\catcode35%
12 \catcode40=\the\catcode40%
13 \catcode41=\the\catcode41%
14 \catcode42=\the\catcode42%
15 \catcode43=\the\catcode43%
16 \catcode44=\the\catcode44%
17 \catcode45=\the\catcode45%
18 \catcode46=\the\catcode46%
19 \catcode58=\the\catcode58%
20 \catcode59=\the\catcode59%
21 \catcode60=\the\catcode60%
22 \catcode61=\the\catcode61%
23 \catcode62=\the\catcode62%
24 \catcode64=\the\catcode64%
25 \catcode91=\the\catcode91%
26 \catcode93=\the\catcode93%
27 \catcode94=\the\catcode94%
28 \catcode95=\the\catcode95%
29 \catcode126=\the\catcode126%
30 \endlinechar=\the\endlinechar
54 %! なお, 上のcatcode設定はcoreとcompatで同一にしておく.
55 \edef\ltj@compat@AtEnd{\x
56 \noexpand\let\noexpand\ltj@compat@AtEnd\relax}
57 \def\luatexjacompatLoaded{\endinput}
59 %% Check if LaTeX is used.
60 \begingroup\expandafter\expandafter\expandafter\endgroup
61 \expandafter\ifx\csname RequirePackage\endcsname\relax %<*!LaTeX>
62 \expandafter\let\csname ifltj@in@latex\expandafter\endcsname
63 \csname iffalse\endcsname
65 \expandafter\let\csname ifltj@in@latex\expandafter\endcsname
66 \csname iftrue\endcsname
67 \NeedsTeXFormat{LaTeX2e}
68 \ProvidesPackage{luatexja-compat}[2011/04/01 v0.1]
71 %% If the engine is pTeX, then load the module for it and exit.
72 \edef\ltj@@tempa{\string\kansuji}
73 \edef\ltj@@tempb{\meaning\kansuji}
74 \ifx\ltj@@tempa\ltj@@tempb %<*pTeX>
75 \let\ltj@@compat@pTeX=t
76 \ifltj@in@latex %<*LaTeX>
77 \RequirePackage{luatexja-compat-ptex}[2011/04/01]
79 \input luatexja-compat-ptex.sty %
82 \expandafter\endinput\fi\relax %</pTeX>
84 % Load core module if not yet.
85 \ifx\luatexjacoreLoaded\@undefined
86 \ifltj@in@latex %<*LaTeX>
87 \RequirePackage{luatexja-core}[2011/04/01]
89 \input luatexja-core.sty %
93 %% When environment check fails, exit now.
94 \ifx\LuaTeXjaAvailable\@undefined
96 \expandafter\endinput\fi\relax
99 %\RequireLuaModule{luatexja.infomute}
100 % not yet implemented.
102 %% Silence info messages of luatexbase-mcb
103 %\directlua{ luatexja.infomute.add_mute("luatexbase-mcb") }
104 % not yet implemented.
107 %! これ以降に LuaTeX 用の compat の内容を入れる.
108 \RequireLuaModule{luatexja.jisx0213} %% JISX0213 => unicode のテーブル
109 \RequireLuaModule{luatexja.compat}
111 \def\euc#1{\directlua{luatexja.compat.from_euc(\ltj@safe@num{#1})}}
112 \def\kuten#1{\directlua{luatexja.compat.from_kuten(\ltj@safe@num{#1})}}
113 \def\jis#1{\directlua{luatexja.compat.from_jis(\ltj@safe@num{#1})}}
114 \def\sjis#1{\directlua{luatexja.compat.from_sjis(\ltj@safe@num{#1})}}
115 \def\ucs#1{\directlua{luatexja.compat.from_ucs(\ltj@safe@num{#1})}}
117 \define@key[ltj]{japaram}{kansujichar}{%
118 \expandafter\ltj@@set@stack#1:{ksj}{0}{0x7FFFFFFF}}
119 \def\kansuji#1{\directlua{luatexja.compat.to_kansuji(\ltj@safe@num{#1})}}
121 \ltjsetparameter{kansujichar={0,`〇}}
122 \ltjsetparameter{kansujichar={1,`一}}
123 \ltjsetparameter{kansujichar={2,`二}}
124 \ltjsetparameter{kansujichar={3,`三}}
125 \ltjsetparameter{kansujichar={4,`四}}
126 \ltjsetparameter{kansujichar={5,`五}}
127 \ltjsetparameter{kansujichar={6,`六}}
128 \ltjsetparameter{kansujichar={7,`七}}
129 \ltjsetparameter{kansujichar={8,`八}}
130 \ltjsetparameter{kansujichar={9,`九}}
132 %%------------------ all done