summaryrefslogtreecommitdiff
path: root/src/corelib/x11/x11_keyconv.pas
blob: fe25b7a490ec79dcf23fc98bed339fe7bd9d5f9e (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
318
319
unit x11_keyconv;

{$mode objfpc}{$H+}

interface

//
  
// This conversion was taken from the OpenOffice 1.0.1 source code.
procedure KeySymToUnicode(ks: longword; res: PWord);

implementation

type
  unichar = word;

const

// Latin-1 		Byte 3 = $00
  keymap00 : array[32..255] of unichar = (
    $0020, $0021, $0022, $0023, $0024, $0025, $0026, $0027,
    $0028, $0029, $002a, $002b, $002c, $002d, $002e, $002f,
    $0030, $0031, $0032, $0033, $0034, $0035, $0036, $0037,
    $0038, $0039, $003a, $003b, $003c, $003d, $003e, $003f,
    $0040, $0041, $0042, $0043, $0044, $0045, $0046, $0047,
    $0048, $0049, $004a, $004b, $004c, $004d, $004e, $004f,
    $0050, $0051, $0052, $0053, $0054, $0055, $0056, $0057,
    $0058, $0059, $005a, $005b, $005c, $005d, $005e, $005f,
    $0060, $0061, $0062, $0063, $0064, $0065, $0066, $0067,
    $0068, $0069, $006a, $006b, $006c, $006d, $006e, $006f,
    $0070, $0071, $0072, $0073, $0074, $0075, $0076, $0077,
    $0078, $0079, $007a, $007b, $007c, $007d, $007e, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $00a0, $00a1, $00a2, $00a3, $00a4, $00a5, $00a6, $00a7,
    $00a8, $00a9, $00aa, $00ab, $00ac, $00ad, $00ae, $00af,
    $00b0, $00b1, $00b2, $00b3, $00b4, $00b5, $00b6, $00b7,
    $00b8, $00b9, $00ba, $00bb, $00bc, $00bd, $00be, $00bf,
    $00c0, $00c1, $00c2, $00c3, $00c4, $00c5, $00c6, $00c7,
    $00c8, $00c9, $00ca, $00cb, $00cc, $00cd, $00ce, $00cf,
    $00d0, $00d1, $00d2, $00d3, $00d4, $00d5, $00d6, $00d7,
    $00d8, $00d9, $00da, $00db, $00dc, $00dd, $00de, $00df,
    $00e0, $00e1, $00e2, $00e3, $00e4, $00e5, $00e6, $00e7,
    $00e8, $00e9, $00ea, $00eb, $00ec, $00ed, $00ee, $00ef,
    $00f0, $00f1, $00f2, $00f3, $00f4, $00f5, $00f6, $00f7,
    $00f8, $00f9, $00fa, $00fb, $00fc, $00fd, $00fe, $00ff
                                    );
                                    
// Latin-2		Byte 3 = $01
  keymap01 : array[161..255] of unichar = (
    $0104, $02d8, $0141, $0000, $013d, $015a, $0000, $0000,
    $0160, $015e, $0164, $0179, $0000, $017d, $017b, $0000,
    $0105, $02db, $0142, $0000, $013e, $015b, $02c7, $0000,
    $0161, $015f, $0165, $017a, $02dd, $017e, $017c, $0154,
    $0000, $0000, $0102, $0000, $0139, $0106, $0000, $010c,
    $0000, $0118, $0000, $011a, $0000, $0000, $010e, $0110,
    $0143, $0147, $0000, $0000, $0150, $0000, $0000, $0158,
    $016e, $0000, $0170, $0000, $0000, $0162, $0000, $0155,
    $0000, $0000, $0103, $0000, $013a, $0107, $0000, $010d,
    $0000, $0119, $0000, $011b, $0000, $0000, $010f, $0111,
    $0144, $0148, $0000, $0000, $0151, $0000, $0000, $0159,
    $016f, $0000, $0171, $0000, $0000, $0163, $02d9 );
    
// Latin-3		Byte 3 = $02
  keymap02 : array[161..254] of unichar = (
    $0126, $0000, $0000, $0000, $0000, $0124, $0000, $0000,
    $0130, $0000, $011e, $0134, $0000, $0000, $0000, $0000,
    $0127, $0000, $0000, $0000, $0000, $0125, $0000, $0000,
    $0131, $0000, $011f, $0135, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $010a, $0108, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0120, $0000, $0000, $011c,
    $0000, $0000, $0000, $0000, $016c, $015c, $0000, $0000,
    $0000, $0000, $0000, $0000, $010b, $0109, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0121, $0000, $0000, $011d,
    $0000, $0000, $0000, $0000, $016d, $015d );

// Latin-4		Byte 3 = $03
  keymap03 : array[162..254] of unichar = (
    $0138, $0156, $0000, $0128, $013b, $0000, $0000, $0000,
    $0112, $0122, $0166, $0000, $0000, $0000, $0000, $0000,
    $0000, $0157, $0000, $0129, $013c, $0000, $0000, $0000,
    $0113, $0123, $0167, $014a, $0000, $014b, $0100, $0000,
    $0000, $0000, $0000, $0000, $0000, $012e, $0000, $0000,
    $0000, $0000, $0116, $0000, $0000, $012a, $0000, $0145,
    $014c, $0136, $0000, $0000, $0000, $0000, $0000, $0172,
    $0000, $0000, $0000, $0168, $016a, $0000, $0101, $0000,
    $0000, $0000, $0000, $0000, $0000, $012f, $0000, $0000,
    $0000, $0000, $0117, $0000, $0000, $012b, $0000, $0146,
    $014d, $0137, $0000, $0000, $0000, $0000, $0000, $0173,
    $0000, $0000, $0000, $0169, $016b );

// Kana			Byte 3 = $04
  keymap04 : array[126..223] of unichar = (
    $203e, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $3002, $300c, $300d, $3001, $30fb,
    $30f2, $30a1, $30a3, $30a5, $30a7, $30a9, $30e3, $30e5,
    $30e7, $30c3, $30fc, $30a2, $30a4, $30a6, $30a8, $30aa,
    $30ab, $30ad, $30af, $30b1, $30b3, $30b5, $30b7, $30b9,
    $30bb, $30bd, $30bf, $30c1, $30c4, $30c6, $30c8, $30ca,
    $30cb, $30cc, $30cd, $30ce, $30cf, $30d2, $30d5, $30d8,
    $30db, $30de, $30df, $30e0, $30e1, $30e2, $30e4, $30e6,
    $30e8, $30e9, $30ea, $30eb, $30ec, $30ed, $30ef, $30f3,
    $309b, $309c );

// Arabic		Byte 3 = $05
  keymap05 : array[172..242] of unichar = (
    $060c, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $061b,
    $0000, $0000, $0000, $061f, $0000, $0621, $0622, $0623,
    $0624, $0625, $0626, $0627, $0628, $0629, $062a, $062b,
    $062c, $062d, $062e, $062f, $0630, $0631, $0632, $0633,
    $0634, $0635, $0636, $0637, $0638, $0639, $063a, $0000,
    $0000, $0000, $0000, $0000, $0640, $0641, $0642, $0643,
    $0644, $0645, $0646, $0647, $0648, $0649, $064a, $064b,
    $064c, $064d, $064e, $064f, $0650, $0651, $0652 );

// Cyrillic		Byte 3 = $06
  keymap06 : array[161..255] of unichar = (
    $0452, $0453, $0451, $0454, $0455, $0456, $0457, $0458,
    $0459, $045a, $045b, $045c, $0000, $045e, $045f, $2116,
    $0402, $0403, $0401, $0404, $0405, $0406, $0407, $0408,
    $0409, $040a, $040b, $040c, $0000, $040e, $040f, $044e,
    $0430, $0431, $0446, $0434, $0435, $0444, $0433, $0445,
    $0438, $0439, $043a, $043b, $043c, $043d, $043e, $043f,
    $044f, $0440, $0441, $0442, $0443, $0436, $0432, $044c,
    $044b, $0437, $0448, $044d, $0449, $0447, $044a, $042e,
    $0410, $0411, $0426, $0414, $0415, $0424, $0413, $0425,
    $0418, $0419, $041a, $041b, $041c, $041d, $041e, $041f,
    $042f, $0420, $0421, $0422, $0423, $0416, $0412, $042c,
    $042b, $0417, $0428, $042d, $0429, $0427, $042a );

// Greek		Byte 3 = $07
  keymap07 : array[161..249] of unichar = (
    $0386, $0388, $0389, $038a, $03aa, $0000, $038c, $038e,
    $03ab, $0000, $038f, $0000, $0000, $0385, $2015, $0000,
    $03ac, $03ad, $03ae, $03af, $03ca, $0390, $03cc, $03cd,
    $03cb, $03b0, $03ce, $0000, $0000, $0000, $0000, $0000,
    $0391, $0392, $0393, $0394, $0395, $0396, $0397, $0398,
    $0399, $039a, $039b, $039c, $039d, $039e, $039f, $03a0,
    $03a1, $03a3, $0000, $03a4, $03a5, $03a6, $03a7, $03a8,
    $03a9, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $03b1, $03b2, $03b3, $03b4, $03b5, $03b6, $03b7, $03b8,
    $03b9, $03ba, $03bb, $03bc, $03bd, $03be, $03bf, $03c0,
    $03c1, $03c3, $03c2, $03c4, $03c5, $03c6, $03c7, $03c8,
    $03c9 );

// Technical	Byte 3 = $08
  keymap08 : array[161..254] of unichar = (
    $23b7, $250c, $2500, $2320, $2321, $2502, $23a1, $23a3,
    $23a4, $23a6, $239b, $239d, $239e, $23a0, $23a8, $23ac,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $2264, $2260, $2265, $222b, $2234,
    $221d, $221e, $0000, $0000, $2207, $0000, $0000, $223c,
    $2243, $0000, $0000, $0000, $21d4, $21d2, $2261, $0000,
    $0000, $0000, $0000, $0000, $0000, $221a, $0000, $0000,
    $0000, $2282, $2283, $2229, $222a, $2227, $2228, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $2202, $0000,
    $0000, $0000, $0000, $0000, $0000, $0192, $0000, $0000,
    $0000, $0000, $2190, $2191, $2192, $2193 );

// Special		Byte 3 = $09
  keymap09 : array[224..248] of unichar = (
    $25c6, $2592, $2409, $240c, $240d, $240a, $0000, $0000,
    $2424, $240b, $2518, $2510, $250c, $2514, $253c, $23ba,
    $23bb, $2500, $23bc, $23bd, $251c, $2524, $2534, $252c,
    $2502 );

// Publishing	Byte 3 = $0a = 10
  keymap10 : array[161..254] of unichar = (
    $2003, $2002, $2004, $2005, $2007, $2008, $2009, $200a,
    $2014, $2013, $0000, $0000, $0000, $2026, $2025, $2153,
    $2154, $2155, $2156, $2157, $2158, $2159, $215a, $2105,
    $0000, $0000, $2012, $2329, $0000, $232a, $0000, $0000,
    $0000, $0000, $215b, $215c, $215d, $215e, $0000, $0000,
    $2122, $2613, $0000, $25c1, $25b7, $25cb, $25af, $2018,
    $2019, $201c, $201d, $211e, $0000, $2032, $2033, $0000,
    $271d, $0000, $25ac, $25c0, $25b6, $25cf, $25ae, $25e6,
    $25ab, $25ad, $25b3, $25bd, $2606, $2022, $25aa, $25b2,
    $25bc, $261c, $261e, $2663, $2666, $2665, $0000, $2720,
    $2020, $2021, $2713, $2717, $266f, $266d, $2642, $2640,
    $260e, $2315, $2117, $2038, $201a, $201e );

// APL		Byte 3 = $0b = 11
  keymap11 : array[163..252] of unichar = (
    $003c, $0000, $0000, $003e, $0000, $2228, $2227, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $00af, $0000, $22a5,
    $2229, $230a, $0000, $005f, $0000, $0000, $0000, $2218,
    $0000, $2395, $0000, $22a4, $25cb, $0000, $0000, $0000,
    $2308, $0000, $0000, $222a, $0000, $2283, $0000, $2282,
    $0000, $22a2, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $22a3 );

// Hebrew	Byte 3 = $0c = 12
  keymap12 : array[223..250] of unichar = (
    $2017, $05d0, $05d1, $05d2, $05d3, $05d4, $05d5, $05d6,
    $05d7, $05d8, $05d9, $05da, $05db, $05dc, $05dd, $05de,
    $05df, $05e0, $05e1, $05e2, $05e3, $05e4, $05e5, $05e6,
    $05e7, $05e8, $05e9, $05ea );

// Thai		Byte 3 = $0d = 13
  keymap13 : array[161..249] of unichar = (
    $0e01, $0e02, $0e03, $0e04, $0e05, $0e06, $0e07, $0e08,
    $0e09, $0e0a, $0e0b, $0e0c, $0e0d, $0e0e, $0e0f, $0e10,
    $0e11, $0e12, $0e13, $0e14, $0e15, $0e16, $0e17, $0e18,
    $0e19, $0e1a, $0e1b, $0e1c, $0e1d, $0e1e, $0e1f, $0e20,
    $0e21, $0e22, $0e23, $0e24, $0e25, $0e26, $0e27, $0e28,
    $0e29, $0e2a, $0e2b, $0e2c, $0e2d, $0e2e, $0e2f, $0e30,
    $0e31, $0e32, $0e33, $0e34, $0e35, $0e36, $0e37, $0e38,
    $0e39, $0e3a, $0000, $0000, $0000, $0000, $0e3f, $0e40,
    $0e41, $0e42, $0e43, $0e44, $0e45, $0e46, $0e47, $0e48,
    $0e49, $0e4a, $0e4b, $0e4c, $0e4d, $0000, $0000, $0e50,
    $0e51, $0e52, $0e53, $0e54, $0e55, $0e56, $0e57, $0e58,
    $0e59 );

// Korean		Byte 3 = $0e = 14
  keymap14 : array[161..255] of unichar = (
    $3131, $3132, $3133, $3134, $3135, $3136, $3137, $3138,
    $3139, $313a, $313b, $313c, $313d, $313e, $313f, $3140,
    $3141, $3142, $3143, $3144, $3145, $3146, $3147, $3148,
    $3149, $314a, $314b, $314c, $314d, $314e, $314f, $3150,
    $3151, $3152, $3153, $3154, $3155, $3156, $3157, $3158,
    $3159, $315a, $315b, $315c, $315d, $315e, $315f, $3160,
    $3161, $3162, $3163, $11a8, $11a9, $11aa, $11ab, $11ac,
    $11ad, $11ae, $11af, $11b0, $11b1, $11b2, $11b3, $11b4,
    $11b5, $11b6, $11b7, $11b8, $11b9, $11ba, $11bb, $11bc,
    $11bd, $11be, $11bf, $11c0, $11c1, $11c2, $316d, $3171,
    $3178, $317f, $3181, $3184, $3186, $318d, $318e, $11eb,
    $11f0, $11f9, $0000, $0000, $0000, $0000, $20a9 );

// missing:
// Latin-8  	Byte 3 = $12 = 18

// Latin-9 		Byte 3 = $13 = 19
  keymap19 : array[188..190] of unichar = (
    $0152, $0153, $0178 );

// missing:
// Armenian 	Byte 3 = $14 = 20
// Georgian 	Byte 3 = $15 = 21
// Azeri 		Byte 3 = $16 = 22
// Vietnamese 	Byte 3 = $1e = 30

// Currency		Byte 3 = $20 = 32
  keymap32 : array[160..172] of unichar = (
    $20a0, $20a1, $20a2, $20a3, $20a4, $20a5, $20a6, $20a7,
    $20a8, $0000, $20aa, $20ab, $20ac );

// Keyboard (Keypad mappings) Byte 3 = $ff = 255
  keymap255 : array[128..189] of unichar = (
    $0020, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $FF0D, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $0000, $0000, $0000, $0000, $0000, $0000,
    $0000, $0000, $002a, $002b, $002c, $002d, $002e, $002f,
    $0030, $0031, $0032, $0033, $0034, $0035, $0036, $0037,
    $0038, $0039, $0000, $0000, $0000, $003d );

type
  keymap = array[0..255] of word;
  mapptr = ^keymap;

procedure TranslateCode(var res : word; ccode : byte; map : mapptr; lowind,highind : byte);
begin
  //writeln('code: ',ccode,' low: ',lowind,' high: ',highind);
  if (ccode >= lowind) and (ccode <= highind) then res := map^[ccode-lowind];
end;

procedure KeySymToUnicode(ks : longword; res : PWord);
var
  table : byte;
  ccode : byte;
begin
  table := ((ks and $0000FF00) shr 8);
  ccode := ks and $ff;
  res^ := ks and $FFFF;
  case table of
    00 : TranslateCode(res^, ccode, @keymap00, low(keymap00), high(keymap00) );
    01 : TranslateCode(res^, ccode, @keymap01, low(keymap01), high(keymap01) );
    02 : TranslateCode(res^, ccode, @keymap02, low(keymap01), high(keymap02) );
    03 : TranslateCode(res^, ccode, @keymap03, low(keymap01), high(keymap03) );
    04 : TranslateCode(res^, ccode, @keymap04, low(keymap01), high(keymap04) );
    05 : TranslateCode(res^, ccode, @keymap05, low(keymap01), high(keymap05) );
    06 : TranslateCode(res^, ccode, @keymap06, low(keymap01), high(keymap06) );
    07 : TranslateCode(res^, ccode, @keymap07, low(keymap01), high(keymap07) );
    08 : TranslateCode(res^, ccode, @keymap08, low(keymap01), high(keymap08) );
    09 : TranslateCode(res^, ccode, @keymap09, low(keymap01), high(keymap09) );
    
    10 : TranslateCode(res^, ccode, @keymap10, low(keymap10), high(keymap10) );
    11 : TranslateCode(res^, ccode, @keymap11, low(keymap11), high(keymap11) );
    12 : TranslateCode(res^, ccode, @keymap12, low(keymap12), high(keymap12) );
    13 : TranslateCode(res^, ccode, @keymap13, low(keymap13), high(keymap13) );
    14 : TranslateCode(res^, ccode, @keymap14, low(keymap14), high(keymap14) );
//    15 : TranslateCode(res^, ccode, @keymap15, low(keymap15), high(keymap15) );
//    16 : TranslateCode(res^, ccode, @keymap16, low(keymap16), high(keymap16) );
//    17 : TranslateCode(res^, ccode, @keymap17, low(keymap17), high(keymap17) );
//    18 : TranslateCode(res^, ccode, @keymap18, low(keymap18), high(keymap18) );
    19 : TranslateCode(res^, ccode, @keymap19, low(keymap19), high(keymap19) );
    
    32 : TranslateCode(res^, ccode, @keymap32, low(keymap32), high(keymap32) );
    
    255 : TranslateCode(res^, ccode, @keymap255, low(keymap255), high(keymap255) );
  end;
end;
                                    
end.