2 % luatexja-ajmacros.sty
5 % \ProvidesPackage{ajmacros}[2019/04/01 21:00 iNOUE Koich! <inoue@ma.ns.musashi-tech.ac.jp>]
9 %% Avoid multiple loading.
10 \csname\if11luatexjaajmacrosLoaded\fi\endcsname
12 \catcode32=\the\catcode32%
13 \catcode33=\the\catcode33%
14 \catcode35=\the\catcode35%
15 \catcode40=\the\catcode40%
16 \catcode41=\the\catcode41%
17 \catcode42=\the\catcode42%
18 \catcode43=\the\catcode43%
19 \catcode44=\the\catcode44%
20 \catcode45=\the\catcode45%
21 \catcode46=\the\catcode46%
22 \catcode58=\the\catcode58%
23 \catcode59=\the\catcode59%
24 \catcode60=\the\catcode60%
25 \catcode61=\the\catcode61%
26 \catcode62=\the\catcode62%
27 \catcode64=\the\catcode64%
28 \catcode91=\the\catcode91%
29 \catcode93=\the\catcode93%
30 \catcode94=\the\catcode94%
31 \catcode95=\the\catcode95%
32 \catcode126=\the\catcode126%
33 \endlinechar=\the\endlinechar
58 \edef\ltj@ajmacros@AtEnd{\x
59 \noexpand\let\noexpand\ltj@ajmacros@AtEnd\relax}
60 \def\luatexjaajmacrosLoaded{\endinput}
62 %% Check if LaTeX is used.
63 \begingroup\expandafter\expandafter\expandafter\endgroup
64 \expandafter\ifx\csname RequirePackage\endcsname\relax %<*!LaTeX>
65 \expandafter\let\csname ifltj@in@latex\expandafter\endcsname
66 \csname iffalse\endcsname
68 \expandafter\let\csname ifltj@in@latex\expandafter\endcsname
69 \csname iftrue\endcsname
70 \NeedsTeXFormat{LaTeX2e}
71 \ProvidesPackage{luatexja-ajmacros}[2017/05/05]
75 %! Main part of luatexja-ajmacros
76 \newif\if@kana\@kanafalse
82 \def\@ifstar#1#2#3{\ifx*#3\expandafter#1\else#2{#3}\fi}
87 \gdef\shift@CID#1#2{{\@tempcnta#1\advance\@tempcnta#2\CID{\@tempcnta}}}
88 \gdef\ajTsumesuji{\@ifstar{\@@ajTsumesuji}{\@ajTsumesuji}}
89 \global\let\ajTumesuji\ajTsumesuji
90 \gdef\@ajTsumesuji#1#2{{\@tempcnta\unless\ifnum\ltjgetparameter{direction}=3 \ifcase#1\or780\or247\or9758\or9738\fi
91 \else\ifcase#1\or8736\or8966\or13274\or13254\fi\fi
92 \aj@expand\aj@Tsumesuji#2\@nil}}
93 \gdef\@@ajTsumesuji#1{\@ajTsumesuji{\aj@expand\aj@count@toks#14321\@nil}{#1}}
94 \gdef\aj@expand#1#2{\expandafter\@aj@expand\number#2!#1}
95 \gdef\@aj@expand#1!#2{#2#1}
96 \gdef\aj@count@toks#1#2#3#4#5#6\@nil{#5}
97 \gdef\aj@Tsumesuji#1{\ifx\@nil#1\else\shift@CID{\@tempcnta}{#1}%
98 \expandafter\aj@Tsumesuji
100 \gdef\ajMaru{\@ifstar{\@aj@Maru}{\aj@Maru}}
101 \gdef\aj@Maru#1{\ifnum#1=\z@ \CID{8224}%
102 \else\ifnum#1<21 \shift@CID{#1}{7554}%
103 \else\ifnum#1=21 \CID{8091}%
104 \else\ifnum#1<32 \shift@CID{#1}{8080}%
105 \else\shift@CID{#1}{10212}%
107 \gdef\@aj@Maru#1{\ifnum#1<10 \shift@CID{#1}{10234}%
108 \else\ifnum#1<21 \shift@CID{#1}{7554}%
109 \else\ifnum#1=21 \CID{8091}%
110 \else\ifnum#1<32 \shift@CID{#1}{8080}%
111 \else\shift@CID{#1}{10212}%
113 \gdef\ajKuroMaru{\@ifstar{\@aj@KuroMaru}{\aj@KuroMaru}}
114 \gdef\aj@KuroMaru#1{\ifnum#1=\z@ \CID{10503}%
115 \else\ifnum#1<10 \shift@CID{#1}{8285}%
116 \else\shift@CID{#1}{10504}%
118 \gdef\@aj@KuroMaru#1{\shift@CID{#1}{10504}}
119 \gdef\ajKaku{\@ifstar{\@aj@Kaku}{\aj@Kaku}}
120 \gdef\aj@Kaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
121 \shift@CID{\@tempcnta}{10764}}%
122 \else\shift@CID{#1}{10774}%
124 \gdef\@aj@Kaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
125 \shift@CID{\@tempcnta}{10765}}%
126 \else\shift@CID{#1}{10774}%
128 \gdef\ajKuroKaku{\@ifstar{\@aj@KuroKaku}{\aj@KuroKaku}}
129 \gdef\aj@KuroKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
130 \shift@CID{\@tempcnta}{11037}}%
131 \else\shift@CID{#1}{11047}%
133 \gdef\@aj@KuroKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
134 \shift@CID{\@tempcnta}{11038}}%
135 \else\shift@CID{#1}{11047}%
137 \gdef\ajMaruKaku{\@ifstar{\@aj@MaruKaku}{\aj@MaruKaku}}
138 \gdef\aj@MaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
139 \shift@CID{\@tempcnta}{11307}}%
140 \else\shift@CID{#1}{11317}%
142 \gdef\@aj@MaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
143 \shift@CID{\@tempcnta}{11308}}%
144 \else\shift@CID{#1}{11317}%
146 \gdef\ajKuroMaruKaku{\@ifstar{\@aj@KuroMaruKaku}{\aj@KuroMaruKaku}}
147 \gdef\aj@KuroMaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
148 \shift@CID{\@tempcnta}{11576}}%
149 \else\shift@CID{#1}{11586}%
151 \gdef\@aj@KuroMaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
152 \shift@CID{\@tempcnta}{11577}}%
153 \else\shift@CID{#1}{11586}%
155 \gdef\ajKakko{\@ifstar{\@aj@Kakko}{\aj@Kakko}}
156 \gdef\aj@Kakko#1{\ifnum#1=\z@ \CID{8227}%
157 \else\ifnum#1<21 \shift@CID{#1}{8070}%
158 \else\shift@CID{#1}{9873}%
160 \gdef\@aj@Kakko#1{\ifnum#1<10 \shift@CID{#1}{9884}%
161 \else\ifnum#1<21 \shift@CID{#1}{8070}%
162 \else\shift@CID{#1}{9873}%
164 \gdef\ajRoman{\@ifstar{\@aj@Roman}{\aj@Roman}}
165 \gdef\aj@Roman#1{\ifnum#1<11 \shift@CID{#1}{7574}%
166 \else\ifnum#1<13 \shift@CID{#1}{8214}%
167 \else\shift@CID{#1}{8282}%
169 \gdef\@aj@Roman#1{\ifnum#1=4 \CID{9883}\else\aj@Roman{#1}\fi}
170 \gdef\ajroman#1{\ifnum#1<11 \shift@CID{#1}{8091}%
171 \else\shift@CID{#1}{8287}%
173 \gdef\ajPeriod#1{\ifnum#1<10 \shift@CID{#1}{8061}\else\shift@CID{#1}{20577}\fi}%AJ1-6
174 \gdef\ajKakkoalph#1{\shift@CID{#1}{8111}}
175 \gdef\ajKakkoYobi#1{\shift@CID{#1}{8196}}
176 \gdef\ajKakkoroman#1{\shift@CID{#1}{9973}}
177 \gdef\ajKakkoRoman#1{\shift@CID{#1}{9988}}
178 \gdef\ajKakkoAlph#1{\shift@CID{#1}{10003}}
179 \gdef\ajKakkoHira#1{\shift@CID{#1}{10029}}
180 \gdef\ajKakkoKata#1{\shift@CID{#1}{10077}}
181 \gdef\ajKakkoKansuji#1{\shift@CID{#1}{10125}}
182 \gdef\ajMaruKansuji#1{\shift@CID{#1}{10460}}
183 \gdef\ajNijuMaru#1{\shift@CID{#1}{16222}}
184 \gdef\ajRecycle#1{\shift@CID{#1}{16314}}
185 \gdef\ajHasenKakuAlph#1{\shift@CID{#1}{20496}}%AJ1-6
186 \gdef\ajCross#1{\shift@CID{#1}{20523}}%AJ1-6
187 \gdef\ajSlanted{\@ifstar{\aj@Slanted}{\@aj@Slanted}}%AJ1-6
188 \gdef\aj@Slanted#1{\shift@CID{#1}{20589}}%AJ1-6
189 \gdef\@aj@Slanted#1{\ifnum#1<10 \shift@CID{#1}{9460}\else\shift@CID{#1}{20589}\fi}%AJ1-6
190 \gdef\ajApostrophe#1{\shift@CID{#1}{20649}}%AJ1-6
191 \global\let\ajYear\ajApostrophe%AJ1-6
192 \gdef\ajSquareMark{\@ifstar{\aj@SquareMark}{\@ifnextchar+{\@aj@SquareMark}{\@ajSquareMark}}}
193 \gdef\@ajSquareMark#1{\shift@CID{#1}{12229}}
194 \gdef\aj@SquareMark#1{\shift@CID{#1}{12241}}
195 \gdef\@aj@SquareMark+#1{\shift@CID{#1}{\ifodd\@tempcnta24459\else24482\fi
196 \divide\@tempcnta\tw@}}
197 \gdef\ajHishi#1{\shift@CID{#1}{12256}}
200 \chardef\offsetAlph26
201 \chardef\offsetHira26
202 \chardef\offsetKata48
203 \chardef\offsetYobi48
205 \chardef\offsetKuroMaru144
206 \chardef\offsetKaku122
207 \chardef\offsetKuroKaku125
208 \chardef\offsetMaruKaku122
209 \chardef\offsetKuroMaruKaku121
211 \def\@aj@sujidef#1{\ifx\@nil#1%
212 \else\advance\@tempcnta\csname offset#1\endcsname
213 \expandafter\xdef\csname aj\@ajsujifam#1\endcsname##1%
214 {\noexpand\shift@CID{##1}{\number\@tempcnta}}%
215 \expandafter\@aj@sujidef\fi}
216 \def\@ajsujidef#1{\ifx\@nil#1%
217 \else\advance\@tempcnta\csname offset#1\endcsname
219 \@aj@sujidef{alph}{Alph}{Hira}{Kata}{Yobi}\@nil
220 \expandafter\@ajsujidef\fi}
221 \@ajsujidef{Maru}{KuroMaru}{Kaku}{KuroKaku}{MaruKaku}{KuroMaruKaku}\@nil
222 \gdef\ajMaruYobi#1{\ifnum#1<8 \shift@CID{#1}{10470}%
223 \else\ifnum#1=8 \CID{10492}%
224 \else\ifnum#1=9 \CID{10487}%
227 \gdef\ajTsumekakko#1{\aj@expand\@ajTsumekakko#1\@nil}
228 \global\let\ajTumekakko\ajTsumekakko
229 \gdef\@ajTsumekakko#1#2{\ifx\@nil#2\mbox{\unless\ifnum\ltjgetparameter{direction}=3 \rlap{\CID{10233}}\shift@CID{#1}{9872}%
230 \else\CID{13268}\shift@CID{#1}{10185}\CID{13269}\fi}%
232 \else\shift@CID{#1}{\unless\ifnum\ltjgetparameter{direction}=3 10152\else10174\fi}%
233 \expandafter\aj@Tsumekakko
235 \gdef\aj@Tsumekakko#1#2{\ifx\@nil#2\shift@CID{#1}{\unless\ifnum\ltjgetparameter{direction}=3 10162\else10196\fi}%
237 \else\shift@CID{#1}{\unless\ifnum\ltjgetparameter{direction}=3 247\else10185\fi}%
238 \expandafter\aj@Tsumekakko
240 \gdef\ajNenrei#1{\ifcase#1\relax\expandafter\ajTsumekakko\or\expandafter\aj@NenreiTu
241 \or\expandafter\aj@NenreiSai\or\expandafter\aj@Nenrei@Tu
242 \or\expandafter\aj@Nenrei@Sai
244 \gdef\aj@NenreiTu#1{\aj@expand\@aj@NenreiTu#1\@nil}
245 \gdef\@aj@NenreiTu#1#2{\shift@CID{#1}{\unless\ifnum\ltjgetparameter{direction}=3 10152\else10174\fi}%
246 \ifx\@nil#2\CID{\unless\ifnum\ltjgetparameter{direction}=3 10172\else10206\fi}\expandafter\@gobble
247 \else\expandafter\aj@Tsumekakko
249 \gdef\aj@NenreiSai#1{\aj@expand\@aj@NenreiSai#1\@nil}
250 \gdef\@aj@NenreiSai#1{\shift@CID{#1}{\unless\ifnum\ltjgetparameter{direction}=3 10152\else10174\fi}\@aj@NenreiSai@}
251 \gdef\@aj@NenreiSai@#1{\ifx\@nil#1\CID{\unless\ifnum\ltjgetparameter{direction}=3 10173\else10207\fi}%
252 \else\shift@CID{#1}{\unless\ifnum\ltjgetparameter{direction}=3 247\else10185\fi}%
253 \expandafter\@aj@NenreiSai@\fi}
254 \gdef\aj@Nenrei@Tu#1{\ifnum#1<10 \shift@CID{#1}{10174}\CID{10206}%
255 \else\expandafter\@aj@Nenrei@Tu\number#1%
257 \gdef\@aj@Nenrei@Tu#1#2{\ifnum#2=\z@ \shift@CID{#1}{10174}\CID{10196}%
258 \else\ifnum#1<\tw@ \CID{10184}%
259 \else\shift@CID{#1}{10174}\CID{10195}%
261 \shift@CID{#2}{10196}%
263 \gdef\aj@Nenrei@Sai#1{\ifnum#1<10 \shift@CID{#1}{10174}%
264 \else\expandafter\@aj@Nenrei@Sai\number#1%
266 \gdef\@aj@Nenrei@Sai#1#2{\ifnum#1<\tw@ \CID{10184}%
267 \else\shift@CID{#1}{10174}\CID{10195}%
269 \ifnum#2>\z@ \shift@CID{#2}{10185}%
271 \gdef\ajnenrei#1#2{\hskip\ltjgetparameter{kanjiskip}\hbox{\tate\ifnum#2<10
272 \shift@CID{#2}{10207}\CID{\ifcase#1\or10230\or10232\or10231\or10229\fi}%
273 \else\ifnum#2=10\CID{\ifodd#1 10208\else10217\fi}%
274 \CID{\ifcase#1\or10218\or10232\or10218\or10229\fi}%
275 \else\ifnum#2<20\CID{\ifodd#1 10208\else10217\fi}\shift@CID{#2}{10208}%
276 \else\expandafter\aj@nenrei\number#2{#1}%
278 \gdef\aj@nenrei#1#2#3{\shift@CID{#1}{10207}%
279 \ifcase#2 \CID{\ifodd#3 10218\else10228\fi}%
280 \else\shift@CID{#2}{10218}%
282 \gdef\ajKosu{\ajnenrei4}
284 \gdef\ajLabel#1#2#{\ifx\\#2\\\aj@Label#1\else\@aj@Label#1#2\fi}
285 \gdef\aj@Label#1\else#2\fi#3{\fi
288 \expandafter{\number\csname c@#3\endcsname}}
289 \gdef\@aj@Label#1#2\fi#3{\fi
293 \expandafter{\number\csname c@#3\endcsname}}
296 \gdef\ajFrac{\@ifstar{\@aj@Frac}{\aj@Frac}}
297 \gdef\@ajFrac#1#2{\ifcase#2\or
298 \or\ifcase#1\or9826\fi
299 \or\ifcase#1+9825\or9827\or9828\fi
300 \or\ifcase#1\or9829\or9826\or9830\fi
301 \or\ifcase#1\or9831\or9832\or9833\or9834\fi
302 \or\ifcase#1\or9835\or9827\or9826\or9828\or9836\fi
303 \or\ifcase#1\or9837\or9838\or9839\or9840\or9841\or9842\fi
304 \or\ifcase#1\or9843\or9829\or9844\or9826\or9845\or9830\or9846\fi
305 \or\ifcase#1\or9847\or9848\or9827\or9849\or9850\or9828\or9851\or9852\fi
306 \or\ifcase#1\or9853\or9831\or9854\or9832\or9826\or9833\or9855\or9834\or9856\fi
307 \or\ifcase#1\or9857\or9858\or9859\or9860\or9861\or9862\or9863\or9864\or9865\or9866\fi
308 \or\ifcase#1\or9867\or9835\or9829\or9827\or9868\or9826\or9869\or9828\or9830\or9836
310 \else\ifnum#2=100 \ifnum#1=1 9871\fi\fi
312 \gdef\@aj@Frac#1#2{\CID{\@ajFrac{#1}{#2}}}
313 \gdef\aj@Frac#1#2{{\@tempcnta\@ajFrac{#1}{#2}%
314 \advance\@tempcnta-9825
315 \advance\@tempcnta\ifcase\@tempcnta9780\or8183\or9779\or9779\or8181\else9778\fi\relax
317 %1/4 161 8880 9604 13120
318 %1/2 162 8881 9605 13121
319 %3/4 163 8882 9606 13122
320 %1/8 9371 12887 9691 13207
321 %3/8 9372 12888 9692 13208
322 %5/8 9373 12889 9693 13209
323 %7/8 9374 12890 9694 13210
324 %1/3 9375 12891 9695 13211
325 %2/3 9376 12892 9696 13212
328 \def\@aj半角def#1{\ifx\@nil#1\else
329 \expandafter\xdef\csname aj半角@#1\endcsname{\noexpand\CID
330 {\noexpand\unless\noexpand\ifnum\noexpand\ltjgetparameter\noexpand{direction\noexpand}=3 \number\@tempcnta\noexpand\else\number\@tempcntb\noexpand\fi}}%
331 \advance\@tempcnta\@ne\advance\@tempcntb\@ne
332 \expandafter\@aj半角def\fi}
335 \@aj半角def 。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜`ヰヱヮヵヶヴガギグゲゴザジズゼゾダヂヅデドバパビピブプベペボポ\@nil
337 \@aj半角def をぁぃぅぇぉゃゅょっあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわんゐゑゎがぎぐげござじずぜぞだぢづでどばぱびぴぶぷべぺぼぽ\@nil
338 \gdef\aj半角#1{\aj@半角#1\@nil}
339 \gdef\aj@半角#1{\ifx\@nil#1\else
340 \expandafter\ifx\csname aj半角@#1\endcsname\relax
341 #1\else\csname aj半角@#1\endcsname\fi
342 \expandafter\aj@半角\fi}
345 \def\@ajligdef#1#2{\expandafter\xdef\csname ajLig\@ajmojifam#1\endcsname{\noexpand\CID{#2}}}
346 \def\@ajligaturedef#1{\ifx\@nil#1\else
347 \@ajligdef{#1}{\number\@tempcnta}\advance\@tempcnta\@ne
348 \expandafter\@ajligaturedef\fi}
349 \def\@aj@ligdef#1#2#3{\expandafter\xdef\csname ajLig\@ajmojifam#1\endcsname
350 {\unexpanded{\unless\ifnum\ltjgetparameter{direction}=3 }%
351 \noexpand\CID{#2}\noexpand\else\noexpand\CID{#3}\noexpand\fi}}
352 \def\@aj@ligaturedef#1{\ifx\@nil#1\else
353 \@aj@ligdef{#1}{\number\@tempcnta}{\number\@tempcntb}%
354 \advance\@tempcnta\@ne\advance\@tempcntb\@ne
355 \expandafter\@aj@ligaturedef\fi}
357 \let\@ajmojifam\@empty
359 \@ajligaturedef{!!}{!?}{!*}{!!*}{!?*}\@nil
360 \@ajligdef{?!}{16279}
361 \@ajligdef{??}{16278}
363 \let\@ajmojifam\@empty
365 \@ajligaturedef{mm}{cm}{km}{mg}{kg}{cc}{m2}\@nil
367 \@ajligaturedef{No.}{K.K.}{TEL}\@nil
369 \@ajligaturedef{cm2}{km2}{cm3}{m3}{dl}{l}{kl}{ms}{micros}{ns}{ps}{KB}{MB}{GB}{HP}{Hz}{mb}{ml}\@nil
370 \@ajligdef{KK.}{8053}
371 \@ajligdef{Tel}{8055}
374 \@ajligaturedef{mm2}{mm3}{km3}{sec}{min}\@nil
376 \@ajligaturedef{cal}{kcal}{dB}\@nil
378 \@ajligaturedef{m}{g}{F}{TB}{FAX}{JIS}\@nil
379 \@ajligdef{euro}{9779}
380 \@aj@ligdef{euro*}{9354}{12870}
381 \@aj@ligdef{ohm*}{9355}{12871}
382 \@ajligdef{mho}{16204}
383 \@aj@ligdef{mho*}{15515}{16526}
384 \@aj@ligdef{No*}{20321}{20965}%AJ1-6
386 \@ajligaturedef{AM}{KK}{No}{PH}{PM}{PR}{tel}{tm}{VS}{a/c}{a.m.}{c/c}{c.c.}{c/o}{dl*}{hPa}{kl*}{l*}{microg}{microm}{ml*}{m/m}{n/m}{pH}{p.m.}\@nil
387 \@ajligdef{JAS}{12088}
389 \@ajligaturedef{ppb}{ppm}{'S}{H2}{O2}{Ox}{Nx}{Q2}{Jr.}{Dr.}\@nil%AJ1-6
391 \let\@ajmojifam\@empty
394 \@aj@ligaturedef{明治}{大正}{昭和}\@nil
397 \@aj@ligaturedef{ミリ}{キロ}{センチ*}{メートル}{グラム*}{トン}{アール*}{ヘクタール}{リットル}{ワット*}{カロリー}{ドル}{セント*}{パーセント}{ミリバール}{ページ*}\@nil
398 \@aj@ligdef{センチ}{8038}{8329}
399 \@aj@ligdef{キロメートル}{8039}{8330}
400 \@aj@ligdef{グラム}{8040}{8339}
401 \@aj@ligdef{キログラム}{8041}{8340}
402 \@aj@ligdef{アール}{8042}{8338}
403 \@aj@ligdef{セント}{8043}{8348}
404 \@aj@ligdef{ワット}{8044}{8344}
405 \@aj@ligdef{ホーン}{8045}{8347}
406 \@aj@ligdef{ヘルツ}{8046}{8343}
407 \@aj@ligdef{ページ}{8047}{8349}
408 \@aj@ligdef{アパート}{8048}{8350}
409 \@aj@ligdef{ビル}{8049}{8358}
410 \@aj@ligdef{マンション}{8050}{8357}
411 \@aj@ligdef{コーポ}{8051}{8353}
412 \@aj@ligdef{ハイツ}{8052}{8356}
413 \@aj@ligdef{株式会社}{8054}{8324}
414 \@aj@ligdef{インチ}{8183}{8333}
415 \@aj@ligdef{有限会社}{8321}{8325}
416 \@aj@ligdef{財団法人}{8322}{8326}
417 \@aj@ligdef{平成}{8323}{12044}
418 \@aj@ligdef{フィート}{8327}{8334}
419 \@aj@ligdef{ヤード}{8328}{8337}
420 \@aj@ligdef{インチ*}{8331}{8332}
421 \@aj@ligdef{ヤード*}{8335}{8336}
422 \@aj@ligdef{ヘルツ*}{8341}{8342}
423 \@aj@ligdef{ホーン*}{8345}{8346}
424 \@aj@ligdef{コーポ*}{8351}{8352}
425 \@aj@ligdef{ハイツ*}{8354}{8355}
426 \@aj@ligdef{さじ}{11871}{11872}
429 \@aj@ligaturedef{アト}{アルファ}{アンペア}{イニング}{ウォン}{ウルシ}{エーカー}{エクサ}{エスクード}{オーム}{オングストローム}{オンス}{オントロ}{カイリ}%
430 {カップ}{カラット}{ガロン}{ガンマ}{ギガ}{ギニー}{キュリー}{ギルダー}{キロリットル}{キロワット}{グスーム}{グラムトン}{クルサード}{クルゼイロ}{クローネ}%
431 {ケース}{コルナ}{サイクル}{サンチーム}{シリング}{ダース}{デカ}{デシ}{テラ}{ドラクマ}{ナノ}{ノット}{バーツ}{バーレル}{パスカル}{バレル}{ピアストル}{ピクル}%
432 {ピコ}{ファラッド}{ファラド}{フェムト}{ブッシェル}{フラン}{ベータ}{ヘクト}{ヘクトパスカル}{ペセタ}{ペソ}{ペタ}{ペニヒ}{ペンス}{ポイント}{ホール}{ボルト}{ホン}%
433 {ポンド}{マイクロ}{マイル}{マッハ}{マルク}{ミクロン}{メガ}{メガトン}{ヤール}{ユアン}{ユーロ}{ラド}{リラ}{ルーブル}{ルクス}{ルピア}{ルピー}{レム}{レントゲン}\@nil
436 \@aj@ligaturedef{医療法人}{学校法人}{共同組合}{協同組合}{合資会社}{合名会社}{社団法人}{宗教法人}{郵便番号}\@nil
437 \expandafter\gdef\csname ajLigオングストローム*\endcsname
438 {\mbox{\kern.05zw\ajLig{オントロ}\kern-.1zw\ajLig{グスーム}\kern.05zw}}
441 \@aj@ligaturedef{ガル}{グレイ}{クローナ}{シーベルト}{シェケル}{ジュール}{デシベル}{ドット}{バイト}{ビット}{ベクレル}{ボー}{ランド}{リンギット}\@nil%AJ1-6
442 \@ajligdef{より}{12181}
444 \@ajligdef{コト}{16195}
445 \@aj@ligdef{令和}{23058}{23059}%AJ1-7
449 \@ajligaturedef 上中下左右\@nil
452 \@ajligaturedef 夜企医協名宗労学有株社監資財\@nil
456 \@ajligaturedef 大小優控\@nil
458 \@ajligaturedef 調注副減標欠基禁項休女男正写祝出適特済増問答例電\@nil%
459 \@ajligdef{年}{20553}%AJ1-6
461 \def\@ajmojifam#1{(#1)}
466 \@ajligaturedef 至企協名労社監自資財特学祭呼\@nil
470 \@ajligaturedef 営合注問答例\@nil
477 \@ajligaturedef{:A}{:B}{:C}{:D}{:E}{:F}{:終}\@nil%AJ1-6
479 \@ajligaturedef{:CL}{:KCL}{:BEL}{:AS}{:AM}{:段}{:ゴ}{:ミ}\@nil%AJ1-6
483 \@ajligaturedef {News}天再新映声前後終立交{ほか}劇司解株気二多文手{PV}{MV}双{SS}{S1}{S2}{S3}デ{HV}\@nil%AJ1-6
495 \expandafter\chardef\csname offset●\endcsname\z@
496 \expandafter\mathchardef\csname offset□\endcsname269
497 \expandafter\mathchardef\csname offset■\endcsname268
498 \expandafter\mathchardef\csname offset◇\endcsname267
499 \expandafter\mathchardef\csname offset◆\endcsname266
501 \def\@ajmojidef#1{\ifx\@nil#1%
502 \else\advance\@tempcnta\csname offset#1\endcsname
504 \@ajligaturedef 問答例\@nil
505 \expandafter\@ajmojidef\fi}
506 \@ajmojidef ●□■◇◆\@nil
508 \def\@ajkanadef#1#2#3#4#5#6#7{\expandafter\gdef\csname ajLig#1\endcsname
509 {\if@kana\def\reserved@a{ruby}%
510 \ifx\k@family\reserved@a
511 \unless\ifnum\ltjgetparameter{direction}=3 \CID{#6}\else\CID{#7}\fi
512 \else\unless\ifnum\ltjgetparameter{direction}=3 \CID{#4}\else\CID{#5}\fi
514 \else\unless\ifnum\ltjgetparameter{direction}=3 \CID{#2}\else\CID{#3}\fi
520 \def\@aj@kanadef#1{\ifx\@nil#1%
521 \else\edef\reserved@b{\noexpand\@ajkanadef{#1}%
522 {\number\@tempcnta}{\number\@tempcntb}{\number\@tempcntc}%
523 {\number\@tempcntd}{\number\@tempcnte}{\number\@tempcntf}}\reserved@b
524 \advance\@tempcnta\@ne\advance\@tempcntb\@ne\advance\@tempcntc\@ne
525 \advance\@tempcntd\@ne\advance\@tempcnte\@ne\advance\@tempcntf\@ne
526 \expandafter\@aj@kanadef\fi}
527 \@ajkanadef{う゛}{7958}{7958}{12361}{12544}{12756}{12756}
534 \@aj@kanadef{ワ゛}{ヰ゛}{ヱ゛}{ヲ゛}\@nil
541 \@aj@kanadef{か゜}{き゜}{く゜}{け゜}{こ゜}{カ゜}{キ゜}{ク゜}{ケ゜}{コ゜}{セ゜}{ツ゜}{ト゜}\@nil
542 \@ajkanadef{小か}{7959}{8264}{12285}{12468}{12682}{12762}
543 \@ajkanadef{小け}{7960}{8265}{12292}{12475}{12689}{12763}
544 \@ajkanadef{小こ}{12269}{12270}{12295}{12478}{16448}{16467}
545 \@ajkanadef{小コ}{12271}{12272}{12385}{12568}{16449}{16468}
552 \@aj@kanadef{小ク}{小シ}{小ス}{小ト}{小ヌ}{小ハ}{小ヒ}{小フ}{小ヘ}{小ホ}{小プ}{小ム}{小ラ}{小リ}{小ル}{小レ}{小ロ}\@nil
554 \def\@aj@numberdef#1#2{\ifx\@nil#2\expandafter\@gobble
555 \else\expandafter\xdef\csname ajnumber#2\endcsname{{#1}{\number\@tempcnta}}%
556 \advance\@tempcnta\@ne
557 \expandafter\@aj@numberdef\fi{#1}}
559 \@aj@numberdef{alph}abcdefghijklmnopqrstuvwxyz\@nil
561 \@aj@numberdef{Alph}ABCDEFGHIJKLMNOPQRSTUVWXYZ\@nil
563 \@aj@numberdef{Hira}あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわゐゑをん\@nil
565 \@aj@numberdef{Kata}アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヰヱヲン\@nil
567 \@aj@numberdef{Yobi}日月火水木金土祝休\@nil
568 \gdef\@ajnumber#1{\expandafter\expandafter\expandafter\aj@number\csname ajnumber#1\endcsname}
569 \gdef\aj@number#1{\ifx\relax#1\expandafter\@gobbletwo\else\expandafter\@aj@number\fi{#1}}
570 \gdef\@aj@number#1#2#3{\csname aj#3#1\endcsname{#2}}
572 \def\@aj@kakomidef#1#2{\expandafter\gdef\csname#1\endcsname##1%
573 {\expandafter\ifx\csname ajLig#1##1\endcsname\relax\@ajnumber{##1}{#2}%
574 \else\csname ajLig#1##1\endcsname\fi}}
575 \@aj@kakomidef{○}{Maru}
576 \@aj@kakomidef{●}{KuroMaru}
577 \@aj@kakomidef{□}{Kaku}
578 \@aj@kakomidef{■}{KuroKaku}
579 \@aj@kakomidef{◇}{MaruKaku}
580 \@aj@kakomidef{◆}{KuroMaruKaku}
581 \gdef\△#1{\csname ajLig△#1\endcsname}
582 \gdef\▽#1{\csname ajLig▽#1\endcsname}
583 \gdef\(#1){\expandafter\ifx\csname ajLig(#1)\endcsname\relax\@ajnumber{#1}{Kakko}%
584 \else\csname ajLig(#1)\endcsname\fi}
585 \gdef\゛#1{\csname ajLig#1゛\endcsname}
586 \gdef\゜#1{\csname ajLig#1゜\endcsname}
587 \gdef\!#1{\csname ajLig小#1\endcsname}
588 \gdef\ajLig#1{\csname ajLig#1\endcsname}
591 \def\@ajPICTdef#1#2{\expandafter\xdef\csname ajPICT#1\endcsname{\noexpand\CID{#2}}}
592 \def\@aj@PICTdef#1{\ifx\@nil#1\else
593 \@ajPICTdef{#1}{\number\@tempcnta}\advance\@tempcnta\@ne
594 \expandafter\@aj@PICTdef\fi}
596 \@aj@PICTdef{Club}{Heart}{Spade}{Diamond}\@nil
597 \@ajPICTdef{電話}{8056}
600 \@aj@PICTdef{Spade*}{Heart*}{Club*}{Diamond*}\@nil
602 \@aj@PICTdef 晴曇雨雪→←↑↓\@nil
603 \@ajPICTdef{野球}{12097}
604 \@ajPICTdef{湯}{12098}
605 \@ajPICTdef{花}{12228}
606 \@ajPICTdef{花*}{12229}
607 \@ajPICTdef{サッカー}{20957}%AJ1-6
608 \gdef\ajPICT#1{\csname ajPICT#1\endcsname}
612 \def\@ajArrowdef#1#2{\expandafter\xdef\csname ajArrow#1\endcsname{\noexpand\CID{#2}}}
613 \def\@aj@Arrowdef#1{\ifx\@nil#1\else
614 \@ajArrowdef{#1}{\number\@tempcnta}\advance\@tempcnta\@ne
615 \expandafter\@aj@Arrowdef\fi}
617 \@aj@Arrowdef{LeftTriangle}{RightTriangle}{DOWN}{UP}{LEFT}{RIGHT}\@nil
619 \@aj@Arrowdef{RIGHT*}{LEFT*}{UP*}{DOWN*}\@nil
621 \@aj@Arrowdef{RightHand}{LeftHand}{UpHand}{DownHand}\@nil
623 \@aj@Arrowdef{Left/Right}{Right/Left}{Up/Down}{Down/Up}\@nil
625 \@aj@Arrowdef{LeftScissors}{RightScissors}{UpScissors}{DownScissors}\@nil
628 {LeftTriangle*}{RightTriangle*}{Left}{Right}{Up}{Down}{LeftDouble}{LeftRight*}{RightDown}{LeftDown}{LeftUp}{RightUp}%
629 {Right/Left*}{Left/Right*}{Right/Left+}{Down/Up+}{Left+}{Right+}{Up+}{Down+}{LeftRight+}{UpDown+}\@nil
632 {LeftAngle}{RightAngle}{UpAngle}{DownAngle}{LeftAngle*}{RightAngle*}{UpAngle*}{DownAngle*}\@nil
633 \@ajArrowdef{RightDouble}{15482}%752 16493
634 \@ajArrowdef{LeftRightDouble}{15483}%753 16494
635 %\@ajArrowdef{LeftRight}{15511}%12201 16522
636 \@ajArrowdef{RightUp*}{16201}
637 \@ajArrowdef{RightDown*}{16202}
638 %\@ajArrowdef{DOWNLEFT*}{16273}
639 \gdef\ajArrow#1{\csname ajArrow#1\endcsname}
642 \def\@aj@kuntendef#1{\ifx\@nil#1%
643 \else\expandafter\xdef\csname aj訓点#1\endcsname
644 {\noexpand\CID{\number\@tempcnta}}%
645 \advance\@tempcnta\@ne
646 \expandafter\@aj@kuntendef
649 \@aj@kuntendef |レ一二三四上中下甲乙丙丁天地人\@nil
650 \gdef\aj@smallReten{{\@tempdimb\f@size pt\@tempskipa\f@baselineskip
651 \@tempdimb.94\@tempdimb
652 \@tempskipa.94\@tempskipa
653 \fontsize{\@tempdimb}{\@tempskipa}\selectfont\aj訓点レ}}
654 \gdef\aj訓点一レ{\mbox{\tate\kern-.24zw\aj訓点一\kern-.65zw\raise.15zw\hbox{\aj@smallReten}}}
655 \gdef\aj訓点上レ{\mbox{\tate\aj訓点上\kern-.3zw\raise.15zw\hbox{\aj@smallReten}}}
656 \gdef\aj訓点甲レ{\mbox{\tate\aj訓点甲\kern-.25zw\raise.15zw\hbox{\aj@smallReten}}}
657 \gdef\aj訓点天レ{\mbox{\tate\aj訓点天\kern-.4zw\raise.1zw\hbox{\aj@smallReten}}}
658 \def\@ajongofudef#1{\ifx\@nil#1%
659 \else\expandafter\xdef\csname aj訓点#1|\endcsname
660 {\noexpand\mbox{\yoko\expandafter\noexpand\csname aj訓点#1\endcsname
661 \hbox to\z@{\hss\expandafter\noexpand\csname aj訓点|\endcsname\kern-.5zw}}}%
662 \expandafter\@ajongofudef\fi}
663 \@ajongofudef 二三四中下乙丙丁地人\@nil
664 \expandafter\gdef\csname aj訓点 |\endcsname{\mbox{\yoko{ }\hbox to\z@{\hss\csname aj訓点|\endcsname\kern-.5zw}}}
665 \def\@ajkungofudef#1{\ifx\@nil#1%
666 \else\expandafter\xdef\csname aj訓点|#1\endcsname
667 {\noexpand\mbox{\yoko\hbox to\z@{\hss\expandafter\noexpand\csname aj訓点|\endcsname\kern-.5zw}%
668 \expandafter\noexpand\csname aj訓点#1\endcsname}}%
669 \expandafter\@ajkungofudef\fi}
670 \@ajkungofudef 二三四中下乙丙丁地人\@nil
671 \expandafter\gdef\csname aj訓点| \endcsname{\mbox{\yoko\hbox to\z@{\hss\csname aj訓点|\endcsname\kern-.5zw}{ }}}
673 \gdef\ajKunten#1{\csname aj訓点#1\endcsname}
677 \gdef\ajRedefine@KundokuMacros{\ifx\kokana\@undefined
678 \else\let\orig@kokana\kokana
679 \let\orig@retenform\retenform
680 \let\orig@reten\reten
681 \let\orig@retenkana\retenkana
682 \let\orig@kaeriten\kaeriten
683 \def\aj@kokana##1##2{\orig@kokana{\aj@kundokusize\if@kana\rubyfamily\fi##1}%
684 {\aj@kundokusize\ajKunten{##2}}}%
685 \def\aj@retenform{\aj@kundokusize\aj訓点レ}%
686 \def\aj@reten{\orig@kaeriten{\aj@kundokusize\aj訓点レ}}%
687 \def\aj@retenkana##1{\orig@retenkana{\aj@kundokusize\if@kana\rubyfamily\fi##1}}%
688 \def\aj@kaeriten##1{\orig@kaeriten{\aj@kundokusize\ajKunten{##1}}}%
689 \let\aj@kundokusize\tiny
691 \ifx\@k@nd@ku@\@undefined
692 \else{\global\let\orig@k@nd@ku@\@k@nd@ku@
693 \def\get@hbox##1\hbox##2##3\get@hbox
694 {\@temptokena{##1}\@temptokenb{##2}\@temptokenc{##3}}%
695 \expandafter\get@hbox
696 \@k@nd@ku@[##1]{##2}{##3}{##4}{\ajKunten{##5}}[\ajKunten{##6}]<##7>(##8)\get@hbox
697 \def\change@reten##1\def\temptopleft##2\def\tempbottomleft##3##4\change@reten
698 {\@temptokenb{##1\def\temptopleft{####6}\def\tempbottomleft{####5}##4}}%
699 \expandafter\change@reten\the\@temptokenb\change@reten
700 \edef\redefine@k@nd@ku@##1{\gdef\noexpand\aj@k@nd@ku@##1%
701 {\the\@temptokena\hbox{\the\@temptokenb}\the\@temptokenc}}%
702 \redefine@k@nd@ku@{[##1]##2##3##4##5[##6]<##7>(##8)}}%
703 \let\aj@kundokusize\kundokusize
706 \@onlypreamble\ajRedefine@KundokuMacros
707 \AtBeginDocument{\ajRedefine@KundokuMacros}
709 \gdef\DeclareOriginalKundokuStyle{\@ifnextchar[%]
710 {\Declare@OriginalKundokuStyle}%
711 {\Declare@OriginalKundokuStyle[\aj@kundokusize]}}
712 \gdef\Declare@OriginalKundokuStyle[#1]{\let\aj@kundokusize#1%
713 \ifx\orig@k@nd@ku@\@undefined
714 \else\let\@k@nd@ku@\orig@k@nd@ku@
715 \let\kundokusize\aj@kundokusize
717 \ifx\orig@kokana\@undefined
719 \let\kokana\orig@kokana
720 \let\retenform\orig@retenform
721 \let\reten\orig@reten
722 \let\retenkana\orig@retenkana
723 \let\kaeriten\orig@kaeriten
725 \gdef\DeclareAJKundokuStyle{\@ifnextchar[%]
726 {\Declare@AJKundokuStyle}%
727 {\Declare@AJKundokuStyle[\aj@kundokusize]}}
728 \gdef\Declare@AJKundokuStyle[#1]{\let\aj@kundokusize#1%
729 \ifx\aj@k@nd@ku@\@undefined
730 \else\let\@k@nd@ku@\aj@k@nd@ku@
731 \def\kundokusize{\aj@kundokusize\if@kana\rubyfamily\fi}%
733 \ifx\aj@kokana\@undefined
735 \let\kokana\aj@kokana
736 \let\retenform\aj@retenform
738 \let\retenkana\aj@retenkana
739 \let\kaeriten\aj@kaeriten
743 \gdef\ajCIDVarDef{\aj@VarDef\CID}
744 \gdef\ajUTFVarDef{\aj@VarDef\UTF}
745 \gdef\aj@VarDef#1#2#3{\expandafter\xdef\csname ajVar#2\endcsname{\noexpand#1{#3}}}
746 \gdef\ajCIDVarList#1{{\@ajCIDVarList#1\relax}}
747 \gdef\@ajCIDVarList#1{\ifx\relax#1\else\def\reserved@a{#1}\expandafter\aj@CIDVarList\fi}
748 \gdef\aj@CIDVarList{\afterassignment\@aj@CIDVarList\@tempcnta}
749 \gdef\@aj@CIDVarList{\aj@VarDef\CID\reserved@a{\number\@tempcnta}\@ajCIDVarList}
750 \gdef\ajUTFVarList#1{{\@ajUTFVarList#1 \relax}}
751 \gdef\@ajUTFVarList#1{\ifx\relax#1\else\def\reserved@a{#1}\expandafter\aj@UTFVarList\fi}
752 \gdef\aj@UTFVarList#1#2{\ifx=#1\expandafter\@aj@UTFVarList\else\expandafter\@aj@UTFVarList\expandafter#1\fi#2}
753 \gdef\@aj@UTFVarList#1 {\aj@VarDef\UTF\reserved@a{#1}\@ajUTFVarList}
754 \gdef\ajVar#1{\csname ajVar#1\endcsname}
756 \@onlypreamble\ajCIDVarDef
757 \@onlypreamble\ajUTFVarDef
758 \@onlypreamble\ajCIDVarList
759 \@onlypreamble\ajUTFVarList
761 %\ajCIDVarList{吉=13706 教=8471 高=8705 鴎=7646 崎=14290 碕=17009 第=13910 角=13682 浜=8531}
762 \gdef\ajHashigoTaka{\CID{8705}}
763 \gdef\ajTsuchiYoshi{\CID{13706}}
764 \gdef\ajTatsuSaki{\CID{14290}}
765 \gdef\ajMayuHama{\CID{8531}}
768 %\gdef\ajRedefine@ajVar{\@ifpackageloaded{hyperref}{%
770 % \def\ajVar##1{\ifHy@pdfstring
771 % \expandafter\expandafter
772 % \expandafter\check@UTF\csname ajVar##1\endcsname{##1}%
773 % \else\aj@Var{##1}\fi}
774 % \def\check@UTF##1##2##3{\ifx\UTF##1\0x##2\else##3\fi}}{}}
775 \gdef\ajRedefine@ajCommands{\@ifpackageloaded{hyperref}{%
776 \let\hyperref@ajLabel\ajLabel
777 \def\ajLabel##1##{\ifHy@pdfstring\Hy@ReturnAfterElseFi\hyperref@ajLabel\@arabic\else\ltx@ReturnAfterFi\hyperref@ajLabel##1\fi}%
778 \ajRedefine@ajCommand\△{Lig△}\▽{Lig▽}\!{Lig小}\ajLig{Lig}\ajPICT{PICT}\※{PICT}\ajVar{Var}\@nil\@nil
779 \aj@Redefine@ajCommand○{Maru}●{KuroMaru}□{Kaku}■{KuroKaku}◇{MaruKaku}◆{KuroMaruKaku}\@nil\@nil
780 \def\(##1){\ifHy@pdfstring(##1)\else\expandafter\ifx\csname ajLig(##1)\endcsname\relax\@ajnumber{##1}{Kakko}%
781 \else\csname ajLig(##1)\endcsname\fi\fi}%
782 \def\゛##1{\ifHy@pdfstring##1゛\else\csname ajLig##1゛\endcsname\fi}%
783 \def\゜##1{\ifHy@pdfstring##1゜\else\csname ajLig##1゜\endcsname\fi}%
785 \gdef\ajRedefine@ajCommand#1#2{\ifx\@nil#1\else\def#1##1{\ifHy@pdfstring##1\else\csname aj#2##1\endcsname\fi}%
786 \expandafter\ajRedefine@ajCommand\fi}
787 \gdef\aj@Redefine@ajCommand#1#2{\ifx\@nil#1\else\expandafter\def\csname#1\endcsname##1%
788 {\ifHy@pdfstring##1\else\expandafter\ifx\csname ajLig#1##1\endcsname\relax\@ajnumber{##1}{#2}\else
789 \csname ajLig#1##1\endcsname\fi\fi}%
790 \expandafter\aj@Redefine@ajCommand\fi}
792 \AtBeginDocument{\ajRedefine@ajCommands}
796 \gdef\ajLeader{\@ifnextchar[{\aj@Leader}{\aj@Leader[\z@ plus1fill]}}
797 \gdef\aj@Leader[#1]#2{{\@tempcnta#2\multiply\@tempcnta\tw@
798 \advance\@tempcnta1221\ifhmode\unless\ifnum\ltjgetparameter{direction}=3 4\else5\fi\else\unless\ifnum\ltjgetparameter{direction}=3 5\else4\fi\fi
799 \leaders\hbox{\CID{\@tempcnta}}\ifhmode\hskip\else\vskip\fi#1}}
803 \toks0{}\toks1{}\toks2{}\toks3{}
804 \def\ajQuotedef#1 #2 #3 #4 {\ifx*#1\else
805 \toks0\expandafter{\the\toks0 \or#1}%
806 \toks1\expandafter{\the\toks1 \or#2}%
807 \toks2\expandafter{\the\toks2 \or#3}%
808 \toks3\expandafter{\the\toks3 \or#4}%
809 \expandafter\ajQuotedef\fi}
823 12125 12126 12135 12136
824 12127 12128 12137 12138
825 12129 12130 12139 12140
826 12131 12132 12141 12142
827 12171 12172 12173 12174
828 16197 16198 16329 16330
830 \def\@removetop#1{\toks#1\expandafter\expandafter\expandafter{\expandafter\@gobble\the\toks#1}}
831 \@removetop0\@removetop1\@removetop2\@removetop3
832 \xdef\ajQuote#1#2{\noexpand\CID{\noexpand\unless\noexpand\ifnum\noexpand\ltjgetparameter\noexpand{direction\noexpand}=3 \noexpand\ifcase#1 \the\toks0
833 \noexpand\fi\noexpand\else\noexpand\ifcase#1 \the\toks2
834 \noexpand\fi\noexpand\fi}#2\inhibitglue\noexpand\CID{\noexpand\unless\noexpand\ifnum\noexpand\ltjgetparameter\noexpand{direction\noexpand}=3 \noexpand\ifcase#1 \the\toks1
835 \noexpand\fi\noexpand\else\noexpand\ifcase#1 \the\toks3
836 \noexpand\fi\noexpand\fi}}
839 \ajRedefine@KundokuMacros
841 %%------------------ all done