#include	"u.h"
#include	"../port/lib.h"
#include	"mem.h"
#include	"dat.h"
#include	"fns.h"
#include	"io.h"
#include	"../port/error.h"

#include	"devtab.h"

typedef struct SCC	SCC;

extern SCC	*scc[];

void	sccparity(SCC*, char);
void	sccdtr(SCC*, int);
void	sccrts(SCC*, int);
void	sccrawput(int, int);

#define	No	(-1)	/* key not used */
#define	None	(-1)	/* key can't happen */

enum
{
	Up=	0x80,	/* flag */
	View=	0x80,	/* 8½ convention */
	Num=	0x10000,/* numeric pad */
};

enum
{
	/* unmapped special functions */

	Lctrl=	2,
	Rctrl=	85,
	Lshift=	5,
	Rshift=	4,
	Cplock=	3,
	Lalt=	83,
	Ralt=	84,
	Numlck=	106,
	Config=	110,

	/* function key row */

	Escape=	0x1b,
	F1=	No,
	F2=	No,
	F3=	No,
	F4=	No,
	F5=	No,
	F6=	No,
	F7=	No,
	F8=	No,
	F9=	No,
	F10=	No,
	F11=	No,
	F12=	No,
	Pr_scr=	No,
	Scrlck=	No,
	Pause=	No,

	/* numeric pad */

	P0=	Num|'0',
	P1=	Num|'1',
	P2=	Num|'2',
	P3=	Num|'3',
	P4=	Num|'4',
	P5=	Num|'5',
	P6=	Num|'6',
	P7=	Num|'7',
	P8=	Num|'8',
	P9=	Num|'9',
	Pdot=	'.',
	Penter=	'\n',
	Pminus=	'-',
	Pplus=	'+',
	Pslash=	'/',
	Pstar=	'*',

	/* edit pad */

	Insert=	No,
	Home=	No,
	Pageup=	No,
	Delete=	0x7f,
	End=	No,
	Pagedn=	No,

	Uarrow=	No,
	Larrow=	View,
	Darrow=	View,
	Rarrow=	View,

	/* reserved */

	XBreak=	0,
	XSetup=	1,
	XNscrl=	12,
	XLf=	59,
	XPF2=	70,
	XPF1=	71,
	XPcom=	76,
	XPF4=	77,
	XPF3=	78,
};

static long keymap[] = {
	XBreak,	XSetup,	Lctrl,	Cplock,	Rshift,	Lshift,	Escape,	'1',
	'\t',	'q',	'a',	's',	XNscrl,	'2',	'3',	'w',
	'e',	'd',	'f',	'z',	'x',	'4',	'5',	'r',
	't',	'g',	'h',	'c',	'v',	'6',	'7',	'y',
	'u',	'j',	'k',	'b',	'n',	'8',	'9',	'i',
	'o',	'l',	';',	'm',	',',	'0',	'-',	'p',
	'[',	'\'',	'\n',	'.',	'/',	'=',	'`',	']',
	'\\',	P1,	P0,	XLf,	'\b',	Delete,	P4,	P2,
	P3,	Pdot,	P7,	P8,	P5,	P6,	XPF2,	XPF1,
	Larrow,	Darrow,	P9,	Pminus,	XPcom,	XPF4,	XPF3,	Rarrow,
	Uarrow,	Penter,	' ',	Lalt,	Ralt,	Rctrl,	F1,	F2,
	F3,	F4,	F5,	F6,	F7,	F8,	F9,	F10,
	F11,	F12,	Pr_scr,	Scrlck,	Pause,	Insert,	Home,	Pageup,
	End,	Pagedn,	Numlck,	Pslash,	Pstar,	Pplus,	Config,	None,
	None,	None,	None,	None,	None,	None,	None,	None,
	None,	None,	None,	None,	None,	None,	None,	None,
};

static long skeymap[] = {
	XBreak,	XSetup,	Lctrl,	Cplock,	Rshift,	Lshift,	Escape,	'!',
	'\t',	'Q',	'A',	'S',	XNscrl,	'@',	'#',	'W',
	'E',	'D',	'F',	'Z',	'X',	'$',	'%',	'R',
	'T',	'G',	'H',	'C',	'V',	'^',	'&',	'Y',
	'U',	'J',	'K',	'B',	'N',	'*',	'(',	'I',
	'O',	'L',	':',	'M',	'<',	')',	'_',	'P',
	'{',	'"',	'\n',	'>',	'?',	'+',	'~',	'}',
	'|',	P1,	P0,	XLf,	'\b',	Delete,	P4,	P2,
	P3,	Pdot,	P7,	P8,	P5,	P6,	XPF2,	XPF1,
	Larrow,	Darrow,	P9,	Pminus,	XPcom,	XPF4,	XPF3,	Rarrow,
	Uarrow,	Penter,	' ',	Lalt,	Ralt,	Rctrl,	F1,	F2,
	F3,	F4,	F5,	F6,	F7,	F8,	F9,	F10,
	F11,	F12,	Pr_scr,	Scrlck,	Pause,	Insert,	Home,	Pageup,
	End,	Pagedn,	Numlck,	Pslash,	Pstar,	Pplus,	Config,	None,
	None,	None,	None,	None,	None,	None,	None,	None,
	None,	None,	None,	None,	None,	None,	None,	None,
};

static long nkeymap[10] = {	/* starts at '0' */
	None, L'↯', L'↓', L'⇟', L'←', None, L'→', L'↸', L'↑', L'⇞'
};

static int
rawkbdputc(IOQ *q, int code)
{
	static int shifted;
	static int ctrled;
	static int capslock;
	static int numlock;
	static int collecting, nk;
	static uchar kc[5];
	int ch, c, i;

	USED(q);
	code &= 0xff;
	switch(code){
	case Lctrl:
	case Rctrl:
	case Cplock:
		++ctrled;
		return 0;
	case Up|Lctrl:
	case Up|Rctrl:
	case Up|Cplock:
		if(--ctrled < 0)
			ctrled = 0;
		return 0;
	case Lshift:
	case Rshift:
		++shifted;
		return 0;
	case Up|Lshift:
	case Up|Rshift:
		if(--shifted < 0)
			shifted = 0;
		return 0;
	case Numlck:
		numlock ^= 1;
		lightbits(1, numlock);
	case Up|Numlck:
		return 0;
/*
 *	case Cplock:
 *		capslock ^= 2;
 *		lightbits(2, capslock);
 *	case Up|Cplock:
 *		return 0;
 */
	case Lalt:
	case Ralt:
		collecting = 1;
		nk = 0;
	case Up|Lalt:
	case Up|Ralt:
		return 0;
	}
	if(code&Up)
		return 0;

	/*
	 *  convert
	 */
	if(shifted)
		ch = skeymap[code];
	else
		ch = keymap[code];
	if(ch & Num){
		ch &= 0xffff;
		if(!numlock)
			ch = nkeymap[ch - '0'];
	}
	if(ch < 0)
		return 0;
	if(capslock && ch >= 'a' && ch <= 'z')
		ch &= ~0x20;
	if(ctrled)
		ch &= 0x1f;
	if(!collecting){
		kbdputc(&kbdq, ch);
		return 0;
	}
	kc[nk++] = ch;
	c = latin1(kc, nk);
	if(c < -1)	/* need more keystrokes */
		return 0;
	if(c != -1)	/* valid sequence */
		kbdputc(&kbdq, c);
	else	/* dump characters */
		for(i=0; i<nk; i++)
			kbdputc(&kbdq, kc[i]);
	nk = 0;
	collecting = 0;
	return 0;
}

enum
{
	Beep=	0x02<<8,
	Beeeep=	0x04<<8,
	Noclick=0x08
};

static IOQ	liteq;

static struct Lite
{
	Lock;
	QLock;
	Rendez;
	ulong	bits;
} lites;

void
lightbits(int clr, int set)
{
	char c[2];
	int s;

	s = splhi();
	lock(&lites);
	lites.bits &= ~clr;
	lites.bits |= set;
	c[0] = ((lites.bits&0x03)<<5)|Noclick|((lites.bits>>8)&0x06);
	c[1] =  (lites.bits&0x3c)|1;
	(*liteq.puts)(&liteq, c, 2);
	unlock(&lites);
	splx(s);
}

void
lights(int l)
{
	lightbits(0x3f, l&0x3f);
}

void
buzz(int f, int d)
{
	USED(f);
	qlock(&lites);
	if(waserror()){
		qunlock(&lites);
		nexterror();
	}
	for(; d >= 1000; d -= 1000){
		lightbits(Beep, Beeeep);
		tsleep(&lites, return0, 0, 1000);
	}
	for(; d > 0; d -= 200){
		lightbits(Beeeep, Beep);
		tsleep(&lites, return0, 0, (d > 200) ? 200 : d);
	}
	lightbits(Beep|Beeeep, 0);
	poperror();
	qunlock(&lites);
};

void
setled(int k)
{
	sccrts(scc[0], 1-k);	/* 0 turns LED on */
}

int
kbdinit(void)
{
	initq(&liteq);
	sccspecial(0, &liteq, &kbdq, 600);
	setled(1);	/* turn on LED */
	sccparity(scc[0], 'o');
	kbdq.putc = rawkbdputc;
	sccspecial(1, 0, &mouseq, 4800);
	mouseq.putc = mouseputc;
	sccrawput(0, Noclick);
	return 1;
}