src/luatexja-ajmacros.sty

   1 %
   2 % luatexja-ajmacros.sty
   3 %
   4 % Original:
   5 % \ProvidesPackage{ajmacros}[2005/12/25 13:52 iNOUE Koich! <inoue@ma.ns.musashi-tech.ac.jp>]
   6 %
   7 % Note 1: \aj半角 is renamed \ajHankaku
   8 % Note 2: Comment out \ajQuote
   9 %
  10
  11 %% Avoid multiple loading.
  12 \csname\if11luatexjaajmacrosLoaded\fi\endcsname
  13 \edef\x{%
  14 \catcode32=\the\catcode32%
  15 \catcode33=\the\catcode33%
  16 \catcode35=\the\catcode35%
  17 \catcode40=\the\catcode40%
  18 \catcode41=\the\catcode41%
  19 \catcode42=\the\catcode42%
  20 \catcode43=\the\catcode43%
  21 \catcode44=\the\catcode44%
  22 \catcode45=\the\catcode45%
  23 \catcode46=\the\catcode46%
  24 \catcode58=\the\catcode58%
  25 \catcode59=\the\catcode59%
  26 \catcode60=\the\catcode60%
  27 \catcode61=\the\catcode61%
  28 \catcode62=\the\catcode62%
  29 \catcode64=\the\catcode64%
  30 \catcode91=\the\catcode91%
  31 \catcode93=\the\catcode93%
  32 \catcode94=\the\catcode94%
  33 \catcode95=\the\catcode95%
  34 \catcode126=\the\catcode126%
  35 \endlinechar=\the\endlinechar
  36 \relax}
  37 \catcode32=10 %< >
  38 \catcode33=12 %<">
  39 \catcode35=6  %<#>
  40 \catcode40=12 %<(>
  41 \catcode41=12 %<)>
  42 \catcode42=12 %<*>
  43 \catcode43=12 %<+>
  44 \catcode44=12 %<,>
  45 \catcode45=12 %<->
  46 \catcode46=12 %<.>
  47 \catcode58=12 %<:>
  48 \catcode59=12 %<;>
  49 \catcode60=12 %<<>
  50 \catcode61=12 %<=>
  51 \catcode62=12 %<>>
  52 \catcode64=11 %<@>
  53 \catcode91=12 %<[>
  54 \catcode93=12 %<]>
  55 \catcode94=7  %<^>
  56 \catcode95=8  %<_>
  57 \catcode126=13 %<~>
  58 \endlinechar=-1 %
  59
  60 \edef\ltj@ajmacros@AtEnd{\x
  61   \noexpand\let\noexpand\ltj@ajmacros@AtEnd\relax}
  62 \def\luatexjaajmacrosLoaded{\endinput}
  63
  64 %% Check if LaTeX is used.
  65 \begingroup\expandafter\expandafter\expandafter\endgroup
  66 \expandafter\ifx\csname RequirePackage\endcsname\relax %<*!LaTeX>
  67   \expandafter\let\csname ifltj@in@latex\expandafter\endcsname
  68     \csname iffalse\endcsname
  69 \else                           %<*LaTeX>
  70   \expandafter\let\csname ifltj@in@latex\expandafter\endcsname
  71     \csname iftrue\endcsname
  72   \NeedsTeXFormat{LaTeX2e}
  73   \ProvidesPackage{luatexja-ajmacros}[2011/09/19 v0.1]
  74 \fi                             %</LaTeX>
  75
  76 %%------------------
  77 %! Main part of luatexja-ajmacros
  78 \newif\if@kana\@kanafalse
  79 %% for plain TeX
  80 \newcount\@tempcnta
  81 \newcount\@tempcntb
  82 \ifltj@in@latex\else
  83   \def\@tw{\char"2}
  84   \def\@ifstar#1#2#3{\ifx*#3\expandafter#1\else#2{#3}\fi}
  85 \fi
  86
  87 {%
  88 \gdef\shift@CID#1#2{{\@tempcnta#1\advance\@tempcnta#2\CID{\@tempcnta}}}
  89 \gdef\ajTsumesuji{\@ifstar{\@@ajTsumesuji}{\@ajTsumesuji}}
  90 \global\let\ajTumesuji\ajTsumesuji
  91 \gdef\@ajTsumesuji#1#2{{\@tempcnta\ifydir\ifcase#1\or780\or247\or9758\or9738\fi
  92         \else\ifcase#1\or8736\or8966\or13274\or13254\fi\fi
  93         \aj@expand\aj@Tsumesuji#2\@nil}}
  94 \gdef\@@ajTsumesuji#1{\@ajTsumesuji{\aj@expand\aj@count@toks#14321\@nil}{#1}}
  95 \gdef\aj@expand#1#2{\expandafter\@aj@expand\number#2!#1}
  96 \gdef\@aj@expand#1!#2{#2#1}
  97 \gdef\aj@count@toks#1#2#3#4#5#6\@nil{#5}
  98 \gdef\aj@Tsumesuji#1{\ifx\@nil#1\else\shift@CID{\@tempcnta}{#1}%
  99         \expandafter\aj@Tsumesuji
 100         \fi}
 101 \gdef\ajMaru{\@ifstar{\@aj@Maru}{\aj@Maru}}
 102 \gdef\aj@Maru#1{\ifnum#1=\z@ \CID{8224}%
 103         \else\ifnum#1<21 \shift@CID{#1}{7554}%
 104         \else\ifnum#1=21 \CID{8091}%
 105         \else\ifnum#1<32 \shift@CID{#1}{8080}%
 106         \else\shift@CID{#1}{10212}%
 107         \fi\fi\fi\fi}
 108 \gdef\@aj@Maru#1{\ifnum#1<10 \shift@CID{#1}{10234}%
 109         \else\ifnum#1<21 \shift@CID{#1}{7554}%
 110         \else\ifnum#1=21 \CID{8091}%
 111         \else\ifnum#1<32 \shift@CID{#1}{8080}%
 112         \else\shift@CID{#1}{10212}%
 113         \fi\fi\fi\fi}
 114 \gdef\ajKuroMaru{\@ifstar{\@aj@KuroMaru}{\aj@KuroMaru}}
 115 \gdef\aj@KuroMaru#1{\ifnum#1=\z@ \CID{10503}%
 116         \else\ifnum#1<10 \shift@CID{#1}{8285}%
 117         \else\shift@CID{#1}{10504}%
 118         \fi\fi}
 119 \gdef\@aj@KuroMaru#1{\shift@CID{#1}{10504}}
 120 \gdef\ajKaku{\@ifstar{\@aj@Kaku}{\aj@Kaku}}
 121 \gdef\aj@Kaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
 122         \shift@CID{\@tempcnta}{10764}}%
 123         \else\shift@CID{#1}{10774}%
 124         \fi}
 125 \gdef\@aj@Kaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
 126         \shift@CID{\@tempcnta}{10765}}%
 127         \else\shift@CID{#1}{10774}%
 128         \fi}
 129 \gdef\ajKuroKaku{\@ifstar{\@aj@KuroKaku}{\aj@KuroKaku}}
 130 \gdef\aj@KuroKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
 131         \shift@CID{\@tempcnta}{11037}}%
 132         \else\shift@CID{#1}{11047}%
 133         \fi}
 134 \gdef\@aj@KuroKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
 135         \shift@CID{\@tempcnta}{11038}}%
 136         \else\shift@CID{#1}{11047}%
 137         \fi}
 138 \gdef\ajMaruKaku{\@ifstar{\@aj@MaruKaku}{\aj@MaruKaku}}
 139 \gdef\aj@MaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
 140         \shift@CID{\@tempcnta}{11307}}%
 141         \else\shift@CID{#1}{11317}%
 142         \fi}
 143 \gdef\@aj@MaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
 144         \shift@CID{\@tempcnta}{11308}}%
 145         \else\shift@CID{#1}{11317}%
 146         \fi}
 147 \gdef\ajKuroMaruKaku{\@ifstar{\@aj@KuroMaruKaku}{\aj@KuroMaruKaku}}
 148 \gdef\aj@KuroMaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
 149         \shift@CID{\@tempcnta}{11576}}%
 150         \else\shift@CID{#1}{11586}%
 151         \fi}
 152 \gdef\@aj@KuroMaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
 153         \shift@CID{\@tempcnta}{11577}}%
 154         \else\shift@CID{#1}{11586}%
 155         \fi}
 156 \gdef\ajKakko{\@ifstar{\@aj@Kakko}{\aj@Kakko}}
 157 \gdef\aj@Kakko#1{\ifnum#1=\z@ \CID{8227}%
 158         \else\ifnum#1<21 \shift@CID{#1}{8070}%
 159         \else\shift@CID{#1}{9873}%
 160         \fi\fi}
 161 \gdef\@aj@Kakko#1{\ifnum#1<10 \shift@CID{#1}{9884}%
 162         \else\ifnum#1<21 \shift@CID{#1}{8070}%
 163         \else\shift@CID{#1}{9873}%
 164         \fi\fi}
 165 \gdef\ajRoman{\@ifstar{\@aj@Roman}{\aj@Roman}}
 166 \gdef\aj@Roman#1{\ifnum#1<11 \shift@CID{#1}{7574}%
 167         \else\ifnum#1<13 \shift@CID{#1}{8214}%
 168         \else\shift@CID{#1}{8282}%
 169         \fi\fi}
 170 \gdef\@aj@Roman#1{\ifnum#1=4 \CID{9883}\else\aj@Roman{#1}\fi}
 171 \gdef\ajroman#1{\ifnum#1<11 \shift@CID{#1}{8091}%
 172         \else\shift@CID{#1}{8287}%
 173         \fi}
 174 \gdef\ajPeriod#1{\ifnum#1<10 \shift@CID{#1}{8061}\else\shift@CID{#1}{20577}\fi}%AJ1-6
 175 \gdef\ajKakkoalph#1{\shift@CID{#1}{8111}}
 176 \gdef\ajKakkoYobi#1{\shift@CID{#1}{8196}}
 177 \gdef\ajKakkoroman#1{\shift@CID{#1}{9973}}
 178 \gdef\ajKakkoRoman#1{\shift@CID{#1}{9988}}
 179 \gdef\ajKakkoAlph#1{\shift@CID{#1}{10003}}
 180 \gdef\ajKakkoHira#1{\shift@CID{#1}{10029}}
 181 \gdef\ajKakkoKata#1{\shift@CID{#1}{10077}}
 182 \gdef\ajKakkoKansuji#1{\shift@CID{#1}{10125}}
 183 \gdef\ajMaruKansuji#1{\shift@CID{#1}{10460}}
 184 \gdef\ajNijuMaru#1{\shift@CID{#1}{16222}}
 185 \gdef\ajRecycle#1{\shift@CID{#1}{16314}}
 186 \gdef\ajHasenKakuAlph#1{\shift@CID{#1}{20496}}%AJ1-6
 187 \gdef\ajCross#1{\shift@CID{#1}{20523}}%AJ1-6
 188 \gdef\ajSlanted{\@ifstar{\aj@Slanted}{\@aj@Slanted}}%AJ1-6
 189 \gdef\aj@Slanted#1{\shift@CID{#1}{20589}}%AJ1-6
 190 \gdef\@aj@Slanted#1{\ifnum#1<10 \shift@CID{#1}{9460}\else\shift@CID{#1}{20589}\fi}%AJ1-6
 191 \gdef\ajApostrophe#1{\shift@CID{#1}{20649}}%AJ1-6
 192 \global\let\ajYear\ajApostrophe%AJ1-6
 193 \gdef\ajSquareMark{\@ifstar{\aj@SquareMark}{\@ifnextchar+{\@aj@SquareMark}{\@ajSquareMark}}}
 194 \gdef\@ajSquareMark#1{\shift@CID{#1}{12229}}
 195 \gdef\aj@SquareMark#1{\shift@CID{#1}{12241}}
 196 \gdef\@aj@SquareMark+#1{\shift@CID{#1}{\ifodd\@tempcnta24459\else24482\fi
 197         \divide\@tempcnta\tw@}}
 198 \gdef\ajHishi#1{\shift@CID{#1}{12256}}
 199 %
 200 \let\offsetalph\z@
 201 \chardef\offsetAlph26
 202 \chardef\offsetHira26
 203 \chardef\offsetKata48
 204 \chardef\offsetYobi48
 205 \let\offsetMaru\z@
 206 \chardef\offsetKuroMaru144
 207 \chardef\offsetKaku122
 208 \chardef\offsetKuroKaku125
 209 \chardef\offsetMaruKaku122
 210 \chardef\offsetKuroMaruKaku121
 211 \@tempcnta10312
 212 \def\@aj@sujidef#1{\ifx\@nil#1%
 213         \else\advance\@tempcnta\csname offset#1\endcsname
 214         \expandafter\xdef\csname aj\@ajsujifam#1\endcsname##1%
 215                 {\noexpand\shift@CID{##1}{\number\@tempcnta}}%
 216         \expandafter\@aj@sujidef\fi}
 217 \def\@ajsujidef#1{\ifx\@nil#1%
 218         \else\advance\@tempcnta\csname offset#1\endcsname
 219         \def\@ajsujifam{#1}%
 220         \@aj@sujidef{alph}{Alph}{Hira}{Kata}{Yobi}\@nil
 221         \expandafter\@ajsujidef\fi}
 222 \@ajsujidef{Maru}{KuroMaru}{Kaku}{KuroKaku}{MaruKaku}{KuroMaruKaku}\@nil
 223 \gdef\ajMaruYobi#1{\ifnum#1<8 \shift@CID{#1}{10470}%
 224         \else\ifnum#1=8 \CID{10492}%
 225         \else\ifnum#1=9 \CID{10487}%
 226         \fi\fi\fi}
 227 %
 228 \gdef\ajTsumekakko#1{\aj@expand\@ajTsumekakko#1\@nil}
 229 \global\let\ajTumekakko\ajTsumekakko
 230 \gdef\@ajTsumekakko#1#2{\ifx\@nil#2\mbox{\ifydir\rlap{\CID{10233}}\shift@CID{#1}{9872}%
 231         \else\CID{13268}\shift@CID{#1}{10185}\CID{13269}\fi}%
 232         \expandafter\@gobble
 233         \else\shift@CID{#1}{\ifydir10152\else10174\fi}%
 234         \expandafter\aj@Tsumekakko
 235         \fi#2}
 236 \gdef\aj@Tsumekakko#1#2{\ifx\@nil#2\shift@CID{#1}{\ifydir10162\else10196\fi}%
 237         \expandafter\@gobble
 238         \else\shift@CID{#1}{\ifydir247\else10185\fi}%
 239         \expandafter\aj@Tsumekakko
 240         \fi#2}
 241 \gdef\ajNenrei#1{\ifcase#1\relax\expandafter\ajTsumekakko\or\expandafter\aj@NenreiTu
 242         \or\expandafter\aj@NenreiSai\or\expandafter\aj@Nenrei@Tu
 243         \or\expandafter\aj@Nenrei@Sai
 244         \fi}
 245 \gdef\aj@NenreiTu#1{\aj@expand\@aj@NenreiTu#1\@nil}
 246 \gdef\@aj@NenreiTu#1#2{\shift@CID{#1}{\ifydir10152\else10174\fi}%
 247         \ifx\@nil#2\CID{\ifydir10172\else10206\fi}\expandafter\@gobble
 248         \else\expandafter\aj@Tsumekakko
 249         \fi#2}
 250 \gdef\aj@NenreiSai#1{\aj@expand\@aj@NenreiSai#1\@nil}
 251 \gdef\@aj@NenreiSai#1{\shift@CID{#1}{\ifydir10152\else10174\fi}\@aj@NenreiSai@}
 252 \gdef\@aj@NenreiSai@#1{\ifx\@nil#1\CID{\ifydir10173\else10207\fi}%
 253         \else\shift@CID{#1}{\ifydir247\else10185\fi}%
 254         \expandafter\@aj@NenreiSai@\fi}
 255 \gdef\aj@Nenrei@Tu#1{\ifnum#1<10 \shift@CID{#1}{10174}\CID{10206}%
 256         \else\expandafter\@aj@Nenrei@Tu\number#1%
 257         \fi}
 258 \gdef\@aj@Nenrei@Tu#1#2{\ifnum#2=\z@ \shift@CID{#1}{10174}\CID{10196}%
 259         \else\ifnum#1<\tw@ \CID{10184}%
 260         \else\shift@CID{#1}{10174}\CID{10195}%
 261         \fi
 262         \shift@CID{#2}{10196}%
 263         \fi}
 264 \gdef\aj@Nenrei@Sai#1{\ifnum#1<10 \shift@CID{#1}{10174}%
 265         \else\expandafter\@aj@Nenrei@Sai\number#1%
 266         \fi\CID{10207}}
 267 \gdef\@aj@Nenrei@Sai#1#2{\ifnum#1<\tw@ \CID{10184}%
 268         \else\shift@CID{#1}{10174}\CID{10195}%
 269         \fi
 270         \ifnum#2>\z@ \shift@CID{#2}{10185}%
 271         \fi}
 272 \gdef\ajnenrei#1#2{\hskip\kanjiskip\hbox{\tate\ifnum#2<10
 273         \shift@CID{#2}{10207}\CID{\ifcase#1\or10230\or10232\or10231\or10229\fi}%
 274         \else\ifnum#2=10\CID{\ifodd#1 10208\else10217\fi}%
 275                 \CID{\ifcase#1\or10218\or10232\or10218\or10229\fi}%
 276         \else\ifnum#2<20\CID{\ifodd#1 10208\else10217\fi}\shift@CID{#2}{10208}%
 277         \else\expandafter\aj@nenrei\number#2{#1}%
 278         \fi\fi\fi}}
 279 \gdef\aj@nenrei#1#2#3{\shift@CID{#1}{10207}%
 280         \ifcase#2 \CID{\ifodd#3 10218\else10228\fi}%
 281         \else\shift@CID{#2}{10218}%
 282         \fi}
 283 \gdef\ajKosu{\ajnenrei4}
 284 %
 285 \gdef\ajLabel#1#2#{\ifx\\#2\\\aj@Label#1\else\@aj@Label#1#2\fi}
 286 \gdef\aj@Label#1\else#2\fi#3{\fi
 287         \expandafter\protect
 288         \expandafter#1%
 289         \expandafter{\number\csname c@#3\endcsname}}
 290 \gdef\@aj@Label#1#2\fi#3{\fi
 291         \expandafter\protect
 292         \expandafter#1%
 293         \expandafter#2%
 294         \expandafter{\number\csname c@#3\endcsname}}
 295 %
 296 %
 297 \gdef\ajFrac{\@ifstar{\@aj@Frac}{\aj@Frac}}
 298 \gdef\@ajFrac#1#2{\ifcase#2\or
 299         \or\ifcase#1\or9826\fi
 300         \or\ifcase#1+9825\or9827\or9828\fi
 301         \or\ifcase#1\or9829\or9826\or9830\fi
 302         \or\ifcase#1\or9831\or9832\or9833\or9834\fi
 303         \or\ifcase#1\or9835\or9827\or9826\or9828\or9836\fi
 304         \or\ifcase#1\or9837\or9838\or9839\or9840\or9841\or9842\fi
 305         \or\ifcase#1\or9843\or9829\or9844\or9826\or9845\or9830\or9846\fi
 306         \or\ifcase#1\or9847\or9848\or9827\or9849\or9850\or9828\or9851\or9852\fi
 307         \or\ifcase#1\or9853\or9831\or9854\or9832\or9826\or9833\or9855\or9834\or9856\fi
 308         \or\ifcase#1\or9857\or9858\or9859\or9860\or9861\or9862\or9863\or9864\or9865\or9866\fi
 309         \or\ifcase#1\or9867\or9835\or9829\or9827\or9868\or9826\or9869\or9828\or9830\or9836
 310                                 \or9870\fi
 311         \else\ifnum#2=100 \ifnum#1=1 9871\fi\fi
 312         \fi}
 313 \gdef\@aj@Frac#1#2{\CID{\@ajFrac{#1}{#2}}}
 314 \gdef\aj@Frac#1#2{{\@tempcnta\@ajFrac{#1}{#2}%
 315         \advance\@tempcnta-9825
 316         \advance\@tempcnta\ifcase\@tempcnta9780\or8183\or9779\or9779\or8181\else9778\fi\relax
 317         \CID{\@tempcnta}}}
 318 %1/4  161  8880 9604 13120
 319 %1/2  162  8881 9605 13121
 320 %3/4  163  8882 9606 13122
 321 %1/8 9371 12887 9691 13207
 322 %3/8 9372 12888 9692 13208
 323 %5/8 9373 12889 9693 13209
 324 %7/8 9374 12890 9694 13210
 325 %1/3 9375 12891 9695 13211
 326 %2/3 9376 12892 9696 13212
 327 %
 328 %
 329 \def\@ajHankakudef#1{\ifx\@nil#1\else
 330         \expandafter\xdef\csname ajHankaku@#1\endcsname{\noexpand\CID
 331                 {\noexpand\ifydir\number\@tempcnta\noexpand\else\number\@tempcntb\noexpand\fi}}%
 332         \advance\@tempcnta\@ne\advance\@tempcntb\@ne
 333         \expandafter\@ajHankakudef\fi}
 334 \@tempcnta326
 335 \@tempcntb9084
 336 \@ajHankakudef 　。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜｀ヰヱヮヵヶヴガギグゲゴザジズゼゾダヂヅデドバパビピブプベペボポ\@nil
 337 \@tempcnta516
 338 \@ajHankakudef をぁぃぅぇぉゃゅょっあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわんゐゑゎがぎぐげござじずぜぞだぢづでどばぱびぴぶぷべぺぼぽ\@nil
 339 \gdef\ajHankaku#1{\aj@Hankaku#1\@nil}
 340 \gdef\aj@Hankaku#1{\ifx\@nil#1\else
 341         \expandafter\ifx\csname ajHankaku@#1\endcsname\relax
 342            #1\else\csname ajHankaku@#1\endcsname\fi
 343    \expandafter\aj@Hankaku\fi}
 344 %
 345 %
 346 \def\@ajligdef#1#2{\expandafter\xdef\csname ajLig\@ajmojifam#1\endcsname{\noexpand\CID{#2}}}
 347 \def\@ajligaturedef#1{\ifx\@nil#1\else
 348         \@ajligdef{#1}{\number\@tempcnta}\advance\@tempcnta\@ne
 349         \expandafter\@ajligaturedef\fi}
 350 \def\@aj@ligdef#1#2#3{\expandafter\xdef\csname ajLig\@ajmojifam#1\endcsname
 351         {\noexpand\CID{\noexpand\ifydir#2\noexpand\else#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.05zw\ajLig{オントロ}\kern-.1zw\ajLig{グスーム}\kern.05zw}}
 439 \@tempcnta20929
 440 \@tempcntb20943
 441 \@aj@ligaturedef{ガル}{グレイ}{クローナ}{シーベルト}{シェケル}{ジュール}{デシベル}{ドット}{バイト}{ビット}{ベクレル}{ボー}{ランド}{リンギット}\@nil%AJ1-6
 442 \@ajligdef{より}{12181}
 443 \@ajligdef{升}{16194}
 444 \@ajligdef{コト}{16195}
 445 %
 446 \def\@ajmojifam{○}
 447 \@tempcnta7613
 448 \@ajligaturedef 上中下左右\@nil
 449 \@ajligdef{〒}{8057}
 450 \@tempcnta8152
 451 \@ajligaturedef 夜企医協名宗労学有株社監資財\@nil
 452 \@ajligdef{印}{8191}
 453 \@ajligdef{秘}{8223}
 454 \@tempcnta8317
 455 \@ajligaturedef 大小優控\@nil
 456 \@tempcnta10478
 457 \@ajligaturedef 調注副減標欠基禁項休女男正写祝出適特済増問答例電\@nil%
 458 \@ajligdef{年}{20553}%AJ1-6
 459 %
 460 \def\@ajmojifam#1{(#1)}
 461 \@ajligdef{株}{7618}
 462 \@ajligdef{有}{7619}
 463 \@ajligdef{代}{7620}
 464 \@tempcnta8138
 465 \@ajligaturedef 至企協名労社監自資財特学祭呼\@nil
 466 \@ajligdef{祝}{8204}
 467 \@ajligdef{休}{8205}
 468 \@tempcnta10146
 469 \@ajligaturedef 営合注問答例\@nil
 470 %
 471 \def\@ajmojifam{□}
 472 \@ajligdef{印}{8196}
 473 \@ajligdef{負}{11030}
 474 \@ajligdef{勝}{11031}
 475 \@tempcnta20497
 476 \@ajligaturedef{:A}{:B}{:C}{:D}{:E}{:F}{:終}\@nil%AJ1-6
 477 \@tempcnta20505
 478 \@ajligaturedef{:CL}{:KCL}{:BEL}{:AS}{:AM}{:段}{:ゴ}{:ミ}\@nil%AJ1-6
 479 %
 480 \def\@ajmojifam{◇}
 481 \@tempcnta20554
 482 \@ajligaturedef {News}天再新映声前後終立交{ほか}劇司解株気二多文手{PV}{MV}双{SS}{S1}{S2}{S3}デ{HV}\@nil%AJ1-6
 483 %
 484 \def\@ajmojifam{▽}
 485 \@ajligdef{〒}{12180}
 486 \@ajligdef{▽}{12193}
 487 %
 488 \def\@ajmojifam{△}
 489 \@ajligdef{!}{12192}
 490 %
 491 \def\@ajmojifam{■}
 492 \@ajligdef{◇}{12231}
 493 %
 494 \expandafter\chardef\csname offset●\endcsname\z@
 495 \expandafter\mathchardef\csname offset□\endcsname269
 496 \expandafter\mathchardef\csname offset■\endcsname268
 497 \expandafter\mathchardef\csname offset◇\endcsname267
 498 \expandafter\mathchardef\csname offset◆\endcsname266
 499 \@tempcnta10760
 500 \def\@ajmojidef#1{\ifx\@nil#1%
 501         \else\advance\@tempcnta\csname offset#1\endcsname
 502         \def\@ajmojifam{#1}%
 503         \@ajligaturedef 問答例\@nil
 504         \expandafter\@ajmojidef\fi}
 505 \@ajmojidef ●□■◇◆\@nil
 506 %
 507 \def\@ajkanadef#1#2#3#4#5#6#7{\expandafter\gdef\csname ajLig#1\endcsname
 508         {\if@kana\def\reserved@a{ruby}%
 509                 \ifx\k@family\reserved@a
 510                         \ifydir\CID{#6}\else\CID{#7}\fi
 511                 \else\ifydir\CID{#4}\else\CID{#5}\fi
 512                 \fi
 513         \else\ifydir\CID{#2}\else\CID{#3}\fi
 514         \fi}}
 515 \newcount\@tempcntc
 516 \newcount\@tempcntd
 517 \newcount\@tempcnte
 518 \newcount\@tempcntf
 519 \def\@aj@kanadef#1{\ifx\@nil#1%
 520         \else\edef\reserved@b{\noexpand\@ajkanadef{#1}%
 521                 {\number\@tempcnta}{\number\@tempcntb}{\number\@tempcntc}%
 522                 {\number\@tempcntd}{\number\@tempcnte}{\number\@tempcntf}}\reserved@b
 523                 \advance\@tempcnta\@ne\advance\@tempcntb\@ne\advance\@tempcntc\@ne
 524                 \advance\@tempcntd\@ne\advance\@tempcnte\@ne\advance\@tempcntf\@ne
 525         \expandafter\@aj@kanadef\fi}
 526 \@ajkanadef{う゛}{7958}{7958}{12361}{12544}{12756}{12756}
 527 \@tempcnta8313
 528 \@tempcntb8313
 529 \@tempcntc12452
 530 \@tempcntd12635
 531 \@tempcnte16444
 532 \@tempcntf16444
 533 \@aj@kanadef{ワ゛}{ヰ゛}{ヱ゛}{ヲ゛}\@nil
 534 \@tempcnta16209
 535 \@tempcntb16209
 536 \@tempcntc16352
 537 \@tempcntd16382
 538 \@tempcnte16414
 539 \@tempcntf16414
 540 \@aj@kanadef{か゜}{き゜}{く゜}{け゜}{こ゜}{カ゜}{キ゜}{ク゜}{ケ゜}{コ゜}{セ゜}{ツ゜}{ト゜}\@nil
 541 \@ajkanadef{小か}{7959}{8264}{12285}{12468}{12682}{12762}
 542 \@ajkanadef{小け}{7960}{8265}{12292}{12475}{12689}{12763}
 543 \@ajkanadef{小こ}{12269}{12270}{12295}{12478}{16448}{16467}
 544 \@ajkanadef{小コ}{12271}{12272}{12385}{12568}{16449}{16468}
 545 \@tempcnta16236
 546 \@tempcntb16333
 547 \@tempcntc16365
 548 \@tempcntd16395
 549 \@tempcnte16427
 550 \@tempcntf16450
 551 \@aj@kanadef{小ク}{小シ}{小ス}{小ト}{小ヌ}{小ハ}{小ヒ}{小フ}{小ヘ}{小ホ}{小プ}{小ム}{小ラ}{小リ}{小ル}{小レ}{小ロ}\@nil
 552 %
 553 \def\@aj@numberdef#1#2{\ifx\@nil#2\expandafter\@gobble
 554         \else\expandafter\xdef\csname ajnumber#2\endcsname{{#1}{\number\@tempcnta}}%
 555         \advance\@tempcnta\@ne
 556         \expandafter\@aj@numberdef\fi{#1}}
 557 \@tempcnta\@ne
 558 \@aj@numberdef{alph}abcdefghijklmnopqrstuvwxyz\@nil
 559 \@tempcnta\@ne
 560 \@aj@numberdef{Alph}ABCDEFGHIJKLMNOPQRSTUVWXYZ\@nil
 561 \@tempcnta\@ne
 562 \@aj@numberdef{Hira}あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわゐゑをん\@nil
 563 \@tempcnta\@ne
 564 \@aj@numberdef{Kata}アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヰヱヲン\@nil
 565 \@tempcnta\@ne
 566 \@aj@numberdef{Yobi}日月火水木金土祝休\@nil
 567 \gdef\@ajnumber#1{\expandafter\expandafter\expandafter\aj@number\csname ajnumber#1\endcsname}
 568 \gdef\aj@number#1{\ifx\relax#1\expandafter\@gobbletwo\else\expandafter\@aj@number\fi{#1}}
 569 \gdef\@aj@number#1#2#3{\csname aj#3#1\endcsname{#2}}
 570 %
 571 \def\@aj@kakomidef#1#2{\expandafter\gdef\csname#1\endcsname##1%
 572         {\expandafter\ifx\csname ajLig#1##1\endcsname\relax\@ajnumber{##1}{#2}%
 573         \else\csname ajLig#1##1\endcsname\fi}}
 574 \@aj@kakomidef{○}{Maru}
 575 \@aj@kakomidef{●}{KuroMaru}
 576 \@aj@kakomidef{□}{Kaku}
 577 \@aj@kakomidef{■}{KuroKaku}
 578 \@aj@kakomidef{◇}{MaruKaku}
 579 \@aj@kakomidef{◆}{KuroMaruKaku}
 580 \gdef\△#1{\csname ajLig△#1\endcsname}
 581 \gdef\▽#1{\csname ajLig▽#1\endcsname}
 582 \gdef\（#1）{\expandafter\ifx\csname ajLig(#1)\endcsname\relax\@ajnumber{#1}{Kakko}%
 583         \else\csname ajLig(#1)\endcsname\fi}
 584 \gdef\゛#1{\csname ajLig#1゛\endcsname}
 585 \gdef\゜#1{\csname ajLig#1゜\endcsname}
 586 \gdef\！#1{\csname ajLig小#1\endcsname}
 587 \gdef\ajLig#1{\csname ajLig#1\endcsname}
 588 %
 589 %
 590 \def\@ajPICTdef#1#2{\expandafter\xdef\csname ajPICT#1\endcsname{\noexpand\CID{#2}}}
 591 \def\@aj@PICTdef#1{\ifx\@nil#1\else
 592         \@ajPICTdef{#1}{\number\@tempcnta}\advance\@tempcnta\@ne
 593         \expandafter\@aj@PICTdef\fi}
 594 \@tempcnta8016
 595 \@aj@PICTdef{Club}{Heart}{Spade}{Diamond}\@nil
 596 \@ajPICTdef{電話}{8056}
 597 \@ajPICTdef{〒}{8058}
 598 \@tempcnta8211
 599 \@aj@PICTdef{Spade*}{Heart*}{Club*}{Diamond*}\@nil
 600 \@tempcnta8215
 601 \@aj@PICTdef 晴曇雨雪→←↑↓\@nil
 602 \@ajPICTdef{野球}{12097}
 603 \@ajPICTdef{湯}{12098}
 604 \@ajPICTdef{花}{12228}
 605 \@ajPICTdef{花*}{12229}
 606 \@ajPICTdef{サッカー}{20957}%AJ1-6
 607 \gdef\ajPICT#1{\csname ajPICT#1\endcsname}
 608 \global\let\※\ajPICT
 609 %
 610 %
 611 \def\@ajArrowdef#1#2{\expandafter\xdef\csname ajArrow#1\endcsname{\noexpand\CID{#2}}}
 612 \def\@aj@Arrowdef#1{\ifx\@nil#1\else
 613         \@ajArrowdef{#1}{\number\@tempcnta}\advance\@tempcnta\@ne
 614         \expandafter\@aj@Arrowdef\fi}
 615 \@tempcnta8009
 616 \@aj@Arrowdef{LeftTriangle}{RightTriangle}{DOWN}{UP}{LEFT}{RIGHT}\@nil
 617 \@tempcnta8206
 618 \@aj@Arrowdef{RIGHT*}{LEFT*}{UP*}{DOWN*}\@nil
 619 \@tempcnta8219
 620 \@aj@Arrowdef{RightHand}{LeftHand}{UpHand}{DownHand}\@nil
 621 \@tempcnta8309
 622 \@aj@Arrowdef{Left/Right}{Right/Left}{Up/Down}{Down/Up}\@nil
 623 \@tempcnta12175
 624 \@aj@Arrowdef{LeftScissors}{RightScissors}{UpScissors}{DownScissors}\@nil
 625 \@tempcnta12194
 626 \@aj@Arrowdef
 627 {LeftTriangle*}{RightTriangle*}{Left}{Right}{Up}{Down}{LeftDouble}{LeftRight*}{RightDown}{LeftDown}{LeftUp}{RightUp}%
 628 {Right/Left*}{Left/Right*}{Right/Left+}{Down/Up+}{Left+}{Right+}{Up+}{Down+}{LeftRight+}{UpDown+}\@nil
 629 \@tempcnta12261
 630 \@aj@Arrowdef
 631 {LeftAngle}{RightAngle}{UpAngle}{DownAngle}{LeftAngle*}{RightAngle*}{UpAngle*}{DownAngle*}\@nil
 632 \@ajArrowdef{RightDouble}{15482}%752 16493
 633 \@ajArrowdef{LeftRightDouble}{15483}%753 16494
 634 %\@ajArrowdef{LeftRight}{15511}%12201 16522
 635 \@ajArrowdef{RightUp*}{16201}
 636 \@ajArrowdef{RightDown*}{16202}
 637 %\@ajArrowdef{DOWNLEFT*}{16273}
 638 \gdef\ajArrow#1{\csname ajArrow#1\endcsname}
 639 %
 640 %
 641 \def\@aj@kuntendef#1{\ifx\@nil#1%
 642         \else\expandafter\xdef\csname aj訓点#1\endcsname
 643                 {\noexpand\CID{\number\@tempcnta}}%
 644         \advance\@tempcnta\@ne
 645         \expandafter\@aj@kuntendef
 646         \fi}
 647 \@tempcnta16283
 648 \@aj@kuntendef ｜レ一二三四上中下甲乙丙丁天地人\@nil
 649 \gdef\aj@smallReten{{\@tempdimb\f@size pt\@tempskipa\f@baselineskip
 650         \@tempdimb.94\@tempdimb
 651         \@tempskipa.94\@tempskipa
 652         \fontsize{\@tempdimb}{\@tempskipa}\selectfont\aj訓点レ}}
 653 \gdef\aj訓点一レ{\mbox{\tate\kern-.24zw\aj訓点一\kern-.65zw\raise.15zw\hbox{\aj@smallReten}}}
 654 \gdef\aj訓点上レ{\mbox{\tate\aj訓点上\kern-.3zw\raise.15zw\hbox{\aj@smallReten}}}
 655 \gdef\aj訓点甲レ{\mbox{\tate\aj訓点甲\kern-.25zw\raise.15zw\hbox{\aj@smallReten}}}
 656 \gdef\aj訓点天レ{\mbox{\tate\aj訓点天\kern-.4zw\raise.1zw\hbox{\aj@smallReten}}}
 657 \def\@ajongofudef#1{\ifx\@nil#1%
 658         \else\expandafter\xdef\csname aj訓点#1｜\endcsname
 659         {\noexpand\mbox{\yoko\expandafter\noexpand\csname aj訓点#1\endcsname
 660                 \hbox to\z@{\hss\expandafter\noexpand\csname aj訓点｜\endcsname\kern-.5zw}}}%
 661         \expandafter\@ajongofudef\fi}
 662 \@ajongofudef 二三四中下乙丙丁地人\@nil
 663 \expandafter\gdef\csname aj訓点　｜\endcsname{\mbox{\yoko{　}\hbox to\z@{\hss\csname aj訓点｜\endcsname\kern-.5zw}}}
 664 \def\@ajkungofudef#1{\ifx\@nil#1%
 665         \else\expandafter\xdef\csname aj訓点｜#1\endcsname
 666         {\noexpand\mbox{\yoko\hbox to\z@{\hss\expandafter\noexpand\csname aj訓点｜\endcsname\kern-.5zw}%
 667                 \expandafter\noexpand\csname aj訓点#1\endcsname}}%
 668         \expandafter\@ajkungofudef\fi}
 669 \@ajkungofudef 二三四中下乙丙丁地人\@nil
 670 \expandafter\gdef\csname aj訓点｜　\endcsname{\mbox{\yoko\hbox to\z@{\hss\csname aj訓点｜\endcsname\kern-.5zw}{　}}}
 671 %
 672 \gdef\ajKunten#1{\csname aj訓点#1\endcsname}
 673 %
 674 \newtoks\@temptokenb
 675 \newtoks\@temptokenc
 676 \gdef\ajRedefine@KundokuMacros{\ifx\kokana\@undefined
 677         \else\let\orig@kokana\kokana
 678         \let\orig@retenform\retenform
 679         \let\orig@reten\reten
 680         \let\orig@retenkana\retenkana
 681         \let\orig@kaeriten\kaeriten
 682         \def\aj@kokana##1##2{\orig@kokana{\aj@kundokusize\if@kana\rubyfamily\fi##1}%
 683                 {\aj@kundokusize\ajKunten{##2}}}%
 684         \def\aj@retenform{\aj@kundokusize\aj訓点レ}%
 685         \def\aj@reten{\orig@kaeriten{\aj@kundokusize\aj訓点レ}}%
 686         \def\aj@retenkana##1{\orig@retenkana{\aj@kundokusize\if@kana\rubyfamily\fi##1}}%
 687         \def\aj@kaeriten##1{\orig@kaeriten{\aj@kundokusize\ajKunten{##1}}}%
 688         \let\aj@kundokusize\tiny
 689         \fi
 690         \ifx\@k@nd@ku@\@undefined
 691         \else{\global\let\orig@k@nd@ku@\@k@nd@ku@
 692         \def\get@hbox##1\hbox##2##3\get@hbox
 693                 {\@temptokena{##1}\@temptokenb{##2}\@temptokenc{##3}}%
 694         \expandafter\get@hbox
 695                 \@k@nd@ku@[##1]{##2}{##3}{##4}{\ajKunten{##5}}[\ajKunten{##6}]<##7>(##8)\get@hbox
 696         \def\change@reten##1\def\temptopleft##2\def\tempbottomleft##3##4\change@reten
 697                 {\@temptokenb{##1\def\temptopleft{####6}\def\tempbottomleft{####5}##4}}%
 698         \expandafter\change@reten\the\@temptokenb\change@reten
 699         \edef\redefine@k@nd@ku@##1{\gdef\noexpand\aj@k@nd@ku@##1%
 700                 {\the\@temptokena\hbox{\the\@temptokenb}\the\@temptokenc}}%
 701         \redefine@k@nd@ku@{[##1]##2##3##4##5[##6]<##7>(##8)}}%
 702         \let\aj@kundokusize\kundokusize
 703         \fi}
 704 \ifltj@in@latex
 705   \@onlypreamble\ajRedefine@KundokuMacros
 706   \AtBeginDocument{\ajRedefine@KundokuMacros}
 707 \fi
 708 \gdef\DeclareOriginalKundokuStyle{\@ifnextchar[%]
 709         {\Declare@OriginalKundokuStyle}%
 710         {\Declare@OriginalKundokuStyle[\aj@kundokusize]}}
 711 \gdef\Declare@OriginalKundokuStyle[#1]{\let\aj@kundokusize#1%
 712         \ifx\orig@k@nd@ku@\@undefined
 713         \else\let\@k@nd@ku@\orig@k@nd@ku@
 714         \let\kundokusize\aj@kundokusize
 715         \fi
 716         \ifx\orig@kokana\@undefined
 717         \else
 718         \let\kokana\orig@kokana
 719         \let\retenform\orig@retenform
 720         \let\reten\orig@reten
 721         \let\retenkana\orig@retenkana
 722         \let\kaeriten\orig@kaeriten
 723         \fi}
 724 \gdef\DeclareAJKundokuStyle{\@ifnextchar[%]
 725         {\Declare@AJKundokuStyle}%
 726         {\Declare@AJKundokuStyle[\aj@kundokusize]}}
 727 \gdef\Declare@AJKundokuStyle[#1]{\let\aj@kundokusize#1%
 728         \ifx\aj@k@nd@ku@\@undefined
 729         \else\let\@k@nd@ku@\aj@k@nd@ku@
 730         \def\kundokusize{\aj@kundokusize\if@kana\rubyfamily\fi}%
 731         \fi
 732         \ifx\aj@kokana\@undefined
 733         \else
 734         \let\kokana\aj@kokana
 735         \let\retenform\aj@retenform
 736         \let\reten\aj@reten
 737         \let\retenkana\aj@retenkana
 738         \let\kaeriten\aj@kaeriten
 739         \fi}
 740 %
 741 %
 742 \gdef\ajCIDVarDef{\aj@VarDef\CID}
 743 \gdef\ajUTFVarDef{\aj@VarDef\UTF}
 744 \gdef\aj@VarDef#1#2#3{\expandafter\xdef\csname ajVar#2\endcsname{\noexpand#1{#3}}}
 745 \gdef\ajCIDVarList#1{{\@ajCIDVarList#1\relax}}
 746 \gdef\@ajCIDVarList#1{\ifx\relax#1\else\def\reserved@a{#1}\expandafter\aj@CIDVarList\fi}
 747 \gdef\aj@CIDVarList{\afterassignment\@aj@CIDVarList\@tempcnta}
 748 \gdef\@aj@CIDVarList{\aj@VarDef\CID\reserved@a{\number\@tempcnta}\@ajCIDVarList}
 749 \gdef\ajUTFVarList#1{{\@ajUTFVarList#1 \relax}}
 750 \gdef\@ajUTFVarList#1{\ifx\relax#1\else\def\reserved@a{#1}\expandafter\aj@UTFVarList\fi}
 751 \gdef\aj@UTFVarList#1#2{\ifx=#1\expandafter\@aj@UTFVarList\else\expandafter\@aj@UTFVarList\expandafter#1\fi#2}
 752 \gdef\@aj@UTFVarList#1 {\aj@VarDef\UTF\reserved@a{#1}\@ajUTFVarList}
 753 \gdef\ajVar#1{\csname ajVar#1\endcsname}
 754 \ifltj@in@latex
 755   \@onlypreamble\ajCIDVarDef
 756   \@onlypreamble\ajUTFVarDef
 757   \@onlypreamble\ajCIDVarList
 758   \@onlypreamble\ajUTFVarList
 759 \fi
 760 %\ajCIDVarList{吉=13706 教=8471 高=8705 鴎=7646 崎=14290 碕=17009 第=13910 角=13682 浜=8531}
 761 \gdef\ajHashigoTaka{\CID{8705}}
 762 \gdef\ajTsuchiYoshi{\CID{13706}}
 763 \gdef\ajTatsuSaki{\CID{14290}}
 764 \gdef\ajMayuHama{\CID{8531}}
 765 %
 766 %
 767 %\gdef\ajRedefine@ajVar{\@ifpackageloaded{hyperref}{%
 768 %       \let\aj@Var\ajVar
 769 %       \def\ajVar##1{\ifHy@pdfstring
 770 %               \expandafter\expandafter
 771 %               \expandafter\check@UTF\csname ajVar##1\endcsname{##1}%
 772 %               \else\aj@Var{##1}\fi}
 773 %       \def\check@UTF##1##2##3{\ifx\UTF##1\0x##2\else##3\fi}}{}}
 774 \gdef\ajRedefine@ajCommands{\@ifpackageloaded{hyperref}{%
 775         \let\hyperref@ajLabel\ajLabel
 776         \def\ajLabel##1##{\ifHy@pdfstring\Hy@ReturnAfterElseFi\hyperref@ajLabel\@arabic\else\Hy@ReturnAfterFi\hyperref@ajLabel##1\fi}%
 777         \ajRedefine@ajCommand\△{Lig△}\▽{Lig▽}\！{Lig小}\ajLig{Lig}\ajPICT{PICT}\※{PICT}\ajVar{Var}\@nil\@nil
 778         \aj@Redefine@ajCommand○{Maru}●{KuroMaru}□{Kaku}■{KuroKaku}◇{MaruKaku}◆{KuroMaruKaku}\@nil\@nil
 779         \def\（##1）{\ifHy@pdfstring(##1)\else\expandafter\ifx\csname ajLig(##1)\endcsname\relax\@ajnumber{##1}{Kakko}%
 780                 \else\csname ajLig(##1)\endcsname\fi\fi}%
 781         \def\゛##1{\ifHy@pdfstring##1゛\else\csname ajLig##1゛\endcsname\fi}%
 782         \def\゜##1{\ifHy@pdfstring##1゜\else\csname ajLig##1゜\endcsname\fi}%
 783         }{}}
 784 \gdef\ajRedefine@ajCommand#1#2{\ifx\@nil#1\else\def#1##1{\ifHy@pdfstring##1\else\csname aj#2##1\endcsname\fi}%
 785         \expandafter\ajRedefine@ajCommand\fi}
 786 \gdef\aj@Redefine@ajCommand#1#2{\ifx\@nil#1\else\expandafter\def\csname#1\endcsname##1%
 787         {\ifHy@pdfstring##1\else\expandafter\ifx\csname ajLig#1##1\endcsname\relax\@ajnumber{##1}{#2}\else
 788                 \csname ajLig#1##1\endcsname\fi\fi}%
 789         \expandafter\aj@Redefine@ajCommand\fi}
 790 \ifltj@in@latex
 791   \AtBeginDocument{\ajRedefine@ajCommands}
 792 \fi
 793 %
 794 %
 795 \gdef\ajLeader{\@ifnextchar[{\aj@Leader}{\aj@Leader[\z@ plus1fill]}}
 796 \gdef\aj@Leader[#1]#2{{\@tempcnta#2\multiply\@tempcnta\tw@
 797         \advance\@tempcnta1221\ifhmode\ifydir4\else5\fi\else\ifydir5\else4\fi\fi
 798         \leaders\hbox{\CID{\@tempcnta}}\ifhmode\hskip\else\vskip\fi#1}}
 799 %
 800 %
 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}
 808 %% \ajQuotedef
 809 %% 670 671 12173 12174
 810 %% 672 673 7956 7957
 811 %% 674 675 7899 7900
 812 %% 676 677 7901 7902
 813 %% 678 679 7903 7904
 814 %% 680 681 7905 7906
 815 %% 682 683 7907 7908
 816 %% 684 685 7909 7910
 817 %% 686 687 7911 7912
 818 %% 688 689 7913 7914
 819 %% 690 691 7915 7916
 820 %% 7608 7609 7956 7957
 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
 827 %% * * * *
 828 %% \xdef\ajQuote#1#2{\noexpand\CID{\noexpand\ifydir\noexpand\ifcase#1\the\toks0
 829 %%      \noexpand\fi\noexpand\else\noexpand\ifcase#1\the\toks2
 830 %%      \noexpand\fi\noexpand\fi}#2\inhibitglue\noexpand\CID{\noexpand\ifydir\noexpand\ifcase#1\the\toks1
 831 %%      \noexpand\fi\noexpand\else\noexpand\ifcase#1\the\toks3
 832 %%      \noexpand\fi\noexpand\fi}}
 833 }
 834 \ifltj@in@latex\else
 835   \ajRedefine@KundokuMacros
 836 \fi
 837 %%------------------ all done
 838 \ltj@ajmacros@AtEnd
 839 \endinput
 840 %% EOF