src/addons/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
   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}[2013/05/14]
  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\ifydir\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{\ifydir\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}{\ifydir10152\else10174\fi}%
 233         \expandafter\aj@Tsumekakko
 234         \fi#2}
 235 \gdef\aj@Tsumekakko#1#2{\ifx\@nil#2\shift@CID{#1}{\ifydir10162\else10196\fi}%
 236         \expandafter\@gobble
 237         \else\shift@CID{#1}{\ifydir247\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}{\ifydir10152\else10174\fi}%
 246         \ifx\@nil#2\CID{\ifydir10172\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}{\ifydir10152\else10174\fi}\@aj@NenreiSai@}
 251 \gdef\@aj@NenreiSai@#1{\ifx\@nil#1\CID{\ifydir10173\else10207\fi}%
 252         \else\shift@CID{#1}{\ifydir247\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\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\ifydir\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         {\noexpand\CID{\noexpand\ifydir#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}
 355 %
 356 \let\@ajmojifam\@empty
 357 \@tempcnta12111
 358 \@ajligaturedef{!!}{!?}{!*}{!!*}{!?*}\@nil
 359 \@ajligdef{?!}{16279}
 360 \@ajligdef{??}{16278}
 361 %
 362 \let\@ajmojifam\@empty
 363 \@tempcnta7601
 364 \@ajligaturedef{mm}{cm}{km}{mg}{kg}{cc}{m2}\@nil
 365 \@tempcnta7610
 366 \@ajligaturedef{No.}{K.K.}{TEL}\@nil
 367 \@tempcnta8020
 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}
 371 \@ajligdef{in}{8182}
 372 \@tempcnta8186
 373 \@ajligaturedef{mm2}{mm3}{km3}{sec}{min}\@nil
 374 \@tempcnta8192
 375 \@ajligaturedef{cal}{kcal}{dB}\@nil
 376 \@tempcnta8303
 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
 384 \@tempcnta11846
 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}
 387 \@tempcnta20919
 388 \@ajligaturedef{ppb}{ppm}{'S}{H2}{O2}{Ox}{Nx}{Q2}{Jr.}{Dr.}\@nil%AJ1-6
 389 %
 390 \let\@ajmojifam\@empty
 391 \@tempcnta7621
 392 \@tempcntb12041
 393 \@aj@ligaturedef{明治}{大正}{昭和}\@nil
 394 \@tempcnta7585
 395 \@tempcntb7940
 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}
 426 \@tempcnta11873
 427 \@tempcntb11957
 428 \@aj@ligaturedef{アト}{アルファ}{アンペア}{イニング}{ウォン}{ウルシ}{エーカー}{エクサ}{エスクード}{オーム}{オングストローム}{オンス}{オントロ}{カイリ}%
 429 {カップ}{カラット}{ガロン}{ガンマ}{ギガ}{ギニー}{キュリー}{ギルダー}{キロリットル}{キロワット}{グスーム}{グラムトン}{クルサード}{クルゼイロ}{クローネ}%
 430 {ケース}{コルナ}{サイクル}{サンチーム}{シリング}{ダース}{デカ}{デシ}{テラ}{ドラクマ}{ナノ}{ノット}{バーツ}{バーレル}{パスカル}{バレル}{ピアストル}{ピクル}%
 431 {ピコ}{ファラッド}{ファラド}{フェムト}{ブッシェル}{フラン}{ベータ}{ヘクト}{ヘクトパスカル}{ペセタ}{ペソ}{ペタ}{ペニヒ}{ペンス}{ポイント}{ホール}{ボルト}{ホン}%
 432 {ポンド}{マイクロ}{マイル}{マッハ}{マルク}{ミクロン}{メガ}{メガトン}{ヤール}{ユアン}{ユーロ}{ラド}{リラ}{ルーブル}{ルクス}{ルピア}{ルピー}{レム}{レントゲン}\@nil
 433 \@tempcnta12045
 434 \@tempcntb12054
 435 \@aj@ligaturedef{医療法人}{学校法人}{共同組合}{協同組合}{合資会社}{合名会社}{社団法人}{宗教法人}{郵便番号}\@nil
 436 \expandafter\gdef\csname ajLigオングストローム*\endcsname
 437         {\mbox{\kern.05zw\ajLig{オントロ}\kern-.1zw\ajLig{グスーム}\kern.05zw}}
 438 \@tempcnta20929
 439 \@tempcntb20943
 440 \@aj@ligaturedef{ガル}{グレイ}{クローナ}{シーベルト}{シェケル}{ジュール}{デシベル}{ドット}{バイト}{ビット}{ベクレル}{ボー}{ランド}{リンギット}\@nil%AJ1-6
 441 \@ajligdef{より}{12181}
 442 \@ajligdef{升}{16194}
 443 \@ajligdef{コト}{16195}
 444 %
 445 \def\@ajmojifam{○}
 446 \@tempcnta7613
 447 \@ajligaturedef 上中下左右\@nil
 448 \@ajligdef{〒}{8057}
 449 \@tempcnta8152
 450 \@ajligaturedef 夜企医協名宗労学有株社監資財\@nil
 451 \@ajligdef{印}{8191}
 452 \@ajligdef{秘}{8223}
 453 \@tempcnta8317
 454 \@ajligaturedef 大小優控\@nil
 455 \@tempcnta10478
 456 \@ajligaturedef 調注副減標欠基禁項休女男正写祝出適特済増問答例電\@nil%
 457 \@ajligdef{年}{20553}%AJ1-6
 458 %
 459 \def\@ajmojifam#1{(#1)}
 460 \@ajligdef{株}{7618}
 461 \@ajligdef{有}{7619}
 462 \@ajligdef{代}{7620}
 463 \@tempcnta8138
 464 \@ajligaturedef 至企協名労社監自資財特学祭呼\@nil
 465 \@ajligdef{祝}{8204}
 466 \@ajligdef{休}{8205}
 467 \@tempcnta10146
 468 \@ajligaturedef 営合注問答例\@nil
 469 %
 470 \def\@ajmojifam{□}
 471 \@ajligdef{印}{8196}
 472 \@ajligdef{負}{11030}
 473 \@ajligdef{勝}{11031}
 474 \@tempcnta20497
 475 \@ajligaturedef{:A}{:B}{:C}{:D}{:E}{:F}{:終}\@nil%AJ1-6
 476 \@tempcnta20505
 477 \@ajligaturedef{:CL}{:KCL}{:BEL}{:AS}{:AM}{:段}{:ゴ}{:ミ}\@nil%AJ1-6
 478 %
 479 \def\@ajmojifam{◇}
 480 \@tempcnta20554
 481 \@ajligaturedef {News}天再新映声前後終立交{ほか}劇司解株気二多文手{PV}{MV}双{SS}{S1}{S2}{S3}デ{HV}\@nil%AJ1-6
 482 %
 483 \def\@ajmojifam{▽}
 484 \@ajligdef{〒}{12180}
 485 \@ajligdef{▽}{12193}
 486 %
 487 \def\@ajmojifam{△}
 488 \@ajligdef{!}{12192}
 489 %
 490 \def\@ajmojifam{■}
 491 \@ajligdef{◇}{12231}
 492 %
 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
 498 \@tempcnta10760
 499 \def\@ajmojidef#1{\ifx\@nil#1%
 500         \else\advance\@tempcnta\csname offset#1\endcsname
 501         \def\@ajmojifam{#1}%
 502         \@ajligaturedef 問答例\@nil
 503         \expandafter\@ajmojidef\fi}
 504 \@ajmojidef ●□■◇◆\@nil
 505 %
 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                         \ifydir\CID{#6}\else\CID{#7}\fi
 510                 \else\ifydir\CID{#4}\else\CID{#5}\fi
 511                 \fi
 512         \else\ifydir\CID{#2}\else\CID{#3}\fi
 513         \fi}}
 514 \newcount\@tempcntc
 515 \newcount\@tempcntd
 516 \newcount\@tempcnte
 517 \newcount\@tempcntf
 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}
 526 \@tempcnta8313
 527 \@tempcntb8313
 528 \@tempcntc12452
 529 \@tempcntd12635
 530 \@tempcnte16444
 531 \@tempcntf16444
 532 \@aj@kanadef{ワ゛}{ヰ゛}{ヱ゛}{ヲ゛}\@nil
 533 \@tempcnta16209
 534 \@tempcntb16209
 535 \@tempcntc16352
 536 \@tempcntd16382
 537 \@tempcnte16414
 538 \@tempcntf16414
 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}
 544 \@tempcnta16236
 545 \@tempcntb16333
 546 \@tempcntc16365
 547 \@tempcntd16395
 548 \@tempcnte16427
 549 \@tempcntf16450
 550 \@aj@kanadef{小ク}{小シ}{小ス}{小ト}{小ヌ}{小ハ}{小ヒ}{小フ}{小ヘ}{小ホ}{小プ}{小ム}{小ラ}{小リ}{小ル}{小レ}{小ロ}\@nil
 551 %
 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}}
 556 \@tempcnta\@ne
 557 \@aj@numberdef{alph}abcdefghijklmnopqrstuvwxyz\@nil
 558 \@tempcnta\@ne
 559 \@aj@numberdef{Alph}ABCDEFGHIJKLMNOPQRSTUVWXYZ\@nil
 560 \@tempcnta\@ne
 561 \@aj@numberdef{Hira}あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわゐゑをん\@nil
 562 \@tempcnta\@ne
 563 \@aj@numberdef{Kata}アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヰヱヲン\@nil
 564 \@tempcnta\@ne
 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}}
 569 %
 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}
 587 %
 588 %
 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}
 593 \@tempcnta8016
 594 \@aj@PICTdef{Club}{Heart}{Spade}{Diamond}\@nil
 595 \@ajPICTdef{電話}{8056}
 596 \@ajPICTdef{〒}{8058}
 597 \@tempcnta8211
 598 \@aj@PICTdef{Spade*}{Heart*}{Club*}{Diamond*}\@nil
 599 \@tempcnta8215
 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}
 607 \global\let\※\ajPICT
 608 %
 609 %
 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}
 614 \@tempcnta8009
 615 \@aj@Arrowdef{LeftTriangle}{RightTriangle}{DOWN}{UP}{LEFT}{RIGHT}\@nil
 616 \@tempcnta8206
 617 \@aj@Arrowdef{RIGHT*}{LEFT*}{UP*}{DOWN*}\@nil
 618 \@tempcnta8219
 619 \@aj@Arrowdef{RightHand}{LeftHand}{UpHand}{DownHand}\@nil
 620 \@tempcnta8309
 621 \@aj@Arrowdef{Left/Right}{Right/Left}{Up/Down}{Down/Up}\@nil
 622 \@tempcnta12175
 623 \@aj@Arrowdef{LeftScissors}{RightScissors}{UpScissors}{DownScissors}\@nil
 624 \@tempcnta12194
 625 \@aj@Arrowdef
 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
 628 \@tempcnta12261
 629 \@aj@Arrowdef
 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}
 638 %
 639 %
 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
 645         \fi}
 646 \@tempcnta16283
 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}{　}}}
 670 %
 671 \gdef\ajKunten#1{\csname aj訓点#1\endcsname}
 672 %
 673 \newtoks\@temptokenb
 674 \newtoks\@temptokenc
 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
 688         \fi
 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
 702         \fi}
 703 \ifltj@in@latex
 704   \@onlypreamble\ajRedefine@KundokuMacros
 705   \AtBeginDocument{\ajRedefine@KundokuMacros}
 706 \fi
 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
 714         \fi
 715         \ifx\orig@kokana\@undefined
 716         \else
 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
 722         \fi}
 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}%
 730         \fi
 731         \ifx\aj@kokana\@undefined
 732         \else
 733         \let\kokana\aj@kokana
 734         \let\retenform\aj@retenform
 735         \let\reten\aj@reten
 736         \let\retenkana\aj@retenkana
 737         \let\kaeriten\aj@kaeriten
 738         \fi}
 739 %
 740 %
 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}
 753 \ifltj@in@latex
 754   \@onlypreamble\ajCIDVarDef
 755   \@onlypreamble\ajUTFVarDef
 756   \@onlypreamble\ajCIDVarList
 757   \@onlypreamble\ajUTFVarList
 758 \fi
 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}}
 764 %
 765 %
 766 %\gdef\ajRedefine@ajVar{\@ifpackageloaded{hyperref}{%
 767 %       \let\aj@Var\ajVar
 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\Hy@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}%
 782         }{}}
 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}
 789 \ifltj@in@latex
 790   \AtBeginDocument{\ajRedefine@ajCommands}
 791 \fi
 792 %
 793 %
 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\ifydir4\else5\fi\else\ifydir5\else4\fi\fi
 797         \leaders\hbox{\CID{\@tempcnta}}\ifhmode\hskip\else\vskip\fi#1}}
 798 %
 799 %
 800 \endlinechar=13
 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 \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\ifydir\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\ifydir\noexpand\ifcase#1 \the\toks1
 833         \noexpand\fi\noexpand\else\noexpand\ifcase#1 \the\toks3
 834         \noexpand\fi\noexpand\fi}}
 835 }
 836 \ifltj@in@latex\else
 837   \ajRedefine@KundokuMacros
 838 \fi
 839 %%------------------ all done
 840 \ltj@ajmacros@AtEnd
 841 \endinput
 842 %% EOF