kbdmap.c revision 1.3 
1/*	$Id: kbdmap.c,v 1.3 1993/09/02 18:08:07 mw Exp $ */
2
3#include "kbdmap.h"
4
5/* define a default keymap. This can be changed by keyboard ioctl's
6   (later at least..) */
7
8/* mode shortcuts: */
9#define	S KBD_MODE_STRING
10#define DG (KBD_MODE_DEAD | KBD_MODE_GRAVE)
11#define DA (KBD_MODE_DEAD | KBD_MODE_ACUTE)
12#define DC (KBD_MODE_DEAD | KBD_MODE_CIRC)
13#define DT (KBD_MODE_DEAD | KBD_MODE_TILDE)
14#define DD (KBD_MODE_DEAD | KBD_MODE_DIER)
15#define C KBD_MODE_CAPS
16#define K KBD_MODE_KPAD
17
18struct kbdmap kbdmap;
19struct kbdmap ascii_kbdmap = {
20	/* normal map */
21	{
22	   0, '`',	/* 0x00 */
23	   0, '1',
24	   0, '2',
25	   0, '3',
26	   0, '4',
27	   0, '5',
28	   0, '6',
29	   0, '7',
30	   0, '8',	/* 0x08 */
31	   0, '9',
32	   0, '0',
33	   0, '-',
34	   0, '=',
35	   0, '\\',
36	   0, 0,
37	   K, '0',
38	   C, 'q',	/* 0x10 */
39	   C, 'w',
40	   C, 'e',
41	   C, 'r',
42	   C, 't',
43	   C, 'y',
44	   C, 'u',
45	   C, 'i',
46	   C, 'o',	/* 0x18 */
47	   C, 'p',
48	   0, '[',
49	   0, ']',
50	   0, 0,
51	   K, '1',
52	   K, '2',
53	   K, '3',
54	   C, 'a',	/* 0x20 */
55	   C, 's',
56	   C, 'd',
57	   C, 'f',
58	   C, 'g',
59	   C, 'h',
60	   C, 'j',
61	   C, 'k',
62	   C, 'l',	/* 0x28 */
63	   0, ';',
64	   0, '\'',
65	   0, 0,
66	   0, 0,
67	   K, '4',
68	   K, '5',
69	   K, '6',
70	   0, 0,	/* 0x30 */
71	   C, 'z',
72	   C, 'x',
73	   C, 'c',
74	   C, 'v',
75	   C, 'b',
76	   C, 'n',
77	   C, 'm',
78	   0, ',',	/* 0x38 */
79	   0, '.',
80	   0, '/',
81	   0, 0,
82	   K, '.',
83	   K, '7',
84	   K, '8',
85	   K, '9',
86	   0, ' ',	/* 0x40 */
87	   0, DEL,	/* really BS, DEL & BS swapped */
88	   0, '\t',
89	   K, '\r',	/* enter */
90	   0, '\r',	/* return */
91	   0, ESC,
92	   0, '\b',	/* really DEL, BS & DEL swapped */
93	   0, 0,
94	   0, 0,	/* 0x48 */
95	   0, 0,
96	   K, '-',
97	   0, 0,
98	   S, 0x00,	/* now it gets hairy.. CRSR UP */
99	   S, 0x04,	/* CRSR DOWN */
100	   S, 0x08,	/* CRSR RIGHT */
101	   S, 0x0C,	/* CRSR LEFT */
102	   S, 0x10,	/* 0x50 F1 */
103	   S, 0x15,	/* F2 */
104	   S, 0x1A,	/* F3 */
105	   S, 0x1F,	/* F4 */
106	   S, 0x24,	/* F5 */
107	   S, 0x29,	/* F6 */
108	   S, 0x2E,	/* F7 */
109	   S, 0x33,	/* 0x58 F8 */
110	   S, 0x38,	/* F9 */
111	   S, 0x3D,	/* F10 */
112	   K, '(',
113	   K, ')',
114	   K, '/',
115	   K, '*',
116	   S, 0x42,	/* HELP */
117	},
118
119	/* shifted map */
120	{
121	   0, '~',	/* 0x00 */
122	   0, '!',
123	   0, '@',
124	   0, '#',
125	   0, '$',
126	   0, '%',
127	   0, '^',
128	   0, '&',
129	   0, '*',	/* 0x08 */
130	   0, '(',
131	   0, ')',
132	   0, '_',
133	   0, '+',
134	   0, '|',
135	   0, 0,
136	   K, '0',
137	   C, 'Q',	/* 0x10 */
138	   C, 'W',
139	   C, 'E',
140	   C, 'R',
141	   C, 'T',
142	   C, 'Y',
143	   C, 'U',
144	   C, 'I',
145	   C, 'O',	/* 0x18 */
146	   C, 'P',
147	   0, '{',
148	   0, '}',
149	   0, 0,
150	   K, '1',
151	   K, '2',
152	   K, '3',
153	   C, 'A',	/* 0x20 */
154	   C, 'S',
155	   C, 'D',
156	   C, 'F',
157	   C, 'G',
158	   C, 'H',
159	   C, 'J',
160	   C, 'K',
161	   C, 'L',	/* 0x28 */
162	   0, ':',
163	   0, '\"',
164	   0, 0,
165	   0, 0,
166	   K, '4',
167	   K, '5',
168	   K, '6',
169	   0, 0,	/* 0x30 */
170	   C, 'Z',
171	   C, 'X',
172	   C, 'C',
173	   C, 'V',
174	   C, 'B',
175	   C, 'N',
176	   C, 'M',
177	   0, '<',	/* 0x38 */
178	   0, '>',
179	   0, '?',
180	   0, 0,
181	   K, '.',
182	   K, '7',
183	   K, '8',
184	   K, '9',
185	   0, ' ',	/* 0x40 */
186	   0, DEL,	/* really BS, DEL & BS swapped */
187	   S, 0x99,	/* shift TAB */
188	   K, '\r',	/* enter */
189	   0, '\r',	/* return */
190	   0, ESC,
191	   0, '\b',	/* really DEL, BS & DEL swapped */
192	   0, 0,
193	   0, 0,	/* 0x48 */
194	   0, 0,
195	   K, '-',
196	   0, 0,
197	   S, 0x47,	/* shift CRSR UP */
198	   S, 0x4C,	/* shift CRSR DOWN */
199	   S, 0x51,	/* shift CRSR RIGHT */
200	   S, 0x57,	/* shift CRSR LEFT */
201	   S, 0x5D,	/* 0x50 shift F1 */
202	   S, 0x63,	/* shift F2 */
203	   S, 0x69,	/* shift F3 */
204	   S, 0x6F,	/* shift F4 */
205	   S, 0x75,	/* shift F5 */
206	   S, 0x7B,	/* shift F6 */
207	   S, 0x81,	/* shift F7 */
208	   S, 0x87,	/* 0x58 shift F8 */
209	   S, 0x8D,	/* shift F9 */
210	   S, 0x93,	/* shift F10 */
211	   K, '(',
212	   K, ')',
213	   K, '/',
214	   K, '*',
215	   S, 0x42,	/* HELP (no special shift code) */
216	},
217
218
219	/* alt map */
220	{
221	   0, '`',	/* 0x00 */
222	   0, '�',
223	   0, '�',
224	   0, '�',
225	   0, '�',
226	   0, '�',
227	   0, '�',
228	   0, '�',
229	   0, '�',	/* 0x08 */
230	   0, '�',
231	   0, '�',
232	   0, '-',
233	   0, '=',
234	   0, '\\',
235	   0, 0,
236	   K, '0',
237	   C, '�',	/* 0x10 */
238	   0, '�',
239	   0, '�',
240	   0, '�',
241	   C, '�',
242	   0, '�',
243	   0, '�',
244	   0, '�',
245	   C, '�',	/* 0x18 */
246	   0, '�',
247	   0, '[',
248	   0, ']',
249	   0, 0,
250	   K, '1',
251	   K, '2',
252	   K, '3',
253	   C, '�',	/* 0x20 */
254	   0, '�',
255	   C, '�',
256	   DA, '�',
257	   DG, '`',
258	   DC, '^',
259	   DT, '~',
260	   DD, '�',
261	   0, '�',	/* 0x28 */
262	   0, ';',
263	   0, '\'',
264	   0, 0,
265	   0, 0,
266	   K, '4',
267	   K, '5',
268	   K, '6',
269	   0, 0,	/* 0x30 */
270	   0, '�',
271	   0, '�',
272	   C, '�',
273	   0, '�',
274	   0, '�',
275	   0, '�',
276	   0, '�',
277	   0, ',',	/* 0x38 */
278	   0, '.',
279	   0, '/',
280	   0, 0,
281	   K, '.',
282	   K, '7',
283	   K, '8',
284	   K, '9',
285	   0, ' ',	/* 0x40 */
286	   0, DEL,	/* really BS, DEL & BS swapped */
287	   0, '\t',
288	   K, '\r',	/* enter */
289	   0, '\r',	/* return */
290	   S, 0x9d,	/* CSI */
291	   0, '\b',	/* really DEL, BS & DEL swapped */
292	   0, 0,
293	   0, 0,	/* 0x48 */
294	   0, 0,
295	   K, '-',
296	   0, 0,
297	   S, 0x00,	/* now it gets hairy.. CRSR UP */
298	   S, 0x04,	/* CRSR DOWN */
299	   S, 0x08,	/* CRSR RIGHT */
300	   S, 0x0C,	/* CRSR LEFT */
301	   S, 0x10,	/* 0x50 F1 */
302	   S, 0x15,	/* F2 */
303	   S, 0x1A,	/* F3 */
304	   S, 0x1F,	/* F4 */
305	   S, 0x24,	/* F5 */
306	   S, 0x29,	/* F6 */
307	   S, 0x2E,	/* F7 */
308	   S, 0x33,	/* 0x58 F8 */
309	   S, 0x38,	/* F9 */
310	   S, 0x3D,	/* F10 */
311	   K, '(',
312	   K, ')',
313	   K, '/',
314	   K, '*',
315	   S, 0x42,	/* HELP */
316	},
317
318	/* shift alt map */
319	{
320	   0, '~',	/* 0x00 */
321	   0, '!',
322	   0, '@',
323	   0, '#',
324	   0, '$',
325	   0, '%',
326	   0, '^',
327	   0, '&',
328	   0, '*',	/* 0x08 */
329	   0, '(',
330	   0, ')',
331	   0, '_',
332	   0, '+',
333	   0, '|',
334	   0, 0,
335	   K, '0',
336	   C, '�',	/* 0x10 */
337	   0, '�',
338	   0, '�',
339	   0, '�',
340	   C, '�',
341	   0, '�',
342	   0, '�',
343	   0, '�',
344	   C, '�',	/* 0x18 */
345	   0, '�',
346	   0, '[',
347	   0, ']',
348	   0, 0,
349	   K, '1',
350	   K, '2',
351	   K, '3',
352	   C, '�',	/* 0x20 */
353	   0, '�',
354	   C, '�',
355	   DA, '�',
356	   DG, '`',
357	   DC, '^',
358	   DT, '~',
359	   DD, '�',
360	   0, '�',	/* 0x28 */
361	   0, ';',
362	   0, '\'',
363	   0, 0,
364	   0, 0,
365	   K, '4',
366	   K, '5',
367	   K, '6',
368	   0, 0,	/* 0x30 */
369	   0, '�',
370	   0, '�',
371	   C, '�',
372	   0, '�',
373	   0, '�',
374	   0, '�',
375	   0, '�',
376	   0, ',',	/* 0x38 */
377	   0, '.',
378	   0, '/',
379	   0, 0,
380	   K, '.',
381	   K, '7',
382	   K, '8',
383	   K, '9',
384	   0, ' ',	/* 0x40 */
385	   0, DEL,	/* really BS, DEL & BS swapped */
386	   0, '\t',
387	   K, '\r',	/* enter */
388	   0, '\r',	/* return */
389	   S, 0x9d,	/* CSI */
390	   0, '\b',	/* really DEL, BS & DEL swapped */
391	   0, 0,
392	   0, 0,	/* 0x48 */
393	   0, 0,
394	   K, '-',
395	   0, 0,
396	   S, 0x00,	/* now it gets hairy.. CRSR UP */
397	   S, 0x04,	/* CRSR DOWN */
398	   S, 0x08,	/* CRSR RIGHT */
399	   S, 0x0C,	/* CRSR LEFT */
400	   S, 0x10,	/* 0x50 F1 */
401	   S, 0x15,	/* F2 */
402	   S, 0x1A,	/* F3 */
403	   S, 0x1F,	/* F4 */
404	   S, 0x24,	/* F5 */
405	   S, 0x29,	/* F6 */
406	   S, 0x2E,	/* F7 */
407	   S, 0x33,	/* 0x58 F8 */
408	   S, 0x38,	/* F9 */
409	   S, 0x3D,	/* F10 */
410	   K, '(',
411	   K, ')',
412	   K, '/',
413	   K, '*',
414	   S, 0x42,	/* HELP */
415	},
416
417	{
418	  /* string table. If there's a better way to get the offsets into the
419	     above table, please tell me..
420
421	     NOTE: save yourself and others a lot of grief by *not* using
422	           CSI == 0x9b, using the two-character sequence gives
423	           much less trouble, especially in GNU-Emacs.. */
424
425	  3, ESC, '[', 'A',		/* 0x00: CRSR UP */
426	  3, ESC, '[', 'B',		/* 0x04: CRSR DOWN */
427	  3, ESC, '[', 'C',		/* 0x08: CRSR RIGHT */
428	  3, ESC, '[', 'D',		/* 0x0C: CRSR LEFT */
429	  4, ESC, '[', '0', '~',	/* 0x10: F1 */
430	  4, ESC, '[', '1', '~',	/* 0x15: F2 */
431	  4, ESC, '[', '2', '~',	/* 0x1A: F3 */
432	  4, ESC, '[', '3', '~',	/* 0x1F: F4 */
433	  4, ESC, '[', '4', '~',	/* 0x24: F5 */
434	  4, ESC, '[', '5', '~',	/* 0x29: F6 */
435	  4, ESC, '[', '6', '~',	/* 0x2E: F7 */
436	  4, ESC, '[', '7', '~',	/* 0x33: F8 */
437	  4, ESC, '[', '8', '~',	/* 0x38: F9 */
438	  4, ESC, '[', '9', '~',	/* 0x3D: F10 */
439	  4, ESC, '[', '?', '~',	/* 0x42: HELP */
440
441	  4, ESC, '[', 'T', '~',	/* 0x47: shift CRSR UP */
442	  4, ESC, '[', 'S', '~',	/* 0x4C: shift CRSR DOWN */
443	  5, ESC, '[', ' ', '@', '~',	/* 0x51: shift CRSR RIGHT */
444	  5, ESC, '[', ' ', 'A', '~',	/* 0x57: shift CRSR LEFT */
445	  5, ESC, '[', '1', '0', '~',	/* 0x5D: shift F1 */
446	  5, ESC, '[', '1', '1', '~',	/* 0x63: shift F2 */
447	  5, ESC, '[', '1', '2', '~',	/* 0x69: shift F3 */
448	  5, ESC, '[', '1', '3', '~',	/* 0x6F: shift F4 */
449	  5, ESC, '[', '1', '4', '~',	/* 0x75: shift F5 */
450	  5, ESC, '[', '1', '5', '~',	/* 0x7B: shift F6 */
451	  5, ESC, '[', '1', '6', '~',	/* 0x81: shift F7 */
452	  5, ESC, '[', '1', '7', '~',	/* 0x87: shift F8 */
453	  5, ESC, '[', '1', '8', '~',	/* 0x8D: shift F9 */
454	  5, ESC, '[', '1', '9', '~',	/* 0x93: shift F10 */
455	  3, ESC, '[', 'Z',		/* 0x99: shift TAB */
456	  2, ESC, '[',			/* 0x9d: alt ESC == CSI */
457	},
458};
459
460unsigned char acctable[KBD_NUM_ACC][64] = {
461  {	"@�BCD�FGH�JKLMN�PQRST�VWXYZ[\\]^_"
462	"`�bcd�fgh�jklmn�pqrst�vwxyz{|}~\177"},	/* KBD_ACC_GRAVE */
463
464  {	"@�BCD�FGH�JKLMN�PQRST�VWXYZ[\\]^_"
465	"`�bcd�fgh�jklmn�pqrst�vwxyz{|}~\177"},	/* KBD_ACC_ACUTE */
466
467  {	"@�BCD�FGH�JKLMN�PQRST�VWXYZ[\\]^_"
468	"`�bcd�fgh�jklmn�pqrst�vwxyz{|}~\177"},	/* KBD_ACC_CIRC */
469
470  {	"@�BCDEFGHIJKLM��PQRSTUVWXYZ[\\]^_"
471	"`�bcdefghijklm��pqrstuvwxyz{|}~\177"},	/* KBD_ACC_TILDE */
472
473  {	"@�BCD�FGH�JKLMN�PQRST�VWXYZ[\\]^_"
474	"`�bcd�fgh�jklmn�pqrst�vwxyz{|}~\177"},	/* KBD_ACC_DIER */
475};
476
477
478