# -*-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 # []
Generated by dwww version 1.15 on Thu May 23 05:54:27 CEST 2024.