\@ifpackageloaded{otf}{}{\@ifpackageloaded{utf}{}{\RequirePackage{otf}}}
\ProvidesPackage{ajmacros}[2004/03/03 23:32 iNOUE Koich! <inoue@ma.ns.musashi-tech.ac.jp>]
{%
\gdef\shift@CID#1#2{{\@tempcnta#1\advance\@tempcnta#2\CID{\@tempcnta}}}
\gdef\ajTsumesuji{\@ifstar{\@@ajTsumesuji}{\@ajTsumesuji}}
\global\let\ajTumesuji\ajTsumesuji
\gdef\@ajTsumesuji#1#2{{\@tempcnta\ifydir\ifcase#1\or780\or247\or9758\or9738\fi
	\else\ifcase#1\or8736\or8966\or13274\or13254\fi\fi
	\aj@expand\aj@Tsumesuji#2\@nil}}
\gdef\@@ajTsumesuji#1{\@ajTsumesuji{\aj@expand\aj@count@toks#14321\@nil}{#1}}
\gdef\aj@expand#1#2{\expandafter\@aj@expand\number#2!#1}
\gdef\@aj@expand#1!#2{#2#1}
\gdef\aj@count@toks#1#2#3#4#5#6\@nil{#5}
\gdef\aj@Tsumesuji#1{\ifx\@nil#1\else\shift@CID{\@tempcnta}{#1}%
	\expandafter\aj@Tsumesuji
	\fi}
\gdef\ajMaru{\@ifstar{\@aj@Maru}{\aj@Maru}}
\gdef\aj@Maru#1{\ifnum#1=\z@ \CID{8224}%
	\else\ifnum#1<21 \shift@CID{#1}{7554}%
	\else\ifnum#1=21 \CID{8091}%
	\else\ifnum#1<32 \shift@CID{#1}{8080}%
	\else\shift@CID{#1}{10212}%
	\fi\fi\fi\fi}
\gdef\@aj@Maru#1{\ifnum#1<10 \shift@CID{#1}{10234}%
	\else\ifnum#1<21 \shift@CID{#1}{7554}%
	\else\ifnum#1=21 \CID{8091}%
	\else\ifnum#1<32 \shift@CID{#1}{8080}%
	\else\shift@CID{#1}{10212}%
	\fi\fi\fi\fi}
\gdef\ajKuroMaru{\@ifstar{\@aj@KuroMaru}{\aj@KuroMaru}}
\gdef\aj@KuroMaru#1{\ifnum#1=\z@ \CID{10503}%
	\else\ifnum#1<10 \shift@CID{#1}{8285}%
	\else\shift@CID{#1}{10504}%
	\fi\fi}
\gdef\@aj@KuroMaru#1{\shift@CID{#1}{10504}}
\gdef\ajKaku{\@ifstar{\@aj@Kaku}{\aj@Kaku}}
\gdef\aj@Kaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
	\shift@CID{\@tempcnta}{10764}}%
	\else\shift@CID{#1}{10774}%
	\fi}
\gdef\@aj@Kaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
	\shift@CID{\@tempcnta}{10765}}%
	\else\shift@CID{#1}{10774}%
	\fi}
\gdef\ajKuroKaku{\@ifstar{\@aj@KuroKaku}{\aj@KuroKaku}}
\gdef\aj@KuroKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
	\shift@CID{\@tempcnta}{11037}}%
	\else\shift@CID{#1}{11047}%
	\fi}
\gdef\@aj@KuroKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
	\shift@CID{\@tempcnta}{11038}}%
	\else\shift@CID{#1}{11047}%
	\fi}
\gdef\ajMaruKaku{\@ifstar{\@aj@MaruKaku}{\aj@MaruKaku}}
\gdef\aj@MaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
	\shift@CID{\@tempcnta}{11307}}%
	\else\shift@CID{#1}{11317}%
	\fi}
\gdef\@aj@MaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
	\shift@CID{\@tempcnta}{11308}}%
	\else\shift@CID{#1}{11317}%
	\fi}
\gdef\ajKuroMaruKaku{\@ifstar{\@aj@KuroMaruKaku}{\aj@KuroMaruKaku}}
\gdef\aj@KuroMaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
	\shift@CID{\@tempcnta}{11576}}%
	\else\shift@CID{#1}{11586}%
	\fi}
\gdef\@aj@KuroMaruKaku#1{\ifnum#1<10{\@tempcnta#1\multiply\@tempcnta\tw@
	\shift@CID{\@tempcnta}{11577}}%
	\else\shift@CID{#1}{11586}%
	\fi}
\gdef\ajKakko{\@ifstar{\@aj@Kakko}{\aj@Kakko}}
\gdef\aj@Kakko#1{\ifnum#1=\z@ \CID{8227}%
	\else\ifnum#1<21 \shift@CID{#1}{8070}%
	\else\shift@CID{#1}{9873}%
	\fi\fi}
\gdef\@aj@Kakko#1{\ifnum#1<10 \shift@CID{#1}{9884}%
	\else\ifnum#1<21 \shift@CID{#1}{8070}%
	\else\shift@CID{#1}{9873}%
	\fi\fi}
\gdef\ajRoman{\@ifstar{\@aj@Roman}{\aj@Roman}}
\gdef\aj@Roman#1{\ifnum#1<11 \shift@CID{#1}{7574}%
	\else\ifnum#1<13 \shift@CID{#1}{8214}%
	\else\shift@CID{#1}{8282}%
	\fi\fi}
\gdef\@aj@Roman#1{\ifnum#1=4 \CID{9883}\else\aj@Roman{#1}\fi}
\gdef\ajroman#1{\ifnum#1<11 \shift@CID{#1}{8091}%
	\else\shift@CID{#1}{8287}%
	\fi}
\gdef\ajPeriod#1{\shift@CID{#1}{8061}}
\gdef\ajKakkoalph#1{\shift@CID{#1}{8111}}
\gdef\ajKakkoYobi#1{\shift@CID{#1}{8196}}
\gdef\ajKakkoroman#1{\shift@CID{#1}{9973}}
\gdef\ajKakkoRoman#1{\shift@CID{#1}{9988}}
\gdef\ajKakkoAlph#1{\shift@CID{#1}{10003}}
\gdef\ajKakkoHira#1{\shift@CID{#1}{10029}}
\gdef\ajKakkoKata#1{\shift@CID{#1}{10077}}
\gdef\ajKakkoKansuji#1{\shift@CID{#1}{10125}}
\gdef\ajMaruKansuji#1{\shift@CID{#1}{10460}}
\gdef\ajNijuMaru#1{\shift@CID{#1}{16222}}
\gdef\ajRecycle#1{\shift@CID{#1}{16314}}
%
\let\offsetalph\z@
\chardef\offsetAlph26
\chardef\offsetHira26
\chardef\offsetKata48
\chardef\offsetYobi48
\let\offsetMaru\z@
\chardef\offsetKuroMaru144
\chardef\offsetKaku122
\chardef\offsetKuroKaku125
\chardef\offsetMaruKaku122
\chardef\offsetKuroMaruKaku121
\@tempcnta10312
\def\@aj@sujidef#1{\ifx\@nil#1%
	\else\advance\@tempcnta\csname offset#1\endcsname
	\expandafter\xdef\csname aj\@ajsujifam#1\endcsname##1%
		{\noexpand\shift@CID{##1}{\number\@tempcnta}}%
	\expandafter\@aj@sujidef\fi}
\def\@ajsujidef#1{\ifx\@nil#1%
	\else\advance\@tempcnta\csname offset#1\endcsname
	\def\@ajsujifam{#1}%
	\@aj@sujidef{alph}{Alph}{Hira}{Kata}{Yobi}\@nil
	\expandafter\@ajsujidef\fi}
\@ajsujidef{Maru}{KuroMaru}{Kaku}{KuroKaku}{MaruKaku}{KuroMaruKaku}\@nil
\gdef\ajMaruYobi#1{\shift@CID{#1}{10470}}
\gdef\ajTsumekakko#1{\aj@expand\@ajTsumekakko#1\@nil}
\global\let\ajTumekakko\ajTsumekakko
\gdef\@ajTsumekakko#1#2{\ifx\@nil#2\mbox{\ifydir\rlap{\CID{10233}}\shift@CID{#1}{9872}%
	\else\CID{13268}\shift@CID{#1}{10185}\CID{13269}\fi}%
	\expandafter\@gobble
	\else\shift@CID{#1}{\ifydir10152\else10174\fi}%
	\expandafter\aj@Tsumekakko
	\fi#2}
\gdef\aj@Tsumekakko#1#2{\ifx\@nil#2\shift@CID{#1}{\ifydir10162\else10196\fi}%
	\expandafter\@gobble
	\else\shift@CID{#1}{\ifydir247\else10185\fi}%
	\expandafter\aj@Tsumekakko
	\fi#2}
\gdef\ajNenrei#1{\ifcase#1\relax\expandafter\ajTsumekakko\or\expandafter\aj@NenreiTu
	\or\expandafter\aj@NenreiSai\or\expandafter\aj@Nenrei@Tu
	\or\expandafter\aj@Nenrei@Sai
	\fi}
\gdef\aj@NenreiTu#1{\aj@expand\@aj@NenreiTu#1\@nil}
\gdef\@aj@NenreiTu#1#2{\shift@CID{#1}{\ifydir10152\else10174\fi}%
	\ifx\@nil#2\CID{\ifydir10172\else10206\fi}\expandafter\@gobble
	\else\expandafter\aj@Tsumekakko
	\fi#2}
\gdef\aj@NenreiSai#1{\aj@expand\@aj@NenreiSai#1\@nil}
\gdef\@aj@NenreiSai#1{\shift@CID{#1}{\ifydir10152\else10174\fi}\@aj@NenreiSai@}
\gdef\@aj@NenreiSai@#1{\ifx\@nil#1\CID{\ifydir10173\else10207\fi}%
	\else\shift@CID{#1}{\ifydir247\else10185\fi}%
	\expandafter\@aj@NenreiSai@\fi}
\gdef\aj@Nenrei@Tu#1{\ifnum#1<10 \shift@CID{#1}{10174}\CID{10206}%
	\else\expandafter\@aj@Nenrei@Tu\number#1%
	\fi}
\gdef\@aj@Nenrei@Tu#1#2{\ifnum#2=\z@ \shift@CID{#1}{10174}\CID{10196}%
	\else\ifnum#1<\tw@ \CID{10184}%
	\else\shift@CID{#1}{10174}\CID{10195}%
	\fi
	\shift@CID{#2}{10196}%
	\fi}
\gdef\aj@Nenrei@Sai#1{\ifnum#1<10 \shift@CID{#1}{10174}%
	\else\expandafter\@aj@Nenrei@Sai\number#1%
	\fi\CID{10207}}
\gdef\@aj@Nenrei@Sai#1#2{\ifnum#1<\tw@ \CID{10184}%
	\else\shift@CID{#1}{10174}\CID{10195}%
	\fi
	\ifnum#2>\z@ \shift@CID{#2}{10185}%
	\fi}
\gdef\ajnenrei#1#2{\hskip\kanjiskip\hbox{\tate\ifnum#2<10
	\shift@CID{#2}{10207}\CID{\ifcase#1\or10230\or10232\or10231\or10229\fi}%
	\else\ifnum#2=10\CID{\ifodd#1 10208\else10217\fi}%
		\CID{\ifcase#1\or10218\or10232\or10218\or10229\fi}%
	\else\ifnum#2<20\CID{\ifodd#1 10208\else10217\fi}\shift@CID{#2}{10208}%
	\else\expandafter\aj@nenrei\number#2{#1}%
	\fi\fi\fi}}
\gdef\aj@nenrei#1#2#3{\shift@CID{#1}{10207}%
	\ifcase#2 \CID{\ifodd#3 10218\else10228\fi}%
	\else\shift@CID{#2}{10218}%
	\fi}
\gdef\ajKosu{\ajnenrei4}
%
\gdef\ajLabel#1#2#{\ifx\\#2\\\aj@Label#1\else\@aj@Label#1#2\fi}
\gdef\aj@Label#1\else#2\fi#3{\fi
	\expandafter\protect
	\expandafter#1%
	\expandafter{\number\csname c@#3\endcsname}}
\gdef\@aj@Label#1#2\fi#3{\fi
	\expandafter\protect
	\expandafter#1%
	\expandafter#2%
	\expandafter{\number\csname c@#3\endcsname}}
%
%
\def\@aj半角def#1{\ifx\@nil#1%
	\else\expandafter\xdef\csname aj半角@#1\endcsname
	{\noexpand\CID{\noexpand\ifydir\number\@tempcnta
		\noexpand\else\number\@tempcntb\noexpand\fi}}%
	\advance\@tempcnta\@ne\advance\@tempcntb\@ne
	\expandafter\@aj半角def\fi}
\@tempcnta326
\@tempcntb9084
\@aj半角def 　。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン゛゜｀ヰヱヮヵヶヴガギグゲゴザジズゼゾダヂヅデドバパビピブプベペボポ\@nil
\@tempcnta516
\@aj半角def をぁぃぅぇぉゃゅょっあいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわんゐゑゎがぎぐげござじずぜぞだぢづでどばぱびぴぶぷべぺぼぽ\@nil
\gdef\aj半角#1{{\let\reserved@a\aj@半角\aj@半角#1\@nil}}
\gdef\aj@半角#1{\ifx\@nil#1\let\reserved@a\relax
	\else\expandafter\ifx\csname aj半角@#1\endcsname\relax#1%
	\else\csname aj半角@#1\endcsname
	\fi\fi\reserved@a}
%
\def\@ajligdef#1#2{\expandafter\xdef\csname ajLig#1\endcsname{\noexpand\CID{#2}}}
\def\@ajligaturedef#1{\ifx\@nil#1%
	\else\@ajligdef{#1}{\number\@tempcnta}\advance\@tempcnta\@ne
	\expandafter\@ajligaturedef\fi}
\@ajligdef{!!}{12111}
\@ajligdef{!?}{12112}
\@ajligdef{!*}{12113}
\@ajligdef{!!*}{12114}
\@ajligdef{!?*}{12115}
\@ajligdef{?!}{16279}
\@ajligdef{??}{16278}
%
\@tempcnta7601
\@ajligaturedef{mm}{cm}{km}{mg}{kg}{cc}{m2}\@nil
\@tempcnta7610
\@ajligaturedef{No.}{K.K.}{TEL}\@nil
\@tempcnta8020
\@ajligaturedef{cm2}{km2}{cm3}{m3}{dl}{l}{kl}{ms}{micros}{ns}{ps}{KB}{MB}{GB}{HP}{Hz}{mb}{ml}\@nil
\@ajligdef{KK.}{8053}
\@ajligdef{Tel}{8055}
\@ajligdef{in}{8182}
\@tempcnta8186
\@ajligaturedef{mm2}{mm3}{km3}{sec}{min}\@nil
\@tempcnta8192
\@ajligaturedef{cal}{kcal}{dB}\@nil
\@tempcnta8303
\@ajligaturedef{m}{g}{F}{TB}{FAX}\@nil
\@ajligdef{ohm}{9355}
\@tempcnta11846
\@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
\@ajligdef{mho}{16204}
%
\def\@aj@ligdef#1#2#3{\expandafter\xdef\csname ajLig#1\endcsname
	{\noexpand\CID{\noexpand\ifydir#2\noexpand\else#3\noexpand\fi}}}
\def\@aj@ligaturedef#1{\ifx\@nil#1%
	\else\edef\reserved@a
		{\noexpand\@aj@ligdef{#1}{\number\@tempcnta}{\number\@tempcntb}}\reserved@a
	\advance\@tempcnta\@ne\advance\@tempcntb\@ne
	\expandafter\@aj@ligaturedef\fi}
\@aj@ligdef{明治}{7621}{12041}
\@aj@ligdef{大正}{7622}{12042}
\@aj@ligdef{昭和}{7623}{12043}
\@tempcnta7585
\@tempcntb7940
\@aj@ligaturedef{ミリ}{キロ}{センチ*}{メートル}{グラム*}{トン}{アール*}{ヘクタール}{リットル}{ワット*}{カロリー}{ドル}{セント*}{パーセント}{ミリバール}{ページ*}\@nil
\@aj@ligdef{センチ}{8038}{8329}
\@aj@ligdef{キロメートル}{8039}{8330}
\@aj@ligdef{グラム}{8040}{8339}
\@aj@ligdef{キログラム}{8041}{8340}
\@aj@ligdef{アール}{8042}{8338}
\@aj@ligdef{セント}{8043}{8348}
\@aj@ligdef{ワット}{8044}{8344}
\@aj@ligdef{ホーン}{8045}{8347}
\@aj@ligdef{ヘルツ}{8046}{8343}
\@aj@ligdef{ページ}{8047}{8349}
\@aj@ligdef{アパート}{8048}{8350}
\@aj@ligdef{ビル}{8049}{8358}
\@aj@ligdef{マンション}{8050}{8357}
\@aj@ligdef{コーポ}{8051}{8353}
\@aj@ligdef{ハイツ}{8052}{8356}
\@aj@ligdef{株式会社}{8054}{8324}
\@aj@ligdef{インチ}{8183}{8333}
\@aj@ligdef{有限会社}{8321}{8325}
\@aj@ligdef{財団法人}{8322}{8326}
\@aj@ligdef{平成}{8323}{12044}
\@aj@ligdef{フィート}{8327}{8334}
\@aj@ligdef{ヤード}{8328}{8337}
\@aj@ligdef{インチ*}{8331}{8332}
\@aj@ligdef{ヤード*}{8335}{8336}
\@aj@ligdef{ヘルツ*}{8341}{8342}
\@aj@ligdef{ホーン*}{8345}{8346}
\@aj@ligdef{コーポ*}{8351}{8352}
\@aj@ligdef{ハイツ*}{8354}{8355}
\@aj@ligdef{さじ}{11871}{11872}
\@tempcnta11873
\@tempcntb11957
\@aj@ligaturedef{アト}{アルファ}{アンペア}{イニング}{ウォン}{ウルシ}{エーカー}{エクサ}{エスクード}{オーム}{オングストローム}{オンス}{オントロ}{カイリ}%
{カップ}{カラット}{ガロン}{ガンマ}{ギガ}{ギニー}{キュリー}{ギルダー}{キロリットル}{キロワット}{グスーム}{グラムトン}{クルサード}{クルゼイロ}{クローネ}%
{ケース}{コルナ}{サイクル}{サンチーム}{シリング}{ダース}{デカ}{デシ}{テラ}{ドラクマ}{ナノ}{ノット}{バーツ}{バーレル}{パスカル}{バレル}{ピアストル}{ピクル}%
{ピコ}{ファラッド}{ファラド}{フェムト}{ブッシェル}{フラン}{ベータ}{ヘクト}{ヘクトパスカル}{ペセタ}{ペソ}{ペタ}{ペニヒ}{ペンス}{ポイント}{ホール}{ボルト}{ホン}%
{ポンド}{マイクロ}{マイル}{マッハ}{マルク}{ミクロン}{メガ}{メガトン}{ヤール}{ユアン}{ユーロ}{ラド}{リラ}{ルーブル}{ルクス}{ルピア}{ルピー}{レム}{レントゲン}\@nil
\@tempcnta12045
\@tempcntb12054
\@aj@ligaturedef{医療法人}{学校法人}{共同組合}{協同組合}{合資会社}{合名会社}{社団法人}{宗教法人}{郵便番号}\@nil
\expandafter\gdef\csname ajLigオングストローム*\endcsname
	{\mbox{\kern.05zw\ajLig{オントロ}\kern-.1zw\ajLig{グスーム}\kern.05zw}}
%
\def\@ajmarumojidef#1#2{\expandafter\xdef\csname ajLig○#1\endcsname{\noexpand\CID{#2}}}
\def\@aj@marumojidef#1{\ifx\@nil#1%
	\else\@ajmarumojidef{#1}{\number\@tempcnta}\advance\@tempcnta\@ne
	\expandafter\@aj@marumojidef\fi}
\@tempcnta7613
\@aj@marumojidef 上中下左右\@nil
\@ajmarumojidef{〒}{8057}
\@tempcnta8152
\@aj@marumojidef 夜企医協名宗労学有株社監資財\@nil
\@ajmarumojidef{印}{8191}
\@ajmarumojidef{秘}{8223}
\@tempcnta8317
\@aj@marumojidef 大小優控\@nil
\@tempcnta10478
\@aj@marumojidef 調注副減標欠基禁項休女男正写祝出適特済増問答例電\@nil%
%
\def\@ajkakkodef#1#2{\expandafter\xdef\csname ajLig(#1)\endcsname{\noexpand\CID{#2}}}
\def\@aj@kakkodef#1{\ifx\@nil#1%
	\else\@ajkakkodef{#1}{\number\@tempcnta}\advance\@tempcnta\@ne
	\expandafter\@aj@kakkodef\fi}
\@ajkakkodef{株}{7618}
\@ajkakkodef{有}{7619}
\@ajkakkodef{代}{7620}
\@tempcnta8138
\@aj@kakkodef 至企協名労社監自資財特学祭呼\@nil
\@ajkakkodef{祝}{8204}
\@ajkakkodef{休}{8205}
\@tempcnta10146
\@aj@kakkodef 営合注問答例\@nil
%
\expandafter\chardef\csname offset●\endcsname\z@
\expandafter\mathchardef\csname offset□\endcsname269
\expandafter\mathchardef\csname offset■\endcsname268
\expandafter\mathchardef\csname offset◇\endcsname267
\expandafter\mathchardef\csname offset◆\endcsname266
\@tempcnta10760
\def\@aj@mojidef#1{\ifx\@nil#1%
	\else\expandafter\xdef\csname ajLig\@ajmojifam#1\endcsname{\noexpand\CID{\number\@tempcnta}}%
	\advance\@tempcnta\@ne
	\expandafter\@aj@mojidef\fi}
\def\@ajmojidef#1{\ifx\@nil#1%
	\else\advance\@tempcnta\csname offset#1\endcsname
	\def\@ajmojifam{#1}%
	\@aj@mojidef 問答例\@nil
	\expandafter\@ajmojidef\fi}
\@ajmojidef ●□■◇◆\@nil
\def\@ajkakudef#1#2{\expandafter\xdef\csname ajLig□#1\endcsname{\noexpand\CID{#2}}}
\@ajkakudef{印}{8196}
\@ajkakudef{負}{11030}
\@ajkakudef{勝}{11031}
%
\def\@ajkanadef#1#2#3#4#5#6#7{\expandafter\gdef\csname ajLig#1\endcsname
	{\if@kana\def\reserved@a{ruby}%
		\ifx\k@family\reserved@a
			\ifydir\CID{#6}\else\CID{#7}\fi
		\else\ifydir\CID{#4}\else\CID{#5}\fi
		\fi
	\else\ifydir\CID{#2}\else\CID{#3}\fi
	\fi}}
\newcount\@tempcntc
\newcount\@tempcntd
\newcount\@tempcnte
\newcount\@tempcntf
\def\@aj@kanadef#1{\ifx\@nil#1%
	\else\edef\reserved@b{\noexpand\@ajkanadef{#1}%
		{\number\@tempcnta}{\number\@tempcntb}{\number\@tempcntc}%
		{\number\@tempcntd}{\number\@tempcnte}{\number\@tempcntf}}\reserved@b
		\advance\@tempcnta\@ne\advance\@tempcntb\@ne\advance\@tempcntc\@ne
		\advance\@tempcntd\@ne\advance\@tempcnte\@ne\advance\@tempcntf\@ne
	\expandafter\@aj@kanadef\fi}
\@ajkanadef{う゛}{7958}{7958}{12361}{12544}{12756}{12756}
\@tempcnta8313
\@tempcntb8313
\@tempcntc12452
\@tempcntd12635
\@tempcnte16444
\@tempcntf16444
\@aj@kanadef{ワ゛}{ヰ゛}{ヱ゛}{ヲ゛}\@nil
\@tempcnta16209
\@tempcntb16209
\@tempcntc16352
\@tempcntd16382
\@tempcnte16414
\@tempcntf16414
\@aj@kanadef{か゜}{き゜}{く゜}{け゜}{こ゜}{カ゜}{キ゜}{ク゜}{ケ゜}{コ゜}{セ゜}{ツ゜}{ト゜}\@nil
\@ajkanadef{小か}{7959}{8264}{12285}{12468}{12682}{12762}
\@ajkanadef{小け}{7960}{8265}{12292}{12475}{12689}{12763}
\@ajkanadef{小こ}{12269}{12270}{12295}{12478}{16448}{16467}
\@ajkanadef{小コ}{12271}{12272}{12385}{12568}{16449}{16468}
\@tempcnta16236
\@tempcntb16333
\@tempcntc16365
\@tempcntd16395
\@tempcnte16427
\@tempcntf16450
\@aj@kanadef{小ク}{小シ}{小ス}{小ト}{小ヌ}{小ハ}{小ヒ}{小フ}{小ヘ}{小ホ}{小プ}{小ム}{小ラ}{小リ}{小ル}{小レ}{小ロ}\@nil
%
\def\@aj@numberdef#1#2{\ifx\@nil#2\expandafter\@gobble
    \else\expandafter\xdef\csname ajnumber#2\endcsname{{#1}{\number\@tempcnta}}%
    \advance\@tempcnta1
    \expandafter\@aj@numberdef\fi{#1}}
\@tempcnta1
\@aj@numberdef{alph}abcdefghijklmnopqrstuvwxyz\@nil
\@tempcnta1
\@aj@numberdef{Alph}ABCDEFGHIJKLMNOPQRSTUVWXYZ\@nil
\@tempcnta1
\@aj@numberdef{Hira}あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわゐゑをん\@nil
\@tempcnta1
\@aj@numberdef{Kata}アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヰヱヲン\@nil
\@tempcnta1
\@aj@numberdef{Yobi}日月火水木金土祝休\@nil
\gdef\@ajnumber#1{\expandafter\expandafter\expandafter\aj@number\csname ajnumber#1\endcsname}
\gdef\aj@number#1{\ifx\relax#1\expandafter\@gobbletwo\else\expandafter\@aj@number\fi{#1}}
\gdef\@aj@number#1#2#3{\csname aj#3#1\endcsname{#2}}
%
\def\@aj@kakomidef#1#2{\expandafter\gdef\csname#1\endcsname##1%
    {\expandafter\ifx\csname ajLig#1##1\endcsname\relax\@ajnumber{##1}{#2}%
    \else\csname ajLig#1##1\endcsname\fi}}
\@aj@kakomidef{○}{Maru}
\@aj@kakomidef{●}{KuroMaru}
\@aj@kakomidef{□}{Kaku}
\@aj@kakomidef{■}{KuroKaku}
\@aj@kakomidef{◇}{MaruKaku}
\@aj@kakomidef{◆}{KuroMaruKaku}
\gdef\（#1）{\expandafter\ifx\csname ajLig(#1)\endcsname\relax\@ajnumber{#1}{Kakko}%
    \else\csname ajLig(#1)\endcsname\fi}
\gdef\゛#1{\csname ajLig#1゛\endcsname}
\gdef\゜#1{\csname ajLig#1゜\endcsname}
\gdef\！#1{\csname ajLig小#1\endcsname}
\gdef\ajLig#1{\csname ajLig#1\endcsname}
%
%
\def\@aj@kuntendef#1{\ifx\@nil#1%
	\else\expandafter\xdef\csname aj訓点#1\endcsname
		{\noexpand\CID{\number\@tempcnta}}%
	\advance\@tempcnta\@ne
	\expandafter\@aj@kuntendef
	\fi}
\@tempcnta16283
\@aj@kuntendef ｜レ一二三四上中下甲乙丙丁天地人\@nil
\gdef\aj@smallReten{{\@tempdimb\f@size pt\@tempskipa\f@baselineskip
	\@tempdimb.94\@tempdimb
	\@tempskipa.94\@tempskipa
	\fontsize{\@tempdimb}{\@tempskipa}\selectfont\aj訓点レ}}
\gdef\aj訓点一レ{\mbox{\tate\kern-.24zw\aj訓点一\kern-.65zw\raise.15zw\hbox{\aj@smallReten}}}
\gdef\aj訓点上レ{\mbox{\tate\aj訓点上\kern-.3zw\raise.15zw\hbox{\aj@smallReten}}}
\gdef\aj訓点甲レ{\mbox{\tate\aj訓点甲\kern-.25zw\raise.15zw\hbox{\aj@smallReten}}}
\gdef\aj訓点天レ{\mbox{\tate\aj訓点天\kern-.4zw\raise.1zw\hbox{\aj@smallReten}}}
\def\@ajongofudef#1{\ifx\@nil#1%
	\else\expandafter\xdef\csname aj訓点#1｜\endcsname
	{\noexpand\mbox{\yoko\expandafter\noexpand\csname aj訓点#1\endcsname
		\hbox to\z@{\hss\expandafter\noexpand\csname aj訓点｜\endcsname\kern-.5zw}}}%
	\expandafter\@ajongofudef\fi}
\@ajongofudef 二三四中下乙丙丁地人\@nil
\expandafter\gdef\csname aj訓点　｜\endcsname{\mbox{\yoko{　}\hbox to\z@{\hss\csname aj訓点｜\endcsname\kern-.5zw}}}
\def\@ajkungofudef#1{\ifx\@nil#1%
	\else\expandafter\xdef\csname aj訓点｜#1\endcsname
	{\noexpand\mbox{\yoko\hbox to\z@{\hss\expandafter\noexpand\csname aj訓点｜\endcsname\kern-.5zw}%
		\expandafter\noexpand\csname aj訓点#1\endcsname}}%
	\expandafter\@ajkungofudef\fi}
\@ajkungofudef 二三四中下乙丙丁地人\@nil
\expandafter\gdef\csname aj訓点｜　\endcsname{\mbox{\yoko\hbox to\z@{\hss\csname aj訓点｜\endcsname\kern-.5zw}{　}}}
%
\gdef\ajKunten#1{\csname aj訓点#1\endcsname}
%
\gdef\ajRedefine@KundokuMacros{\ifx\kokana\@undefined
	\else\let\orig@kokana\kokana
	\let\orig@retenform\retenform
	\let\orig@reten\reten
	\let\orig@retenkana\retenkana
	\let\orig@kaeriten\kaeriten
	\def\aj@kokana##1##2{\orig@kokana{\aj@kundokusize\if@kana\rubyfamily\fi##1}%
		{\aj@kundokusize\ajKunten{##2}}}%
	\def\aj@retenform{\aj@kundokusize\aj訓点レ}%
	\def\aj@reten{\orig@kaeriten{\aj@kundokusize\aj訓点レ}}%
	\def\aj@retenkana##1{\orig@retenkana{\aj@kundokusize\if@kana\rubyfamily\fi##1}}%
	\def\aj@kaeriten##1{\orig@kaeriten{\aj@kundokusize\ajKunten{##1}}}%
	\let\aj@kundokusize\tiny
	\fi
	\ifx\@k@nd@ku@\@undefined
	\else{\global\let\orig@k@nd@ku@\@k@nd@ku@
	\newtoks\@temptokenb
	\newtoks\@temptokenc
	\def\get@hbox##1\hbox##2##3\get@hbox
		{\@temptokena{##1}\@temptokenb{##2}\@temptokenc{##3}}%
	\expandafter\get@hbox
		\@k@nd@ku@[##1]{##2}{##3}{##4}{\ajKunten{##5}}[\ajKunten{##6}]<##7>(##8)\get@hbox
	\def\change@reten##1\def\temptopleft##2\def\tempbottomleft##3##4\change@reten
		{\@temptokenb{##1\def\temptopleft{####6}\def\tempbottomleft{####5}##4}}%
	\expandafter\change@reten\the\@temptokenb\change@reten
	\edef\redefine@k@nd@ku@##1{\gdef\noexpand\aj@k@nd@ku@##1%
		{\the\@temptokena\hbox{\the\@temptokenb}\the\@temptokenc}}%
	\redefine@k@nd@ku@{[##1]##2##3##4##5[##6]<##7>(##8)}}%
	\let\aj@kundokusize\kundokusize
	\fi}
\@onlypreamble\ajRedefine@KundokuMacros
\AtBeginDocument{\ajRedefine@KundokuMacros}
\gdef\DeclareOriginalKundokuStyle{\@ifnextchar[%]
	{\Declare@OriginalKundokuStyle}%
	{\Declare@OriginalKundokuStyle[\aj@kundokusize]}}
\gdef\Declare@OriginalKundokuStyle[#1]{\let\aj@kundokusize#1%
	\ifx\orig@k@nd@ku@\@undefined
	\else\let\@k@nd@ku@\orig@k@nd@ku@
	\let\kundokusize\aj@kundokusize
	\fi
	\ifx\orig@kokana\@undefined
	\else
	\let\kokana\orig@kokana
	\let\retenform\orig@retenform
	\let\reten\orig@reten
	\let\retenkana\orig@retenkana
	\let\kaeriten\orig@kaeriten
	\fi}
\gdef\DeclareAJKundokuStyle{\@ifnextchar[%]
	{\Declare@AJKundokuStyle}%
	{\Declare@AJKundokuStyle[\aj@kundokusize]}}
\gdef\Declare@AJKundokuStyle[#1]{\let\aj@kundokusize#1%
	\ifx\aj@k@nd@ku@\@undefined
	\else\let\@k@nd@ku@\aj@k@nd@ku@
	\def\kundokusize{\aj@kundokusize\if@kana\rubyfamily\fi}%
	\fi
	\ifx\aj@kokana\@undefined
	\else
	\let\kokana\aj@kokana
	\let\retenform\aj@retenform
	\let\reten\aj@reten
	\let\retenkana\aj@retenkana
	\let\kaeriten\aj@kaeriten
	\fi}
%
%
\gdef\ajCIDVarDef{\aj@VarDef\CID}
\gdef\ajUTFVarDef{\aj@VarDef\UTF}
\gdef\aj@VarDef#1#2#3{\expandafter\xdef\csname ajVar#2\endcsname{\noexpand#1{#3}}}
\gdef\ajCIDVarList#1{{\@ajCIDVarList#1\relax}}
\gdef\@ajCIDVarList#1{\ifx\relax#1\else\def\reserved@a{#1}\expandafter\aj@CIDVarList\fi}
\gdef\aj@CIDVarList{\afterassignment\@aj@CIDVarList\@tempcnta}
\gdef\@aj@CIDVarList{\aj@VarDef\CID\reserved@a{\number\@tempcnta}\@ajCIDVarList}
\gdef\ajUTFVarList#1{{\@ajUTFVarList#1 \relax}}
\gdef\@ajUTFVarList#1{\ifx\relax#1\else\def\reserved@a{#1}\expandafter\aj@UTFVarList\fi}
\gdef\aj@UTFVarList#1#2{\ifx=#1\expandafter\@aj@UTFVarList\else\expandafter\@aj@UTFVarList\expandafter#1\fi#2}
\gdef\@aj@UTFVarList#1 {\aj@VarDef\UTF\reserved@a{#1}\@ajUTFVarList}
\gdef\ajVar#1{\csname ajVar#1\endcsname}
\gdef\ajRedefine@ajVar{\@ifpackageloaded{hyperref}{%
    \let\aj@Var\ajVar
	\def\ajVar##1{\ifHy@pdfstring
	    \expandafter\expandafter
		\expandafter\check@UTF\csname ajVar##1\endcsname{##1}%
		\else\aj@Var{##1}\fi}
	\def\check@UTF##1##2##3{\ifx\UTF##1\0x##2\else##3\fi}}{}}
\AtBeginDocument{\ajRedefine@ajVar}
\@onlypreamble\ajVarDef
\@onlypreamble\ajVarList
%\ajCIDVarList{吉=13706 教=8471 高=8705 鴎=7646 崎=14290 碕=17009 第=13910 角=13682 浜=8531}
\gdef\ajHashigoTaka{\CID{8705}}
\gdef\ajTsuchiYoshi{\CID{13706}}
\gdef\ajTatsuSaki{\CID{14290}}
\gdef\ajMayuHama{\CID{8531}}
}
\endinput
