blob: 2a0d12c9f577cbe28145ce0ed443ca51b43af665 (
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
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
|
%D \module
%D [ file=enco-l7x,
%D version=2010.01.22,
%D title=\CONTEXT\ Encoding Macros,
%D subtitle=\LATEX\ L7x Encoding,
%D author={Hans Hagen \& Mojca Miklavec},
%D date=\currentdate,
%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
%D Encoding vector to support Latvian and Lithuanian. The first
%D part is taken from EC encoding, the rest has not been tested
%D extensively.
\startmapping[l7x]
\definecaseswap 25 `I % dotless i (TODO - probably wrong; maybe use \defineuppercasecom)
\definecaseswap 156 140 % oeligature
\definecaseswap 184 168 % ostroke
\definecaseswap 186 170 % rcommaaccent
\definecaseswap 191 175 % aeligature
\definecaseself 223 % ssharp (this is wrong, but no better way)
\definecasemaps 192 to 222 lc +32 uc 0
\definecasemaps 224 to 254 lc 0 uc -32
\resetcaserange 215 to 215 % textmultiply
\resetcaserange 247 to 247 % textdiv
\stopmapping
\startencoding[l7x]
\definecharacter textgrave 0
\definecharacter textacute 1
\definecharacter textcircumflex 2
\definecharacter texttilde 3
\definecharacter textdiaeresis 4
\definecharacter texthungarumlaut 5
\definecharacter textring 6
\definecharacter textcaron 7
\definecharacter textbreve 8
\definecharacter textmacron 9
\definecharacter textdotaccent 10
\definecharacter textcedilla 11
\definecharacter textogonek 12
\definecharacter quotesinglebase 13
\definecharacter guilsingleleft 14
\definecharacter guilsingleright 15
\definecharacter quotedblleft 16
\definecharacter quotedblright 17
\definecharacter quotedblbase 18
\definecharacter leftguillemot 19
\definecharacter rightguillemot 20
\definecharacter endash 21
\definecharacter emdash 22
%definecharacter compoundwordmark 23
%definecharacter perthousand 24
\definecharacter dotlessi 25 % or when missing: {j}
\definecharacter dotlessj 26
% ff 27
% fi 28
% fl 29
% ffi 30
% ffl 31
%definecharacter textvisiblespace 32
% exclam ! 33
\definecharacter quotedbl 34
% numbersign # 35
% dollar $ 36
\definecharacter percent 37
% ampersand & 38
%definecharacter quotesingle 39 % fake 'm TODO:enco-def!!!!
\definecharacter quoteright 39
% parenleft ( 40
% parenright ) 41
% asterisk * 42
% plus + 43
% comma , 44
\definecharacter softhyphen 45
% period . 46
% slash / 47
% 0-9 48-57
% colon : 58
% semicolon ; 59
% less < 60
% equal = 61
% greater > 62
% question ? 63
% at @ 64
% A-Z 65-90
% bracketleft [ 91
\definecharacter textbackslash 92
% bracketright ] 93
\definecharacter textasciicircum 94
\definecharacter textunderscore 95
\definecharacter quoteleft 96
% a-z 97-122
\definecharacter textbraceleft 123
\definecharacter textbraceright 125
\definecharacter textasciitilde 126
% .notdef 127
\definecharacter texteuro 128
% .notdef 129
\definecharacter quotesinglebase 130
\definecharacter textflorin 131 \definecharacter fhook 131
\definecharacter quotedblbase 132
\definecharacter textellipsis 133
\definecharacter textdag 134
\definecharacter textddag 135
% .notdef 136
\definecharacter perthousand 137
% .notdef 138
\definecharacter guilsingleleft 139
\definecharacter OEligature 140 % TODO: also \OE???
\definecharacter textdiaeresis 141
\definecharacter textcaron 142
\definecharacter textcedilla 143
% .notdef 144
\definecharacter quoteleft 145
\definecharacter quoteright 146
\definecharacter quotedblleft 147
\definecharacter quotedblright 148
\definecharacter textbullet 149
\definecharacter endash 150
\definecharacter emdash 151
% .notdef 152
\definecharacter trademark 153
% .notdef 154
\definecharacter guilsingleright 155
\definecharacter oeligature 156
\definecharacter textmacron 157
\definecharacter textogonek 158
% .notdef 159
%definecharacter space 160 % TODO!!!
\definecharacter quotedblright 161
\definecharacter textcent 162
\definecharacter textsterling 163
\definecharacter textcurrency 164
\definecharacter quotedblbase 165
\definecharacter textbrokenbar 166
\definecharacter sectionmark 167
\definecharacter Ostroke 168
\definecharacter copyright 169
\definecharacter Rcommaaccent 170
\definecharacter leftguillemot 171
\definecharacter textlognot 172
%definecharacter softhyphen 173 % -> 45 (TODO!!!)
\definecharacter registered 174
\definecharacter AEligature 175
\definecharacter textdegree 176
\definecharacter textpm 177
\definecharacter twosuperior 178
\definecharacter threesuperior 179
\definecharacter quotedblleft 180
\definecharacter textmu 181
\definecharacter paragraphmark 182
\definecharacter periodcentered 183
\definecharacter ostroke 184
\definecharacter onesuperior 185
\definecharacter rcommaaccent 186
\definecharacter rightguillemot 187
\definecharacter onequarter 188
\definecharacter onehalf 189
\definecharacter threequarter 190
\definecharacter aeligature 191
\definecharacter Aogonek 192
\definecharacter Iogonek 193
\definecharacter Amacron 194
\definecharacter Cacute 195
\definecharacter Adiaeresis 196
\definecharacter Aring 197
\definecharacter Eogonek 198
\definecharacter Emacron 199
\definecharacter Ccaron 200
\definecharacter Eacute 201
\definecharacter Zacute 202
\definecharacter Edotaccent 203
\definecharacter Gcommaaccent 204
\definecharacter Kcommaaccent 205
\definecharacter Imacron 206
\definecharacter Lcommaaccent 207
\definecharacter Scaron 208
\definecharacter Nacute 209
\definecharacter Ncommaaccent 210
\definecharacter Oacute 211
\definecharacter Omacron 212
\definecharacter Otilde 213
\definecharacter Odiaeresis 214
\definecharacter textmultiply 215
\definecharacter Uogonek 216
\definecharacter Lstroke 217
\definecharacter Sacute 218
\definecharacter Umacron 219
\definecharacter Udiaeresis 220
\definecharacter Zdotaccent 221
\definecharacter Zcaron 222
\definecharacter ssharp 223
\definecharacter aogonek 224
\definecharacter iogonek 225
\definecharacter amacron 226
\definecharacter cacute 227
\definecharacter adiaeresis 228
\definecharacter aring 229
\definecharacter eogonek 230
\definecharacter emacron 231
\definecharacter ccaron 232
\definecharacter eacute 233
\definecharacter zacute 234
\definecharacter edotaccent 235
\definecharacter gcommaaccent 236
\definecharacter kcommaaccent 237
\definecharacter imacron 238
\definecharacter lcommaaccent 239
\definecharacter scaron 240
\definecharacter nacute 241
\definecharacter ncommaaccent 242
\definecharacter oacute 243
\definecharacter omacron 244
\definecharacter otilde 245
\definecharacter odiaeresis 246
\definecharacter textdiv 247
\definecharacter uogonek 248
\definecharacter lstroke 249
\definecharacter sacute 250
\definecharacter umacron 251
\definecharacter udiaeresis 252
\definecharacter zdotaccent 253
\definecharacter zcaron 254
\definecharacter quoteright 255
\stopencoding
\endinput
|
