[9fans] kbd.c

[George Bronnikov <goga@bronnikov.mccme.ru>]

[-- Attachment #1: Type: TEXT/PLAIN, Size: 349 bytes --]

Hello,

Attached are:

1. A diff to Boyd's/Forsyth's keyboard driver (/sys/src/9/pc/kbd.c) that
lets it have separate tables for capslock and shift+capslock (tables 4 and 5).
2. Russian keyboard table using this diff (capslock serves to switch
between cyrillic and latin modes).
3. An awk script to feed the table into /dev/kbmap.

	goga

[-- Attachment #2: Type: TEXT/PLAIN, Size: 64 bytes --]

#!/bin/awk -f
/#/	{next}
/^$/	{next}
	{ print $1, $2, $3}


[-- Attachment #3.1: Type: text/plain, Size: 425 bytes --]

The following attachment had content that we can't
prove to be harmless.  To avoid possible automatic
execution, we changed the content headers.
The original header was:

	Content-Type: TEXT/PLAIN; charset=koi8-r; name="kbmap.cyr"
	Content-Transfer-Encoding: BASE64
	Content-ID: <Pine.LNX.4.30.0203231501411.878@donkey.bronnikov.mccme.ru>
	Content-Description: 
	Content-Disposition: attachment; filename="kbmap.cyr"

[-- Attachment #3.2: kbmap.cyr.suspect --]
[-- Type: application/octet-stream, Size: 1415 bytes --]

# Setting Caps Lock
0	0x3a		0xf864
1	0x3a		0xf864
4	0x3a		0xf864
5	0x3a		0xf864

# Russian unshifted characters
4	0x10	0x439	;й
4	0x11	0x446	;ц
4	0x12	0x443	;у
4	0x13	0x43a	;к
4	0x14	0x435	;е
4	0x15	0x43d	;н
4	0x16	0x433	;г
4	0x17	0x448	;ш
4	0x18	0x449	;щ
4	0x19	0x437	;з
4	0x1a		0x445	;х
4	0x1b	0x44a	;ъ

4	0x1e		0x444	;ф
4	0x1f		0x44b	;ы
4	0x20	0x432	;в
4	0x21	0x430	;а
4	0x22	0x43f	;п
4	0x23	0x440	;р
4	0x24	0x43e	;о
4	0x25	0x43b	;л
4	0x26	0x434	;д
4	0x27	0x436	;ж
4	0x28	0x44d	;э

4	0x2c		0x44f	;я
4	0x2d	0x447	;ч
4	0x2e		0x441	;с
4	0x2f		0x43c	;м
4	0x30	0x438	;и
4	0x31	0x442	;т
4	0x32	0x44c	;ь
4	0x33	0x431	;б
4	0x34	0x44e	;ю

4	0x29	0x451	;ё

# Russian shifted characters
5	0x10	0x419	;Й
5	0x11	0x426	;Ц
5	0x12	0x423	;У
5	0x13	0x41a	;К
5	0x14	0x415	;Е
5	0x15	0x41d	;Н
5	0x16	0x413	;Г
5	0x17	0x428	;Ш
5	0x18	0x429	;Щ
5	0x19	0x417	;З
5	0x1a		0x425	;Х
5	0x1b	0x42a	;Ъ

5	0x1e		0x424	;Ф
5	0x1f		0x42b	;Ы
5	0x20	0x412	;В
5	0x21	0x410	;А
5	0x22	0x41f	;П
5	0x23	0x420	;Р
5	0x24	0x41e	;О
5	0x25	0x41b	;Л
5	0x26	0x414	;Д
5	0x27	0x416	;Ж
5	0x28	0x42d	;Э

5	0x2c		0x42f	;Я
5	0x2d	0x427	;Ч
5	0x2e		0x421	;С
5	0x2f		0x41c	;М
5	0x30	0x418	;И
5	0x31	0x422	;Т
5	0x32	0x42c	;Ь
5	0x33	0x411	;Б
5	0x34	0x42e	;Ю

5	0x29	0x401	;Ё

5	0x04	'"'
5	0x06	':'
5	0x07	','
5	0x08	'.'


[-- Attachment #4: Type: TEXT/PLAIN, Size: 2113 bytes --]

138a139,178
> Rune kbtabcaps[Nscan] = 
> {
> [0x00]	No,	0x1b,	'1',	'2',	'3',	'4',	'5',	'6',
> [0x08]	'7',	'8',	'9',	'0',	'-',	'=',	'\b',	'\t',
> [0x10]	'Q',	'W',	'E',	'R',	'T',	'Y',	'U',	'I',
> [0x18]	'O',	'P',	'[',	']',	'\n',	Ctrl,	'A',	'S',
> [0x20]	'D',	'F',	'G',	'H',	'J',	'K',	'L',	';',
> [0x28]	'\'',	'`',	Shift,	'\\',	'Z',	'X',	'C',	'V',
> [0x30]	'B',	'N',	'M',	',',	'.',	'/',	Shift,	'*',
> [0x38]	Latin,	' ',	Ctrl,	KF|1,	KF|2,	KF|3,	KF|4,	KF|5,
> [0x40]	KF|6,	KF|7,	KF|8,	KF|9,	KF|10,	Num,	Scroll,	'7',
> [0x48]	'8',	'9',	'-',	'4',	'5',	'6',	'+',	'1',
> [0x50]	'2',	'3',	'0',	'.',	No,	No,	No,	KF|11,
> [0x58]	KF|12,	No,	No,	No,	No,	No,	No,	No,
> [0x60]	No,	No,	No,	No,	No,	No,	No,	No,
> [0x68]	No,	No,	No,	No,	No,	No,	No,	No,
> [0x70]	No,	No,	No,	No,	No,	No,	No,	No,
> [0x78]	No,	Up,	No,	Up,	No,	No,	No,	No,
> };
> 
> Rune kbtabshiftcaps[Nscan] =
> {
> [0x00]	No,	0x1b,	'!',	'@',	'#',	'$',	'%',	'^',
> [0x08]	'&',	'*',	'(',	')',	'_',	'+',	'\b',	'\t',
> [0x10]	'q',	'w',	'e',	'r',	't',	'y',	'u',	'i',
> [0x18]	'o',	'p',	'{',	'}',	'\n',	Ctrl,	'a',	's',
> [0x20]	'd',	'f',	'g',	'h',	'j',	'k',	'l',	':',
> [0x28]	'"',	'~',	Shift,	'|',	'z',	'x',	'c',	'v',
> [0x30]	'b',	'n',	'm',	'<',	'>',	'?',	Shift,	'*',
> [0x38]	Latin,	' ',	Ctrl,	KF|1,	KF|2,	KF|3,	KF|4,	KF|5,
> [0x40]	KF|6,	KF|7,	KF|8,	KF|9,	KF|10,	Num,	Scroll,	'7',
> [0x48]	'8',	'9',	'-',	'4',	'5',	'6',	'+',	'1',
> [0x50]	'2',	'3',	'0',	'.',	No,	No,	No,	KF|11,
> [0x58]	KF|12,	No,	No,	No,	No,	No,	No,	No,
> [0x60]	No,	No,	No,	No,	No,	No,	No,	No,
> [0x68]	No,	No,	No,	No,	No,	No,	No,	No,
> [0x70]	No,	No,	No,	No,	No,	No,	No,	No,
> [0x78]	No,	View,	No,	Up,	No,	No,	No,	No,
> };
> 
310c350,354
< 	} else if(shift)
---
> 	} else if (shift &&caps)
> 		c = kbtabshiftcaps[c];
> 	else if (caps)
> 		c = kbtabcaps[c];
> 	else if(shift)
317,319d360
< 	if(caps && c<='z' && c>='a')
< 		c += 'A' - 'a';
< 
475a517,518
> 	case 4:	kbtabcaps[scanc] = r; break;
> 	case 5:	kbtabshiftcaps[scanc] = r; break;
491a535,536
> 	case 4:	*r = kbtabcaps[*sc]; return 1;
> 	case 5:	*r = kbtabshiftcaps[*sc]; return 1;