blob: dbab21302deeb3365028cb37b547f831f3aed7a6 (
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
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
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
|
%D \module
%D [ file=enco-grk,
%D version=2003.03.01,
%D title=\CONTEXT\ Encoding Macros,
%D subtitle=Greek,
%D author=Apostolos Syropoulos,
%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.
\startencoding[default]
%
% Uppercase Greek letters
%
\definecharacter GreekAlpha {A}
\definecharacter GreekBeta {B}
\definecharacter GreekGamma {G}
\definecharacter GreekDelta {D}
\definecharacter GreekEpsilon {E}
\definecharacter GreekZeta {Z}
\definecharacter GreekEta {H}
\definecharacter GreekTheta {J}
\definecharacter GreekIota {I}
\definecharacter GreekKappa {K}
\definecharacter GreekLamda {L}
\definecharacter GreekMu {M}
\definecharacter GreekNu {N}
\definecharacter GreekXi {X}
\definecharacter GreekOmicron {O}
\definecharacter GreekPi {P}
\definecharacter GreekRho {R}
\definecharacter GreekSigma {S}
\definecharacter GreekTau {T}
\definecharacter GreekUpsilon {U}
\definecharacter GreekPhi {F}
\definecharacter GreekChi {Q}
\definecharacter GreekPsi {Y}
\definecharacter GreekOmega {W}
%
% Lowercase Greek letters
%
\definecharacter Greekalpha {a}
\definecharacter Greekbeta {b}
\definecharacter Greekgamma {g}
\definecharacter Greekdelta {d}
\definecharacter Greekepsilon {e}
\definecharacter Greekzeta {z}
\definecharacter Greeketa {h}
\definecharacter Greektheta {j}
\definecharacter Greekiota {i}
\definecharacter Greekkappa {k}
\definecharacter Greeklamda {l}
\definecharacter Greekmu {m}
\definecharacter Greeknu {n}
\definecharacter Greekxi {x}
\definecharacter Greekomicron {o}
\definecharacter Greekpi {p}
\definecharacter Greekrho {r}
\definecharacter Greekfinalsigma {c}
\definecharacter Greeksigma {s}
\definecharacter Greektau {t}
\definecharacter Greekupsilon {u}
\definecharacter Greekphi {f}
\definecharacter Greekchi {q}
\definecharacter Greekpsi {y}
\definecharacter Greekomega {w}
%
% Accented Uppercase Greek letters
%
\definecharacter GreekAlphatonos {'A}
\definecharacter GreekEpsilontonos {'E}
\definecharacter GreekEtatonos {'H}
\definecharacter GreekIotatonos {'I}
\definecharacter GreekOmicrontonos {'O}
\definecharacter GreekUpsilontonos {'U}
\definecharacter GreekOmegatonos {'W}
\definecharacter GreekIotadialytika {"I}
\definecharacter GreekUpsilondialytika {"U}
%
% Accented Lowercase Greek letters
%
\definecharacter Greekalphatonos {'a}
\definecharacter Greekepsilontonos {'e}
\definecharacter Greeketatonos {'h}
\definecharacter Greekiotatonos {'i}
\definecharacter Greekomicrontonos {'o}
\definecharacter Greekupsilontonos {'u}
\definecharacter Greekomegatonos {'w}
\definecharacter Greekiotadialytika {"i}
\definecharacter Greekupsilondialytika {"u}
\definecharacter Greekiotadialytikatonos {'"i}
\definecharacter Greekupsilondialytikatonos {'"u}
%
% Miscellaneous Greek symbols
%
\definecharacter Greekleftquot {((}
\definecharacter Greekrightquot {))}
\definecharacter Greektonos {'}
\definecharacter Greekdialytikatonos {'"}
\definecharacter Greekapostrophos {''}
\stopencoding
%%% Note that with the command
%%% \definecasemap 165 181 165
%%% character 165 becomes 181 in uppercase and 165 in lowercase
\startmapping[iso-8859-7]
%
% Uppercase Greek letters
%
\definecasemap 193 193 225 % GreekAlpha
\definecasemap 194 194 226 % GreekBeta
\definecasemap 195 195 227 % GreekGamma
\definecasemap 196 196 228 % GreekDelta
\definecasemap 197 197 229 % GreekEpsilon
\definecasemap 198 198 230 % GreekZeta
\definecasemap 199 199 213 % GreekEta
\definecasemap 200 200 232 % GreekTheta
\definecasemap 201 201 233 % GreekIota
\definecasemap 202 202 234 % GreekKappa
\definecasemap 203 203 235 % GreekLamda
\definecasemap 204 204 236 % GreekMu
\definecasemap 205 205 237 % GreekNu
\definecasemap 206 206 238 % GreekXi
\definecasemap 207 207 239 % GreekOmicron
\definecasemap 208 208 240 % GreekPi
\definecasemap 209 209 241 % GreekRho
\definecasemap 211 211 243 % GreekSigma
\definecasemap 212 212 244 % GreekTau
\definecasemap 213 213 245 % GreekUpsilon
\definecasemap 214 214 246 % GreekPhi
\definecasemap 215 215 247 % GreekChi
\definecasemap 216 216 248 % GreekPsi
\definecasemap 217 217 249 % GreekOmega
%
% Lowercase Greek letters
%
\definecasemap 225 193 225 % Greekalpha
\definecasemap 226 194 226 % Greekbeta
\definecasemap 227 195 227 % Greekgamma
\definecasemap 228 196 228 % Greekdelta
\definecasemap 229 197 229 % Greekepsilon
\definecasemap 230 198 230 % Greekzeta
\definecasemap 213 199 213 % Greeketa
\definecasemap 232 200 232 % Greektheta
\definecasemap 233 201 233 % Greekiota
\definecasemap 234 202 234 % Greekkappa
\definecasemap 235 203 235 % Greeklamda
\definecasemap 236 204 236 % Greekmu
\definecasemap 237 205 237 % Greeknu
\definecasemap 238 206 238 % Greekxi
\definecasemap 239 207 239 % Greekomicron
\definecasemap 240 208 240 % Greekpi
\definecasemap 241 209 241 % Greekrho
\definecasemap 242 211 242 % Greekfinalsigma
\definecasemap 243 211 243 % GreekSigma
\definecasemap 244 212 244 % GreekTau
\definecasemap 245 213 245 % GreekUpsilon
\definecasemap 246 214 246 % GreekPhi
\definecasemap 247 215 247 % GreekChi
\definecasemap 248 216 248 % GreekPsi
\definecasemap 249 217 249 % GreekOmega
%
% Accented Uppercase Greek letters
%
\definecasemap 182 193 220 % GreekAlphatonos
\definecasemap 184 197 221 % GreekEpsilontonos
\definecasemap 185 199 222 % GreekEtatonos
\definecasemap 186 201 223 % GreekIotatonos
\definecasemap 188 207 252 % GreekOmicrontonos
\definecasemap 190 213 253 % GreekUpsilontonos
\definecasemap 191 217 254 % GreekOmegatonos
\definecasemap 218 218 250 % GreekIotadialytika
\definecasemap 219 219 251 % GreekUpsilondialytika
%
% Accented Lowercase Greek letters
%
\definecasemap 220 193 220 % Greekalphatonos
\definecasemap 221 197 221 % Greekepsilontonos
\definecasemap 222 199 222 % Greeketatonos
\definecasemap 223 201 223 % Greekiotatonos
\definecasemap 252 207 252 % Greekomicrontonos
\definecasemap 253 213 253 % Greekupsilontonos
\definecasemap 254 217 254 % Greekomegatonos
\definecasemap 250 218 250 % Greekiotadialytika
\definecasemap 251 219 251 % Greekupsilondialytika
\definecasemap 192 218 192 % Greekiotadialytikatonos
\definecasemap 224 219 224 % Greekupsilondialytikatonos
\stopencoding
\startencoding[iso-8859-7]
%
% Uppercase Greek letters
%
\definecharacter GreekAlpha 193
\definecharacter GreekBeta 194
\definecharacter GreekGamma 195
\definecharacter GreekDelta 196
\definecharacter GreekEpsilon 197
\definecharacter GreekZeta 198
\definecharacter GreekEta 199
\definecharacter GreekTheta 200
\definecharacter GreekIota 201
\definecharacter GreekKappa 202
\definecharacter GreekLamda 203
\definecharacter GreekMu 204
\definecharacter GreekNu 205
\definecharacter GreekXi 206
\definecharacter GreekOmicron 207
\definecharacter GreekPi 208
\definecharacter GreekRho 209
\definecharacter GreekSigma 211
\definecharacter GreekTau 212
\definecharacter GreekUpsilon 213
\definecharacter GreekPhi 214
\definecharacter GreekChi 215
\definecharacter GreekPsi 216
\definecharacter GreekOmega 217
%
% Lowercase Greek letters
%
\definecharacter Greekalpha 225
\definecharacter Greekbeta 226
\definecharacter Greekgamma 227
\definecharacter Greekdelta 228
\definecharacter Greekepsilon 229
\definecharacter Greekzeta 230
\definecharacter Greeketa 231
\definecharacter Greektheta 232
\definecharacter Greekiota 233
\definecharacter Greekkappa 234
\definecharacter Greeklamda 235
\definecharacter Greekmu 236
\definecharacter Greeknu 237
\definecharacter Greekxi 238
\definecharacter Greekomicron 239
\definecharacter Greekpi 240
\definecharacter Greekrho 241
\definecharacter Greekfinalsigma 242
\definecharacter Greeksigma 243
\definecharacter Greektau 244
\definecharacter Greekupsilon 245
\definecharacter Greekphi 246
\definecharacter Greekchi 247
\definecharacter Greekpsi 248
\definecharacter Greekomega 249
%
% Accented Uppercase Greek letters
%
\definecharacter GreekAlphatonos 182
\definecharacter GreekEpsilontonos 184
\definecharacter GreekEtatonos 185
\definecharacter GreekIotatonos 186
\definecharacter GreekOmicrontonos 188
\definecharacter GreekUpsilontonos 190
\definecharacter GreekOmegatonos 191
\definecharacter GreekIotadialytika 218
\definecharacter GreekUpsilondialytika 219
%
% Accented Lowercase Greek letters
%
\definecharacter Greekalphatonos 220
\definecharacter Greekepsilontonos 221
\definecharacter Greeketatonos 222
\definecharacter Greekiotatonos 223
\definecharacter Greekomicrontonos 252
\definecharacter Greekupsilontonos 253
\definecharacter Greekomegatonos 254
\definecharacter Greekiotadialytika 250
\definecharacter Greekupsilondialytika 251
\definecharacter Greekiotadialytikatonos 192
\definecharacter Greekupsilondialytikatonos 224
%
% Miscellaneous Greek symbols
%
\definecharacter Greekleftquot 171
\definecharacter Greekrightquot 187
\definecharacter Greektonos 180
\definecharacter Greekdialytikatonos 181
\definecharacter Greekapostrophos 162
\stopencoding
|