src/addons/luatexja-ajmacros.sty

   1 %
   2 % luatexja-ajmacros.sty
   3 %
   4 % Original:
   5 % \ProvidesPackage{ajmacros}[2019/04/01 21:00 iNOUE Koich! <inoue@ma.ns.musashi-tech.ac.jp>]
   6 %
   7
   8
   9 %% Avoid multiple loading.
  10 \csname\if11luatexjaajmacrosLoaded\fi\endcsname
  11 \edef\x{%
  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
  34 \relax}
  35 \catcode32=10 %< >
  36 \catcode33=12 %<">
  37 \catcode35=6  %<#>
  38 \catcode40=12 %<(>
  39 \catcode41=12 %<)>
  40 \catcode42=12 %<*>
  41 \catcode43=12 %<+>
  42 \catcode44=12 %<,>
  43 \catcode45=12 %<->
  44 \catcode46=12 %<.>
  45 \catcode58=12 %<:>
  46 \catcode59=12 %<;>
  47 \catcode60=12 %<<>
  48 \catcode61=12 %<=>
  49 \catcode62=12 %<>>
  50 \catcode64=11 %<@>
  51 \catcode91=12 %<[>
  52 \catcode93=12 %<]>
  53 \catcode94=7  %<^>
  54 \catcode95=8  %<_>
  55 \catcode126=13 %<~>
  56 \endlinechar=-1 %
  57
  58 \edef\ltj@ajmacros@AtEnd{\x
  59   \noexpand\let\noexpand\ltj@ajmacros@AtEnd\relax}
  60 \def\luatexjaajmacrosLoaded{\endinput}
  61
  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
  67 \else                           %<*LaTeX>
  68   \expandafter\let\csname ifltj@in@latex\expandafter\endcsname
  69     \csname iftrue\endcsname
  70   \NeedsTeXFormat{LaTeX2e}
  71   \ProvidesPackage{luatexja-ajmacros}[2020-10-09]
  72 \fi                             %</LaTeX>
  73
  74 %%------------------
  75 %! Main part of luatexja-ajmacros
  76 \newif\if@kana\@kanafalse
  77 %% for plain TeX
  78 \newcount\@tempcnta
  79 \newcount\@tempcntb
  80 \ifltj@in@latex\else
  81   \def\@tw{\char"2}
  82   \def\@ifstar#1#2#3{\ifx*#3\expandafter#1\else#2{#3}\fi}
  83   \long\def\@gobble#1{}
  84 \fi
  85
  86 {%
  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
  99         \fi}
 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}%
 106         \fi\fi\fi\fi}
 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}%
 112         \fi\fi\fi\fi}
 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}%
 117         \fi\fi}
 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}%
 123         \fi}
 124 \gdef\@aj@Kaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
 125         \shift@CID{\@tempcnta}{10765}}%
 126         \else\shift@CID{#1}{10774}%
 127         \fi}
 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}%
 132         \fi}
 133 \gdef\@aj@KuroKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
 134         \shift@CID{\@tempcnta}{11038}}%
 135         \else\shift@CID{#1}{11047}%
 136         \fi}
 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}%
 141         \fi}
 142 \gdef\@aj@MaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
 143         \shift@CID{\@tempcnta}{11308}}%
 144         \else\shift@CID{#1}{11317}%
 145         \fi}
 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}%
 150         \fi}
 151 \gdef\@aj@KuroMaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
 152         \shift@CID{\@tempcnta}{11577}}%
 153         \else\shift@CID{#1}{11586}%
 154         \fi}
 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}%
 159         \fi\fi}
 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}%
 163         \fi\fi}
 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}%
 168         \fi\fi}
 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}%
 172         \fi}
 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}}
 198 %
 199 \let\offsetalph\z@
 200 \chardef\offsetAlph26
 201 \chardef\offsetHira26
 202 \chardef\offsetKata48
 203 \chardef\offsetYobi48
 204 \let\offsetMaru\z@
 205 \chardef\offsetKuroMaru144
 206 \chardef\offsetKaku122
 207 \chardef\offsetKuroKaku125
 208 \chardef\offsetMaruKaku122
 209 \chardef\offsetKuroMaruKaku121
 210 \@tempcnta10312
 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
 218         \def\@ajsujifam{#1}%
 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}%
 225         \fi\fi\fi}
 226 %
 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}%
 231         \expandafter\@gobble
 232         \else\shift@CID{#1}{\unless\ifnum\ltjgetparameter{direction}=3 10152\else10174\fi}%
 233         \expandafter\aj@Tsumekakko
 234         \fi#2}
 235 \gdef\aj@Tsumekakko#1#2{\ifx\@nil#2\shift@CID{#1}{\unless\ifnum\ltjgetparameter{direction}=3 10162\else10196\fi}%
 236         \expandafter\@gobble
 237         \else\shift@CID{#1}{\unless\ifnum\ltjgetparameter{direction}=3 247\else10185\fi}%
 238         \expandafter\aj@Tsumekakko
 239         \fi#2}
 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
 243         \fi}
 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
 248         \fi#2}
 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%
 256         \fi}
 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}%
 260         \fi
 261         \shift@CID{#2}{10196}%
 262         \fi}
 263 \gdef\aj@Nenrei@Sai#1{\ifnum#1<10 \shift@CID{#1}{10174}%
 264         \else\expandafter\@aj@Nenrei@Sai\number#1%
 265         \fi\CID{10207}}
 266 \gdef\@aj@Nenrei@Sai#1#2{\ifnum#1<\tw@ \CID{10184}%
 267         \else\shift@CID{#1}{10174}\CID{10195}%
 268         \fi
 269         \ifnum#2>\z@ \shift@CID{#2}{10185}%
 270         \fi}
 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}%
 277         \fi\fi\fi}}
 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}%
 281         \fi}
 282 \gdef\ajKosu{\ajnenrei4}
 283 %
 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
 286         \expandafter\protect
 287         \expandafter#1%
 288         \expandafter{\number\csname c@#3\endcsname}}
 289 \gdef\@aj@Label#1#2\fi#3{\fi
 290         \expandafter\protect
 291         \expandafter#1%
 292         \expandafter#2%
 293         \expandafter{\number\csname c@#3\endcsname}}
 294 %
 295 %
 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
 309                                 \or9870\fi
 310         \else\ifnum#2=100 \ifnum#1=1 9871\fi\fi
 311         \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
 316         \CID{\@tempcnta}}}
 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
 326 %
 327 %
 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}
 333 \@tempcnta326
 334 \@tempcntb9084
 335 \@aj半角def 　。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜｀ヰヱヮヵヶヴガギグゲゴザジズゼゾダヂヅデドバパビピブプベペボポ\@nil
 336 \@tempcnta516
 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}
 343 %
 344 %
 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}
 356 %
 357 \let\@ajmojifam\@empty
 358 \@tempcnta12111
 359 \@ajligaturedef{!!}{!?}{!*}{!!*}{!?*}\@nil
 360 \@ajligdef{?!}{16279}
 361 \@ajligdef{??}{16278}
 362 %
 363 \let\@ajmojifam\@empty
 364 \@tempcnta7601
 365 \@ajligaturedef{mm}{cm}{km}{mg}{kg}{cc}{m2}\@nil
 366 \@tempcnta7610
 367 \@ajligaturedef{No.}{K.K.}{TEL}\@nil
 368 \@tempcnta8020
 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}
 372 \@ajligdef{in}{8182}
 373 \@tempcnta8186
 374 \@ajligaturedef{mm2}{mm3}{km3}{sec}{min}\@nil
 375 \@tempcnta8192
 376 \@ajligaturedef{cal}{kcal}{dB}\@nil
 377 \@tempcnta8303
 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
 385 \@tempcnta11846
 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}
 388 \@tempcnta20919
 389 \@ajligaturedef{ppb}{ppm}{'S}{H2}{O2}{Ox}{Nx}{Q2}{Jr.}{Dr.}\@nil%AJ1-6
 390 %
 391 \let\@ajmojifam\@empty
 392 \@tempcnta7621
 393 \@tempcntb12041
 394 \@aj@ligaturedef{明治}{大正}{昭和}\@nil
 395 \@tempcnta7585
 396 \@tempcntb7940
 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}
 427 \@tempcnta11873
 428 \@tempcntb11957
 429 \@aj@ligaturedef{アト}{アルファ}{アンペア}{イニング}{ウォン}{ウルシ}{エーカー}{エクサ}{エスクード}{オーム}{オングストローム}{オンス}{オントロ}{カイリ}%
 430 {カップ}{カラット}{ガロン}{ガンマ}{ギガ}{ギニー}{キュリー}{ギルダー}{キロリットル}{キロワット}{グスーム}{グラムトン}{クルサード}{クルゼイロ}{クローネ}%
 431 {ケース}{コルナ}{サイクル}{サンチーム}{シリング}{ダース}{デカ}{デシ}{テラ}{ドラクマ}{ナノ}{ノット}{バーツ}{バーレル}{パスカル}{バレル}{ピアストル}{ピクル}%
 432 {ピコ}{ファラッド}{ファラド}{フェムト}{ブッシェル}{フラン}{ベータ}{ヘクト}{ヘクトパスカル}{ペセタ}{ペソ}{ペタ}{ペニヒ}{ペンス}{ポイント}{ホール}{ボルト}{ホン}%
 433 {ポンド}{マイクロ}{マイル}{マッハ}{マルク}{ミクロン}{メガ}{メガトン}{ヤール}{ユアン}{ユーロ}{ラド}{リラ}{ルーブル}{ルクス}{ルピア}{ルピー}{レム}{レントゲン}\@nil
 434 \@tempcnta12045
 435 \@tempcntb12054
 436 \@aj@ligaturedef{医療法人}{学校法人}{共同組合}{協同組合}{合資会社}{合名会社}{社団法人}{宗教法人}{郵便番号}\@nil
 437 \expandafter\gdef\csname ajLigオングストローム*\endcsname
 438         {\mbox{\kern.05\zw\ajLig{オントロ}\kern-.1zw\ajLig{グスーム}\kern.05\zw}}
 439 \@tempcnta20929
 440 \@tempcntb20943
 441 \@aj@ligaturedef{ガル}{グレイ}{クローナ}{シーベルト}{シェケル}{ジュール}{デシベル}{ドット}{バイト}{ビット}{ベクレル}{ボー}{ランド}{リンギット}\@nil%AJ1-6
 442 \@ajligdef{より}{12181}
 443 \@ajligdef{升}{16194}
 444 \@ajligdef{コト}{16195}
 445 \@aj@ligdef{令和}{23058}{23059}%AJ1-7
 446 %
 447 \def\@ajmojifam{○}
 448 \@tempcnta7613
 449 \@ajligaturedef 上中下左右\@nil
 450 \@ajligdef{〒}{8057}
 451 \@tempcnta8152
 452 \@ajligaturedef 夜企医協名宗労学有株社監資財\@nil
 453 \@ajligdef{印}{8191}
 454 \@ajligdef{秘}{8223}
 455 \@tempcnta8317
 456 \@ajligaturedef 大小優控\@nil
 457 \@tempcnta10478
 458 \@ajligaturedef 調注副減標欠基禁項休女男正写祝出適特済増問答例電\@nil%
 459 \@ajligdef{年}{20553}%AJ1-6
 460 %
 461 \def\@ajmojifam#1{(#1)}
 462 \@ajligdef{株}{7618}
 463 \@ajligdef{有}{7619}
 464 \@ajligdef{代}{7620}
 465 \@tempcnta8138
 466 \@ajligaturedef 至企協名労社監自資財特学祭呼\@nil
 467 \@ajligdef{祝}{8204}
 468 \@ajligdef{休}{8205}
 469 \@tempcnta10146
 470 \@ajligaturedef 営合注問答例\@nil
 471 %
 472 \def\@ajmojifam{□}
 473 \@ajligdef{印}{8196}
 474 \@ajligdef{負}{11030}
 475 \@ajligdef{勝}{11031}
 476 \@tempcnta20497
 477 \@ajligaturedef{:A}{:B}{:C}{:D}{:E}{:F}{:終}\@nil%AJ1-6
 478 \@tempcnta20505
 479 \@ajligaturedef{:CL}{:KCL}{:BEL}{:AS}{:AM}{:段}{:ゴ}{:ミ}\@nil%AJ1-6
 480 %
 481 \def\@ajmojifam{◇}
 482 \@tempcnta20554
 483 \@ajligaturedef {News}天再新映声前後終立交{ほか}劇司解株気二多文手{PV}{MV}双{SS}{S1}{S2}{S3}デ{HV}\@nil%AJ1-6
 484 %
 485 \def\@ajmojifam{▽}
 486 \@ajligdef{〒}{12180}
 487 \@ajligdef{▽}{12193}
 488 %
 489 \def\@ajmojifam{△}
 490 \@ajligdef{!}{12192}
 491 %
 492 \def\@ajmojifam{■}
 493 \@ajligdef{◇}{12231}
 494 %
 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
 500 \@tempcnta10760
 501 \def\@ajmojidef#1{\ifx\@nil#1%
 502         \else\advance\@tempcnta\csname offset#1\endcsname
 503         \def\@ajmojifam{#1}%
 504         \@ajligaturedef 問答例\@nil
 505         \expandafter\@ajmojidef\fi}
 506 \@ajmojidef ●□■◇◆\@nil
 507 %
 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
 513                 \fi
 514         \else\unless\ifnum\ltjgetparameter{direction}=3 \CID{#2}\else\CID{#3}\fi
 515         \fi}}
 516 \newcount\@tempcntc
 517 \newcount\@tempcntd
 518 \newcount\@tempcnte
 519 \newcount\@tempcntf
 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}
 528 \@tempcnta8313
 529 \@tempcntb8313
 530 \@tempcntc12452
 531 \@tempcntd12635
 532 \@tempcnte16444
 533 \@tempcntf16444
 534 \@aj@kanadef{ワ゛}{ヰ゛}{ヱ゛}{ヲ゛}\@nil
 535 \@tempcnta16209
 536 \@tempcntb16209
 537 \@tempcntc16352
 538 \@tempcntd16382
 539 \@tempcnte16414
 540 \@tempcntf16414
 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}
 546 \@tempcnta16236
 547 \@tempcntb16333
 548 \@tempcntc16365
 549 \@tempcntd16395
 550 \@tempcnte16427
 551 \@tempcntf16450
 552 \@aj@kanadef{小ク}{小シ}{小ス}{小ト}{小ヌ}{小ハ}{小ヒ}{小フ}{小ヘ}{小ホ}{小プ}{小ム}{小ラ}{小リ}{小ル}{小レ}{小ロ}\@nil
 553 %
 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}}
 558 \@tempcnta\@ne
 559 \@aj@numberdef{alph}abcdefghijklmnopqrstuvwxyz\@nil
 560 \@tempcnta\@ne
 561 \@aj@numberdef{Alph}ABCDEFGHIJKLMNOPQRSTUVWXYZ\@nil
 562 \@tempcnta\@ne
 563 \@aj@numberdef{Hira}あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわゐゑをん\@nil
 564 \@tempcnta\@ne
 565 \@aj@numberdef{Kata}アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヰヱヲン\@nil
 566 \@tempcnta\@ne
 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}}
 571 %
 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}
 589 %
 590 %
 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}
 595 \@tempcnta8016
 596 \@aj@PICTdef{Club}{Heart}{Spade}{Diamond}\@nil
 597 \@ajPICTdef{電話}{8056}
 598 \@ajPICTdef{〒}{8058}
 599 \@tempcnta8211
 600 \@aj@PICTdef{Spade*}{Heart*}{Club*}{Diamond*}\@nil
 601 \@tempcnta8215
 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}
 609 \global\let\※\ajPICT
 610 %
 611 %
 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}
 616 \@tempcnta8009
 617 \@aj@Arrowdef{LeftTriangle}{RightTriangle}{DOWN}{UP}{LEFT}{RIGHT}\@nil
 618 \@tempcnta8206
 619 \@aj@Arrowdef{RIGHT*}{LEFT*}{UP*}{DOWN*}\@nil
 620 \@tempcnta8219
 621 \@aj@Arrowdef{RightHand}{LeftHand}{UpHand}{DownHand}\@nil
 622 \@tempcnta8309
 623 \@aj@Arrowdef{Left/Right}{Right/Left}{Up/Down}{Down/Up}\@nil
 624 \@tempcnta12175
 625 \@aj@Arrowdef{LeftScissors}{RightScissors}{UpScissors}{DownScissors}\@nil
 626 \@tempcnta12194
 627 \@aj@Arrowdef
 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
 630 \@tempcnta12261
 631 \@aj@Arrowdef
 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}
 640 %
 641 %
 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
 647         \fi}
 648 \@tempcnta16283
 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}{　}}}
 672 %
 673 \gdef\ajKunten#1{\csname aj訓点#1\endcsname}
 674 %
 675 \newtoks\@temptokenb
 676 \newtoks\@temptokenc
 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
 690         \fi
 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
 704         \fi}
 705 \ifltj@in@latex
 706   \@onlypreamble\ajRedefine@KundokuMacros
 707   \AtBeginDocument{\ajRedefine@KundokuMacros}
 708 \fi
 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
 716         \fi
 717         \ifx\orig@kokana\@undefined
 718         \else
 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
 724         \fi}
 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}%
 732         \fi
 733         \ifx\aj@kokana\@undefined
 734         \else
 735         \let\kokana\aj@kokana
 736         \let\retenform\aj@retenform
 737         \let\reten\aj@reten
 738         \let\retenkana\aj@retenkana
 739         \let\kaeriten\aj@kaeriten
 740         \fi}
 741 %
 742 %
 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}
 755 \ifltj@in@latex
 756   \@onlypreamble\ajCIDVarDef
 757   \@onlypreamble\ajUTFVarDef
 758   \@onlypreamble\ajCIDVarList
 759   \@onlypreamble\ajUTFVarList
 760 \fi
 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}}
 766 %
 767 %
 768 %\gdef\ajRedefine@ajVar{\@ifpackageloaded{hyperref}{%
 769 %       \let\aj@Var\ajVar
 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}%
 784         }{}}
 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}
 791 \ifltj@in@latex
 792   \AtBeginDocument{\ajRedefine@ajCommands}
 793 \fi
 794 %
 795 %
 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}}
 800 %
 801 %
 802 \endlinechar=13
 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}
 810 \ajQuotedef
 811 670 671 12173 12174
 812 672 673 7956 7957
 813 674 675 7899 7900
 814 676 677 7901 7902
 815 678 679 7903 7904
 816 680 681 7905 7906
 817 682 683 7907 7908
 818 684 685 7909 7910
 819 686 687 7911 7912
 820 688 689 7913 7914
 821 690 691 7915 7916
 822 7608 7609 7956 7957
 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
 829 * * * *
 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}}
 837 }
 838 \ifltj@in@latex\else
 839   \ajRedefine@KundokuMacros
 840 \fi
 841 %%------------------ all done
 842 \ltj@ajmacros@AtEnd
 843 \endinput
 844 %% EOF