blob: 9fb87b2fd773778926cc3fb2afc88549ab41e556 (
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
|
%D \module
%D [ file=enco-il2,
%D version=2000.05.07, % 1998.12.01,
%D title=\CONTEXT\ Encoding Macros,
%D subtitle=Czech and Slovak ISO Latin 2 Encoding,
%D author=Hans Hagen,
%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.
% This encoding will go but the regime will remain.
%D This Czech/Slovak encoding is dedicated to Han The Thanh.
%D The numbers are derived from some files he sent me. This
%D definition file is (still) sort of beta.
\startmapping[il2]
\resetcaserange 127 to 255 % we map them all to themselves
\definecaseswap 184 152
\definecaseswap 181 165
\definecaseswap 185 169
\definecaseswap 187 171
\definecaseswap 190 174
\definecaseswap 224 192
\definecaseswap 225 193
\definecaseswap 228 196
\definecaseswap 229 197
\definecaseswap 232 200
\definecaseswap 233 201
\definecaseswap 236 204
\definecaseswap 237 205
\definecaseswap 239 207
\definecaseswap 242 210
\definecaseswap 243 211
\definecaseswap 244 212
\definecaseswap 246 214
\definecaseswap 248 216
\definecaseswap 249 217
\definecaseswap 250 218
\definecaseswap 252 220
\definecaseswap 253 221
\stopmapping
\startencoding[il2][il2]
\definecharacter textgrave 18
\definecharacter textacute 19
\definecharacter textcaron 20
\definecharacter textbreve 21
\definecharacter textmacron 22
\definecharacter textring 23
\definecharacter textcedilla 24
\definecharacter textcircumflex 94
\definecharacter textdotaccent 95
\definecharacter texthungarumlaut 125
\definecharacter texttilde 126
\definecharacter textdiaeresis 127
\definecharacter dotlessi 16
\definecharacter dotlessj 17
\definecharacter aeligature 26
\definecharacter AEligature 29
\definecharacter oeligature 27
\definecharacter OEligature 30
\definecharacter ssharp 25
\definecharacter Racute 192
\definecharacter Aacute 193
\definecharacter Lacute 197
\definecharacter Eacute 201
\definecharacter Iacute 205
\definecharacter Oacute 211
\definecharacter Uacute 218
\definecharacter Yacute 221
\definecharacter racute 224
\definecharacter aacute 225
\definecharacter lacute 229
\definecharacter eacute 233
\definecharacter iacute 237
\definecharacter oacute 243
\definecharacter uacute 250
\definecharacter yacute 253
\definecharacter Lcaron 165
\definecharacter Scaron 169
\definecharacter Tcaron 171
\definecharacter Zcaron 174
\definecharacter lcaron 181
\definecharacter scaron 185
\definecharacter tcaron 187
\definecharacter zcaron 190
\definecharacter Ccaron 200
\definecharacter Ecaron 204
\definecharacter Dcaron 207
\definecharacter Ncaron 210
\definecharacter Rcaron 216
\definecharacter ccaron 232
\definecharacter ecaron 236
\definecharacter dcaron 239
\definecharacter ncaron 242
\definecharacter rcaron 248
\definecharacter Ocircumflex 212
\definecharacter ocircumflex 244
\definecharacter Adiaeresis 196
\definecharacter Odiaeresis 214
\definecharacter Udiaeresis 220
\definecharacter adiaeresis 228
\definecharacter odiaeresis 246
\definecharacter udiaeresis 252
\definecharacter Agrave 152
\definecharacter agrave 184
\definecharacter Ohungarumlaut 213
\definecharacter Uhungarumlaut 219
\definecharacter ohungarumlaut 245
\definecharacter uhungarumlaut 251
\definecharacter Uring 217
\definecharacter uring 249
\definecharacter Aring {\ilencodedrA}
\definecharacter ostroke 28
\definecharacter Ostroke 31
\definecharacter Lstroke {\ilencodedL}
\definecharacter lstroke {\ilencodedl}
\def\ilencodedrA
{\dontleavehmode\hbox\bgroup
\setbox0\hbox{h}%
\dimen0=\ht0
\advance\dimen0 by -1ex
\rlap{\raise.67\dimen0\hbox{\char'27}}A%
\egroup}
\def\ilencodedl
{\dontleavehmode{\char32l}}
\def\ilencodedL
{\dontleavehmode\hbox\bgroup
\setbox0\hbox{L}%
\hbox to\wd0{\hss\char32L}%
\egroup}
\stopencoding
\endinput
|
