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
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
|
%D \module
%D [ file=enco-el,
%D version=2005.08.24,
%D title=\CONTEXT\ Encoding Macros,
%D subtitle=EuroLetter,
%D author={Several Users},
%D date=\currentdate,
%D copyright=PRAGMA-ADE]
%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 This EuroLetter encoding vector, also known as Dense Encoding is
%D the result of discussion among users, most noticably Adam Lindsay,
%D Mojka Miklavec, Patrick Gundlach, Taco Hoekwater and \unknown.
%D It was a follow up of a thread started long ago where we
%D discussed an encoding without the weird, never used symbols, but
%D with as many characters as possible in order to support the utf-8
%D input regime.
\startencoding[el]
\definecasemaps 1 to 15 lc +16 uc 0
\definecasemaps 17 to 31 lc 0 uc -16
\definecasemaps 128 to 159 lc +32 uc 0
\definecasemaps 160 to 191 lc 0 uc -32
\definecasemaps 192 to 223 lc +32 uc 0
\definecasemaps 224 to 255 lc 0 uc -32
\definecasemap 92 92 124
\definecasemap 92 124 92
\definecharacter dotlessi 160
\definecharacter endash 32
\definecharacter emdash 16
\definecharacter aeligature 230
\definecharacter AEligature 198
\definecharacter oeligature 247
\definecharacter OEligature 215
\definecharacter ssharp 38
\definecharacter thorn 254
\definecharacter Thorn 222
\definecharacter eth 240
\definecharacter Eth 208
\definecharacter exclamdown 42
\definecharacter questiondown 43
\definecharacter quotedbl 35
\definecharacter quotedblbase 36
\definecharacter quotedblleft 34
\definecharacter quotedblright 35
\definecharacter quotesingle 39
\definecharacter quotesinglebase 0
\definecharacter quoteleft 96
\definecharacter quoteright 39
\definecharacter guilsingleleft 60
\definecharacter guilsingleright 62
\definecharacter leftguillemot 123
\definecharacter rightguillemot 125
\definecharacter Acircumflex 194
\definecharacter acircumflex 226
%definecharacter Ccircumflex {\buildtextaccent\textcircumflex C}
%definecharacter ccircumflex {\buildtextaccent\textcircumflex c}
\definecharacter Ecircumflex 202
\definecharacter ecircumflex 234
%definecharacter Gcircumflex {\buildtextaccent\textcircumflex G}
%definecharacter gcircumflex {\buildtextaccent\textcircumflex g}
%definecharacter Hcircumflex {\buildtextaccent\textcircumflex H}
%definecharacter hcircumflex {\buildtextaccent\textcircumflex h}
\definecharacter Icircumflex 206
\definecharacter icircumflex 238
%definecharacter Jcircumflex {\buildtextaccent\textcircumflex \dotlessJ}
%definecharacter jcircumflex {\buildtextaccent\textcircumflex \dotlessj}
\definecharacter Ocircumflex 212
\definecharacter ocircumflex 244
%definecharacter Scircumflex {\buildtextaccent\textcircumflex S}
%definecharacter scircumflex {\buildtextaccent\textcircumflex s}
\definecharacter Ucircumflex 219
\definecharacter ucircumflex 251
\definecharacter Wcircumflex 154
\definecharacter wcircumflex 186
\definecharacter Ycircumflex 156
\definecharacter ycircumflex 188
\definecharacter Agrave 192
\definecharacter agrave 224
\definecharacter Egrave 200
\definecharacter egrave 232
\definecharacter Igrave 204
\definecharacter igrave 236
\definecharacter Ograve 210
\definecharacter ograve 242
\definecharacter Ugrave 217
\definecharacter ugrave 249
\definecharacter Ygrave 155
\definecharacter ygrave 187
\definecharacter Atilde 195
\definecharacter atilde 227
%definecharacter Itilde {\buildtextaccent\texttilde \dotlessI}
%definecharacter itilde {\buildtextaccent\texttilde \dotlessi}
\definecharacter Ntilde 209
\definecharacter ntilde 241
\definecharacter Otilde 213
\definecharacter otilde 245
%definecharacter Utilde {\buildtextaccent\texttilde U}
%definecharacter utilde {\buildtextaccent\texttilde u}
%definecharacter Ytilde {\buildtextaccent\texttilde Y}
%definecharacter ytilde {\buildtextaccent\texttilde y}
\definecharacter Adiaeresis 196
\definecharacter adiaeresis 228
\definecharacter Ediaeresis 203
\definecharacter ediaeresis 235
\definecharacter Idiaeresis 207
\definecharacter idiaeresis 239
\definecharacter Odiaeresis 214
\definecharacter odiaeresis 246
\definecharacter Udiaeresis 220
\definecharacter udiaeresis 252
\definecharacter Ydiaeresis 223
\definecharacter ydiaeresis 255
\definecharacter Aacute 193
\definecharacter aacute 225
\definecharacter Cacute 4
\definecharacter cacute 20
\definecharacter Eacute 201
\definecharacter eacute 233
\definecharacter Iacute 205
\definecharacter iacute 237
\definecharacter Lacute 132
\definecharacter lacute 164
\definecharacter Nacute 136
\definecharacter nacute 168
\definecharacter Oacute 211
\definecharacter oacute 243
\definecharacter Racute 141
\definecharacter racute 173
\definecharacter Sacute 144
\definecharacter sacute 176
\definecharacter Uacute 218
\definecharacter uacute 250
\definecharacter Yacute 221
\definecharacter yacute 253
\definecharacter Zacute 157
\definecharacter zacute 189
\definecharacter Dstroke 8
\definecharacter dstroke 24
\definecharacter Hstroke 92
\definecharacter hstroke 124
%definecharacter Tstroke {T}
%definecharacter tstroke {t}
\definecharacter Cdotaccent 6
\definecharacter cdotaccent 22
\definecharacter Edotaccent 10
\definecharacter edotaccent 26
\definecharacter Gdotaccent 15
\definecharacter gdotaccent 31
\definecharacter Idotaccent 128
%definecharacter idotaccent {\buildtextaccent\textdotaccent \dotlessi}
\definecharacter Zdotaccent 159
\definecharacter zdotaccent 191
\definecharacter Amacron 2
\definecharacter amacron 18
\definecharacter Emacron 11
\definecharacter emacron 27
\definecharacter Imacron 129
\definecharacter imacron 161
\definecharacter Omacron 140
\definecharacter omacron 172
\definecharacter Umacron 152
\definecharacter umacron 184
\definecharacter Ccedilla 199
\definecharacter ccedilla 231
\definecharacter Scedilla 146
\definecharacter scedilla 178
\definecharacter Gcommaaccent 14
\definecharacter gcommaaccent 30
\definecharacter Kcommaaccent 131
\definecharacter kcommaaccent 163
\definecharacter Lcommaaccent 135
\definecharacter lcommaaccent 167
\definecharacter Ncommaaccent 138
\definecharacter ncommaaccent 170
\definecharacter Rcommaaccent 143
\definecharacter rcommaaccent 175
%definecharacter Tcedilla 149 % there is no tcedilla in encoding
%definecharacter tcedilla 181
\definecharacter Scommaaccent 147
\definecharacter scommaaccent 179
\definecharacter Tcommaaccent 149
\definecharacter tcommaaccent 181
\definecharacter Ohungarumlaut 139
\definecharacter ohungarumlaut 171
\definecharacter Uhungarumlaut 150
\definecharacter uhungarumlaut 182
\definecharacter Aogonek 3
\definecharacter aogonek 19
\definecharacter Eogonek 12
\definecharacter eogonek 28
\definecharacter Iogonek 130
\definecharacter iogonek 162
\definecharacter Uogonek 153
\definecharacter uogonek 185
\definecharacter Aring 197
\definecharacter aring 229
\definecharacter Uring 151
\definecharacter uring 183
\definecharacter Abreve 1
\definecharacter abreve 17
%definecharacter Ebreve {\buildtextaccent\textbreve E}
%definecharacter ebreve {\buildtextaccent\textbreve e}
\definecharacter Gbreve 13
\definecharacter gbreve 29
%definecharacter Ibreve {\buildtextaccent\textbreve \dotlessI}
%definecharacter ibreve {\buildtextaccent\textbreve \dotlessi}
%definecharacter Obreve {\buildtextaccent\textbreve O}
%definecharacter obreve {\buildtextaccent\textbreve o}
%definecharacter Ubreve {\buildtextaccent\textbreve U}
%definecharacter ubreve {\buildtextaccent\textbreve u}
\definecharacter Ccaron 5
\definecharacter ccaron 21
\definecharacter Dcaron 7
\definecharacter dcaron 23
\definecharacter Ecaron 9
\definecharacter ecaron 25
\definecharacter Lcaron 133
\definecharacter lcaron 165
\definecharacter Ncaron 137
\definecharacter ncaron 169
\definecharacter Rcaron 142
\definecharacter rcaron 174
\definecharacter Scaron 145
\definecharacter scaron 177
\definecharacter Tcaron 148
\definecharacter tcaron 180
%definecharacter Ycaron {\buildtextaccent\textcaron Y}
%definecharacter ycaron {\buildtextaccent\textcaron y}
\definecharacter Zcaron 158
\definecharacter zcaron 190
\definecharacter Lstroke 134
\definecharacter lstroke 166
\definecharacter Ostroke 216
\definecharacter ostroke 248
\stopencoding
|
