harvey/sys/src/9/port/devkbmap.c

/*
 *  keyboard map
 */

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

enum{
	Qdir,
	Qdata,
};
Dirtab kbmaptab[]={
	{".",		{Qdir, 0, QTDIR},	0,	0555},
	{"kbmap",	{Qdata, 0},		0,	0600},
};
#define	NKBFILE	sizeof(kbmaptab)/sizeof(kbmaptab[0])

#define	KBLINELEN	(3*NUMSIZE+1)	/* t code val\n */

static Chan *
kbmapattach(char *spec)
{
	return devattach(L'κ', spec);
}

static Walkqid*
kbmapwalk(Chan *c, Chan *nc, char **name, int nname)
{
	return devwalk(c, nc, name, nname, kbmaptab, NKBFILE, devgen);
}

static int
kbmapstat(Chan *c, uint8_t *dp, int n)
{
	return devstat(c, dp, n, kbmaptab, NKBFILE, devgen);
}

static Chan*
kbmapopen(Chan *c, int omode)
{
	if(!iseve())
		error(Eperm);
	return devopen(c, omode, kbmaptab, NKBFILE, devgen);
}

static void
kbmapclose(Chan *c)
{
	if(c->aux){
		free(c->aux);
		c->aux = nil;
	}
}

static int32_t
kbmapread(Chan *c, void *a, int32_t n, int64_t offset)
{
	char *bp;
	char tmp[KBLINELEN+1];
	int t, sc;
	Rune r;

	if(c->qid.type == QTDIR)
		return devdirread(c, a, n, kbmaptab, NKBFILE, devgen);

	switch((int)(c->qid.path)){
	case Qdata:
		if(kbdgetmap(offset/KBLINELEN, &t, &sc, &r)) {
			bp = tmp;
			bp += readnum(0, bp, NUMSIZE, t, NUMSIZE);
			bp += readnum(0, bp, NUMSIZE, sc, NUMSIZE);
			bp += readnum(0, bp, NUMSIZE, r, NUMSIZE);
			*bp++ = '\n';
			*bp = 0;
			n = readstr(offset%KBLINELEN, a, n, tmp);
		} else
			n = 0;
		break;
	default:
		n=0;
		break;
	}
	return n;
}

static Rune
kbgetrune(char **p){
	Rune r = 0;
	char *lp=*p;
	while(*lp == ' ' || *lp == '\t')
		lp++;
	if(*lp == '\'' && lp[1])
		chartorune(&r, lp+1);
	else if(*lp == '^' && lp[1]){
		chartorune(&r, lp+1);
		if(0x40 <= r && r < 0x60)
			r -= 0x40;
		else
			error(Ebadarg);
	}else if(*lp == 'M' && ('1' <= lp[1] && lp[1] <= '5'))
		r = 0xF900+lp[1]-'0';
	else if(*lp>='0' && *lp<='9') /* includes 0x... */
		r = strtoul(lp, &lp, 0);
	else
		error(Ebadarg);
	return r;
}

static int32_t
kbmapwrite(Chan *c, void *a, int32_t n, int64_t v)
{
	char line[100], *lp, *b;
	int key, m, l;
	Rune r;

	if(c->qid.type == QTDIR)
		error(Eperm);

	switch((int)(c->qid.path)){
	case Qdata:
		initDeadKeys();
		b = a;
		l = n;
		lp = line;
		if(c->aux){
			strcpy(line, c->aux);
			lp = line+strlen(line);
			free(c->aux);
			c->aux = nil;
		}
		while(--l >= 0) {
			*lp++  = *b++;
			if(lp[-1] == '\n' || lp == &line[sizeof(line)-1]) {
				*lp = 0;
				if(*line == 0)
					error(Ebadarg);
				if(*line == '\n' || *line == '#'){
					lp = line;
					continue;
				}
				lp = line;
				while(*lp == ' ' || *lp == '\t')
					lp++;
				m = strtoul(line, &lp, 0);
				if(m==5ul){
					Rune k, f;
					while(*lp == ' ' || *lp == '\t')
						lp++;
					k=kbgetrune(&lp);

					//Move next
					while (!(*lp == ' ' || *lp == '\t' || *lp == '\0'))
						lp++;
					while(*lp == ' ' || *lp == '\t')
						lp++;
					r=kbgetrune(&lp);

					//Move next
					while (!(*lp == ' ' || *lp == '\t' || *lp == '\0'))
						lp++;
					while(*lp == ' ' || *lp == '\t')
						lp++;
					f=kbgetrune(&lp);

					kdbputdeadkey(k,r,f);
				}else{
					key = strtoul(lp, &lp, 0);
					r = kbgetrune(&lp);
					kbdputmap(m, key, r);
				}
				lp = line;
			}
		}
		if(lp != line){
			l = lp-line;
			c->aux = lp = smalloc(l+1);
			memmove(lp, line, l);
			lp[l] = 0;
		}
		break;
	default:
		error(Ebadusefd);
	}
	return n;
}

Dev kbmapdevtab = {
	L'κ',
	"kbmap",

	devreset,
	devinit,
	devshutdown,
	kbmapattach,
	kbmapwalk,
	kbmapstat,
	kbmapopen,
	devcreate,
	kbmapclose,
	kbmapread,
	devbread,
	kbmapwrite,
	devbwrite,
	devremove,
	devwstat,
};