cvs import
[celtk.git] / keysym.lisp
blob3ffdf7fcaeae3efd7fe46b0a8f052406fdefb5d2
1 (in-package :celtk)
4 (defparameter +keysym-code+ "space 32 0x0020
5 exclam 33 0x0021
6 quotedbl 34 0x0022
7 numbersign 35 0x0023
8 dollar 36 0x0024
9 percent 37 0x0025
10 ampersand 38 0x0026
11 quoteright 39 0x0027
12 parenleft 40 0x0028
13 parenright 41 0x0029
14 asterisk 42 0x002a
15 plus 43 0x002b
16 comma 44 0x002c
17 minus 45 0x002d
18 period 46 0x002e
19 slash 47 0x002f
20 0 48 0x0030
21 1 49 0x0031
22 2 50 0x0032
23 3 51 0x0033
24 4 52 0x0034
25 5 53 0x0035
26 6 54 0x0036
27 7 55 0x0037
28 8 56 0x0038
29 9 57 0x0039
30 colon 58 0x003a
31 semicolon 59 0x003b
32 less 60 0x003c
33 equal 61 0x003d
34 greater 62 0x003e
35 question 63 0x003f
36 at 64 0x0040
37 A 65 0x0041
38 B 66 0x0042
39 C 67 0x0043
40 D 68 0x0044
41 E 69 0x0045
42 F 70 0x0046
43 G 71 0x0047
44 H 72 0x0048
45 I 73 0x0049
46 J 74 0x004a
47 K 75 0x004b
48 L 76 0x004c
49 M 77 0x004d
50 N 78 0x004e
51 O 79 0x004f
52 P 80 0x0050
53 Q 81 0x0051
54 R 82 0x0052
55 S 83 0x0053
56 T 84 0x0054
57 U 85 0x0055
58 V 86 0x0056
59 W 87 0x0057
60 X 88 0x0058
61 Y 89 0x0059
62 Z 90 0x005a
63 bracketleft 91 0x005b
64 backslash 92 0x005c
65 bracketright 93 0x005d
66 asciicircum 94 0x005e
67 underscore 95 0x005f
68 quoteleft 96 0x0060
69 a 97 0x0061
70 b 98 0x0062
71 c 99 0x0063
72 d 100 0x0064
73 e 101 0x0065
74 f 102 0x0066
75 g 103 0x0067
76 h 104 0x0068
77 i 105 0x0069
78 j 106 0x006a
79 k 107 0x006b
80 l 108 0x006c
81 m 109 0x006d
82 n 110 0x006e
83 o 111 0x006f
84 p 112 0x0070
85 q 113 0x0071
86 r 114 0x0072
87 s 115 0x0073
88 t 116 0x0074
89 u 117 0x0075
90 v 118 0x0076
91 w 119 0x0077
92 x 120 0x0078
93 y 121 0x0079
94 z 122 0x007a
95 braceleft 123 0x007b
96 bar 124 0x007c
97 braceright 125 0x007d
98 asciitilde 126 0x007e
99 nobreakspace 160 0x00a0
100 exclamdown 161 0x00a1
101 cent 162 0x00a2
102 sterling 163 0x00a3
103 currency 164 0x00a4
104 yen 165 0x00a5
105 brokenbar 166 0x00a6
106 section 167 0x00a7
107 diaeresis 168 0x00a8
108 copyright 169 0x00a9
109 ordfeminine 170 0x00aa
110 guillemotleft 171 0x00ab
111 notsign 172 0x00ac
112 hyphen 173 0x00ad
113 registered 174 0x00ae
114 macron 175 0x00af
115 degree 176 0x00b0
116 plusminus 177 0x00b1
117 twosuperior 178 0x00b2
118 threesuperior 179 0x00b3
119 acute 180 0x00b4
120 mu 181 0x00b5
121 paragraph 182 0x00b6
122 periodcentered 183 0x00b7
123 cedilla 184 0x00b8
124 onesuperior 185 0x00b9
125 masculine 186 0x00ba
126 guillemotright 187 0x00bb
127 onequarter 188 0x00bc
128 onehalf 189 0x00bd
129 threequarters 190 0x00be
130 questiondown 191 0x00bf
131 Agrave 192 0x00c0
132 Aacute 193 0x00c1
133 Acircumflex 194 0x00c2
134 Atilde 195 0x00c3
135 Adiaeresis 196 0x00c4
136 Aring 197 0x00c5
137 AE 198 0x00c6
138 Ccedilla 199 0x00c7
139 Egrave 200 0x00c8
140 Eacute 201 0x00c9
141 Ecircumflex 202 0x00ca
142 Ediaeresis 203 0x00cb
143 Igrave 204 0x00cc
144 Iacute 205 0x00cd
145 Icircumflex 206 0x00ce
146 Idiaeresis 207 0x00cf
147 Eth 208 0x00d0
148 Ntilde 209 0x00d1
149 Ograve 210 0x00d2
150 Oacute 211 0x00d3
151 Ocircumflex 212 0x00d4
152 Otilde 213 0x00d5
153 Odiaeresis 214 0x00d6
154 multiply 215 0x00d7
155 Ooblique 216 0x00d8
156 Ugrave 217 0x00d9
157 Uacute 218 0x00da
158 Ucircumflex 219 0x00db
159 Udiaeresis 220 0x00dc
160 Yacute 221 0x00dd
161 Thorn 222 0x00de
162 ssharp 223 0x00df
163 agrave 224 0x00e0
164 aacute 225 0x00e1
165 acircumflex 226 0x00e2
166 atilde 227 0x00e3
167 adiaeresis 228 0x00e4
168 aring 229 0x00e5
169 ae 230 0x00e6
170 ccedilla 231 0x00e7
171 egrave 232 0x00e8
172 eacute 233 0x00e9
173 ecircumflex 234 0x00ea
174 ediaeresis 235 0x00eb
175 igrave 236 0x00ec
176 iacute 237 0x00ed
177 icircumflex 238 0x00ee
178 idiaeresis 239 0x00ef
179 eth 240 0x00f0
180 ntilde 241 0x00f1
181 ograve 242 0x00f2
182 oacute 243 0x00f3
183 ocircumflex 244 0x00f4
184 otilde 245 0x00f5
185 odiaeresis 246 0x00f6
186 division 247 0x00f7
187 oslash 248 0x00f8
188 ugrave 249 0x00f9
189 uacute 250 0x00fa
190 ucircumflex 251 0x00fb
191 udiaeresis 252 0x00fc
192 yacute 253 0x00fd
193 thorn 254 0x00fe
194 ydiaeresis 255 0x00ff
195 Aogonek 417 0x01a1
196 breve 418 0x01a2
197 Lstroke 419 0x01a3
198 Lcaron 421 0x01a5
199 Sacute 422 0x01a6
200 Scaron 425 0x01a9
201 Scedilla 426 0x01aa
202 Tcaron 427 0x01ab
203 Zacute 428 0x01ac
204 Zcaron 430 0x01ae
205 Zabovedot 431 0x01af
206 aogonek 433 0x01b1
207 ogonek 434 0x01b2
208 lstroke 435 0x01b3
209 lcaron 437 0x01b5
210 sacute 438 0x01b6
211 caron 439 0x01b7
212 scaron 441 0x01b9
213 scedilla 442 0x01ba
214 tcaron 443 0x01bb
215 zacute 444 0x01bc
216 doubleacute 445 0x01bd
217 zcaron 446 0x01be
218 zabovedot 447 0x01bf
219 Racute 448 0x01c0
220 Abreve 451 0x01c3
221 Cacute 454 0x01c6
222 Ccaron 456 0x01c8
223 Eogonek 458 0x01ca
224 Ecaron 460 0x01cc
225 Dcaron 463 0x01cf
226 Nacute 465 0x01d1
227 Ncaron 466 0x01d2
228 Odoubleacute 469 0x01d5
229 Rcaron 472 0x01d8
230 Uring 473 0x01d9
231 Udoubleacute 475 0x01db
232 Tcedilla 478 0x01de
233 racute 480 0x01e0
234 abreve 483 0x01e3
235 cacute 486 0x01e6
236 ccaron 488 0x01e8
237 eogonek 490 0x01ea
238 ecaron 492 0x01ec
239 dcaron 495 0x01ef
240 nacute 497 0x01f1
241 ncaron 498 0x01f2
242 odoubleacute 501 0x01f5
243 rcaron 504 0x01f8
244 uring 505 0x01f9
245 udoubleacute 507 0x01fb
246 tcedilla 510 0x01fe
247 abovedot 511 0x01ff
248 Hstroke 673 0x02a1
249 Hcircumflex 678 0x02a6
250 Iabovedot 681 0x02a9
251 Gbreve 683 0x02ab
252 Jcircumflex 684 0x02ac
253 hstroke 689 0x02b1
254 hcircumflex 694 0x02b6
255 idotless 697 0x02b9
256 gbreve 699 0x02bb
257 jcircumflex 700 0x02bc
258 Cabovedot 709 0x02c5
259 Ccircumflex 710 0x02c6
260 Gabovedot 725 0x02d5
261 Gcircumflex 728 0x02d8
262 Ubreve 733 0x02dd
263 Scircumflex 734 0x02de
264 cabovedot 741 0x02e5
265 ccircumflex 742 0x02e6
266 gabovedot 757 0x02f5
267 gcircumflex 760 0x02f8
268 ubreve 765 0x02fd
269 scircumflex 766 0x02fe
270 kappa 930 0x03a2
271 Rcedilla 931 0x03a3
272 Itilde 933 0x03a5
273 Lcedilla 934 0x03a6
274 Emacron 938 0x03aa
275 Gcedilla 939 0x03ab
276 Tslash 940 0x03ac
277 rcedilla 947 0x03b3
278 itilde 949 0x03b5
279 lcedilla 950 0x03b6
280 emacron 954 0x03ba
281 gacute 955 0x03bb
282 tslash 956 0x03bc
283 ENG 957 0x03bd
284 eng 959 0x03bf
285 Amacron 960 0x03c0
286 Iogonek 967 0x03c7
287 Eabovedot 972 0x03cc
288 Imacron 975 0x03cf
289 Ncedilla 977 0x03d1
290 Omacron 978 0x03d2
291 Kcedilla 979 0x03d3
292 Uogonek 985 0x03d9
293 Utilde 989 0x03dd
294 Umacron 990 0x03de
295 amacron 992 0x03e0
296 iogonek 999 0x03e7
297 eabovedot 1004 0x03ec
298 imacron 1007 0x03ef
299 ncedilla 1009 0x03f1
300 omacron 1010 0x03f2
301 kcedilla 1011 0x03f3
302 uogonek 1017 0x03f9
303 utilde 1021 0x03fd
304 umacron 1022 0x03fe
305 overline 1150 0x047e
306 kana_fullstop 1185 0x04a1
307 kana_openingbracket 1186 0x04a2
308 kana_closingbracket 1187 0x04a3
309 kana_comma 1188 0x04a4
310 kana_middledot 1189 0x04a5
311 kana_WO 1190 0x04a6
312 kana_a 1191 0x04a7
313 kana_i 1192 0x04a8
314 kana_u 1193 0x04a9
315 kana_e 1194 0x04aa
316 kana_o 1195 0x04ab
317 kana_ya 1196 0x04ac
318 kana_yu 1197 0x04ad
319 kana_yo 1198 0x04ae
320 kana_tu 1199 0x04af
321 prolongedsound 1200 0x04b0
322 kana_A 1201 0x04b1
323 kana_I 1202 0x04b2
324 kana_U 1203 0x04b3
325 kana_E 1204 0x04b4
326 kana_O 1205 0x04b5
327 kana_KA 1206 0x04b6
328 kana_KI 1207 0x04b7
329 kana_KU 1208 0x04b8
330 kana_KE 1209 0x04b9
331 kana_KO 1210 0x04ba
332 kana_SA 1211 0x04bb
333 kana_SHI 1212 0x04bc
334 kana_SU 1213 0x04bd
335 kana_SE 1214 0x04be
336 kana_SO 1215 0x04bf
337 kana_TA 1216 0x04c0
338 kana_TI 1217 0x04c1
339 kana_TU 1218 0x04c2
340 kana_TE 1219 0x04c3
341 kana_TO 1220 0x04c4
342 kana_NA 1221 0x04c5
343 kana_NI 1222 0x04c6
344 kana_NU 1223 0x04c7
345 kana_NE 1224 0x04c8
346 kana_NO 1225 0x04c9
347 kana_HA 1226 0x04ca
348 kana_HI 1227 0x04cb
349 kana_HU 1228 0x04cc
350 kana_HE 1229 0x04cd
351 kana_HO 1230 0x04ce
352 kana_MA 1231 0x04cf
353 kana_MI 1232 0x04d0
354 kana_MU 1233 0x04d1
355 kana_ME 1234 0x04d2
356 kana_MO 1235 0x04d3
357 kana_YA 1236 0x04d4
358 kana_YU 1237 0x04d5
359 kana_YO 1238 0x04d6
360 kana_RA 1239 0x04d7
361 kana_RI 1240 0x04d8
362 kana_RU 1241 0x04d9
363 kana_RE 1242 0x04da
364 kana_RO 1243 0x04db
365 kana_WA 1244 0x04dc
366 kana_N 1245 0x04dd
367 voicedsound 1246 0x04de
368 semivoicedsound 1247 0x04df
369 Arabic_comma 1452 0x05ac
370 Arabic_semicolon 1467 0x05bb
371 Arabic_question_mark 1471 0x05bf
372 Arabic_hamza 1473 0x05c1
373 Arabic_maddaonalef 1474 0x05c2
374 Arabic_hamzaonalef 1475 0x05c3
375 Arabic_hamzaonwaw 1476 0x05c4
376 Arabic_hamzaunderalef 1477 0x05c5
377 Arabic_hamzaonyeh 1478 0x05c6
378 Arabic_alef 1479 0x05c7
379 Arabic_beh 1480 0x05c8
380 Arabic_tehmarbuta 1481 0x05c9
381 Arabic_teh 1482 0x05ca
382 Arabic_theh 1483 0x05cb
383 Arabic_jeem 1484 0x05cc
384 Arabic_hah 1485 0x05cd
385 Arabic_khah 1486 0x05ce
386 Arabic_dal 1487 0x05cf
387 Arabic_thal 1488 0x05d0
388 Arabic_ra 1489 0x05d1
389 Arabic_zain 1490 0x05d2
390 Arabic_seen 1491 0x05d3
391 Arabic_sheen 1492 0x05d4
392 Arabic_sad 1493 0x05d5
393 Arabic_dad 1494 0x05d6
394 Arabic_tah 1495 0x05d7
395 Arabic_zah 1496 0x05d8
396 Arabic_ain 1497 0x05d9
397 Arabic_ghain 1498 0x05da
398 Arabic_tatweel 1504 0x05e0
399 Arabic_feh 1505 0x05e1
400 Arabic_qaf 1506 0x05e2
401 Arabic_kaf 1507 0x05e3
402 Arabic_lam 1508 0x05e4
403 Arabic_meem 1509 0x05e5
404 Arabic_noon 1510 0x05e6
405 Arabic_heh 1511 0x05e7
406 Arabic_waw 1512 0x05e8
407 Arabic_alefmaksura 1513 0x05e9
408 Arabic_yeh 1514 0x05ea
409 Arabic_fathatan 1515 0x05eb
410 Arabic_dammatan 1516 0x05ec
411 Arabic_kasratan 1517 0x05ed
412 Arabic_fatha 1518 0x05ee
413 Arabic_damma 1519 0x05ef
414 Arabic_kasra 1520 0x05f0
415 Arabic_shadda 1521 0x05f1
416 Arabic_sukun 1522 0x05f2
417 Serbian_dje 1697 0x06a1
418 Macedonia_gje 1698 0x06a2
419 Cyrillic_io 1699 0x06a3
420 Ukranian_je 1700 0x06a4
421 Macedonia_dse 1701 0x06a5
422 Ukranian_i 1702 0x06a6
423 Ukranian_yi 1703 0x06a7
424 Serbian_je 1704 0x06a8
425 Serbian_lje 1705 0x06a9
426 Serbian_nje 1706 0x06aa
427 Serbian_tshe 1707 0x06ab
428 Macedonia_kje 1708 0x06ac
429 Byelorussian_shortu 1710 0x06ae
430 Serbian_dze 1711 0x06af
431 numerosign 1712 0x06b0
432 Serbian_DJE 1713 0x06b1
433 Macedonia_GJE 1714 0x06b2
434 Cyrillic_IO 1715 0x06b3
435 Ukranian_JE 1716 0x06b4
436 Macedonia_DSE 1717 0x06b5
437 Ukranian_I 1718 0x06b6
438 Ukranian_YI 1719 0x06b7
439 Serbian_JE 1720 0x06b8
440 Serbian_LJE 1721 0x06b9
441 Serbian_NJE 1722 0x06ba
442 Serbian_TSHE 1723 0x06bb
443 Macedonia_KJE 1724 0x06bc
444 Byelorussian_SHORTU 1726 0x06be
445 Serbian_DZE 1727 0x06bf
446 Cyrillic_yu 1728 0x06c0
447 Cyrillic_a 1729 0x06c1
448 Cyrillic_be 1730 0x06c2
449 Cyrillic_tse 1731 0x06c3
450 Cyrillic_de 1732 0x06c4
451 Cyrillic_ie 1733 0x06c5
452 Cyrillic_ef 1734 0x06c6
453 Cyrillic_ghe 1735 0x06c7
454 Cyrillic_ha 1736 0x06c8
455 Cyrillic_i 1737 0x06c9
456 Cyrillic_shorti 1738 0x06ca
457 Cyrillic_ka 1739 0x06cb
458 Cyrillic_el 1740 0x06cc
459 Cyrillic_em 1741 0x06cd
460 Cyrillic_en 1742 0x06ce
461 Cyrillic_o 1743 0x06cf
462 Cyrillic_pe 1744 0x06d0
463 Cyrillic_ya 1745 0x06d1
464 Cyrillic_er 1746 0x06d2
465 Cyrillic_es 1747 0x06d3
466 Cyrillic_te 1748 0x06d4
467 Cyrillic_u 1749 0x06d5
468 Cyrillic_zhe 1750 0x06d6
469 Cyrillic_ve 1751 0x06d7
470 Cyrillic_softsign 1752 0x06d8
471 Cyrillic_yeru 1753 0x06d9
472 Cyrillic_ze 1754 0x06da
473 Cyrillic_sha 1755 0x06db
474 Cyrillic_e 1756 0x06dc
475 Cyrillic_shcha 1757 0x06dd
476 Cyrillic_che 1758 0x06de
477 Cyrillic_hardsign 1759 0x06df
478 Cyrillic_YU 1760 0x06e0
479 Cyrillic_A 1761 0x06e1
480 Cyrillic_BE 1762 0x06e2
481 Cyrillic_TSE 1763 0x06e3
482 Cyrillic_DE 1764 0x06e4
483 Cyrillic_IE 1765 0x06e5
484 Cyrillic_EF 1766 0x06e6
485 Cyrillic_GHE 1767 0x06e7
486 Cyrillic_HA 1768 0x06e8
487 Cyrillic_I 1769 0x06e9
488 Cyrillic_SHORTI 1770 0x06ea
489 Cyrillic_KA 1771 0x06eb
490 Cyrillic_EL 1772 0x06ec
491 Cyrillic_EM 1773 0x06ed
492 Cyrillic_EN 1774 0x06ee
493 Cyrillic_O 1775 0x06ef
494 Cyrillic_PE 1776 0x06f0
495 Cyrillic_YA 1777 0x06f1
496 Cyrillic_ER 1778 0x06f2
497 Cyrillic_ES 1779 0x06f3
498 Cyrillic_TE 1780 0x06f4
499 Cyrillic_U 1781 0x06f5
500 Cyrillic_ZHE 1782 0x06f6
501 Cyrillic_VE 1783 0x06f7
502 Cyrillic_SOFTSIGN 1784 0x06f8
503 Cyrillic_YERU 1785 0x06f9
504 Cyrillic_ZE 1786 0x06fa
505 Cyrillic_SHA 1787 0x06fb
506 Cyrillic_E 1788 0x06fc
507 Cyrillic_SHCHA 1789 0x06fd
508 Cyrillic_CHE 1790 0x06fe
509 Cyrillic_HARDSIGN 1791 0x06ff
510 Greek_ALPHAaccent 1953 0x07a1
511 Greek_EPSILONaccent 1954 0x07a2
512 Greek_ETAaccent 1955 0x07a3
513 Greek_IOTAaccent 1956 0x07a4
514 Greek_IOTAdiaeresis 1957 0x07a5
515 Greek_IOTAaccentdiaeresis 1958 0x07a6
516 Greek_OMICRONaccent 1959 0x07a7
517 Greek_UPSILONaccent 1960 0x07a8
518 Greek_UPSILONdieresis 1961 0x07a9
519 Greek_UPSILONaccentdieresis 1962 0x07aa
520 Greek_OMEGAaccent 1963 0x07ab
521 Greek_alphaaccent 1969 0x07b1
522 Greek_epsilonaccent 1970 0x07b2
523 Greek_etaaccent 1971 0x07b3
524 Greek_iotaaccent 1972 0x07b4
525 Greek_iotadieresis 1973 0x07b5
526 Greek_iotaaccentdieresis 1974 0x07b6
527 Greek_omicronaccent 1975 0x07b7
528 Greek_upsilonaccent 1976 0x07b8
529 Greek_upsilondieresis 1977 0x07b9
530 Greek_upsilonaccentdieresis 1978 0x07ba
531 Greek_omegaaccent 1979 0x07bb
532 Greek_ALPHA 1985 0x07c1
533 Greek_BETA 1986 0x07c2
534 Greek_GAMMA 1987 0x07c3
535 Greek_DELTA 1988 0x07c4
536 Greek_EPSILON 1989 0x07c5
537 Greek_ZETA 1990 0x07c6
538 Greek_ETA 1991 0x07c7
539 Greek_THETA 1992 0x07c8
540 Greek_IOTA 1993 0x07c9
541 Greek_KAPPA 1994 0x07ca
542 Greek_LAMBDA 1995 0x07cb
543 Greek_MU 1996 0x07cc
544 Greek_NU 1997 0x07cd
545 Greek_XI 1998 0x07ce
546 Greek_OMICRON 1999 0x07cf
547 Greek_PI 2000 0x07d0
548 Greek_RHO 2001 0x07d1
549 Greek_SIGMA 2002 0x07d2
550 Greek_TAU 2004 0x07d4
551 Greek_UPSILON 2005 0x07d5
552 Greek_PHI 2006 0x07d6
553 Greek_CHI 2007 0x07d7
554 Greek_PSI 2008 0x07d8
555 Greek_OMEGA 2009 0x07d9
556 Greek_alpha 2017 0x07e1
557 Greek_beta 2018 0x07e2
558 Greek_gamma 2019 0x07e3
559 Greek_delta 2020 0x07e4
560 Greek_epsilon 2021 0x07e5
561 Greek_zeta 2022 0x07e6
562 Greek_eta 2023 0x07e7
563 Greek_theta 2024 0x07e8
564 Greek_iota 2025 0x07e9
565 Greek_kappa 2026 0x07ea
566 Greek_lambda 2027 0x07eb
567 Greek_mu 2028 0x07ec
568 Greek_nu 2029 0x07ed
569 Greek_xi 2030 0x07ee
570 Greek_omicron 2031 0x07ef
571 Greek_pi 2032 0x07f0
572 Greek_rho 2033 0x07f1
573 Greek_sigma 2034 0x07f2
574 Greek_finalsmallsigma 2035 0x07f3
575 Greek_tau 2036 0x07f4
576 Greek_upsilon 2037 0x07f5
577 Greek_phi 2038 0x07f6
578 Greek_chi 2039 0x07f7
579 Greek_psi 2040 0x07f8
580 Greek_omega 2041 0x07f9
581 leftradical 2209 0x08a1
582 topleftradical 2210 0x08a2
583 horizconnector 2211 0x08a3
584 topintegral 2212 0x08a4
585 botintegral 2213 0x08a5
586 vertconnector 2214 0x08a6
587 topleftsqbracket 2215 0x08a7
588 botleftsqbracket 2216 0x08a8
589 toprightsqbracket 2217 0x08a9
590 botrightsqbracket 2218 0x08aa
591 topleftparens 2219 0x08ab
592 botleftparens 2220 0x08ac
593 toprightparens 2221 0x08ad
594 botrightparens 2222 0x08ae
595 leftmiddlecurlybrace 2223 0x08af
596 rightmiddlecurlybrace 2224 0x08b0
597 topleftsummation 2225 0x08b1
598 botleftsummation 2226 0x08b2
599 topvertsummationconnector 2227 0x08b3
600 botvertsummationconnector 2228 0x08b4
601 toprightsummation 2229 0x08b5
602 botrightsummation 2230 0x08b6
603 rightmiddlesummation 2231 0x08b7
604 lessthanequal 2236 0x08bc
605 notequal 2237 0x08bd
606 greaterthanequal 2238 0x08be
607 integral 2239 0x08bf
608 therefore 2240 0x08c0
609 variation 2241 0x08c1
610 infinity 2242 0x08c2
611 nabla 2245 0x08c5
612 approximate 2248 0x08c8
613 similarequal 2249 0x08c9
614 ifonlyif 2253 0x08cd
615 implies 2254 0x08ce
616 identical 2255 0x08cf
617 radical 2262 0x08d6
618 includedin 2266 0x08da
619 includes 2267 0x08db
620 intersection 2268 0x08dc
621 union 2269 0x08dd
622 logicaland 2270 0x08de
623 logicalor 2271 0x08df
624 partialderivative 2287 0x08ef
625 function 2294 0x08f6
626 leftarrow 2299 0x08fb
627 uparrow 2300 0x08fc
628 rightarrow 2301 0x08fd
629 downarrow 2302 0x08fe
630 blank 2527 0x09df
631 soliddiamond 2528 0x09e0
632 checkerboard 2529 0x09e1
633 ht 2530 0x09e2
634 ff 2531 0x09e3
635 cr 2532 0x09e4
636 lf 2533 0x09e5
637 nl 2536 0x09e8
638 vt 2537 0x09e9
639 lowrightcorner 2538 0x09ea
640 uprightcorner 2539 0x09eb
641 upleftcorner 2540 0x09ec
642 lowleftcorner 2541 0x09ed
643 crossinglines 2542 0x09ee
644 horizlinescan1 2543 0x09ef
645 horizlinescan3 2544 0x09f0
646 horizlinescan5 2545 0x09f1
647 horizlinescan7 2546 0x09f2
648 horizlinescan9 2547 0x09f3
649 leftt 2548 0x09f4
650 rightt 2549 0x09f5
651 bott 2550 0x09f6
652 topt 2551 0x09f7
653 vertbar 2552 0x09f8
654 emspace 2721 0x0aa1
655 enspace 2722 0x0aa2
656 em3space 2723 0x0aa3
657 em4space 2724 0x0aa4
658 digitspace 2725 0x0aa5
659 punctspace 2726 0x0aa6
660 thinspace 2727 0x0aa7
661 hairspace 2728 0x0aa8
662 emdash 2729 0x0aa9
663 endash 2730 0x0aaa
664 signifblank 2732 0x0aac
665 ellipsis 2734 0x0aae
666 doubbaselinedot 2735 0x0aaf
667 onethird 2736 0x0ab0
668 twothirds 2737 0x0ab1
669 onefifth 2738 0x0ab2
670 twofifths 2739 0x0ab3
671 threefifths 2740 0x0ab4
672 fourfifths 2741 0x0ab5
673 onesixth 2742 0x0ab6
674 fivesixths 2743 0x0ab7
675 careof 2744 0x0ab8
676 figdash 2747 0x0abb
677 leftanglebracket 2748 0x0abc
678 decimalpoint 2749 0x0abd
679 rightanglebracket 2750 0x0abe
680 marker 2751 0x0abf
681 oneeighth 2755 0x0ac3
682 threeeighths 2756 0x0ac4
683 fiveeighths 2757 0x0ac5
684 seveneighths 2758 0x0ac6
685 trademark 2761 0x0ac9
686 signaturemark 2762 0x0aca
687 trademarkincircle 2763 0x0acb
688 leftopentriangle 2764 0x0acc
689 rightopentriangle 2765 0x0acd
690 emopencircle 2766 0x0ace
691 emopenrectangle 2767 0x0acf
692 leftsinglequotemark 2768 0x0ad0
693 rightsinglequotemark 2769 0x0ad1
694 leftdoublequotemark 2770 0x0ad2
695 rightdoublequotemark 2771 0x0ad3
696 prescription 2772 0x0ad4
697 minutes 2774 0x0ad6
698 seconds 2775 0x0ad7
699 latincross 2777 0x0ad9
700 hexagram 2778 0x0ada
701 filledrectbullet 2779 0x0adb
702 filledlefttribullet 2780 0x0adc
703 filledrighttribullet 2781 0x0add
704 emfilledcircle 2782 0x0ade
705 emfilledrect 2783 0x0adf
706 enopencircbullet 2784 0x0ae0
707 enopensquarebullet 2785 0x0ae1
708 openrectbullet 2786 0x0ae2
709 opentribulletup 2787 0x0ae3
710 opentribulletdown 2788 0x0ae4
711 openstar 2789 0x0ae5
712 enfilledcircbullet 2790 0x0ae6
713 enfilledsqbullet 2791 0x0ae7
714 filledtribulletup 2792 0x0ae8
715 filledtribulletdown 2793 0x0ae9
716 leftpointer 2794 0x0aea
717 rightpointer 2795 0x0aeb
718 club 2796 0x0aec
719 diamond 2797 0x0aed
720 heart 2798 0x0aee
721 maltesecross 2800 0x0af0
722 dagger 2801 0x0af1
723 doubledagger 2802 0x0af2
724 checkmark 2803 0x0af3
725 ballotcross 2804 0x0af4
726 musicalsharp 2805 0x0af5
727 musicalflat 2806 0x0af6
728 malesymbol 2807 0x0af7
729 femalesymbol 2808 0x0af8
730 telephone 2809 0x0af9
731 telephonerecorder 2810 0x0afa
732 phonographcopyright 2811 0x0afb
733 caret 2812 0x0afc
734 singlelowquotemark 2813 0x0afd
735 doublelowquotemark 2814 0x0afe
736 cursor 2815 0x0aff
737 leftcaret 2979 0x0ba3
738 rightcaret 2982 0x0ba6
739 downcaret 2984 0x0ba8
740 upcaret 2985 0x0ba9
741 overbar 3008 0x0bc0
742 downtack 3010 0x0bc2
743 upshoe 3011 0x0bc3
744 downstile 3012 0x0bc4
745 underbar 3014 0x0bc6
746 jot 3018 0x0bca
747 quad 3020 0x0bcc
748 uptack 3022 0x0bce
749 circle 3023 0x0bcf
750 upstile 3027 0x0bd3
751 downshoe 3030 0x0bd6
752 rightshoe 3032 0x0bd8
753 leftshoe 3034 0x0bda
754 lefttack 3036 0x0bdc
755 righttack 3068 0x0bfc
756 hebrew_aleph 3296 0x0ce0
757 hebrew_beth 3297 0x0ce1
758 hebrew_gimmel 3298 0x0ce2
759 hebrew_daleth 3299 0x0ce3
760 hebrew_he 3300 0x0ce4
761 hebrew_waw 3301 0x0ce5
762 hebrew_zayin 3302 0x0ce6
763 hebrew_het 3303 0x0ce7
764 hebrew_teth 3304 0x0ce8
765 hebrew_yod 3305 0x0ce9
766 hebrew_finalkaph 3306 0x0cea
767 hebrew_kaph 3307 0x0ceb
768 hebrew_lamed 3308 0x0cec
769 hebrew_finalmem 3309 0x0ced
770 hebrew_mem 3310 0x0cee
771 hebrew_finalnun 3311 0x0cef
772 hebrew_nun 3312 0x0cf0
773 hebrew_samekh 3313 0x0cf1
774 hebrew_ayin 3314 0x0cf2
775 hebrew_finalpe 3315 0x0cf3
776 hebrew_pe 3316 0x0cf4
777 hebrew_finalzadi 3317 0x0cf5
778 hebrew_zadi 3318 0x0cf6
779 hebrew_kuf 3319 0x0cf7
780 hebrew_resh 3320 0x0cf8
781 hebrew_shin 3321 0x0cf9
782 hebrew_taf 3322 0x0cfa
783 BackSpace 0008 0x0008
784 Tab 0009 0x0009
785 Delete 0127 0x007f")
787 (defparameter *keysym-char*
788 (loop with ht = (make-hash-table :test 'eq)
789 for line in (ukt:split-sequence #\Newline +keysym-code+)
790 for (ksym dec nil) = (ukt:split-sequence #\space line :remove-empty-subseqs t)
791 do ;;(print (list (intern ksym :celtk) (code-char (parse-integer dec))))
792 (setf (gethash (intern ksym :celtk) ht) (code-char (parse-integer dec)))
793 finally (return ht)))
795 (defparameter *char-keysym*
796 (loop with v = (make-array 4000 :element-type 'fixnum)
797 for line in (ukt:split-sequence #\Newline +keysym-code+)
798 for (ksym dec nil) = (ukt:split-sequence #\space line :remove-empty-subseqs t)
799 do (setf (aref v (parse-integer dec)) ksym)
800 finally (return v)))
802 (ukt:export! keysym-char)
804 (defun keysym-char (keysym$)
805 (gethash (intern keysym$ :celtk) *keysym-char*))
807 #+test
808 (gethash '|radical| *keysym-char*)
810 (defun char-keysym (char)
811 (aref *char-keysym* (char-code char)))
813 (defun char-code-keysym (char-code)
814 (aref *char-keysym* char-code))
816 #+not
818 Linefeed 65290 0xff0a
819 Clear 65291 0xff0b
820 Return 65293 0xff0d
821 Pause 65299 0xff13
822 Scroll_Lock 65300 0xff14
823 Sys_Req 65301 0xff15
824 Escape 65307 0xff1b
825 Multi_key 65312 0xff20
826 Kanji 65313 0xff21
827 Home 65360 0xff50
828 Left 65361 0xff51
829 Up 65362 0xff52
830 Right 65363 0xff53
831 Down 65364 0xff54
832 Prior 65365 0xff55
833 Next 65366 0xff56
834 End 65367 0xff57
835 Begin 65368 0xff58
836 Win_L 65371 0xff5b
837 Win_R 65372 0xff5c
838 App 65373 0xff5d
839 Select 65376 0xff60
840 Print 65377 0xff61
841 Execute 65378 0xff62
842 Insert 65379 0xff63
843 Undo 65381 0xff65
844 Redo 65382 0xff66
845 Menu 65383 0xff67
846 Find 65384 0xff68
847 Cancel 65385 0xff69
848 Help 65386 0xff6a
849 Break 65387 0xff6b
850 Hebrew_switch 65406 0xff7e
851 Num_Lock 65407 0xff7f
852 KP_Space 65408 0xff80
853 KP_Tab 65417 0xff89
854 KP_Enter 65421 0xff8d
855 KP_F1 65425 0xff91
856 KP_F2 65426 0xff92
857 KP_F3 65427 0xff93
858 KP_F4 65428 0xff94
859 KP_Multiply 65450 0xffaa
860 KP_Add 65451 0xffab
861 KP_Separator 65452 0xffac
862 KP_Subtract 65453 0xffad
863 KP_Decimal 65454 0xffae
864 KP_Divide 65455 0xffaf
865 KP_0 65456 0xffb0
866 KP_1 65457 0xffb1
867 KP_2 65458 0xffb2
868 KP_3 65459 0xffb3
869 KP_4 65460 0xffb4
870 KP_5 65461 0xffb5
871 KP_6 65462 0xffb6
872 KP_7 65463 0xffb7
873 KP_8 65464 0xffb8
874 KP_9 65465 0xffb9
875 KP_Equal 65469 0xffbd
876 F1 65470 0xffbe
877 F2 65471 0xffbf
878 F3 65472 0xffc0
879 F4 65473 0xffc1
880 F5 65474 0xffc2
881 F6 65475 0xffc3
882 F7 65476 0xffc4
883 F8 65477 0xffc5
884 F9 65478 0xffc6
885 F10 65479 0xffc7
886 L1 65480 0xffc8
887 L2 65481 0xffc9
888 L3 65482 0xffca
889 L4 65483 0xffcb
890 L5 65484 0xffcc
891 L6 65485 0xffcd
892 L7 65486 0xffce
893 L8 65487 0xffcf
894 L9 65488 0xffd0
895 L10 65489 0xffd1
896 R1 65490 0xffd2
897 R2 65491 0xffd3
898 R3 65492 0xffd4
899 R4 65493 0xffd5
900 R5 65494 0xffd6
901 R6 65495 0xffd7
902 R7 65496 0xffd8
903 R8 65497 0xffd9
904 R9 65498 0xffda
905 R10 65499 0xffdb
906 R11 65500 0xffdc
907 R12 65501 0xffdd
908 F33 65502 0xffde
909 R14 65503 0xffdf
910 R15 65504 0xffe0
911 Shift_L 65505 0xffe1
912 Shift_R 65506 0xffe2
913 Control_L 65507 0xffe3
914 Control_R 65508 0xffe4
915 Caps_Lock 65509 0xffe5
916 Shift_Lock 65510 0xffe6
917 Meta_L 65511 0xffe7
918 Meta_R 65512 0xffe8
919 Alt_L 65513 0xffe9
920 Alt_R 65514 0xffea
921 Super_L 65515 0xffeb
922 Super_R 65516 0xffec
923 Hyper_L 65517 0xffed
924 Hyper_R 65518 0xffee"
929 ;;; ---- key symbols -------------------------------------------------------
931 ;;;(defparameter +keysym-chars+ '((minus . #\-)
932 ;;; (period . #\.)
933 ;;; (asciicircum . #\^)
934 ;;; (plus . #\+)
935 ;;; (space . #\space)
936 ;;; (backspace . #\Backspace)
937 ;;; (delete . #\Delete)
938 ;;; (bar . #\|)
939 ;;; (parenleft . #\()
940 ;;; (parenright . #\))
941 ;;; (bracketleft . #\[)
942 ;;; (bracketright . #\])
943 ;;; (braceleft . #\{)
944 ;;; (braceright . #\})
945 ;;; (equal . #\=)
946 ;;; (less . #\<)
947 ;;; (greater . #\>)
948 ;;; (slash . #\/)
949 ;;; (backslash . #\\)
950 ;;; (asterisk . #\ยท)
951 ;;; (at . #\@)
952 ;;; (tab . #\tab)))
954 (export! keysym-char keysym-sym minus period asciicircum plus backspace
955 delete bar parenleft parenright bracketleft
956 bracketright braceleft braceright less greater
957 slash backslash asterisk at tab)
959 ;;;(defun tk-keysym-to-char (keysym)
960 ;;; (cdr (assoc keysym +keysym-chars+)))
962 ;;;(defun keysym-char (keysym$)
963 ;;; (or (tk-keysym-to-char (keysym-sym keysym$))
964 ;;; (when (= 1 (length keysym$))
965 ;;; (schar keysym$ 0))))
967 (defun keysym-sym (keysym$)
968 (read-from-string (string-upcase keysym$)))