1BSD/ex-1.1/ex_set.c

#include "ex.h"
/*
 * Ex - a text editor
 * Bill Joy UCB September 1977
 */

char	shellname[30]		"/bin/sh";
char	direct[30]		"/tmp";
char	ttytype[30]		"unknown";

char	NONAME[]		"@";

#define	ONOFF	0
#define	NUMERIC	1
#define	STRING	2
#define	TERM	3

char	NOTify[]	"notify";

struct varbl varbls[] {
	"autoindent",	"ai",	ONOFF,		0,	0,
	"autoprint",	"ap",	ONOFF,		1,	1,
	"beautify",	NONAME,	ONOFF,		0,	0,
	"directory",	"dir",	STRING,		0,	direct,
	"editany",	"ea",	ONOFF,		0,	0,
	"edited",	NONAME,	ONOFF,		1,	0,
	"errorbells",	"eb",	ONOFF,		1,	1,
	"fork",		NONAME,	ONOFF,		1,	1,
	"home",		NONAME,	STRING,		0,	home,
	"hush",		NONAME,	ONOFF,		0,	0,
	"ignorecase",	"ic",	ONOFF,		0,	0,
	"indicateul",	"iu",	ONOFF,		0,	0,
	"list",		NONAME,	ONOFF,		0,	0,
	"magic",	NONAME,	ONOFF,		1,	1,
	"mode",		NONAME,	NUMERIC,	0644,	0644,
	NOTify,		NONAME,	NUMERIC,	5,	5,
	"number",	NONAME,	ONOFF,		0,	0,
	"open",		NONAME,	ONOFF,		1,	1,
	"optimize",	NONAME,	ONOFF,		1,	1,
	"printall",	"pa",	ONOFF,		0,	0,
	"prompt",	NONAME,	ONOFF,		1,	1,
	"scroll",	NONAME,	NUMERIC,	12,	12,
	"shell",	"sh",	STRING,		0,	shellname,
	"shiftwidth",	"sw",	NUMERIC,	8,	8,
	"sticky",	NONAME,	ONOFF,		0,	0,
	"ttytype",	"tty",	TERM,		0,	ttytype,
	"terse",	NONAME,	ONOFF,		0,	0,
	"visualmessage","vm",	ONOFF,		0,	0,
	"window",	NONAME,	NUMERIC,	23,	23,
	"wrap",		NONAME,	ONOFF,		1,	1,
	0
};

#define	ONMSZ	30

set(c)
	register c;
{
	register char *op;
	register struct varbl *vp;
	char no, optname[ONMSZ];
	int column, base;
	extern char uxb[];

	setnoaddr();
	if (endcmd(peekchar())) {
		getchar();
		propts(0);
		return;
	}
	if (c == 0)
		error("Blank required@before options in set");
	do {
		switch (c = getchar()) {
			case '!':
				op = uxb;
				if (!*op)
					error("No previous command");
				goto pfile;
			case '`':
				op = altfile;
				if (!*op)
					error("No alternate filename");
				goto pfile;
			case '%':
				op = savedfile;
				if (!*op)
					error("No current filename");
pfile:
				if (!setend())
					error("Can't assign@to %c with set", c);
				lprintf("%c=%s\n", c, op);
				goto next;
		}
		if (!letter(c))
			error("Unexpected %c|Expected option name, found %c", c);
		op = optname;
		do {
			if (op >= &optname[ONMSZ])
				error("No such option|Ridiculously long option name");
			*op++ = letter(c);
			c = getchar();
		} while (letter(c));
		ungetchar(c);
		*op = 0;
		no = 0;
		op = optname;
		if (eq("all", op)) {
			propts(1);
			goto next;
		}
		if (!eq(op, NOTify) && op[0] == 'n' && op[1] == 'o') {
			op =+ 2;
			no++;
		}
		for (vp = varbls; vp->vname[0]; vp++)
			if (eq(vp->vname[0], op) || eq(vp->vname[1], op))
				break;
		if (vp->vname[0] == 0)
			error("%s: No such option@- 'set all' gives all option values", op);
		c = skipwh();
		if (peekchar() == '?') {
			getchar();
printone:
			propt(vp);
			goto next;
		}
		if (no && vp->vtype != ONOFF)
			error("Option %s is not a toggle", vp->vname[0]);
		switch (vp->vtype) {
			case ONOFF:
				vp->vvalue = 1 - no;
				break;
			case NUMERIC:
				if (c != 0 || setend())
					goto printone;
				if (getchar() != '=')
					error("= expected@before number for numeric option %s", vp->vname[0]);
				if (!digit(peekchar()))
					error("Digits required@after = when assigning numeric option");
				c = 0;
				base = 10;
				if (peekchar() == '0' || vp == &varbls[MODE])
					base = 8;
				do
					c = c * base + getchar() - '0';
				while (digit(peekchar()));
				vp->vvalue = c;
				break;
			case STRING:
			case TERM:
				if (c != 0 || setend())
					goto printone;
				if (getchar() != '=')
					error("Missing =@in assignment to option %s", vp->vname[0]);
				op = optname;
				while (!setend()) {
					if (op >= &optname[ONMSZ])
						error("String too long@in option assignment");
					*op++ = getchar();
				}
				*op = 0;
				if (vp->vtype == TERM)
					setterm(optname);
				else {
					strcpy(vp->vvalue, optname);
					vp->vdefault = 1;
				}
				break;
		}
next:
		flush();
		skipwh();
	} while (!endcmd(peekchar()));
	eol();
}

setend()
{

	return (white(peekchar()) || endcmd(peekchar()));
}

propts(all)
	char all;
{
	register struct varbl *vp;

	for (vp = varbls; vp->vname[0] != NIL; vp++) {
		if (!all) switch (vp->vtype) {
			case ONOFF:
			case NUMERIC:
				if (vp->vvalue == vp->vdefault)
					continue;
				break;
			case STRING:
				if (vp->vdefault == 0)
					continue;
				break;
/*
			case TERM:
				break;
*/
		}
		propt(vp);
	}
}

propt(vp)
	register struct varbl *vp;
{

	switch (vp->vtype) {
		case ONOFF:
			printf("%s%s\n", vp->vvalue ? "" : "no", vp->vname[0]);
			break;
		case NUMERIC:
			if (vp == &varbls[MODE]) {
				printf("mode=");
				pro(value(MODE));
				putnl();
			} else
				printf("%s=%d\n", vp->vname[0], vp->vvalue);
			break;
		case STRING:
		case TERM:
			printf("%s=%s\n", vp->vname[0], vp->vvalue);
			break;
	}
	flush();
}

pro(i)
	register int i;
{

	if (i != 0)
		pro((i >> 3) & 017777);
	putchar((i & 7) | '0');
}

REset()
{
	register struct varbl *vp;

	for (vp = varbls; vp->vname[0]; vp++)
		if (vp->vtype == NUMERIC || vp->vtype == ONOFF)
			vp->vvalue = vp->vdefault;
}