2 % luatexja-ajmacros.sty
5 % \ProvidesPackage{ajmacros}[2005/12/25 13:52 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 {\noexpand\CID{\noexpand\unless\noexpand\ifnum\noexpand\ltjgetparameter\noexpand{direction\noexpand}=3 #2\noexpand\else#3\noexpand\fi}}}
351 \def\@aj@ligaturedef#1{\ifx\@nil#1\else
352 \@aj@ligdef{#1}{\number\@tempcnta}{\number\@tempcntb}%
353 \advance\@tempcnta\@ne\advance\@tempcntb\@ne
354 \expandafter\@aj@ligaturedef\fi}
356 \let\@ajmojifam\@empty
358 \@ajligaturedef{!!}{!?}{!*}{!!*}{!?*}\@nil
359 \@ajligdef{?!}{16279}
360 \@ajligdef{??}{16278}
362 \let\@ajmojifam\@empty
364 \@ajligaturedef{mm}{cm}{km}{mg}{kg}{cc}{m2}\@nil
366 \@ajligaturedef{No.}{K.K.}{TEL}\@nil
368 \@ajligaturedef{cm2}{km2}{cm3}{m3}{dl}{l}{kl}{ms}{micros}{ns}{ps}{KB}{MB}{GB}{HP}{Hz}{mb}{ml}\@nil
369 \@ajligdef{KK.}{8053}
370 \@ajligdef{Tel}{8055}
373 \@ajligaturedef{mm2}{mm3}{km3}{sec}{min}\@nil
375 \@ajligaturedef{cal}{kcal}{dB}\@nil
377 \@ajligaturedef{m}{g}{F}{TB}{FAX}{JIS}\@nil
378 \@ajligdef{euro}{9779}
379 \@aj@ligdef{euro*}{9354}{12870}
380 \@aj@ligdef{ohm*}{9355}{12871}
381 \@ajligdef{mho}{16204}
382 \@aj@ligdef{mho*}{15515}{16526}
383 \@aj@ligdef{No*}{20321}{20965}%AJ1-6
385 \@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
386 \@ajligdef{JAS}{12088}
388 \@ajligaturedef{ppb}{ppm}{'S}{H2}{O2}{Ox}{Nx}{Q2}{Jr.}{Dr.}\@nil%AJ1-6
390 \let\@ajmojifam\@empty
393 \@aj@ligaturedef{明治}{大正}{昭和}\@nil
396 \@aj@ligaturedef{ミリ}{キロ}{センチ*}{メートル}{グラム*}{トン}{アール*}{ヘクタール}{リットル}{ワット*}{カロリー}{ドル}{セント*}{パーセント}{ミリバール}{ページ*}\@nil
397 \@aj@ligdef{センチ}{8038}{8329}
398 \@aj@ligdef{キロメートル}{8039}{8330}
399 \@aj@ligdef{グラム}{8040}{8339}
400 \@aj@ligdef{キログラム}{8041}{8340}
401 \@aj@ligdef{アール}{8042}{8338}
402 \@aj@ligdef{セント}{8043}{8348}
403 \@aj@ligdef{ワット}{8044}{8344}
404 \@aj@ligdef{ホーン}{8045}{8347}
405 \@aj@ligdef{ヘルツ}{8046}{8343}
406 \@aj@ligdef{ページ}{8047}{8349}
407 \@aj@ligdef{アパート}{8048}{8350}
408 \@aj@ligdef{ビル}{8049}{8358}
409 \@aj@ligdef{マンション}{8050}{8357}
410 \@aj@ligdef{コーポ}{8051}{8353}
411 \@aj@ligdef{ハイツ}{8052}{8356}
412 \@aj@ligdef{株式会社}{8054}{8324}
413 \@aj@ligdef{インチ}{8183}{8333}
414 \@aj@ligdef{有限会社}{8321}{8325}
415 \@aj@ligdef{財団法人}{8322}{8326}
416 \@aj@ligdef{平成}{8323}{12044}
417 \@aj@ligdef{フィート}{8327}{8334}
418 \@aj@ligdef{ヤード}{8328}{8337}
419 \@aj@ligdef{インチ*}{8331}{8332}
420 \@aj@ligdef{ヤード*}{8335}{8336}
421 \@aj@ligdef{ヘルツ*}{8341}{8342}
422 \@aj@ligdef{ホーン*}{8345}{8346}
423 \@aj@ligdef{コーポ*}{8351}{8352}
424 \@aj@ligdef{ハイツ*}{8354}{8355}
425 \@aj@ligdef{さじ}{11871}{11872}
428 \@aj@ligaturedef{アト}{アルファ}{アンペア}{イニング}{ウォン}{ウルシ}{エーカー}{エクサ}{エスクード}{オーム}{オングストローム}{オンス}{オントロ}{カイリ}%
429 {カップ}{カラット}{ガロン}{ガンマ}{ギガ}{ギニー}{キュリー}{ギルダー}{キロリットル}{キロワット}{グスーム}{グラムトン}{クルサード}{クルゼイロ}{クローネ}%
430 {ケース}{コルナ}{サイクル}{サンチーム}{シリング}{ダース}{デカ}{デシ}{テラ}{ドラクマ}{ナノ}{ノット}{バーツ}{バーレル}{パスカル}{バレル}{ピアストル}{ピクル}%
431 {ピコ}{ファラッド}{ファラド}{フェムト}{ブッシェル}{フラン}{ベータ}{ヘクト}{ヘクトパスカル}{ペセタ}{ペソ}{ペタ}{ペニヒ}{ペンス}{ポイント}{ホール}{ボルト}{ホン}%
432 {ポンド}{マイクロ}{マイル}{マッハ}{マルク}{ミクロン}{メガ}{メガトン}{ヤール}{ユアン}{ユーロ}{ラド}{リラ}{ルーブル}{ルクス}{ルピア}{ルピー}{レム}{レントゲン}\@nil
435 \@aj@ligaturedef{医療法人}{学校法人}{共同組合}{協同組合}{合資会社}{合名会社}{社団法人}{宗教法人}{郵便番号}\@nil
436 \expandafter\gdef\csname ajLigオングストローム*\endcsname
437 {\mbox{\kern.05zw\ajLig{オントロ}\kern-.1zw\ajLig{グスーム}\kern.05zw}}
440 \@aj@ligaturedef{ガル}{グレイ}{クローナ}{シーベルト}{シェケル}{ジュール}{デシベル}{ドット}{バイト}{ビット}{ベクレル}{ボー}{ランド}{リンギット}\@nil%AJ1-6
441 \@ajligdef{より}{12181}
443 \@ajligdef{コト}{16195}
447 \@ajligaturedef 上中下左右\@nil
450 \@ajligaturedef 夜企医協名宗労学有株社監資財\@nil
454 \@ajligaturedef 大小優控\@nil
456 \@ajligaturedef 調注副減標欠基禁項休女男正写祝出適特済増問答例電\@nil%
457 \@ajligdef{年}{20553}%AJ1-6
459 \def\@ajmojifam#1{(#1)}
464 \@ajligaturedef 至企協名労社監自資財特学祭呼\@nil
468 \@ajligaturedef 営合注問答例\@nil
475 \@ajligaturedef{:A}{:B}{:C}{:D}{:E}{:F}{:終}\@nil%AJ1-6
477 \@ajligaturedef{:CL}{:KCL}{:BEL}{:AS}{:AM}{:段}{:ゴ}{:ミ}\@nil%AJ1-6
481 \@ajligaturedef {News}天再新映声前後終立交{ほか}劇司解株気二多文手{PV}{MV}双{SS}{S1}{S2}{S3}デ{HV}\@nil%AJ1-6
493 \expandafter\chardef\csname offset●\endcsname\z@
494 \expandafter\mathchardef\csname offset□\endcsname269
495 \expandafter\mathchardef\csname offset■\endcsname268
496 \expandafter\mathchardef\csname offset◇\endcsname267
497 \expandafter\mathchardef\csname offset◆\endcsname266
499 \def\@ajmojidef#1{\ifx\@nil#1%
500 \else\advance\@tempcnta\csname offset#1\endcsname
502 \@ajligaturedef 問答例\@nil
503 \expandafter\@ajmojidef\fi}
504 \@ajmojidef ●□■◇◆\@nil
506 \def\@ajkanadef#1#2#3#4#5#6#7{\expandafter\gdef\csname ajLig#1\endcsname
507 {\if@kana\def\reserved@a{ruby}%
508 \ifx\k@family\reserved@a
509 \unless\ifnum\ltjgetparameter{direction}=3 \CID{#6}\else\CID{#7}\fi
510 \else\unless\ifnum\ltjgetparameter{direction}=3 \CID{#4}\else\CID{#5}\fi
512 \else\unless\ifnum\ltjgetparameter{direction}=3 \CID{#2}\else\CID{#3}\fi
518 \def\@aj@kanadef#1{\ifx\@nil#1%
519 \else\edef\reserved@b{\noexpand\@ajkanadef{#1}%
520 {\number\@tempcnta}{\number\@tempcntb}{\number\@tempcntc}%
521 {\number\@tempcntd}{\number\@tempcnte}{\number\@tempcntf}}\reserved@b
522 \advance\@tempcnta\@ne\advance\@tempcntb\@ne\advance\@tempcntc\@ne
523 \advance\@tempcntd\@ne\advance\@tempcnte\@ne\advance\@tempcntf\@ne
524 \expandafter\@aj@kanadef\fi}
525 \@ajkanadef{う゛}{7958}{7958}{12361}{12544}{12756}{12756}
532 \@aj@kanadef{ワ゛}{ヰ゛}{ヱ゛}{ヲ゛}\@nil
539 \@aj@kanadef{か゜}{き゜}{く゜}{け゜}{こ゜}{カ゜}{キ゜}{ク゜}{ケ゜}{コ゜}{セ゜}{ツ゜}{ト゜}\@nil
540 \@ajkanadef{小か}{7959}{8264}{12285}{12468}{12682}{12762}
541 \@ajkanadef{小け}{7960}{8265}{12292}{12475}{12689}{12763}
542 \@ajkanadef{小こ}{12269}{12270}{12295}{12478}{16448}{16467}
543 \@ajkanadef{小コ}{12271}{12272}{12385}{12568}{16449}{16468}
550 \@aj@kanadef{小ク}{小シ}{小ス}{小ト}{小ヌ}{小ハ}{小ヒ}{小フ}{小ヘ}{小ホ}{小プ}{小ム}{小ラ}{小リ}{小ル}{小レ}{小ロ}\@nil
552 \def\@aj@numberdef#1#2{\ifx\@nil#2\expandafter\@gobble
553 \else\expandafter\xdef\csname ajnumber#2\endcsname{{#1}{\number\@tempcnta}}%
554 \advance\@tempcnta\@ne
555 \expandafter\@aj@numberdef\fi{#1}}
557 \@aj@numberdef{alph}abcdefghijklmnopqrstuvwxyz\@nil
559 \@aj@numberdef{Alph}ABCDEFGHIJKLMNOPQRSTUVWXYZ\@nil
561 \@aj@numberdef{Hira}あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわゐゑをん\@nil
563 \@aj@numberdef{Kata}アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヰヱヲン\@nil
565 \@aj@numberdef{Yobi}日月火水木金土祝休\@nil
566 \gdef\@ajnumber#1{\expandafter\expandafter\expandafter\aj@number\csname ajnumber#1\endcsname}
567 \gdef\aj@number#1{\ifx\relax#1\expandafter\@gobbletwo\else\expandafter\@aj@number\fi{#1}}
568 \gdef\@aj@number#1#2#3{\csname aj#3#1\endcsname{#2}}
570 \def\@aj@kakomidef#1#2{\expandafter\gdef\csname#1\endcsname##1%
571 {\expandafter\ifx\csname ajLig#1##1\endcsname\relax\@ajnumber{##1}{#2}%
572 \else\csname ajLig#1##1\endcsname\fi}}
573 \@aj@kakomidef{○}{Maru}
574 \@aj@kakomidef{●}{KuroMaru}
575 \@aj@kakomidef{□}{Kaku}
576 \@aj@kakomidef{■}{KuroKaku}
577 \@aj@kakomidef{◇}{MaruKaku}
578 \@aj@kakomidef{◆}{KuroMaruKaku}
579 \gdef\△#1{\csname ajLig△#1\endcsname}
580 \gdef\▽#1{\csname ajLig▽#1\endcsname}
581 \gdef\(#1){\expandafter\ifx\csname ajLig(#1)\endcsname\relax\@ajnumber{#1}{Kakko}%
582 \else\csname ajLig(#1)\endcsname\fi}
583 \gdef\゛#1{\csname ajLig#1゛\endcsname}
584 \gdef\゜#1{\csname ajLig#1゜\endcsname}
585 \gdef\!#1{\csname ajLig小#1\endcsname}
586 \gdef\ajLig#1{\csname ajLig#1\endcsname}
589 \def\@ajPICTdef#1#2{\expandafter\xdef\csname ajPICT#1\endcsname{\noexpand\CID{#2}}}
590 \def\@aj@PICTdef#1{\ifx\@nil#1\else
591 \@ajPICTdef{#1}{\number\@tempcnta}\advance\@tempcnta\@ne
592 \expandafter\@aj@PICTdef\fi}
594 \@aj@PICTdef{Club}{Heart}{Spade}{Diamond}\@nil
595 \@ajPICTdef{電話}{8056}
598 \@aj@PICTdef{Spade*}{Heart*}{Club*}{Diamond*}\@nil
600 \@aj@PICTdef 晴曇雨雪→←↑↓\@nil
601 \@ajPICTdef{野球}{12097}
602 \@ajPICTdef{湯}{12098}
603 \@ajPICTdef{花}{12228}
604 \@ajPICTdef{花*}{12229}
605 \@ajPICTdef{サッカー}{20957}%AJ1-6
606 \gdef\ajPICT#1{\csname ajPICT#1\endcsname}
610 \def\@ajArrowdef#1#2{\expandafter\xdef\csname ajArrow#1\endcsname{\noexpand\CID{#2}}}
611 \def\@aj@Arrowdef#1{\ifx\@nil#1\else
612 \@ajArrowdef{#1}{\number\@tempcnta}\advance\@tempcnta\@ne
613 \expandafter\@aj@Arrowdef\fi}
615 \@aj@Arrowdef{LeftTriangle}{RightTriangle}{DOWN}{UP}{LEFT}{RIGHT}\@nil
617 \@aj@Arrowdef{RIGHT*}{LEFT*}{UP*}{DOWN*}\@nil
619 \@aj@Arrowdef{RightHand}{LeftHand}{UpHand}{DownHand}\@nil
621 \@aj@Arrowdef{Left/Right}{Right/Left}{Up/Down}{Down/Up}\@nil
623 \@aj@Arrowdef{LeftScissors}{RightScissors}{UpScissors}{DownScissors}\@nil
626 {LeftTriangle*}{RightTriangle*}{Left}{Right}{Up}{Down}{LeftDouble}{LeftRight*}{RightDown}{LeftDown}{LeftUp}{RightUp}%
627 {Right/Left*}{Left/Right*}{Right/Left+}{Down/Up+}{Left+}{Right+}{Up+}{Down+}{LeftRight+}{UpDown+}\@nil
630 {LeftAngle}{RightAngle}{UpAngle}{DownAngle}{LeftAngle*}{RightAngle*}{UpAngle*}{DownAngle*}\@nil
631 \@ajArrowdef{RightDouble}{15482}%752 16493
632 \@ajArrowdef{LeftRightDouble}{15483}%753 16494
633 %\@ajArrowdef{LeftRight}{15511}%12201 16522
634 \@ajArrowdef{RightUp*}{16201}
635 \@ajArrowdef{RightDown*}{16202}
636 %\@ajArrowdef{DOWNLEFT*}{16273}
637 \gdef\ajArrow#1{\csname ajArrow#1\endcsname}
640 \def\@aj@kuntendef#1{\ifx\@nil#1%
641 \else\expandafter\xdef\csname aj訓点#1\endcsname
642 {\noexpand\CID{\number\@tempcnta}}%
643 \advance\@tempcnta\@ne
644 \expandafter\@aj@kuntendef
647 \@aj@kuntendef |レ一二三四上中下甲乙丙丁天地人\@nil
648 \gdef\aj@smallReten{{\@tempdimb\f@size pt\@tempskipa\f@baselineskip
649 \@tempdimb.94\@tempdimb
650 \@tempskipa.94\@tempskipa
651 \fontsize{\@tempdimb}{\@tempskipa}\selectfont\aj訓点レ}}
652 \gdef\aj訓点一レ{\mbox{\tate\kern-.24zw\aj訓点一\kern-.65zw\raise.15zw\hbox{\aj@smallReten}}}
653 \gdef\aj訓点上レ{\mbox{\tate\aj訓点上\kern-.3zw\raise.15zw\hbox{\aj@smallReten}}}
654 \gdef\aj訓点甲レ{\mbox{\tate\aj訓点甲\kern-.25zw\raise.15zw\hbox{\aj@smallReten}}}
655 \gdef\aj訓点天レ{\mbox{\tate\aj訓点天\kern-.4zw\raise.1zw\hbox{\aj@smallReten}}}
656 \def\@ajongofudef#1{\ifx\@nil#1%
657 \else\expandafter\xdef\csname aj訓点#1|\endcsname
658 {\noexpand\mbox{\yoko\expandafter\noexpand\csname aj訓点#1\endcsname
659 \hbox to\z@{\hss\expandafter\noexpand\csname aj訓点|\endcsname\kern-.5zw}}}%
660 \expandafter\@ajongofudef\fi}
661 \@ajongofudef 二三四中下乙丙丁地人\@nil
662 \expandafter\gdef\csname aj訓点 |\endcsname{\mbox{\yoko{ }\hbox to\z@{\hss\csname aj訓点|\endcsname\kern-.5zw}}}
663 \def\@ajkungofudef#1{\ifx\@nil#1%
664 \else\expandafter\xdef\csname aj訓点|#1\endcsname
665 {\noexpand\mbox{\yoko\hbox to\z@{\hss\expandafter\noexpand\csname aj訓点|\endcsname\kern-.5zw}%
666 \expandafter\noexpand\csname aj訓点#1\endcsname}}%
667 \expandafter\@ajkungofudef\fi}
668 \@ajkungofudef 二三四中下乙丙丁地人\@nil
669 \expandafter\gdef\csname aj訓点| \endcsname{\mbox{\yoko\hbox to\z@{\hss\csname aj訓点|\endcsname\kern-.5zw}{ }}}
671 \gdef\ajKunten#1{\csname aj訓点#1\endcsname}
675 \gdef\ajRedefine@KundokuMacros{\ifx\kokana\@undefined
676 \else\let\orig@kokana\kokana
677 \let\orig@retenform\retenform
678 \let\orig@reten\reten
679 \let\orig@retenkana\retenkana
680 \let\orig@kaeriten\kaeriten
681 \def\aj@kokana##1##2{\orig@kokana{\aj@kundokusize\if@kana\rubyfamily\fi##1}%
682 {\aj@kundokusize\ajKunten{##2}}}%
683 \def\aj@retenform{\aj@kundokusize\aj訓点レ}%
684 \def\aj@reten{\orig@kaeriten{\aj@kundokusize\aj訓点レ}}%
685 \def\aj@retenkana##1{\orig@retenkana{\aj@kundokusize\if@kana\rubyfamily\fi##1}}%
686 \def\aj@kaeriten##1{\orig@kaeriten{\aj@kundokusize\ajKunten{##1}}}%
687 \let\aj@kundokusize\tiny
689 \ifx\@k@nd@ku@\@undefined
690 \else{\global\let\orig@k@nd@ku@\@k@nd@ku@
691 \def\get@hbox##1\hbox##2##3\get@hbox
692 {\@temptokena{##1}\@temptokenb{##2}\@temptokenc{##3}}%
693 \expandafter\get@hbox
694 \@k@nd@ku@[##1]{##2}{##3}{##4}{\ajKunten{##5}}[\ajKunten{##6}]<##7>(##8)\get@hbox
695 \def\change@reten##1\def\temptopleft##2\def\tempbottomleft##3##4\change@reten
696 {\@temptokenb{##1\def\temptopleft{####6}\def\tempbottomleft{####5}##4}}%
697 \expandafter\change@reten\the\@temptokenb\change@reten
698 \edef\redefine@k@nd@ku@##1{\gdef\noexpand\aj@k@nd@ku@##1%
699 {\the\@temptokena\hbox{\the\@temptokenb}\the\@temptokenc}}%
700 \redefine@k@nd@ku@{[##1]##2##3##4##5[##6]<##7>(##8)}}%
701 \let\aj@kundokusize\kundokusize
704 \@onlypreamble\ajRedefine@KundokuMacros
705 \AtBeginDocument{\ajRedefine@KundokuMacros}
707 \gdef\DeclareOriginalKundokuStyle{\@ifnextchar[%]
708 {\Declare@OriginalKundokuStyle}%
709 {\Declare@OriginalKundokuStyle[\aj@kundokusize]}}
710 \gdef\Declare@OriginalKundokuStyle[#1]{\let\aj@kundokusize#1%
711 \ifx\orig@k@nd@ku@\@undefined
712 \else\let\@k@nd@ku@\orig@k@nd@ku@
713 \let\kundokusize\aj@kundokusize
715 \ifx\orig@kokana\@undefined
717 \let\kokana\orig@kokana
718 \let\retenform\orig@retenform
719 \let\reten\orig@reten
720 \let\retenkana\orig@retenkana
721 \let\kaeriten\orig@kaeriten
723 \gdef\DeclareAJKundokuStyle{\@ifnextchar[%]
724 {\Declare@AJKundokuStyle}%
725 {\Declare@AJKundokuStyle[\aj@kundokusize]}}
726 \gdef\Declare@AJKundokuStyle[#1]{\let\aj@kundokusize#1%
727 \ifx\aj@k@nd@ku@\@undefined
728 \else\let\@k@nd@ku@\aj@k@nd@ku@
729 \def\kundokusize{\aj@kundokusize\if@kana\rubyfamily\fi}%
731 \ifx\aj@kokana\@undefined
733 \let\kokana\aj@kokana
734 \let\retenform\aj@retenform
736 \let\retenkana\aj@retenkana
737 \let\kaeriten\aj@kaeriten
741 \gdef\ajCIDVarDef{\aj@VarDef\CID}
742 \gdef\ajUTFVarDef{\aj@VarDef\UTF}
743 \gdef\aj@VarDef#1#2#3{\expandafter\xdef\csname ajVar#2\endcsname{\noexpand#1{#3}}}
744 \gdef\ajCIDVarList#1{{\@ajCIDVarList#1\relax}}
745 \gdef\@ajCIDVarList#1{\ifx\relax#1\else\def\reserved@a{#1}\expandafter\aj@CIDVarList\fi}
746 \gdef\aj@CIDVarList{\afterassignment\@aj@CIDVarList\@tempcnta}
747 \gdef\@aj@CIDVarList{\aj@VarDef\CID\reserved@a{\number\@tempcnta}\@ajCIDVarList}
748 \gdef\ajUTFVarList#1{{\@ajUTFVarList#1 \relax}}
749 \gdef\@ajUTFVarList#1{\ifx\relax#1\else\def\reserved@a{#1}\expandafter\aj@UTFVarList\fi}
750 \gdef\aj@UTFVarList#1#2{\ifx=#1\expandafter\@aj@UTFVarList\else\expandafter\@aj@UTFVarList\expandafter#1\fi#2}
751 \gdef\@aj@UTFVarList#1 {\aj@VarDef\UTF\reserved@a{#1}\@ajUTFVarList}
752 \gdef\ajVar#1{\csname ajVar#1\endcsname}
754 \@onlypreamble\ajCIDVarDef
755 \@onlypreamble\ajUTFVarDef
756 \@onlypreamble\ajCIDVarList
757 \@onlypreamble\ajUTFVarList
759 %\ajCIDVarList{吉=13706 教=8471 高=8705 鴎=7646 崎=14290 碕=17009 第=13910 角=13682 浜=8531}
760 \gdef\ajHashigoTaka{\CID{8705}}
761 \gdef\ajTsuchiYoshi{\CID{13706}}
762 \gdef\ajTatsuSaki{\CID{14290}}
763 \gdef\ajMayuHama{\CID{8531}}
766 %\gdef\ajRedefine@ajVar{\@ifpackageloaded{hyperref}{%
768 % \def\ajVar##1{\ifHy@pdfstring
769 % \expandafter\expandafter
770 % \expandafter\check@UTF\csname ajVar##1\endcsname{##1}%
771 % \else\aj@Var{##1}\fi}
772 % \def\check@UTF##1##2##3{\ifx\UTF##1\0x##2\else##3\fi}}{}}
773 \gdef\ajRedefine@ajCommands{\@ifpackageloaded{hyperref}{%
774 \let\hyperref@ajLabel\ajLabel
775 \def\ajLabel##1##{\ifHy@pdfstring\Hy@ReturnAfterElseFi\hyperref@ajLabel\@arabic\else\ltx@ReturnAfterFi\hyperref@ajLabel##1\fi}%
776 \ajRedefine@ajCommand\△{Lig△}\▽{Lig▽}\!{Lig小}\ajLig{Lig}\ajPICT{PICT}\※{PICT}\ajVar{Var}\@nil\@nil
777 \aj@Redefine@ajCommand○{Maru}●{KuroMaru}□{Kaku}■{KuroKaku}◇{MaruKaku}◆{KuroMaruKaku}\@nil\@nil
778 \def\(##1){\ifHy@pdfstring(##1)\else\expandafter\ifx\csname ajLig(##1)\endcsname\relax\@ajnumber{##1}{Kakko}%
779 \else\csname ajLig(##1)\endcsname\fi\fi}%
780 \def\゛##1{\ifHy@pdfstring##1゛\else\csname ajLig##1゛\endcsname\fi}%
781 \def\゜##1{\ifHy@pdfstring##1゜\else\csname ajLig##1゜\endcsname\fi}%
783 \gdef\ajRedefine@ajCommand#1#2{\ifx\@nil#1\else\def#1##1{\ifHy@pdfstring##1\else\csname aj#2##1\endcsname\fi}%
784 \expandafter\ajRedefine@ajCommand\fi}
785 \gdef\aj@Redefine@ajCommand#1#2{\ifx\@nil#1\else\expandafter\def\csname#1\endcsname##1%
786 {\ifHy@pdfstring##1\else\expandafter\ifx\csname ajLig#1##1\endcsname\relax\@ajnumber{##1}{#2}\else
787 \csname ajLig#1##1\endcsname\fi\fi}%
788 \expandafter\aj@Redefine@ajCommand\fi}
790 \AtBeginDocument{\ajRedefine@ajCommands}
794 \gdef\ajLeader{\@ifnextchar[{\aj@Leader}{\aj@Leader[\z@ plus1fill]}}
795 \gdef\aj@Leader[#1]#2{{\@tempcnta#2\multiply\@tempcnta\tw@
796 \advance\@tempcnta1221\ifhmode\unless\ifnum\ltjgetparameter{direction}=3 4\else5\fi\else\unless\ifnum\ltjgetparameter{direction}=3 5\else4\fi\fi
797 \leaders\hbox{\CID{\@tempcnta}}\ifhmode\hskip\else\vskip\fi#1}}
801 \toks0{}\toks1{}\toks2{}\toks3{}
802 \def\ajQuotedef#1 #2 #3 #4 {\ifx*#1\else
803 \toks0\expandafter{\the\toks0 \or#1}%
804 \toks1\expandafter{\the\toks1 \or#2}%
805 \toks2\expandafter{\the\toks2 \or#3}%
806 \toks3\expandafter{\the\toks3 \or#4}%
807 \expandafter\ajQuotedef\fi}
821 12125 12126 12135 12136
822 12127 12128 12137 12138
823 12129 12130 12139 12140
824 12131 12132 12141 12142
825 12171 12172 12173 12174
826 16197 16198 16329 16330
828 \def\@removetop#1{\toks#1\expandafter\expandafter\expandafter{\expandafter\@gobble\the\toks#1}}
829 \@removetop0\@removetop1\@removetop2\@removetop3
830 \xdef\ajQuote#1#2{\noexpand\CID{\noexpand\unless\noexpand\ifnum\noexpand\ltjgetparameter\noexpand{direction\noexpand}=3 \noexpand\ifcase#1 \the\toks0
831 \noexpand\fi\noexpand\else\noexpand\ifcase#1 \the\toks2
832 \noexpand\fi\noexpand\fi}#2\inhibitglue\noexpand\CID{\noexpand\unless\noexpand\ifnum\noexpand\ltjgetparameter\noexpand{direction\noexpand}=3 \noexpand\ifcase#1 \the\toks1
833 \noexpand\fi\noexpand\else\noexpand\ifcase#1 \the\toks3
834 \noexpand\fi\noexpand\fi}}
837 \ajRedefine@KundokuMacros
839 %%------------------ all done