# -*-coding: mule-utf-8;-*- # Tags (U+E0001..U+E007F) PROVIDE MULTILINE \global\let\uc@combining@prechar\@ne \ifx\uc@tagtoks\undefined\newtoks\uc@tagtoks\fi \gdef\uc@langtag{% \expandafter\uppercase\expandafter{\expandafter\uc@tagtoks\expandafter{\the\uc@tagtoks}}% \expandafter\ifx\expandafter\@nil\the\uc@tagtoks\@nil\uc@tagtoks{@empty}\fi \expandafter\ifx\csname language\the\uc@tagtoks\endcsname\relax \PackageError{ucs}{Unknown language tag '\the\uc@tagtoks' (\@backslashchar language\the\uc@tagtoks)}{% Define it via \@backslashchar newcommand\@backslashchar language\the\uc@tagtoks{...}.}% \else \csname language\the\uc@tagtoks\endcsname \fi}% \gdef\uc@endtag{% \uc@tagtype% \uc@tagtoks{}\let\uc@tagtype\undefined% \let\uc@prechar\undefined}% \gdef\uc@tag#1{% \uc@tagtoks\expandafter{\the\uc@tagtoks#1}}% \gdef\uc@starttag#1{% \ifx\uc@prechar\undefined \def\uc@prechar##1{\ifnum##1<"E0020 \uc@endtag\fi\ifnum##1>"E007E \uc@endtag\fi}% \let\uc@tagtype#1% \else \PackageError{ucs}{\protect\uc@prechar\space already defined.}{Something is already using the \protect\uc@prechar mechanism. Tags can't be collected properly.}% \fi}% {\lccode`\A`\{\relax\lccode`\B`\}\relax\lccode`\C`\~\lowercase{% \gdef\@leftbracechar{A}% \gdef\@rightbracechar{B}% \gdef\@tildechar{C}}}% END CTRLGLYPH U+E0001 \uc@starttag\uc@langtag # [Á³À À€Â] # [󠀁] # If other possible tag types occur, # add them after \undefined in the next command. U+E007F \uc@tagtoks{CANCEL}\ifx\uc@tagtype\undefined\uc@langtag\else\uc@tagtype\fi\uc@tagtoks{}\let\uc@tagtype\undefined\let\uc@prechar\undefined # [󠁿] ENVELOPE \uc@tag @@@ U+E0020 { } # [󠀠] U+E0021 ! # [󠀡] U+E0022 " # [󠀢] U+E0023 {##} # [󠀣] U+E0024 $ # [󠀤] U+E0025 \@percentchar # [󠀥] U+E0026 & # [󠀦] U+E0027 ' # [󠀧] U+E0028 ( # [󠀨] U+E0029 ) # [󠀩] U+E002A * # [󠀪] U+E002B + # [󠀫] U+E002C , # [󠀬] U+E002D - # [󠀭] U+E002E . # [󠀮] U+E002F / # [󠀯] U+E0030 0 # [󠀰] U+E0031 1 # [󠀱] U+E0032 2 # [󠀲] U+E0033 3 # [󠀳] U+E0034 4 # [󠀴] U+E0035 5 # [󠀵] U+E0036 6 # [󠀶] U+E0037 7 # [󠀷] U+E0038 8 # [󠀸] U+E0039 9 # [󠀹] U+E003A : # [󠀺] U+E003B ; # [󠀻] U+E003C < # [󠀼] U+E003D = # [󠀽] U+E003E > # [󠀾] U+E003F ? # [󠀿] U+E0040 @ # [󠁀] U+E0041 A # [󠁁] U+E0042 B # [󠁂] U+E0043 C # [󠁃] U+E0044 D # [󠁄] U+E0045 E # [󠁅] U+E0046 F # [󠁆] U+E0047 G # [󠁇] U+E0048 H # [󠁈] U+E0049 I # [󠁉] U+E004A J # [󠁊] U+E004B K # [󠁋] U+E004C L # [󠁌] U+E004D M # [󠁍] U+E004E N # [󠁎] U+E004F O # [󠁏] U+E0050 P # [󠁐] U+E0051 Q # [󠁑] U+E0052 R # [󠁒] U+E0053 S # [󠁓] U+E0054 T # [󠁔] U+E0055 U # [󠁕] U+E0056 V # [󠁖] U+E0057 W # [󠁗] U+E0058 X # [󠁘] U+E0059 Y # [󠁙] U+E005A Z # [󠁚] U+E005B [ # [󠁛] U+E005C \@backslashchar # [󠁜] U+E005D ] # [󠁝] U+E005E ^ # [󠁞] U+E005F _ # [󠁟] U+E0060 ` # [󠁠] U+E0061 a # [󠁡] U+E0062 b # [󠁢] U+E0063 c # [󠁣] U+E0064 d # [󠁤] U+E0065 e # [󠁥] U+E0066 f # [󠁦] U+E0067 g # [󠁧] U+E0068 h # [󠁨] U+E0069 i # [󠁩] U+E006A j # [󠁪] U+E006B k # [󠁫] U+E006C l # [󠁬] U+E006D m # [󠁭] U+E006E n # [󠁮] U+E006F o # [󠁯] U+E0070 p # [󠁰] U+E0071 q # [󠁱] U+E0072 r # [󠁲] U+E0073 s # [󠁳] U+E0074 t # [󠁴] U+E0075 u # [󠁵] U+E0076 v # [󠁶] U+E0077 w # [󠁷] U+E0078 x # [󠁸] U+E0079 y # [󠁹] U+E007A z # [󠁺] U+E007B \@leftbracechar # [󠁻] U+E007C | # [󠁼] U+E007D \@rightbracechar # [󠁽] U+E007E \@tildechar # [󠁾]