%% Hideki ISOZAKI isozaki@expert-sun.ntt.junet
%% December 2, 1987
%% 正の整数を漢数字にする ただし，$2^{31}$ 以下
%%
¥global¥newcount¥residu@l
¥global¥newcount¥qu@tient
¥global¥newcount¥residu@lf
¥global¥newcount¥qu@tientf
¥def¥kansuuji#1{¥kanjinumeral{¥@nameuse{c@#1}}}
¥def¥kanjinumeral{¥@ifstar{¥let¥kanji@one=¥old@one¥gdef¥kanji@ten{拾}%
¥gdef¥kanji@man{萬}¥let¥kanji@two=¥old@two¥k@njinumeral}%
{¥let¥kanji@one=¥new@one¥gdef¥kanji@ten{十}¥gdef¥kanji@man{万}%
¥let¥kanji@two=¥new@two¥k@njinumeral}}
¥def¥k@njinumeral#1{%
¥residu@lf#1%
¥qu@tientf#1%
%
¥divide¥qu@tientf by 100000000%
¥kanji@sen{¥qu@tientf}¥ifnum¥qu@tientf>0{億}¥fi%
¥multiply¥qu@tientf by 50000000%
¥advance¥qu@tientf by ¥qu@tientf%  Trick to Avoid Overflow
¥advance¥residu@lf by -¥qu@tientf%
¥qu@tientf¥residu@lf%
%
¥divide¥qu@tientf by 10000%
¥kanji@sen{¥qu@tientf}¥ifnum¥qu@tientf>0{¥kanji@man}¥fi%
¥multiply¥qu@tientf by 10000%
¥advance¥residu@lf by -¥qu@tientf%
¥qu@tientf¥residu@lf%
%
¥kanji@sen{¥qu@tientf}
}

¥def¥kanji@sen#1{%
¥residu@l#1%
¥qu@tient#1%
%
¥divide¥qu@tient by 1000 % This space seems important
¥kanji@one{¥qu@tient}¥ifnum¥qu@tient>0{千}¥fi%
¥multiply¥qu@tient by 1000%
¥advance¥residu@l by -¥qu@tient%
¥qu@tient¥residu@l%
%
¥divide¥qu@tient by 100 % This space seems important
¥kanji@two{¥qu@tient}¥ifnum¥qu@tient>0{百}¥fi%
¥multiply¥qu@tient by 100%
¥advance¥residu@l by -¥qu@tient%
¥qu@tient¥residu@l%
%
¥divide¥qu@tient by 10 % This space seems important
¥kanji@two{¥qu@tient}¥ifnum¥qu@tient>0{¥kanji@ten}¥fi%
¥multiply¥qu@tient by 10%
¥advance¥residu@l by -¥qu@tient%
¥qu@tient¥residu@l%
%
¥kanji@one{¥qu@tient}%
}%
%
¥def¥new@two#1{¥ifcase#1¥or¥or 二¥or 三¥or 四¥or 五¥or%
六¥or 七¥or 八¥or 九¥else¥@ctrerr¥fi}%
¥def¥new@one#1{¥ifcase#1¥or 一¥or 二¥or 三¥or 四¥or 五¥or%
六¥or 七¥or 八¥or 九¥else¥@ctrerr¥fi}%
¥def¥old@two#1{¥ifcase#1¥or¥or 弐¥or 参¥or 四¥or 五¥or%
六¥or 七¥or 八¥or 九¥else¥@ctrerr¥fi}%
¥def¥old@one#1{¥ifcase#1¥or 壱¥or 弐¥or 参¥or 四¥or 五¥or%
六¥or 七¥or 八¥or 九¥else¥@ctrerr¥fi}%


% The first 18 characters of I-RO-HA
¥def¥iroha#1{¥@iroha{¥@nameuse{c@#1}}}
¥def¥@iroha#1{¥ifcase#1¥or イ¥or ロ¥or ハ¥or ニ¥or ホ¥or ヘ¥or ト¥or
チ¥or リ¥or ヌ¥orル¥or ヲ¥or ワ¥or カ¥or ヨ¥or タ¥or レ¥or ソ¥else¥@ctrerr¥fi}


% Jikkan-Juunishi (ETO)
¥def¥jikkan#1{¥ifcase#1¥or 甲¥or 乙¥or 丙¥or 丁¥or 戊¥or 己¥or 庚¥or
辛¥or 壬¥or 癸¥else¥@ctrerr¥fi}
¥def¥juunishi#1{¥ifcase#1¥or 子¥or 丑¥or 寅¥or 卯¥or 辰¥or 巳¥or
午¥or 未¥or 申¥or 酉¥or 戌¥or 亥¥else¥@ctrerr¥fi}