blob: 8a603f96c76f830072544747d13ef1122f5d8df6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
% utf8lat1.tex: UTF-8 input declaration, Latin-1 Supplement, U+0080 -- U+00FF
% ---------------------------------------------------------------------------
% Petr Olsak, 2012
\message{UTF-8 declaration: LATIN-1 SUPPLEMENT, U+0080--U+00FF}
% You can define the \setucode texname htmlentity utf8code T1slot {TeX action}
% by yours opinion before \input utf8lat1. If no definition is prepared by you,
% the implicit one do following:
% (1) Maps utf8code to \texname by encTeX's \mubytein ... \mubyteout
% (2) if \texname is undefined do \def\texname{TeX action}
% (3) The parameters htmlentity and T1slot are ignored
%
% If T1slot=* then the character is not provided by T1 encoding.
% See the file t1code.tex for an alternative \setucode definition which uses T1slot.
%
% The \setcsucode is implicitly the same as \setucode, but csplain defines it as
% ,,do nothing`` because the code is mapped by csplain as a raw character.
%
% Some slots are defined as \uuchar (means UndefinedUtf8char) because there
% are not common tools for define them by plainTeX. You can redefine them, of course.
\ifx\setucode\undefined
\ifx\mubyte\undefined
\errhelp{Sorry, you can't use this file without encTeX initialised.}
\errmessage{The encTeX extension of TeX with \noexpand\mubyte is not found}
\expandafter\expandafter\expandafter \endinput
\else
% The implicit \setucode definition:
\def\setucode #1 #2 #3 #4 #5{%
\expandafter \mubyte \csname#1\endcsname #3\endmubyte
\expandafter \ifx \csname#1\endcsname \relax
\expandafter \def\csname#1\endcsname{#5}%
\fi
}
\ifx\setcsucode\undefined \let\setcsucode=\setucode \fi
\fi\fi
\def\uuchar#1#2{% Undefined Utf8 character
\message{WARNING: undefined UTF-8 slot \string#1: #2}%
\leavevmode\hbox{\vrule width.5em height.5em}%
}
\let\doaccent=\char % accents are declared as \doaccent<number>, implicitly \char<number>.
% you can set: \let\doaccent=\accent: then accents will be placed over the next character.
\def\intext#1{\leavevmode\hbox{$#1$}} % the math construction working in text mode.
\setucode nobreakspace nbsp ^^c2^^a0 * {~}
\setucode exclamdown iexcl ^^c2^^a1 ^^bd {`!}
\setucode cent cent ^^c2^^a2 * {\uuchar\cent{CENT SIGN}}
\setucode pound pound ^^c2^^a3 ^^bf {{\it\$}}
\setucode currency curren ^^c2^^a4 * {\uuchar\currency{CURRENCY SIGN}}
\setucode yen yen ^^c2^^a5 * {\uuchar\yen{YEN SIGN}}
\setucode brokenbar brvbar ^^c2^^a6 * {\leavevmode\hbox
{\kern.1em\vbox{\hrule height .38em width.04em \kern.15em
\hrule height.23em depth.15em width.04em}\kern.1em}}
\setucode S sect ^^c2^^a7 ^^9f {defined already}
\setucode dieresis uml ^^c2^^a8 ^^04 {\doaccent127 }
\setucode copyright copy ^^c2^^a9 * {defined already}
\setucode feminine ordf ^^c2^^aa * {\uuchar\feminine{FEMININE ORDINAL INDICATOR}}
\setucode flqq laquo ^^c2^^ab ^^13 {\intext{\scriptstyle\langle\!\langle}}
\setucode notsign not ^^c2^^ac * {defined already}
\setucode softhyphen shy ^^c2^^ad * {\uuchar\softhyphen{SOFT HYPHEN}}
\setucode registered reg ^^c2^^ae * {\uuchar\registered{REGISTERED SIGN}}
\setucode macron macr ^^c2^^af * {\doaccent22 }
\setucode degree deg ^^c2^^b0 * {\intext{^\circ}}
\setucode textpm plusmn ^^c2^^b1 * {\intext{\pm}}
\setucode suptwo sup2 ^^c2^^b2 * {\intext{^2}}
\setucode supthree sup3 ^^c2^^b3 * {\intext{^3}}
\setucode acute acute ^^c2^^b4 ^^01 {\doaccent19 }
\setucode micro micro ^^c2^^b5 * {\intext{\mu}}
\setucode P para ^^c2^^b6 * {defined already}
\setucode textcdot middot ^^c2^^b7 * {\intext{\cdot}}
\setucode cedilla cedil ^^c2^^b8 ^^0b {\char24 }
\setucode supone sup1 ^^c2^^b9 * {\intext{^1}}
\setucode masculine ordm ^^c2^^ba * {\uuchar\masculine{MASCULINE ORDINAL INDICATOR}}
\setucode frqq raquo ^^c2^^bb ^^14 {\intext{\scriptstyle\rangle\!\rangle}}
\setucode onequarter frac14 ^^c2^^bc * {\intext{^1\!/\!_4}}
\setucode onehalf frac12 ^^c2^^bd * {\intext{^1\!/\!_2}}
\setucode threequarter frac34 ^^c2^^be * {\intext{^3\!/\!_4}}
\setucode questiondown iquest ^^c2^^bf ^^be {`?}
\setucode Agrave Agrave ^^c3^^80 ^^c0 {\`A}
\setcsucode Aacute Aacute ^^c3^^81 ^^c1 {\'A}
\setucode Acircumflex Acirc ^^c3^^82 ^^c2 {\^A}
\setucode Atilde Atilde ^^c3^^83 ^^c3 {\~A}
\setcsucode Adieresis Auml ^^c3^^84 ^^c4 {\"A}
\setucode Aring Aring ^^c3^^85 ^^c5 {\r A}
\setucode AE AElig ^^c3^^86 ^^c6 {defined already}
\setucode Ccedilla Ccedil ^^c3^^87 ^^c7 {\c C}
\setucode Egrave Egrave ^^c3^^88 ^^c8 {\`E}
\setcsucode Eacute Eacute ^^c3^^89 ^^c9 {\'E}
\setucode Ecircumflex Ecirc ^^c3^^8a ^^ca {\^E}
\setucode Edieresis Euml ^^c3^^8b ^^cb {\"E}
\setucode Igrave Igrave ^^c3^^8c ^^cc {\`I}
\setcsucode Iacute Iacute ^^c3^^8d ^^cd {\'I}
\setucode Icircumflex Icirc ^^c3^^8e ^^ce {\^I}
\setucode Idieresis Iuml ^^c3^^8f ^^cf {\"I}
\setucode Eth ETH ^^c3^^90 ^^d0 {\uuchar\Eth{LATIN CAPITAL LETTER ETH}}
\setucode Ntilde Ntilde ^^c3^^91 ^^d1 {\~N}
\setucode Ograve Ograve ^^c3^^92 ^^d2 {\`O}
\setcsucode Oacute Oacute ^^c3^^93 ^^d3 {\'O}
\setcsucode Ocircumflex Ocirc ^^c3^^94 ^^d4 {\^O}
\setucode Otilde Otilde ^^c3^^95 ^^d5 {\~O}
\setcsucode Odieresis Ouml ^^c3^^96 ^^d6 {\"O}
\setucode texttimes times ^^c3^^97 * {\intext{\times}}
\setucode O Oslash ^^c3^^98 ^^d8 {defined already}
\setucode Ugrave Ugrave ^^c3^^99 ^^d9 {\`U}
\setcsucode Uacute Uacute ^^c3^^9a ^^da {\'U}
\setucode Ucircumflex Ucirc ^^c3^^9b ^^db {\^U}
\setcsucode Udieresis Uuml ^^c3^^9c ^^dc {\"U}
\setcsucode Yacute Yacute ^^c3^^9d ^^dd {\'Y}
\setucode Thorn THRON ^^c3^^9e ^^de {\uuchar\Thron{LATIN CAPITAL LETTER THRON}}
\setucode ss szlig ^^c3^^9f ^^fb {defined already}
\setucode agrave agrave ^^c3^^a0 ^^e0 {\`a}
\setcsucode aacute aacute ^^c3^^a1 ^^e1 {\'a}
\setucode acircumflex acirc ^^c3^^a2 ^^e2 {\^a}
\setucode atilde atilde ^^c3^^a3 ^^e3 {\~a}
\setcsucode adieresis auml ^^c3^^a4 ^^e4 {\"a}
\setucode aring aring ^^c3^^a5 ^^e5 {\r a}
\setucode ae aelig ^^c3^^a6 ^^e6 {defined already}
\setucode ccedilla ccedil ^^c3^^a7 ^^e7 {\c c}
\setucode egrave egrave ^^c3^^a8 ^^e8 {\`e}
\setcsucode eacute eacute ^^c3^^a9 ^^e9 {\'e}
\setucode ecircumflex ecirc ^^c3^^aa ^^ea {\^e}
\setucode edieresis euml ^^c3^^ab ^^eb {\"e}
\setucode igrave igrave ^^c3^^ac ^^ec {\`i}
\setcsucode iacute iacute ^^c3^^ad ^^ed {\'i}
\setucode icircumflex icirc ^^c3^^ae ^^ee {\^i}
\setucode idieresis iuml ^^c3^^af ^^ef {\"i}
\setucode eth eth ^^c3^^b0 ^^f0 {\uuchar\eth{LATIN SMALL LETTER ETH}}
\setucode ntilde ntilde ^^c3^^b1 ^^f1 {\~n}
\setucode ograve ograve ^^c3^^b2 ^^f2 {\`o}
\setcsucode oacute oacute ^^c3^^b3 ^^f3 {\'o}
\setcsucode ocircumflex ocirc ^^c3^^b4 ^^f4 {\^o}
\setucode otilde otilde ^^c3^^b5 ^^f5 {\~o}
\setcsucode odieresis ouml ^^c3^^b6 ^^f6 {\"o}
\setucode division divide ^^c3^^b7 ^^f7 {\intext{\div}}
\setucode o oslash ^^c3^^b8 * {defined already}
\setucode ugrave ugrave ^^c3^^b9 ^^f9 {\`u}
\setcsucode uacute uacute ^^c3^^ba ^^fa {\'u}
\setucode ucircumflex ucirc ^^c3^^bb ^^fb {\^u}
\setcsucode udieresis uuml ^^c3^^bc ^^fc {\"u}
\setcsucode yacute yacute ^^c3^^bd ^^fd {\'y}
\setucode thron thron ^^c3^^be ^^fe {\uuchar\thron{LATIN SMALL LETTER THRON}}
\setucode ydieresis yuml ^^c3^^bf ^^ff {\"y}
\catcode`\^^A=12 % Knuth set them to 8 and 7 in plain.tex but it isn't usable because
\catcode`\^^K=12 % acute and cedilla are mapped to these chars in T1 encoding
% end of file utf8lat1.tex
|
