kb.c

/*	kb.c of gulam+ue -- key to function bindings 

	copyright (c) 1987, pm@Case
*/
/* 890111 kbad	added shifted key bindings to avoid weird characters
*/


#include "ue.h"
#include "keynames.h"

/* Function names: These are generated by kbgen.tos from data in
kbin.000.  Unless you really know, do not change these defines by
hand.  These are indices into the fpfs[] of function.c.  */

#define	Fnoop		0
#define	Fescctrld	1
#define	Fescesc		2
#define	Fminiterm	3
#define	Ffilename	4
#define	Fgxpand		5
#define	Ftogulambuf	6
#define	Fexecbuf	7
#define	Ffileread	8
#define	Fshowkbdmacro	9
#define	Ftemul		10
#define	Fmvupwind	11
#define	Fmvdnwind	12
#define	Fquickexit	13
#define	Ftempexit	14
#define	Fgforwline	15
#define	Fgulam		16
#define	Ftab		17
#define	Fquit		18
#define	Fctrlg		19
#define	Fhelp		20
#define	Fctlxlp		21
#define	Fctlxrp		22
#define	Fctlxe		23
#define	Fsetfillcol	24
#define	Frefresh	25
#define	Fbackchar	26
#define	Fforwchar	27
#define	Fbackdel	28
#define	Fforwdel	29
#define	Fgotobol	30
#define	Fgotoeol	31
#define	Fkill		32
#define	Fforwline	33
#define	Fopenline	34
#define	Fbackline	35
#define	Fnewline	36
#define	Findent		37
#define	Fgotoline	38
#define	Fspawn		39
#define	Fkilltobln	40
#define	Ffillpara	41
#define	Fsearchagain	42
#define	Fbacksearch	43
#define	Fforwsearch	44
/*
 * 45 and 46 were Fbackisearch and Fforwisearch, but those are really
 * no-ops, so I've rebound them as lforwch and lforwdel. (AKP 10/11/90)
 */
#define Flforwchar	45
#define Flforwdel	46

#define	Fqueryrepl	47
#define	Fsetmark	48
#define	Fselfinsert	49
#define	Freposition	50
#define	Fquote		51
#define	Ftwiddle	52
#define	Fcopyregion	53
#define	Fkillregion	54
#define	Fkbreset	55
#define Fsemireset	56
#define	Fprefixregion	57
#define	Fsetprefix	58
#define	Fyank		59
#define	Ffileinsert	60
#define	Ffilevisit	61
#define	Ffilesave	62
#define	Ffilewrite	63
#define	Fpoptofile	64
#define	Fdeblank	65
#define	Fswapmark	66
#define	Fshowcpos	67
#define	Fnextwind	68
#define	Fprevwind	69
#define	Fshrinkwind	70
#define	Fenlargewind	71
#define	Fdelwind	72
#define	Fonlywind	73
#define	Fsplitwind	74
#define	Fctlx4hack	75
#define	Fnotmodified	76
#define	Fbufferinsert	77
#define	Fusebuffer	78

/* I have re-used this code number as Flbackdel, which is like backdel but
 * doesn't wrap around at the beginning of the line.  AKP 10/11/90
#define	Fpoptobuffer	79
*/
#define Flbackdel	79

#define	Flistbuffers	80
#define	Fkillbuffer	81
#define	Fsavebuffers	82

/* see lbackdel above; I've done the same thing here. AKP 10/11/90
#define	Fpagenext	83
*/
#define	Flbackchar	83

#define	Fgotoeob	84
#define	Fgotobob	85
#define	Fgotobop	86
#define	Fgotoeop	87
#define	Fkillpara	88
#define	Fdelwhite	89
#define	Fbackword	90
#define	Fcapword	91
#define	Fdelbword	92
#define	Fdelfword	93
#define	Fforwword	94
#define	Flowerword	95
#define	Fupperword	96
#define	Fforwpage	97
#define	Fbackpage	98
#define	Fgxpshow	99
#define	Fevalexpr	100
#define	Fevalbuffer	101
#define	Fevalfile	102
#define	Fbsmapmode	103
#define	Fflowmode	104
#define	Findentmode	105
#define	Fblinkparen	106
#define	Fshowmatch	107
#define	Funsetkey	108
#define	Fbindtokey	109
#define	Fdesckey	110
#define	Fwallchart	111
#define	Fgetarg		112
#define	Fmetanext	113
#define	Fctlxnext	114
#define	Ftenewline	115
#define	Ftotebuf	116
#define	Ftesendtext	117
#define Fgeterror	118
#define	Ftotal		118

/* key-to-function-index table.  This table is searched linearly.  So,
the most frequent cmds should appear before the others.  Other than
this, the order is unimportant.  */


static KB regkeybind[] = {
	{F1, Fdelbword},
	{F2, Fdelfword},
	{F3, Fkill},
	{F4, Fcopyregion},
	{F5, Fkillbuffer},
	{F6, Flistbuffers},
	{F7, Fusebuffer},
	{F8, Ffilewrite},
	{F9, Ffilevisit},
	{F10, Ffilesave},

	{HELP, Fhelp},
	{UNDO, Fquickexit},
	{INSERT, Fbackpage},
	{HOME, Fforwpage},
	{UPARRO, Fbackline},
	{DNARRO, Fgforwline},
	{LTARRO, Fbackchar},
	{RTARRO, Fforwchar},
	{UNDO + SHIFTED, Fquickexit},
	{INSERT + SHIFTED, Fgotobob},
	{HOME + SHIFTED, Fgotoeob},
	{UPARRO + SHIFTED, Fgeterror},
	{DNARRO + SHIFTED, Fgeterror},
	{LTARRO + SHIFTED, Fgotobol},
	{RTARRO + SHIFTED, Fgotoeol},

	{CTRL | '[', Fmetanext},
	{CTRL | 'X', Fctlxnext},
	{CTRL | '@', Fsetmark},
	{CTRL | 'A', Fgotobol},
	{CTRL | 'B', Fbackchar},
	{CTRL | 'C', Ftogulambuf},
	{CTRL | 'D', Fforwdel},
	{CTRL | 'E', Fgotoeol},
	{CTRL | 'F', Fforwchar},
	{CTRL | 'G', Fctrlg},
	{CTRL | 'H', Fbackdel},
	{CTRL | 'I', Ftab},
	{CTRL | 'J', Findent},
	{CTRL | 'K', Fkill},
	{CTRL | 'L', Frefresh},
	{CTRL | 'M', Fnewline},
	{CTRL | 'N', Fgforwline},
	{CTRL | 'O', Fopenline},
	{CTRL | 'P', Fbackline},
	{CTRL | 'Q', Fquote},
	{CTRL | 'R', Fbacksearch},
	{CTRL | 'S', Fforwsearch},
	{CTRL | 'T', Ftwiddle},
	{CTRL | 'U', Fgetarg},
	{CTRL | 'V', Fforwpage},
	{CTRL | 'W', Fkillregion},
	{CTRL | 'Y', Fyank},
	{CTRL | 'Z', Ftempexit},
	{CTRL | '_', Fhelp},

	{')', Fshowmatch},
	{'}', Fshowmatch},
	{']', Fshowmatch},

/*
keypad keys
-----------		*/
	{KLP, Fmvdnwind},
	{KRP, Fmvupwind},
	{KSLASH, Fsplitwind},
	{KSTAR, Fonlywind},
	{KMINUS, Fprevwind},
	{KPLUS, Fnextwind},
	{KENTER, Fctlxe},
	{KDOT, Fgotoline},
	{K0, Ftemul},
	{K7, Fgotobob},
	{K8, Freposition},
	{K9, Fgotoeob},
	{K4, Fbackword},
	{K5, Fbackline},
	{K6, Fforwword},
	{K1, Fgotobol},
	{K2, Fgforwline},
	{K3, Fgotoeol},

	{CTLX | CTRL | 'A', Fshowkbdmacro},
	{CTLX | CTRL | 'B', Flistbuffers},
	{CTLX | CTRL | 'C', Fquit},
	{CTLX | CTRL | 'F', Ffilevisit},
	{CTLX | CTRL | 'I', Fbufferinsert},
	{CTLX | CTRL | 'O', Fdeblank},
	{CTLX | CTRL | 'N', Fmvdnwind},
	{CTLX | CTRL | 'P', Fmvupwind},
	{CTLX | CTRL | 'R', Ffileread},
	{CTLX | CTRL | 'S', Ffilesave},
	{CTLX | CTRL | 'V', Ffilevisit},
	{CTLX | CTRL | 'W', Ffilewrite},
	{CTLX | CTRL | 'X', Fswapmark},
	{CTLX | CTRL | 'Z', Fshrinkwind},
	{CTLX | '!', Fspawn},
	{CTLX | '!', Fexecbuf},
	{CTLX | '=', Fshowcpos},
	{CTLX | '(', Fctlxlp},
	{CTLX | ')', Fctlxrp},
	{CTLX | '1', Fonlywind},
	{CTLX | '2', Fsplitwind},
	{CTLX | 'B', Fusebuffer},
	{CTLX | 'E', Fctlxe},
	{CTLX | 'F', Fsetfillcol},
	{CTLX | 'I', Ffileinsert},
	{CTLX | 'K', Fkillbuffer},
	{CTLX | 'N', Fnextwind},
	{CTLX | 'O', Fnextwind},
	{CTLX | 'P', Fprevwind},
	{CTLX | 'S', Fsavebuffers},
	{CTLX | 'Z', Fenlargewind},
	{META | CTRL | 'H', Fdelbword},
	{META | '!', Fexecbuf},
	{META | '.', Fsetmark},
	{META | '>', Fgotoeob},
	{META | '<', Fgotobob},
	{META | '[', Fgotobop},
	{META | ']', Fgotoeop},
	{META | '%', Fqueryrepl},
	{META | ' ', Fdelwhite},
	{META | 'B', Fbackword},
	{META | 'C', Fcapword},
	{META | 'D', Fdelfword},
	{META | 'F', Fforwword},
	{META | 'G', Ftogulambuf},
	{META | 'L', Flowerword},
	{META | 'Q', Ffillpara},
	{META | 'R', Fbacksearch},
	{META | 'S', Fforwsearch},
	{META | 'U', Fupperword},
	{META | 'V', Fbackpage},
	{META | 'W', Fcopyregion},
	{META | 0x7F, Fdelfword},
	{META | CTRL | '[', Fgxpand},
	{META | CTRL | 'D', Fgxpshow},
	{META | CTRL | 'F', Ffilename},
	{META | CTRL | 'R', Fqueryrepl},
	{0x7F, Fforwdel},
	{HELP + SHIFTED, Fkbreset},
	/* room for new key bindings */
	{0, Fnoop},
	{0, Fnoop},
	{0, Fnoop},
	{0, Fnoop},
	{0, Fnoop},
	{0, Fnoop},
	{KEOTBL, Fnoop}
};


static KB gukeybind[] = {
	{F1, Fdelbword},
	{F2, Fdelfword},
	{F3, Fkill},
	{F4, Fcopyregion},
	{F5, Fkillbuffer},
	{F6, Flistbuffers},
	{F7, Fusebuffer},
	{F8, Ffilewrite},
	{F9, Ffilevisit},
	{F10, Ffilesave},

	{HELP, Fhelp},
	{UNDO, Fquickexit},
	{INSERT, Fbackpage},
	{HOME, Fforwpage},
	{UPARRO, Fbackline},
	{DNARRO, Fgforwline},
	{LTARRO, Fbackchar},
	{RTARRO, Fforwchar},
	{UNDO + SHIFTED, Fquickexit},
	{INSERT + SHIFTED, Fgotobob},
	{HOME + SHIFTED, Fgotoeob},
	{UPARRO + SHIFTED, Fbackpage},
	{DNARRO + SHIFTED, Fforwpage},
	{LTARRO + SHIFTED, Fgotobol},
	{RTARRO + SHIFTED, Fgotoeol},

	{CTRL | '[', Fmetanext},
	{CTRL | 'X', Fctlxnext},
	{CTRL | '@', Fsetmark},
	{CTRL | 'A', Fgotobol},
	{CTRL | 'B', Fbackchar},
	{CTRL | 'C', Ftogulambuf},
	{CTRL | 'D', Fforwdel},
	{CTRL | 'E', Fgotoeol},
	{CTRL | 'F', Fforwchar},
	{CTRL | 'G', Fctrlg},
	{CTRL | 'H', Fbackdel},
	{CTRL | 'I', Ftab},
	{CTRL | 'J', Findent},
	{CTRL | 'K', Fkill},
	{CTRL | 'L', Frefresh},
	{CTRL | 'M', Fgulam},
	{CTRL | 'N', Fgforwline},
	{CTRL | 'O', Fopenline},
	{CTRL | 'P', Fbackline},
	{CTRL | 'Q', Fquote},
	{CTRL | 'R', Fbacksearch},
	{CTRL | 'S', Fforwsearch},
	{CTRL | 'T', Ftwiddle},
	{CTRL | 'U', Fgetarg},
	{CTRL | 'V', Fforwpage},
	{CTRL | 'W', Fkillregion},
	{CTRL | 'Y', Fyank},
	{CTRL | 'Z', Ftempexit},
	{CTRL | '_', Fhelp},

	{')', Fshowmatch},
	{'}', Fshowmatch},
	{']', Fshowmatch},

/*
keypad keys
-----------		*/
	{KLP, Fmvdnwind},
	{KRP, Fmvupwind},
	{KSLASH, Fsplitwind},
	{KSTAR, Fonlywind},
	{KMINUS, Fprevwind},
	{KPLUS, Fnextwind},
	{KENTER, Fctlxe},
	{KDOT, Fgotoline},
	{K0, Ftemul},


	{K7, Fgotobob},
	{K8, Freposition},
	{K9, Fgotoeob},
	{K4, Fbackword},
	{K5, Fbackline},
	{K6, Fforwword},
	{K1, Fgotobol},
	{K2, Fgforwline},
	{K3, Fgotoeol},
	{CTLX | CTRL | 'A', Fshowkbdmacro},
	{CTLX | CTRL | 'B', Flistbuffers},
	{CTLX | CTRL | 'C', Fquit},
	{CTLX | CTRL | 'F', Ffilevisit},
	{CTLX | CTRL | 'I', Fbufferinsert},
	{CTLX | CTRL | 'O', Fdeblank},
	{CTLX | CTRL | 'N', Fmvdnwind},
	{CTLX | CTRL | 'P', Fmvupwind},
	{CTLX | CTRL | 'R', Ffileread},
	{CTLX | CTRL | 'S', Ffilesave},
	{CTLX | CTRL | 'V', Ffilevisit},
	{CTLX | CTRL | 'W', Ffilewrite},
	{CTLX | CTRL | 'X', Fswapmark},
	{CTLX | CTRL | 'Z', Fshrinkwind},
	{CTLX | '!', Fspawn},
	{CTLX | '!', Fexecbuf},
	{CTLX | '=', Fshowcpos},
	{CTLX | '(', Fctlxlp},
	{CTLX | ')', Fctlxrp},
	{CTLX | '1', Fonlywind},
	{CTLX | '2', Fsplitwind},
	{CTLX | 'B', Fusebuffer},
	{CTLX | 'E', Fctlxe},
	{CTLX | 'F', Fsetfillcol},
	{CTLX | 'I', Ffileinsert},
	{CTLX | 'K', Fkillbuffer},
	{CTLX | 'N', Fnextwind},
	{CTLX | 'O', Fnextwind},
	{CTLX | 'P', Fprevwind},
	{CTLX | 'S', Fsavebuffers},
	{CTLX | 'Z', Fenlargewind},
	{META | CTRL | 'H', Fdelbword},
	{META | '!', Fexecbuf},
	{META | '.', Fsetmark},
	{META | '>', Fgotoeob},
	{META | '<', Fgotobob},
	{META | '[', Fgotobop},
	{META | ']', Fgotoeop},
	{META | '%', Fqueryrepl},
	{META | ' ', Fdelwhite},
	{META | 'B', Fbackword},
	{META | 'C', Fcapword},
	{META | 'D', Fdelfword},
	{META | 'F', Fforwword},
	{META | 'G', Ftogulambuf},
	{META | 'L', Flowerword},
	{META | 'Q', Ffillpara},
	{META | 'R', Fbacksearch},
	{META | 'S', Fforwsearch},
	{META | 'U', Fupperword},
	{META | 'V', Fbackpage},
	{META | 'W', Fcopyregion},
	{META | 0x7F, Fdelfword},
	{META | CTRL | '[', Fgxpand},
	{META | CTRL | 'D', Fgxpshow},
	{META | CTRL | 'F', Ffilename},
	{META | CTRL | 'R', Fqueryrepl},
	{0x7F, Fforwdel},
	{HELP + SHIFTED, Fkbreset},
	/* room for new key bindings */
	{0, Fnoop},
	{0, Fnoop},
	{0, Fnoop},
	{0, Fnoop},
	{0, Fnoop},
	{0, Fnoop},
	{KEOTBL, Fnoop}
};

static KB minikeybind[] = {
	{F1, Fdelbword},
	{F2, Fdelfword},
	{F3, Fkill},
	{F4, Fcopyregion},

	{HELP, Fhelp},
	{UNDO, Fsemireset},
	{INSERT, Fescesc},
	{HOME, Fescctrld},
	{UPARRO, Fbackline},
	{DNARRO, Fgforwline},
	{LTARRO, Fbackchar},
	{RTARRO, Fforwchar},
	{UNDO + SHIFTED, Fsemireset},
	{INSERT + SHIFTED, Fgotobob},
	{HOME + SHIFTED, Fgotoeob},
	{UPARRO + SHIFTED, Fbackline},
	{DNARRO + SHIFTED, Fgforwline},
	{LTARRO + SHIFTED, Fgotobol},
	{RTARRO + SHIFTED, Fgotoeol},

	{CTRL | '[', Fescesc},
	{CTRL | 'X', Fctlxnext},
	{CTRL | '@', Fsetmark},
	{CTRL | 'A', Fgotobol},
	{CTRL | 'B', Flbackchar},			/* was backchar AKP */
	{CTRL | 'C', Fkilltobln},
	{CTRL | 'D', Flforwdel},			/* was forwdel AKP */
	{CTRL | 'E', Fgotoeol},
	{CTRL | 'F', Flforwchar},			/* was forwchar AKP */
	{CTRL | 'G', Fminiterm},
	{CTRL | 'H', Flbackdel},			/* was backdel AKP */
	{CTRL | 'I', Fescesc},
	{CTRL | 'J', Fminiterm},
	{CTRL | 'K', Fkill},
	{CTRL | 'L', Frefresh},
	{CTRL | 'M', Fminiterm},
	{CTRL | 'N', Fgforwline},
	{CTRL | 'O', Fopenline},
	{CTRL | 'P', Fbackline},
	{CTRL | 'Q', Fquote},
	{CTRL | 'R', Fminiterm},
	{CTRL | 'S', Fminiterm},
	{CTRL | 'T', Ftwiddle},
	{CTRL | 'U', Fkilltobln},
	{CTRL | 'V', Fforwpage},
	{CTRL | 'W', Fkillregion},
	{CTRL | 'Y', Fyank},
	{CTRL | 'Z', Ftempexit},

/*
keypad keys
-----------		*/
	{KENTER, Fctlxe},
	{KDOT, Fswapmark},
	{K0, Ftemul},

	{K7, Fgotobob},
	{K8, Freposition},
	{K9, Fgotoeob},
	{K4, Fbackword},
	{K5, Fbackline},
	{K6, Fforwword},
	{K1, Fgotobol},
	{K2, Fgforwline},
	{K3, Fgotoeol},

	{CTLX | CTRL | 'O', Fdeblank},
	{CTLX | CTRL | 'X', Fswapmark},
	{CTLX | 'E', Fctlxe},
	{CTLX | '(', Fctlxlp},
	{CTLX | ')', Fctlxrp},

	{META | CTRL | 'D', Fminiterm},
	{META | CTRL | 'H', Fdelbword},
	{META | '!', Freposition},
	{META | '.', Fsetmark},
	{META | '>', Fgotoeob},
	{META | '<', Fgotobob},
	{META | 'B', Fbackword},
	{META | 'C', Fcapword},
	{META | 'D', Fdelfword},
	{META | 'F', Fforwword},
	{META | 'L', Flowerword},
	{META | 'U', Fupperword},
	{META | 'V', Fbackpage},
	{META | 'W', Fcopyregion},
	{META | 0x7F, Fdelfword},
	{META | CTRL | '[', Fescesc},
	{0x7F, Fforwdel},
	{HELP + SHIFTED, Fkbreset},
	/* room for new key bindings */
	{0, Fnoop},
	{0, Fnoop},
	{0, Fnoop},
	{0, Fnoop},
	{0, Fnoop},
	{0, Fnoop},
	{KEOTBL, Fnoop}
};

KB *kba[] = { regkeybind, gukeybind, minikeybind, tekeybind };

/** int	nminikeybind	= ((uint)(sizeof(minikeybind)/sizeof(minikeybind[0]))); **/



/* This function modifies the keyboard binding table.  It is invoked
from Gulam's do.c.  Arg n is the index into kba[], and both codes are
given as hex strings.  */

void bindkey(int n, uchar *keycode, uchar *cmdcode)
{
	int kc;
	int fx;
	KEY cc;
	KB *ktp;

	kc = (int) atoir(keycode, 16);
	fx = (int) atoir(cmdcode, 16);
	if (kc == 0 || fx > Ftotal)
		return;
	for (ktp = kba[n]; (cc = ktp->k_code) != KEOTBL; ktp++)
	{
		if (cc == 0 || cc == kc)
		{
			ktp->k_code = kc;
			ktp->k_fx = fx;
			return;
		}
	}
	mlwrite("sorry, no room for new key binding...");
}

static char buf[64];
static char bl[16] = "               ";	/* 15 blanks */

static void setupkf(KEY kc, int fx)
{
	long xx;

	/* 0x1000 is added because itoar() does not give leading 0s */
	xx = 0x1000L + (long) kc;
	strcpy(buf, itoar(xx, 16));
	buf[0] = ' ';
	xx = 0x100L + (long) fx;
	strcpy(buf + 4, itoar(xx, 16));
	buf[4] = buf[7] = buf[8] = ' ';
	strcpy(buf + 9, findname(0, kc));
	strcat(buf + 9, bl);
	strcpy(buf + 24, findname(1, fx));	/* Add function name. */
}

/* Create a table, listing all of the command keys and their current
bindings, and stores the table in the standard pop-op buffer.  This
lets MicroEMACS produce it's own wall chart.  The bindings to
"ins-self" are only displayed if there is an argument.  */

static uchar *wcname[3] = {
#ifdef	AtariST
	"\257wall chart r\256",
	"\257wall chart g\256",
	"\257wall chart m\256"
#else
	">wall chart r<",
	">wall chart g<",
	">wall chart m<"
#endif
};

int wallchart(int f, int n)
{
	BUFFER *bp;
	KB *ktp;
	KEY cc;

	UNUSED(f);
	mlwrite("wall chart for Regular buffer, Minibuf, or Gulam? [r m or g] ");
	cc = getkey();
	n = (cc == 'm' ? 2 : (cc == 'g' ? 1 : 0));
	bp = bfind(wcname[n], TRUE, BFTEMP, REGKB, BMCTMP);
	if (bp == NULL || bclear(bp) != TRUE)
		return FALSE;
	for (ktp = kba[n]; (cc = ktp->k_code) != KEOTBL; ktp++)
	{
		setupkf(cc, ktp->k_fx);
		if (addline(bp, buf) == FALSE)
			return FALSE;
	}
	return popbuf(bp) != NULL;
}

/* Read a key from the keyboard, and look it up in the binding table.
Display the name of the function currently bound to the key.  */

int desckey(int f, int n)
{
	int fx;
	KEY c;
	KEY kc;
	KEY c2;
	KB *ktp;

	UNUSED(f);
	mlwrite("Briefly describe key: ");
	c = getkey();
	mlwrite("in Regular buffer, Minibuf, or Gulam? [r m or g] ");
	c2 = getkey();
	n = c2 == 'm' ? 2 : c2 == 'g' ? 1 : 0;
	fx = 0;
	for (ktp = kba[n]; (kc = ktp->k_code) != KEOTBL; ktp++)
		if (kc == c)
		{
			fx = ktp->k_fx;
			break;
		}
	if (fx == 0 && Selfinserting(c))
		/* Self inserting.  these too are ok on ST */
		fx = Fselfinsert;
	setupkf(c, fx);
	buf[7] = buf[23] = '\0';
	mlwrite("(key-code fn-code %s) %s runs %s", buf, buf + 8, buf + 24);
	return TRUE;
}