summaryrefslogtreecommitdiff
path: root/language/japanese/pxjahyper/pxjahyper-ajm.def
diff options
context:
space:
mode:
Diffstat (limited to 'language/japanese/pxjahyper/pxjahyper-ajm.def')
-rw-r--r--language/japanese/pxjahyper/pxjahyper-ajm.def807
1 files changed, 0 insertions, 807 deletions
diff --git a/language/japanese/pxjahyper/pxjahyper-ajm.def b/language/japanese/pxjahyper/pxjahyper-ajm.def
deleted file mode 100644
index d362b1df8f..0000000000
--- a/language/japanese/pxjahyper/pxjahyper-ajm.def
+++ /dev/null
@@ -1,807 +0,0 @@
-%%
-%% This is file 'pxjahyper-ajm.def'.
-%%
-%% Copyright (c) 2012-2022 Takayuki YATO (aka. "ZR")
-%% GitHub: https://github.com/zr-tex8r
-%% Twitter: @zr_tex8r
-%%
-%% This package is distributed under the MIT License.
-%%
-%% このファイルは日本語文字を含みます.
-
-%% package declaration
-\NeedsTeXFormat{pLaTeX2e}
-\ProvidesFile{pxjahyper-ajm.def}[2022/05/27 v1.2]
-
-%% avoid multiple loading
-\csname pxjahyperajmLoaded\endcsname
-\def\pxjahyperajmLoaded{\endinput}
-%% force UTF-8
-\ifx\epTeXinputencoding\@undefined\else
- \epTeXinputencoding utf8
-\fi
-
-%--------------------------------------- general
-
-% Note: Here 'etoolbox' is already loaded.
-
-%% check engine
-\ifx\numexpr\@undefined \endinput \fi
-
-%% \pxhy@macro@name@list
-% The \do-list of the name of macros to be redefined.
-\let\pxhy@macro@name@list\@empty
-
-%% \pxhy@ : the prefix
-\def\pxhy@{pxhy@aj@@}
-
-%% \pxhy@cond@both\ifXXX...\fi\ifYYY...\fi{<yes>}{<no>}
-% Checks whether \ifXXX and \ifYYY both hold.
-\@gobbletwo\if\if\@gobbletwo\if\if \def\pxhy@cond@both#1\fi#2\fi{%
- \pxhy@cond{\if #1#2T\else F\fi\else F\fi T}\fi
-}
-
-%% \pxhy@if@plus{<varient>}{<normal>}
-% Expands to <varient> if followed by +, otherwise to <normal>.
-\def\pxhy@if@plus#1#2#3{% #3=next-arg
- \expandafter\pxhy@if@plus@a\detokenize{#3}@{#1}+@{#2{#3}}\pxhy@mk
-}
-\def\pxhy@if@plus@a#1+@#2#3\pxhy@mk{#2}
-
-%% \pxhy@shift{<x>}{<y>}
-% Expands to \pxhy@fast@CID with the value of x+y.
-\def\pxhy@shift#1#2{%
- \expandafter\pxhy@shift@a\the\numexpr(#1)+(#2)\pxhy@mk
-}
-\def\pxhy@shift@a#1\pxhy@mk{%
- \pxhy@fast@CID{#1}%
-}
-
-%% \pxhy@numeral{<number>}
-% Expands to the Western numeral.
-\def\pxhy@numeral#1{%
- \expandafter\pxhy@numeral@a\number#1\pxhy@mk
-}% \pxhy@mk ensures termination
-\def\pxhy@numeral@a#1\pxhy@mk{#1}
-
-%% \pxhy@two@digits{<number>}
-% Expands to the Western numeral.
-\def\pxhy@two@digits#1{%
- \expandafter\pxhy@two@digits@a\number#1\pxhy@mk
-}% \pxhy@mk ensures termination
-\def\pxhy@two@digits@a#1\pxhy@mk{%
- \ifnum#1<10 0\fi #1%
-}
-
-%--------------------------------------- kanji numerals
-
-%% \pxhy@kdigit{<digit>}
-\def\pxhy@kdigit#1{%
- \ifcase#1〇\or 一\or 二\or 三\or 四\or 五\or 六\or 七\or 八\or 九\fi
-}
-
-%% \pxhy@each@digit{<number>}\CScont
-% Expands to \CScont{<ten-digit>}{<one-digit>}.
-\def\pxhy@each@digit#1#2{%
- \ifnum#1>\m@ne \ifnum#1<100
- \expandafter\pxhy@each@digit@a\number#1..\pxhy@mk{#2}%
- \fi\fi
-}
-\def\pxhy@each@digit@a#1#2#3\pxhy@mk#4{%
- \if.#2#40#1\else#4#1#2\fi
-}
-
-%% \pxhy@knumeral{<number>}
-% Expands to the kanji numeral according to Japanese reading.
-\def\pxhy@knumeral#1{%
- \pxhy@each@digit{#1}\pxhy@knumeral@a
-}
-\def\pxhy@knumeral@a#1#2{%
- \ifnum#1#2=\z@ \pxhy@kdigit0%
- \else
- \ifcase#1 \or 十\else \pxhy@kdigit#1十\fi
- \ifcase#2 \else \pxhy@kdigit#2\fi
- \fi
-}
-
-%--------------------------------------- \pdfstringdef hook
-
-\pdfstringdefDisableCommands{%
- % invoke the redefinitions
- \def\do#1{\expandafter\let\csname aj#1\expandafter\endcsname
- \csname \pxhy@#1\endcsname}%
- \pxhy@macro@name@list
-}
-
-%=======================================
-% Macro Definitions
-\begingroup % entering a big group
-%--------------------------------------- helpers
-
-%% prepare
-\pxhy@forcecjktoken{0}
-
-%% shorthands
-\catcode`\`=\active \let`\noexpand
-\def\@{\unexpanded}
-\def\@@{\expandonce}
-\def\CID{\pxhy@CID}
-
-%% \#{<number-expr>}
-% Expands to the value of the expression.
-\def\##1{\the\numexpr#1\relax\space}
-
-%% \pxhy@def{<macro-name>}...
-\def\pxhy@def#1{\csxdef{\pxhy@#1}}
-
-%% \pxhy@DeclareMacro{<macro-name>}...{<body>}
-% Declares (with \xdef) the pdfstring version of the aj-macro
-% \[aj<macro-name>].
-\def\pxhy@DeclareMacro#1{%
- \xappto\pxhy@macro@name@list{`\do{#1}}%
- \pxhy@def{#1}%
-}
-
-%% \pxhy@DeclareMacroVar{<macro-name>}...{<body-n>}{<body-v>}
-% Variant of \pxhy@DeclareMacro, where the *-variant of the macro
-% is declared. The parameter '...' will be shared with both forms.
-\def\pxhy@DeclareMacroVar#1{%
- \xappto\pxhy@macro@name@list{`\do{#1}}%
- \edef\pxhy@next{{\@nameuse{\pxhy@#1}}%
- {\@nameuse{\pxhy@#1@N}}{\@nameuse{\pxhy@#1@V}}}%
- \expandafter\pxhy@decl@macro@var@a\pxhy@next
-}
-\def\pxhy@decl@macro@var@a#1#2#3#4#{%
- \gdef#1{\pxhy@if@star#3#2}%
- \toks@{\xdef#3#4}\def\pxhy@next{\the\toks@}%
- \afterassignment\pxhy@next \xdef#2#4%
-}
-
-%% \pxhy@DeclareAlias{<name1>}{<name2>}
-% Defines an alies.
-\def\pxhy@DeclareAlias#1#2{%
- \xappto\pxhy@macro@name@list{`\do{#1}}%
- \global\csletcs{\pxhy@#1}{\pxhy@#2}%
-}
-
-%% \pxhy@range{<ob-value>}{<limit>/<value>,...}
-% Expands to the code of a range switch.
-\def\pxhy@range#1#2{%
- \pxhy@range@a{#1}#2/#1,*/*,\pxhy@mk
-}
-\def\pxhy@range@a#1#2/#3,#4\pxhy@mk{%
- \ifstrempty{#4}{#1}{%else
- `\ifnum##1<\#{#2}#1%
- `\else\pxhy@range@a{#3}#4\pxhy@mk`\fi}%
-}
-
-%% \pxhy@rshift{<limit>/<shift>,...}
-% \pxhy@shift with a range switch.
-\def\pxhy@rshift#1{%
- \pxhy@shift{##1}{\pxhy@range{-1000}{#1}}%
-}
-
-%% \pxhy@twirange{<shift1>}{<shift2>}
-% Special kind of range switch, used in \ajKaku etc.
-\def\pxhy@twirange#1#2{%
- `\ifnum##1<\#{0}`\else`\ifnum##1<\#{10}\pxhy@shift{##1*2}{#1}%
- `\else`\ifnum##1<\#{101}\pxhy@shift{##1}{#2}%
- `\fi`\fi`\fi
-}
-
-%% \pxhy@fallback{<lbound>}{<fb-lbound>}{<ubound>}{<normal>}{<fallback>}
-\def\pxhy@fallback#1#2#3#4#5{%
- `\ifnum##1<\#{#1}`\else`\ifnum##1>\#{#3}`\else
- \ifnum\#{#1}=\#{#2}#5%
- \else `\ifnum##1<\#{#2}#4`\else#5`\fi
- \fi
- `\fi`\fi
-}
-
-%% freeze 'em
-\let\UTF\relax
-\let\pxhy@CID\relax
-\let\pxhy@fast@CID\relax
-\let\pxhy@if@star\relax
-\let\pxhy@if@plus\relax
-\let\pxhy@shift\relax
-\let\pxhy@numeral\relax
-\let\pxhy@two@digits\relax
-\let\pxhy@knumeral\relax
-
-%--------------------------------------- the redefinitions
-
-% A text command invoked in PDF-sttings must be "string-OK".
-% Here a text command is "string-OK" if both:
-% - fully expandable, and
-% - comprised only of "Unicode-OK" glyphs.
-% Here a glyph is "unicode-OK" if either:
-% - representable as a single Unicode character, or
-% - well-substituted with a single Unicode character.
-% When the original definition of an aj-macro command is not string-OK
-% (marked as <!>), then the command must be redefeind.
-
-%%<!> \ajTsumesuji<var>{<string>}
-%%<!> \ajTsumesuji*{<string>}
-% Simply expands to the string.
-\pxhy@DeclareMacroVar{Tsumesuji}#1#2{#2}{}
-% \ajTsumesuji* takes only one argument.
-\pxhy@def{Tsumesuji@V}#1{#1}
-
-%-----------------------
-% Enclosed letters
-
-% None of the aj-macros for enclosed letters are fully expandable,
-% so they all must be redefined.
-% The glyphs for enclosed alphabet and kana letters are Unicode-OK
-% (\ajMaruKata{1} is U+32d0(㋐), and \ajMaruHira{1} fallbacks to plain
-% あ letter), but some of those for enclosed numbers are not Unicode-OK
-% (\ajMaru{51} does not have a good fallback), and thus should give an
-% alternative fallback string (\ajMaru{51}→“51”).
-% Note: for some enclosed numbers, glyphs with different enclosure are
-% used as fallback (e.g. \ajKuroMaru{21}→“㉑)”.
-
-%%<!> \ajMaru[*]{<number>}
-\pxhy@DeclareMacroVar{Maru}#1{%N
- \pxhy@fallback{0}{51}{100}{%
- \pxhy@rshift{0/8224,1/7554,21/8070,22/8080,32/10212,101}%
- }{\pxhy@numeral{#1}}%
-}{%V
- \pxhy@fallback{0}{0}{100}{%
- \pxhy@rshift{0/10234,10/7554,21/8070,22/8080,32/10212,101}%
- }{`\ajMaru{#1}}%
-}
-%%<!> \ajKuroMaru[*]{<number>}
-\pxhy@DeclareMacroVar{KuroMaru}#1{%N
- \pxhy@fallback{0}{21}{100}{%
- \pxhy@rshift{0/10503,1/8285,10/10504,101}%
- }{`\ajMaru{#1}}%
-}{%V
- \pxhy@fallback{0}{0}{100}{%
- \pxhy@rshift{0/10504,101}%
- }{`\ajKuroMaru{#1}}%
-}
-%%<!> \ajKaku[*]{<number>}
-\pxhy@DeclareMacroVar{Kaku}#1{%N
- \pxhy@fallback{0}{0}{100}{%
- \pxhy@twirange{10764}{10774}%
- }{`\ajMaru{#1}}%
-}{%V
- \pxhy@fallback{0}{0}{100}{%
- \pxhy@twirange{10765}{10774}%
- }{`\ajMaru{#1}}%
-}
-%%<!> \ajKuroKaku[*]{<number>}
-\pxhy@DeclareMacroVar{KuroKaku}#1{%N
- \pxhy@fallback{0}{0}{100}{%
- \pxhy@twirange{11037}{11047}%
- }{`\ajMaru{#1}}%
-}{%V
- \pxhy@fallback{0}{0}{100}{%
- \pxhy@twirange{11038}{11047}%
- }{`\ajMaru{#1}}%
-}
-%%<!> \ajMaruKaku[*]{<number>}
-\pxhy@DeclareMacroVar{MaruKaku}#1{%N
- \pxhy@fallback{0}{0}{100}{%
- \pxhy@twirange{11307}{11317}%
- }{`\ajMaru{#1}}%
-}{%V
- \pxhy@fallback{0}{0}{100}{%
- `\ajMaru{#1}%fallback
- \pxhy@twirange{11308}{11317}%
- }{`\ajMaru{#1}}%
-}
-%%<!> \ajKuroMaruKaku[*]{<number>}
-\pxhy@DeclareMacroVar{KuroMaruKaku}#1{%N
- \pxhy@fallback{0}{0}{100}{%
- \pxhy@twirange{11576}{11586}%
- }{`\ajMaru{#1}}%
-}{%V
- \pxhy@fallback{0}{0}{100}{%
- \pxhy@twirange{11577}{11586}%
- }{`\ajMaru{#1}}%
-}
-%%<!> \ajKakko[*]{<number>}
-\pxhy@DeclareMacroVar{Kakko}#1{%N
- \pxhy@fallback{0}{21}{100}{%
- \pxhy@rshift{0/8227,1/8070,21/9873,101}%
- }{(\pxhy@numeral{#1})}%
-}{%V
- \pxhy@fallback{0}{0}{100}{%
- \pxhy@rshift{0/9884,10/8070,21/9873,101}%
- }{`\ajKakko{#1}}%
-}
-%%<!> \ajRoman[*]{<number>}
-\pxhy@DeclareMacroVar{Roman}#1{%N
- \pxhy@fallback{1}{13}{15}{%
- \pxhy@rshift{1/7574,11/8214,13/8282,16}%
- }{`\@Roman{#1}}%
-}{%V
- \pxhy@fallback{1}{1}{15}{%
- \pxhy@rshift{1/7574,4/9879,5/7574,11/8214,13/8282,16}%
- }{`\ifnum#1=\#{4}IIII`\else`\ajRoman{#1}`\fi}%
-}
-%%<!> \ajroman{<number>}
-\pxhy@DeclareMacro{roman}#1{%
- \pxhy@fallback{1}{13}{15}{%
- \pxhy@rshift{1/8091,11/8287,16}%
- }{`\@roman{#1}}%
-}
-%%<!> \ajPeriod{<number>}
-\pxhy@DeclareMacro{Period}#1{%
- \pxhy@fallback{0}{1}{11}{%
- 0.%
- }{\pxhy@rshift{0/8061,10/20577,12}}%
-}
-%%<!> \ajKakkoYobi{<number>}
-\pxhy@DeclareMacro{KakkoYobi}#1{\pxhy@rshift{1/8196,10}}
-%%<!> \ajKakkoroman{<number>}
-\pxhy@DeclareMacro{Kakkoroman}#1{%
- \pxhy@fallback{1}{1}{15}{%
- \pxhy@rshift{1/9973,16}%
- }{(`\ajroman{#1})}%
-}
-%%<!> \ajKakkoRoman{<number>}
-\pxhy@DeclareMacro{KakkoRoman}#1{%
- \pxhy@fallback{1}{1}{15}{%
- \pxhy@rshift{1/9988,16}%
- }{(`\ajRoman{#1})}%
-}
-%%<!> \ajKakkoalph{<number>}
-\pxhy@DeclareMacro{Kakkoalph}#1{\pxhy@rshift{1/8111,27}}
-%%<!> \ajKakkoAlph{<number>}
-\pxhy@DeclareMacro{KakkoAlph}#1{\pxhy@rshift{1/10003,27}}
-%%<!> \ajKakkoHira{<number>}
-\pxhy@DeclareMacro{KakkoHira}#1{%
- \pxhy@fallback{1}{1}{48}{%
- \pxhy@rshift{1/10029,49}%
- }{(\pxhy@rshift{1/10029,49})}% with parens
-}
-%%<!> \ajKakkoKata{<number>}
-\pxhy@DeclareMacro{KakkoKata}#1{%
- \pxhy@fallback{1}{1}{48}{%
- \pxhy@rshift{1/10077,49}%
- }{(\pxhy@rshift{1/10077,49})}% with parens
-}
-%%<!> \ajKakkoKansuji{<number>}
-\pxhy@DeclareMacro{KakkoKansuji}#1{%
- \pxhy@fallback{1}{11}{20}{%
- \pxhy@rshift{1/10125,21}%
- }{(\pxhy@knumeral{#1})}%
-}
-%%<!> \ajMaruKansuji{<number>}
-\pxhy@DeclareMacro{MaruKansuji}#1{\pxhy@rshift{1/10460,11}}
-%%<!> \ajMarualph{<number>}
-\pxhy@DeclareMacro{Marualph}#1{\pxhy@rshift{1/10312,27}}
-%%<!> \ajMaruAlph{<number>}
-\pxhy@DeclareMacro{MaruAlph}#1{\pxhy@rshift{1/10338,27}}
-%%<!> \ajMaruHira{<number>}
-\pxhy@DeclareMacro{MaruHira}#1{\pxhy@rshift{1/10364,49}}
-%%<!> \ajMaruKata{<number>}
-\pxhy@DeclareMacro{MaruKata}#1{\pxhy@rshift{1/10412,49}}
-%%<!> \ajMaruYobi{<number>}
-\pxhy@DeclareMacro{MaruYobi}#1{%
- \pxhy@rshift{1/10470,8/10484,9/10478,10}%
-}
-%%<!> \ajKuroMarualph{<number>} : Fallback.
-\pxhy@DeclareMacro{KuroMarualph}#1{`\ajMarualph{#1}}
-%%<!> \ajKuroMaruAlph{<number>}
-\pxhy@DeclareMacro{KuroMaruAlph}#1{\pxhy@rshift{1/10630,27}}
-%%<!> \ajKuroMaruHira{<number>} : Fallback.
-\pxhy@DeclareMacro{KuroMaruHira}#1{`\ajMaruHira{#1}}
-%%<!> \ajKuroMaruKata{<number>} : Fallback.
-\pxhy@DeclareMacro{KuroMaruKata}#1{`\ajMaruKata{#1}}
-%%<!> \ajKuroMaruYobi{<number>} : Fallback.
-% fallback to \ajKakuYobi, which is simpler.
-\pxhy@DeclareMacro{KuroMaruYobi}#1{`\ajKakuYobi{#1}}
-%%<!> \ajKakualph{<number>} : Fallback.
-\pxhy@DeclareMacro{Kakualph}#1{`\ajMarualph{#1}}
-%%<!> \ajKakuAlph{<number>}
-\pxhy@DeclareMacro{KakuAlph}#1{\pxhy@rshift{1/10900,27}}
-%%<!> \ajKakuHira{<number>} : Fallback.
-\pxhy@DeclareMacro{KakuHira}#1{`\ajMaruHira{#1}}
-%%<!> \ajKakuKata{<number>} : Fallback.
-\pxhy@DeclareMacro{KakuKata}#1{`\ajMaruKata{#1}}
-%%<!> \ajKakuYobi{<number>}
-\pxhy@DeclareMacro{KakuYobi}#1{\pxhy@rshift{1/11022,8}}
-%%<!> \ajKuroKakualph{<number>} : Fallback.
-\pxhy@DeclareMacro{KuroKakualph}#1{`\ajMarualph{#1}}
-%%<!> \ajKuroKakuAlph{<number>}
-\pxhy@DeclareMacro{KuroKakuAlph}#1{\pxhy@rshift{1/11173,27}}
-%%<!> \ajKuroKakuHira{<number>} : Fallback.
-\pxhy@DeclareMacro{KuroKakuHira}#1{`\ajMaruHira{#1}}
-%%<!> \ajKuroKakuKata{<number>} : Fallback.
-\pxhy@DeclareMacro{KuroKakuKata}#1{`\ajMaruKata{#1}}
-%%<!> \ajKuroKakuYobi{<number>} : Fallback.
-\pxhy@DeclareMacro{KuroKakuYobi}#1{`\ajKakuYobi{#1}}
-%%<!> \ajMaruKakualph{<number>} : Fallback.
-\pxhy@DeclareMacro{MaruKakualph}#1{`\ajMarualph{#1}}
-%%<!> \ajMaruKakuAlph{<number>}
-\pxhy@DeclareMacro{MaruKakuAlph}#1{\pxhy@rshift{1/11443,27}}
-%%<!> \ajMaruKakuHira{<number>} : Fallback.
-\pxhy@DeclareMacro{MaruKakuHira}#1{`\ajMaruHira{#1}}
-%%<!> \ajMaruKakuKata{<number>} : Fallback.
-\pxhy@DeclareMacro{MaruKakuKata}#1{`\ajMaruKata{#1}}
-%%<!> \ajMaruKakuYobi{<number>} : Fallback.
-\pxhy@DeclareMacro{MaruKakuYobi}#1{`\ajKakuYobi{#1}}
-%%<!> \ajKuroMaruKakualph{<number>} : Fallback.
-\pxhy@DeclareMacro{KuroMaruKakualph}#1{`\ajMarualph{#1}}
-%%<!> \ajKuroMaruKakuAlph{<number>}
-\pxhy@DeclareMacro{KuroMaruKakuAlph}#1{\pxhy@rshift{1/11712,27}}
-%%<!> \ajKuroMaruKakuHira{<number>} : Fallback.
-\pxhy@DeclareMacro{KuroMaruKakuHira}#1{`\ajMaruHira{#1}}
-%%<!> \ajKuroMaruKakuKata{<number>} : Fallback.
-\pxhy@DeclareMacro{KuroMaruKakuKata}#1{`\ajMaruKata{#1}}
-%%<!> \ajKuroMaruKakuYobi{<number>} : Fallback.
-\pxhy@DeclareMacro{KuroMaruKakuYobi}#1{`\ajKakuYobi{#1}}
-%%<!> \ajNijuMaru{<number>}
-\pxhy@DeclareMacro{NijuMaru}#1{\pxhy@rshift{1/16222,11}}
-%%<!> \ajRecycle{<number>}
-\pxhy@DeclareMacro{Recycle}#1{\pxhy@rshift{0/16314,12}}
-%%<!> \ajHasenKakuAlph{<number>}
-\pxhy@DeclareMacro{HasenKakuAlph}#1{\pxhy@rshift{1/20496,7}}
-%%<!> \ajCross{<number>}
-\pxhy@DeclareMacro{Cross}#1{%
- \pxhy@fallback{0}{0}{9}{%
- \pxhy@rshift{0/20523,10}%
- }{\pxhy@numeral{#1}\UTF{00D7}}%
-}
-%%<!> \ajSlanted[*]{<number>}
-\pxhy@DeclareMacroVar{Slanted}#1{%N
- \pxhy@fallback{0}{0}{59}{%
- \pxhy@rshift{0/9460,10/20589,60}%
- }{\pxhy@numeral{#1}}%
-}{%V
- \pxhy@fallback{0}{0}{59}{%
- \pxhy@rshift{0/20589,60}%
- }{\pxhy@two@digits{#1}}%
-}
-%%<!> \ajApostrophe{<number>}
-%%<!> \ajYear{<number>} (alias)
-\pxhy@DeclareMacro{Apostrophe}#1{%
- \pxhy@fallback{0}{0}{99}{%
- \pxhy@rshift{0/20649,100}%
- }{\UTF{2019}\pxhy@two@digits{#1}}%
-}
-\pxhy@DeclareAlias{Year}{Apostrophe}
-%%<!> \ajSquareMark[*]{<number>}
-% Note: +-variant is unsupported.
-\pxhy@DeclareMacroVar{SquareMark}#1{%N
- \pxhy@rshift{1/12229,13}%
-}{%V
- \pxhy@rshift{1/12241,10}%
-}
-%%<!> \ajHishi{<number>}
-\pxhy@DeclareMacro{Hishi}#1{\pxhy@rshift{1/12256,5}}
-
-%-----------------------
-
-% The choice of numerals (Western or kanji) depends on the rendering
-% of the original definition in yoko direction.
-
-%%<!> \ajTsumekakko{<number>}
-%%<!> \ajTumekakko{<number>} (alias)
-% Expands to "(number)".
-\pxhy@DeclareMacro{Tsumekakko}#1{%
- (\pxhy@numeral{#1})%
-}
-\pxhy@DeclareAlias{Tumekakko}{Tsumekakko}
-
-%%<!> \ajNenrei<var>{<number>}
-\pxhy@DeclareMacro{Nenrei}#1{%
- `\csname pxhy@ajNenrei/`\number#1`\endcsname
-}
-\csgdef{pxhy@ajNenrei/1}#1{%
- (\pxhy@numeral{#1}\ifnum#1<10 つ\fi)%
-}
-\csgdef{pxhy@ajNenrei/2}#1{%
- (\pxhy@numeral{#1}才)%
-}
-\csgdef{pxhy@ajNenrei/3}#1{% FIXME: the original is right?
- (\pxhy@each@digit{#1}{\pxhy@knumeral@varA つ})%
-}
-\csgdef{pxhy@ajNenrei/4}#1{%
- (\pxhy@knumeral{#1}才)%
-}
-
-%%<!> \ajnenrei<var>{<number>}
-\pxhy@DeclareMacro{nenrei}#1{%
- `\csname pxhy@ajnenrei/`\number#1`\endcsname
-}
-\csgdef{pxhy@ajnenrei/1}#1{%
- (\pxhy@each@digit{#1}{\pxhy@knumeral@varA つ})%
-}
-\csgdef{pxhy@ajnenrei/2}#1{%
- (\pxhy@each@digit{#1}{\pxhy@knumeral@varB 才})%
-}
-\csgdef{pxhy@ajnenrei/3}#1{% FIXME: the original is right?
- (\pxhy@each@digit{#1}{\pxhy@knumeral@varA ツ})%
-}
-\csgdef{pxhy@ajnenrei/4}#1{%
- (\pxhy@each@digit{#1}{\pxhy@knumeral@varB コ})%
-}
-
-%%<!> \ajKosu{<number>}
-\pxhy@DeclareMacro{Kosu}#1{%
- `\ajnenrei4{#1}%
-}
-
-%% some special kanji numeral forms
-\gdef\pxhy@knumeral@varA#1#2#3{%<tsu><ten><one>
- % 8→八つ, 10→一〇, 16→一六, 20→二〇, 32→三二
- \if0#2\pxhy@kdigit#3#1\else\pxhy@kdigit#2\pxhy@kdigit#3\fi
-}
-\gdef\pxhy@knumeral@varB#1#2#3{%<counter><ten><one>
- % 8→八才, 10→十才, 16→十六, 20→二十, 32→三二
- \ifcase#2 #2#1%
- \or 十\ifcase#3 #1\else \pxhy@kdigit#3\fi
- \else \pxhy@kdigit#2\ifcase#3 十\else \pxhy@kdigit#3\fi
- \fi
-}
-
-%%<!> \ajFrac[*]{<numerator>}{<denominator>}
-\pxhy@DeclareMacroVar{Frac}#1#2{%N
- `\pxhy@ajFrac{\pxhy@numeral{#1}}{\pxhy@numeral{#2}}%
-}{%V
- `\pxhy@ajFrac{\pxhy@numeral{#1}}{\pxhy@numeral{#2}}%
-}
-\gdef\pxhy@ajFrac#1#2{%
- \ifcsdef{pxhy@ucs@frac/#1/#2}{%
- \csuse{pxhy@ucs@frac/#1/#2}%
- }{#1/#2}%
-}
-%% \[pxhy@ucs@frac/<n>/<d>]
-% Alternative definitions for fractions.
-\def\do#1#2{\csgdef{pxhy@ucs@frac/#1}{\UTF{#2}}}
-\do{1/4}{00BC}
-\do{1/2}{00BD}
-\do{3/4}{00BE}
-\do{1/7}{2150}
-\do{1/9}{2151}
-\do{1/10}{2152}
-\do{1/3}{2153}
-\do{2/3}{2154}
-\do{1/5}{2155}
-\do{2/5}{2156}
-\do{3/5}{2157}
-\do{4/5}{2158}
-\do{1/6}{2159}
-\do{5/6}{215A}
-\do{1/8}{215B}
-\do{3/8}{215C}
-\do{5/8}{215D}
-\do{7/8}{215E}
-\do{0/3}{2189}
-
-%%<!> \aj半角{<string>}
-% Simply expands to the string.
-\pxhy@DeclareMacro{半角}#1{%
- `\ifpxhy@ajhankaku@chars
- `\pxhy@ajHankaku{#1}%
- `\else #1%
- `\fi
-}
-\gdef\pxhy@ajHankaku#1{%
- \pxhy@ajHankaku@a#1\pxhy@end
-}
-\gdef\pxhy@ajHankaku@a#1{%
- \pxhy@cond\ifx#1\pxhy@end\fi{}{%else
- \ifcsdef{pxhy@ucs@hw/#1}{\csuse{pxhy@ucs@hw/#1}}{#1}%
- \pxhy@ajHankaku@a}%
-}
-\def\pxhy@next#1{%
- \pxhy@cond\ifx#1\pxhy@end\fi{}{%else
- \csxdef{pxhy@ucs@hw/#1}{\UTF{\expandafter\pxhy@FFhex\meaning\x;}}%
- \chardef\y=\numexpr\x+1\relax \let\x\y
- \pxhy@next}%
-}
-\def\pxhy@FFhex#1"#2;{FF#2}
-\chardef\x="61
-\pxhy@next
- 。「」、・ヲァィゥェォャュョッーアイウエオカキクケ%
- コサシスセソタチツテトナニヌネノハヒフヘホマミムメ%
- モヤユヨラリルレロワン゛゜\pxhy@end
-\csgdef{pxhy@ucs@hw/ }{\space}
-
-%%<OK> \○ / \● / \□ / \■ / \◇ / \◆
-% Expands to \ajLig{} or \@ajNumber.
-% \@ajNumber{CMD}{<n>} seems to expand to \ajCMD{<n>}.
-
-%%<OK> \△ / \▽ / \゛ / \゜ / \!
-% Expands to \ajLig{}.
-
-%%<OK> \ajPICT{<name>}
-% Expands to \CID{}.
-
-%%<OK> \ajArrow{<name>}
-% Expands to \CID{}.
-
-%%<!> \ajKunten{<name>}
-% \ajKunten{?} (for single letters) expands to \CID{} and is string-OK.
-% \ajKunten{?|}, \ajKunten{|?}a and \ajKunten{?レ} need to be
-% redefined.
-\@tfor\x:={一}{上}{甲}{天}\do{% ?レ
- \pxhy@DeclareMacro{訓点\x レ}{`\ajKunten{\x}`\ajKunten{レ}}%
-}
-\@tfor\x:={二}{三}{四}{中}{下}{乙}{丙}{丁}{地}{人}\do{% ?| |?
- \pxhy@DeclareMacro{訓点\x |}{`\ajKunten{\x}\UTF{2013}}%
- \pxhy@DeclareMacro{訓点|\x }{`\ajKunten{\x}\UTF{2013}}%
-}
-\pxhy@DeclareMacro{訓点 |}{\UTF{2013}}%
-\pxhy@DeclareMacro{訓点| }{\UTF{2013}}%
-
-%%<OK> \ajVar{<name>}
-% Expands to \CID{} or \UTF{}.
-
-%%<!> \ajLeader
-% Redefined to expand to two instances of the leader character.
-\pxhy@DeclareMacro{Leader}{%
- `\pxhy@ajLeader
-}
-\gdef\pxhy@ajLeader#1{%
- \pxhy@cond\ifx[#1\fi{\pxhy@ajLeader@a}{\pxhy@ajLeader@a]{#1}}%
-}
-\gdef\pxhy@ajLeader@a#1]#2{%
- \pxhy@shift{12214}{#2*2}\pxhy@shift{12214}{#2*2}%
-}
-
-%%<!> \ajQuote
-% Redefined to be fully-expandable.
-\pxhy@DeclareMacro{Quote}{%
- `\pxhy@ajQuote
-}
-\gdef\pxhy@ajQuote#1#2{%
- \CID{\ifcase#1\or670\or672\or674\or676\or678\or680\or682\or
- 684\or686\or688\or690\or7608\or12125\or12127\or12129\or
- 12131\or12171\or16197\fi}%
- #2%
- \CID{\ifcase#1\or671\or673\or675\or677\or679\or681\or683\or
- 685\or687\or689\or691\or7609\or12126\or12128\or12130\or
- 12132\or12172\or16198\fi}%
-}
-
-%%<OK> Miscenallneous \ajXxx symbols
-% Most of them are string-OK; The exceptions are below.
-
-%% ad-hoc redefinitions
-\pxhy@DeclareMacro{DKunoji}{\UTF{3032}}
-\pxhy@DeclareMacro{DKunojiwithBou}{\UTF{3032}}
-\pxhy@DeclareMacro{Kunoji}{\UTF{3031}}
-\pxhy@DeclareMacro{KunojiwithBou}{\UTF{3031}}
-\pxhy@DeclareMacro{Yusuriten}{\CID{16193}}
-\pxhy@DeclareMacro{varNinoji}{\CID{12107}}
-
-%----------------------
-% The \ajLig command
-
-%% \[pxhy@uok/<lig>]
-% If defined, then \ajLig{<lig>} is Unicode-OK.
-% Note: Baware of unification. For example, \ajLig{No.} and \ajLig{No}
-% can both be kind of U+2116(№), but probably \ajLig{AM} cannot be
-% kind of U+33C2(㏂).
-\@tfor\x:=%
- {!!}{!!*}{!*}{!?}{!?*}{'S}{?!}{??}{F}{FAX}{GB}{HP}{Hz}{JIS}{K.K.}{KB}%
- {MB}{No.}{No}{PR}{TEL}{Tel}{a.m.}{a/c}{c/o}{cal}{cc}{cm}{cm2}{cm3}{dB}%
- {dl}{dl*}{euro}{g}{hPa}{in}{kcal}{kg}{kl}{kl*}{km}{km2}{km3}{l}{l*}{m}%
- {m2}{m3}{mb}{mg}{mho}{microg}{microm}{micros}{ml}{ml*}{mm}{mm2}{mm3}{ms}%
- {ns}{p.m.}{pH}{ppm}{ps}{tel}{tm}{◇HV}{◇MV}{◇News}{◇SS}{より}%
- {アパート}{アルファ}{アンペア}{アール*}{アール}{イニング}{インチ}%
- {インチ*}{ウォン}{エスクード}{エーカー}{オンス}{オーム}{カイリ}%
- {カラット}{カロリー}{ガロン}{ガンマ}{キュリー}{キロ}{キログラム}%
- {キロメートル}{キロワット}{ギガ}{ギニー}{ギルダー}{クルゼイロ}{クローネ}%
- {グラム}{グラム*}{グラムトン}{ケース}{コト}{コルナ}{コーポ}{コーポ*}%
- {サイクル}{サンチーム}{シリング}{センチ}{センチ*}{セント}{セント*}%
- {ダース}{デシ}{トン}{ドル}{ナノ}{ノット}{ハイツ}{ハイツ*}{バーレル}%
- {パーセント}{ビル}{ピアストル}{ピクル}{ピコ}{ファラッド}{フィート}%
- {フラン}{ブッシェル}{ヘクタール}{ヘルツ}{ヘルツ*}{ベータ}{ペソ}{ペニヒ}%
- {ペンス}{ページ}{ページ*}{ホン}{ホール}{ホーン}{ホーン*}{ボルト}%
- {ポイント}{ポンド}{マイクロ}{マイル}{マッハ}{マルク}{マンション}%
- {ミクロン}{ミリ}{ミリバール}{メガ}{メガトン}{メートル}{ヤード}{ヤード*}%
- {ヤール}{ユアン}{リットル}{リラ}{ルピー}{ルーブル}{レム}{レントゲン}%
- {ワット}{ワット*}{令和}{升}{大正}{平成}{明治}{昭和}{株式会社}%
-\do{\global\cslet{pxhy@uok/\x}{t}}
-
-% Note: Ligatures no*, euro*, mho*, ohm* are bad (proportional).
-
-%% \[pxhy@uokh/<char>]
-% If defined, then \ajLig{<char>?} is Unicode-OK, where '?' is
-% an arbitrary single character.
-\@tfor\x:=%
- {■}{□}{△}{▽}{◆}{◇}{○}{●}
-\do{\global\cslet{pxhy@uokh/\x}{t}}
-
-%% ad-hoc redefinitions
-\def\do#1#2{\pxhy@DeclareMacro{Lig#1}{#2}%
- \global\cslet{pxhy@uok/#1}{t}}
-\do{う゛}{\UTF{3094}}
-\do{か゜}{か\UTF{309A}}
-\do{き゜}{き\UTF{309A}}
-\do{く゜}{く\UTF{309A}}
-\do{け゜}{け\UTF{309A}}
-\do{こ゜}{こ\UTF{309A}}
-\do{カ゜}{カ\UTF{309A}}
-\do{キ゜}{キ\UTF{309A}}
-\do{ク゜}{ク\UTF{309A}}
-\do{ケ゜}{ケ\UTF{309A}}
-\do{コ゜}{コ\UTF{309A}}
-\do{セ゜}{セ\UTF{309A}}
-\do{ツ゜}{ツ\UTF{309A}}
-\do{ト゜}{ト\UTF{309A}}
-\do{ワ゛}{\UTF{30F7}}
-\do{ヰ゛}{\UTF{30F8}}
-\do{ヱ゛}{\UTF{30F9}}
-\do{ヲ゛}{\UTF{30FA}}
-\do{小か}{\UTF{3095}}
-\do{小け}{\UTF{3096}}
-\do{小こ}{こ}% fallback
-\do{小ク}{\UTF{31F0}}
-\do{小コ}{コ}% fallback
-\do{小シ}{\UTF{31F1}}
-\do{小ス}{\UTF{31F2}}
-\do{小ト}{\UTF{31F3}}
-\do{小ヌ}{\UTF{31F4}}
-\do{小ハ}{\UTF{31F5}}
-\do{小ヒ}{\UTF{31F6}}
-\do{小フ}{\UTF{31F7}}
-\do{小プ}{\UTF{31F7}\UTF{309A}}
-\do{小ヘ}{\UTF{31F8}}
-\do{小ホ}{\UTF{31F9}}
-\do{小ム}{\UTF{31FA}}
-\do{小ラ}{\UTF{31FB}}
-\do{小リ}{\UTF{31FC}}
-\do{小ル}{\UTF{31FD}}
-\do{小レ}{\UTF{31FE}}
-\do{小ロ}{\UTF{31FF}}
-
-%% redefine \ajLig
-\pxhy@DeclareMacro{Lig}#1{%
- % use \csname, to full-expand the argument
- \@{\expandafter\pxhy@uok@ajlig\csname}ajLig#1\@{\endcsname}%
-}
-\gdef\pxhy@uok@ajlig#1{%
- \expandafter\pxhy@uok@ajlig@a\string#1\pxhy@mk#1%
-}
-\begingroup\catcode96=12 \lccode`\?=`\g \lowercase{\endgroup
- \gdef\pxhy@uok@ajlig@a#1?#2\pxhy@mk}{%
- \pxhy@uok@ajlig@b{#2}%
-}
-\gdef\pxhy@uok@ajlig@b#1#2{%{NAME}\ajNAME
- % undefined name comes empty
- \ifundef{#2}{}{%else
- % if Unicode-OK then do it
- \ifcsdef{pxhy@uok/#1}{#2}{%else
- \pxhy@if@uok@head{#1}{#2}{%else
- \pxhy@drop@trail@star{#1}%
- }%
- }%
- }%
-}
-
-%% \pxhy@if@uok@head{<string>}{<yes>}{<no>}
-\gdef\pxhy@if@uok@head#1{%
- \pxhy@if@uok@head@a#1@...\pxhy@mk
-}
-\gdef\pxhy@if@uok@head@a#1#2#3#4#5\pxhy@mk{%
- \pxhy@cond\ifx#3@\fi{% two-letter
- \ifcsdef{pxhy@uokh/#1}%
- }{\pxhy@cond\ifx#4@\fi{% three-letter
- \pxhy@cond@both\ifx#1(\fi\ifx#3)\fi{\@firstoftwo}{%else
- \pxhy@cond@both\ifx#1□\fi\ifx#2:\fi
- }%
- }{\@secondoftwo}}%
-}
-
-%% \pxhy@drop@trail@star{<string>}
-\gdef\pxhy@drop@trail@star#1{%
- \pxhy@drop@trail@star@a#1\pxhy@mk*\pxhy@mk\pxhy@end{#1}%
-}
-\gdef\pxhy@drop@trail@star@a#1*\pxhy@mk#2\pxhy@end#3{%
- \ifstrempty{#2}{#3}{#1}%
-}
-
-%--------------------------------------- done
-\endgroup
-%=======================================
-\endinput
-%% EOF