# -*-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 Sat Jun 15 21:38:20 CEST 2024.