move vi to separate repo

1 files changed, 0 insertions, 313 deletions

diff --git a/src/vi/ex-070224/ex_set.c b/src/vi/ex-070224/ex_set.c
deleted file mode 100644
index ca7fe45..0000000
--- a/src/vi/ex-070224/ex_set.c
+++ /dev/null
@@ -1,313 +0,0 @@
-/*
- * This code contains changes by
- *      Gunnar Ritter, Freiburg i. Br., Germany, 2002. All rights reserved.
- *
- * Conditions 1, 2, and 4 and the no-warranty notice below apply
- * to these changes.
- *
- *
- * Copyright (c) 1980, 1993
- * 	The Regents of the University of California.  All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- *    notice, this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright
- *    notice, this list of conditions and the following disclaimer in the
- *    documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- * 	This product includes software developed by the University of
- * 	California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
- *    may be used to endorse or promote products derived from this software
- *    without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- * SUCH DAMAGE.
- *
- *
- * Copyright(C) Caldera International Inc. 2001-2002. All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- *   Redistributions of source code and documentation must retain the
- *    above copyright notice, this list of conditions and the following
- *    disclaimer.
- *   Redistributions in binary form must reproduce the above copyright
- *    notice, this list of conditions and the following disclaimer in the
- *    documentation and/or other materials provided with the distribution.
- *   All advertising materials mentioning features or use of this software
- *    must display the following acknowledgement:
- *      This product includes software developed or owned by Caldera
- *      International, Inc.
- *   Neither the name of Caldera International, Inc. nor the names of
- *    other contributors may be used to endorse or promote products
- *    derived from this software without specific prior written permission.
- *
- * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
- * INTERNATIONAL, INC. AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR
- * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
- * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE
- * LIABLE FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR
- * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
- * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
- * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
- * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
- * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
- * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
-
-#ifndef	lint
-#ifdef	DOSCCS
-static char sccsid[] = "@(#)ex_set.c	1.11 (gritter) 11/24/04";
-#endif
-#endif
-
-/* from ex_set.c	7.4 (Berkeley) 6/7/85 */
-
-#include "ex.h"
-#include "ex_temp.h"
-#include "ex_tty.h"
-
-/*
- * Set command.
- */
-char	optname[ONMSZ];
-
-void
-set(void)
-{
-	register char *cp;
-	register struct option *op;
-	register int c;
-	bool no;
-
-	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 setnext;
-		}
-		no = 0;
-		if (cp[0] == 'n' && cp[1] == 'o') {
-			cp += 2;
-			no++;
-		}
-		/* Implement w300, w1200, and w9600 specially */
-		if (eq(cp, "w300")) {
-			if (ospeed >= B1200) {
-dontset:
-				ignore(getchar());	/* = */
-				ignore(getnum());	/* value */
-				continue;
-			}
-			cp = "window";
-		} else if (eq(cp, "w1200")) {
-			if (ospeed < B1200 || ospeed >= B2400)
-				goto dontset;
-			cp = "window";
-		} else if (eq(cp, "w9600")) {
-			if (ospeed < 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(catgets(catd, 1, 159,
-		"%s: No such option@- 'set all' gives all option values"), cp);
-		c = skipwh();
-		if (peekchar() == '?') {
-			ignchar();
-printone:
-			propt(op);
-			noonl();
-			goto setnext;
-		}
-		if (op->otype == ONOFF) {
-			op->ovalue = 1 - no;
-			if (op == &options[PROMPT])
-				oprompt = 1 - no;
-			goto setnext;
-		}
-		if (no)
-			serror(catgets(catd, 1, 160,
-				"Option %s is not a toggle"), op->oname);
-		if (c != 0 || setend())
-			goto printone;
-		if (getchar() != '=')
-			serror(catgets(catd, 1, 161,
-			"Missing =@in assignment to option %s"), op->oname);
-		switch (op->otype) {
-
-		case NUMERIC:
-			if (!isdigit(peekchar()))
-				error(catgets(catd, 1, 162,
-						"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) >= TLINES)
-					value(WINDOW) = TLINES-1;
-				vsetsiz(value(WINDOW));
-			}
-			break;
-
-		case STRING:
-		case OTERM:
-			cp = optname;
-			while (!setend()) {
-				if (cp >= &optname[ONMSZ])
-					error(catgets(catd, 1, 163,
-				"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(catgets(catd, 1, 164,
-		"Can't change type of terminal from within open/visual"));
-				setterm(optname);
-			} else {
-				CP(op->osvalue, optname);
-				op->odefault = 1;
-			}
-			break;
-		}
-setnext:
-		flush();
-	} while (!skipend());
-	eol();
-}
-
-int 
-setend(void)
-{
-
-	return (is_white(peekchar()) || endcmd(peekchar()));
-}
-
-void
-prall(void)
-{
-	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();
-	}
-}
-
-void
-propts(void)
-{
-	register struct option *op;
-
-	for (op = options; op < &options[NOPTS]; op++) {
-		if (op == &options[TTYTYPE])
-			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();
-}
-
-void
-propt(register struct option *op)
-{
-	register char *name;
-	
-	name = op->oname;
-
-	switch (op->otype) {
-
-	case ONOFF:
-		printf(catgets(catd, 1, 165, "%s%s"),
-				op->ovalue ? catgets(catd, 1, 166, "")
-				: catgets(catd, 1, 167, "no"), name);
-		break;
-
-	case NUMERIC:
-		printf(catgets(catd, 1, 168, "%s=%d"), name, op->ovalue);
-		break;
-
-	case STRING:
-	case OTERM:
-		printf(catgets(catd, 1, 169, "%s=%s"), name, op->osvalue);
-		break;
-	}
-}