Subversion Repositories planix.SVN

/*

 * Copyright (c) 1980 Regents of the University of California.

 * All rights reserved.  The Berkeley software License Agreement

 * specifies the terms and conditions for redistribution.

 */

#if	!defined(lint) && defined(DOSCCS)

static char *sccsid = "@(#)ex_set.c	7.4 (Berkeley) 6/7/85";

#endif

#include "ex.h"

#include "ex_temp.h"

#include "ex_tty.h"

/*

 * Set command.

 */

char	optname[ONMSZ];

set()

{

	register char *cp;

	register struct option *op;

	register int c;

	bool no;

	extern short o_speed;

	setnoaddr();

	if (skipend()) {

		if (peekchar() != EOF)

			ignchar();

		propts();

		return;

	}

	do {

		cp = optname;

		do {

			if (cp < &optname[ONMSZ - 2])

				*cp++ = getchar();

		} while (isalnum(peekchar()));

		*cp = 0;

		cp = optname;

		if (eq("all", cp)) {

			if (inopen)

				pofix();

			prall();

			goto next;

		}

		no = 0;

		if (cp[0] == 'n' && cp[1] == 'o') {

			cp += 2;

			no++;

		}

		/* Implement w300, w1200, and w9600 specially */

		if (eq(cp, "w300")) {

			if (o_speed >= B1200) {

dontset:

				ignore(getchar());	/* = */

				ignore(getnum());	/* value */

				continue;

			}

			cp = "window";

		} else if (eq(cp, "w1200")) {

			if (o_speed < B1200 || o_speed >= B2400)

				goto dontset;

			cp = "window";

		} else if (eq(cp, "w9600")) {

			if (o_speed < B2400)

				goto dontset;

			cp = "window";

		}

		for (op = options; op < &options[NOPTS]; op++)

			if (eq(op->oname, cp) || op->oabbrev && eq(op->oabbrev, cp))

				break;

		if (op->oname == 0)

			serror("%s: No such option@- 'set all' gives all option values", cp);

		c = skipwh();

		if (peekchar() == '?') {

			ignchar();

printone:

			propt(op);

			noonl();

			goto next;

		}

		if (op->otype == ONOFF) {

			op->ovalue = 1 - no;

			if (op == &options[PROMPT])

				oprompt = 1 - no;

			goto next;

		}

		if (no)

			serror("Option %s is not a toggle", op->oname);

		if (c != 0 || setend())

			goto printone;

		if (getchar() != '=')

			serror("Missing =@in assignment to option %s", op->oname);

		switch (op->otype) {

		case NUMERIC:

			if (!isdigit(peekchar()))

				error("Digits required@after =");

			op->ovalue = getnum();

			if (value(TABSTOP) <= 0)

				value(TABSTOP) = TABS;

			if (value(HARDTABS) <= 0)

				value(HARDTABS) = TABS;

			if (op == &options[WINDOW]) {

				if (value(WINDOW) >= LINES)

					value(WINDOW) = LINES-1;

				vsetsiz(value(WINDOW));

			}

			break;

		case STRING:

		case OTERM:

			cp = optname;

			while (!setend()) {

				if (cp >= &optname[ONMSZ])

					error("String too long@in option assignment");

				/* adb change:  allow whitepace in strings */

				if( (*cp = getchar()) == '\\')

					if( peekchar() != EOF)

						*cp = getchar();

				cp++;

			}

			*cp = 0;

			if (op->otype == OTERM) {

/*

 * At first glance it seems like we shouldn't care if the terminal type

 * is changed inside visual mode, as long as we assume the screen is

 * a mess and redraw it. However, it's a much harder problem than that.

 * If you happen to change from 1 crt to another that both have the same

 * size screen, it's OK. But if the screen size if different, the stuff

 * that gets initialized in vop() will be wrong. This could be overcome

 * by redoing the initialization, e.g. making the first 90% of vop into

 * a subroutine. However, the most useful case is where you forgot to do

 * a setenv before you went into the editor and it thinks you're on a dumb

 * terminal. Ex treats this like hardcopy and goes into HARDOPEN mode.

 * This loses because the first part of vop calls oop in this case.

 * The problem is so hard I gave up. I'm not saying it can't be done,

 * but I am saying it probably isn't worth the effort.

 */

				if (inopen)

error("Can't change type of terminal from within open/visual");

				setterm(optname);

			} else {

				CP(op->osvalue, optname);

				op->odefault = 1;

			}

			break;

		}

next:

		flush();

	} while (!skipend());

	eol();

}

setend()

{

	return (iswhite(peekchar()) || endcmd(peekchar()));

}

prall()

{

	register int incr = (NOPTS + 2) / 3;

	register int rows = incr;

	register struct option *op = options;

	for (; rows; rows--, op++) {

		propt(op);

		tab(24);

		propt(&op[incr]);

		if (&op[2*incr] < &options[NOPTS]) {

			tab(56);

			propt(&op[2 * incr]);

		}

		putNFL();

	}

}

propts()

{

	register struct option *op;

	for (op = options; op < &options[NOPTS]; op++) {

#ifdef V6

		if (op == &options[TERM])

#else

		if (op == &options[TTYTYPE])

#endif

			continue;

		switch (op->otype) {

		case ONOFF:

		case NUMERIC:

			if (op->ovalue == op->odefault)

				continue;

			break;

		case STRING:

			if (op->odefault == 0)

				continue;

			break;

		}

		propt(op);

		putchar(' ');

	}

	noonl();

	flush();

}

propt(op)

	register struct option *op;

{

	register char *name;

	name = op->oname;

	switch (op->otype) {

	case ONOFF:

		printf("%s%s", op->ovalue ? "" : "no", name);

		break;

	case NUMERIC:

		printf("%s=%d", name, op->ovalue);

		break;

	case STRING:

	case OTERM:

		printf("%s=%s", name, op->osvalue);

		break;

	}

}