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_cmds.c	7.10.1 (2.11BSD) 1996/11/19";

#endif

#include "ex.h"

#include "ex_argv.h"

#include "ex_temp.h"

#include "ex_tty.h"

#include "ex_vis.h"

bool	pflag, nflag;

int	poffset;

const char *versionstring =

	"@(#) Version 3.7, 6/7/85. Changes by Gunnar Ritter 31/05/00." + 5;

#define	nochng()	lchng = chng

/*

 * Main loop for command mode command decoding.

 * A few commands are executed here, but main function

 * is to strip command addresses, do a little address oriented

 * processing and call command routines to do the real work.

 */

void

commands(noprompt, exitoneof)

	bool noprompt, exitoneof;

{

	register line *addr;

	register int c;

	register int lchng;

	int given;

	int seensemi;

	int cnt;

	bool hadpr;

	resetflav();

	nochng();

	for (;;) {

		/*

		 * If dot at last command

		 * ended up at zero, advance to one if there is a such.

		 */

		if (dot <= zero) {

			dot = zero;

			if (dol > zero)

				dot = one;

		}

		shudclob = 0;

		/*

		 * If autoprint or trailing print flags,

		 * print the line at the specified offset

		 * before the next command.

		 */

		if (pflag ||

		    lchng != chng && value(AUTOPRINT) && !inglobal && !inopen && endline) {

			pflag = 0;

			nochng();

			if (dol != zero) {

				addr1 = addr2 = dot + poffset;

				if (addr1 < one || addr1 > dol)

error("Offset out-of-bounds|Offset after command too large");

				setdot1();

				goto print;

			}

		}

		nochng();

		/*

		 * Print prompt if appropriate.

		 * If not in global flush output first to prevent

		 * going into pfast mode unreasonably.

		 */

		if (inglobal == 0) {

			flush();

			if (!hush && value(PROMPT) && !globp && !noprompt && endline) {

				putchar(':');

				hadpr = 1;

			}

			TSYNC();

		}

		/*

		 * Gobble up the address.

		 * Degenerate addresses yield ".".

		 */

		addr2 = 0;

		given = seensemi = 0;

		do {

			addr1 = addr2;

			addr = address(0);

			c = getcd();

			if (addr == 0)

				if (c == ',')

					addr = dot;

				else if (addr1 != 0) {

					addr2 = dot;

					break;

				} else

					break;

			addr2 = addr;

			given++;

			if (c == ';') {

				c = ',';

				dot = addr;

				seensemi = 1;

			}

		} while (c == ',');

		if (c == '%') {

			/* %: same as 1,$ */

			addr1 = one;

			addr2 = dol;

			given = 2;

			c = getchar();

		}

		if (addr1 == 0)

			addr1 = addr2;

		if (c == ':')

			c = getchar();

		/*

		 * Set command name for special character commands.

		 */

		tailspec(c);

		/*

		 * If called via : escape from open or visual, limit

		 * the set of available commands here to save work below.

		 */

		if (inopen) {

			if (c=='\n' || c=='\r' || c==CTRL('d') || c==EOF) {

				if (addr2)

					dot = addr2;

				if (c == EOF)

					return;

				continue;

			}

			if (any(c, "o"))

notinvis:

				tailprim(Command, 1, 1);

		}

choice:

		switch (c) {

		case 'a':

			switch(peekchar()) {

			case 'b':

/* abbreviate */

				tail("abbreviate");

				setnoaddr();

				mapcmd(0, 1);

				anyabbrs = 1;

				continue;

			case 'r':

/* args */

				tail("args");

				setnoaddr();

				eol();

				pargs();

				continue;

			}

/* append */

			if (inopen)

				goto notinvis;

			tail("append");

			setdot();

			aiflag = exclam();

			newline();

			vmacchng(0);

			deletenone();

			setin(addr2);

			inappend = 1;

			ignore(append(gettty, addr2));

			inappend = 0;

			nochng();

			continue;

		case 'c':

			switch (peekchar()) {

/* copy */

			case 'o':

				tail("copy");

				vmacchng(0);

				move();

				continue;

#ifdef CHDIR

/* cd */

			case 'd':

				tail("cd");

				goto changdir;

/* chdir */

			case 'h':

				ignchar();

				if (peekchar() == 'd') {

					register char *p;

					tail2of("chdir");

changdir:

					if (savedfile[0] == '/' || !value(WARN))

						ignore(exclam());

					else

						ignore(quickly());

					if (skipend()) {

						p = getenv("HOME");

						if (p == NULL)

							error("Home directory unknown");

					} else

						getone(), p = file;

					eol();

					if (chdir(p) < 0)

						filioerr(p);

					if (savedfile[0] != '/')

						edited = 0;

					continue;

				}

				if (inopen)

					tailprim("change", 2, 1);

				tail2of("change");

				break;

#endif

			default:

				if (inopen)

					goto notinvis;

				tail("change");

				break;

			}

/* change */

			aiflag = exclam();

			setCNL();

			vmacchng(0);

			setin(addr1);

			delete(0);

			inappend = 1;

			ignore(append(gettty, addr1 - 1));

			inappend = 0;

			nochng();

			continue;

/* delete */

		case 'd':

			/*

			 * Caution: dp and dl have special meaning already.

			 */

			tail("delete");

			c = cmdreg();

			setCNL();

			vmacchng(0);

			if (c)

				YANKreg(c);

			delete(0);

			appendnone();

			continue;

/* edit */

/* ex */

		case 'e':

			tail(peekchar() == 'x' ? "ex" : "edit");

editcmd:

			if (!exclam() && chng)

				c = 'E';

			filename(c);

			if (c == 'E') {

				ungetchar(lastchar());

				ignore(quickly());

			}

			setnoaddr();

doecmd:

			init();

			addr2 = zero;

			laste++;

			sync();

			rop(c);

#ifdef VMUNIX

			tlaste();

#endif

			laste = 0;

			sync();

			nochng();

			continue;

/* file */

		case 'f':

			tail("file");

			setnoaddr();

			filename(c);

			noonl();

/*

			synctmp();

*/

			continue;

/* global */

		case 'g':

			tail("global");

			global(!exclam());

			nochng();

			continue;

/* insert */

		case 'i':

			if (inopen)

				goto notinvis;

			tail("insert");

			setdot();

			nonzero();

			aiflag = exclam();

			newline();

			vmacchng(0);

			deletenone();

			setin(addr2);

			inappend = 1;

			ignore(append(gettty, addr2 - 1));

			inappend = 0;

			if (dot == zero && dol > zero)

				dot = one;

			nochng();

			continue;

/* join */

		case 'j':

			tail("join");

			c = exclam();

			setcount();

			nonzero();

			newline();

			vmacchng(0);

			if (given < 2 && addr2 != dol)

				addr2++;

			join(c);

			continue;

/* k */

		case 'k':

casek:

			pastwh();

			c = getchar();

			if (endcmd(c))

				serror("Mark what?|%s requires following letter", Command);

			newline();

			if (!islower(c))

				error("Bad mark|Mark must specify a letter");

			setdot();

			nonzero();

			names[c - 'a'] = *addr2 &~ 01;

			anymarks = 1;

			continue;

/* list */

		case 'l':

			tail("list");

			setCNL();

			ignorf(setlist(1));

			pflag = 0;

			goto print;

		case 'm':

			if (peekchar() == 'a') {

				ignchar();

				if (peekchar() == 'p') {

/* map */

					tail2of("map");

					setnoaddr();

					mapcmd(0, 0);

					continue;

				}

/* mark */

				tail2of("mark");

				goto casek;

			}

/* move */

			tail("move");

			vmacchng(0);

			move();

			continue;

		case 'n':

			if (peekchar() == 'u') {

				tail("number");

				goto numberit;

			}

/* next */

			tail("next");

			setnoaddr();

			ckaw();

			ignore(quickly());

			if (getargs())

				makargs();

			next();

			c = 'e';

			filename(c);

			goto doecmd;

/* open */

		case 'o':

			tail("open");

			oop();

			pflag = 0;

			nochng();

			continue;

		case 'p':

		case 'P':

			switch (peekchar()) {

/* put */

			case 'u':

				tail("put");

				setdot();

				c = cmdreg();

				eol();

				vmacchng(0);

				if (c)

					putreg(c);

				else

					put();

				continue;

			case 'r':

				ignchar();

				if (peekchar() == 'e') {

/* preserve */

					tail2of("preserve");

					eol();

					if (preserve() == 0)

						error("Preserve failed!");

					else

						error("File preserved.");

				}

				tail2of("print");

				break;

			default:

				tail("print");

				break;

			}

/* print */

			setCNL();

			pflag = 0;

print:

			nonzero();

			if (CL && span() > LINES) {

				flush1();

				vclear();

			}

			plines(addr1, addr2, 1);

			continue;

/* quit */

		case 'q':

			tail("quit");

			setnoaddr();

			c = quickly();

			eol();

			if (!c)

quit:

				nomore();

			if (inopen) {

				vgoto(WECHO, 0);

				if (!ateopr())

					vnfl();

				else {

					tostop();

				}

				flush();

				setty(normf);

			}

			cleanup(1);

			exit(0);

		case 'r':

			if (peekchar() == 'e') {

				ignchar();

				switch (peekchar()) {

/* rewind */

				case 'w':

					tail2of("rewind");

					setnoaddr();

					if (!exclam()) {

						ckaw();

						if (chng && dol > zero)

							error("No write@since last change (:rewind! overrides)");

					}

					eol();

					erewind();

					next();

					c = 'e';

					ungetchar(lastchar());

					filename(c);

					goto doecmd;

/* recover */

				case 'c':

					tail2of("recover");

					setnoaddr();

					c = 'e';

					if (!exclam() && chng)

						c = 'E';

					filename(c);

					if (c == 'E') {

						ungetchar(lastchar());

						ignore(quickly());

					}

					init();

					addr2 = zero;

					laste++;

					sync();

					recover();

					rop2();

					revocer();

					if (status == 0)

						rop3(c);

					if (dol != zero)

						change();

#ifdef VMUNIX

					tlaste();

#endif

					laste = 0;

					nochng();

					continue;

				}

				tail2of("read");

			} else

				tail("read");

/* read */

			if (savedfile[0] == 0 && dol == zero)

				c = 'e';

			pastwh();

			vmacchng(0);

			if (peekchar() == '!') {

				setdot();

				ignchar();

				unix0(0);

				filter(0);

				continue;

			}

			filename(c);

			rop(c);

			nochng();

			if (inopen && endline && addr1 > zero && addr1 < dol)

				dot = addr1 + 1;

			continue;

		case 's':

			switch (peekchar()) {

			/*

			 * Caution: 2nd char cannot be c, g, or r

			 * because these have meaning to substitute.

			 */

/* set */

			case 'e':

				tail("set");

				setnoaddr();

				set();

				continue;

/* shell */

			case 'h':

				tail("shell");

				setNAEOL();

				vnfl();

				putpad(TE);

				flush();

				unixwt(1, unixex("-i", (char *) 0, 0, 0));

				vcontin(0);

				continue;

/* source */

			case 'o':

#ifdef notdef

				if (inopen)

					goto notinvis;

#endif

				tail("source");

				setnoaddr();

				getone();

				eol();

				source(file, 0);

				continue;

#ifdef SIGTSTP

/* stop, suspend */

			case 't':

				tail("stop");

				goto suspend;

			case 'u':

				tail("suspend");

suspend:

				if (!ldisc)

					error("Old tty driver|Not using new tty driver/shell");

				c = exclam();

				eol();

				if (!c)

					ckaw();

				onsusp();

				continue;

#endif

			}

			/* fall into ... */

/* & */

/* ~ */

/* substitute */

		case '&':

		case '~':

			Command = "substitute";

			if (c == 's')

				tail(Command);

			vmacchng(0);

			if (!substitute(c))

				pflag = 0;

			continue;

/* t */

		case 't':

			if (peekchar() == 'a') {

				tail("tag");

				tagfind(exclam());

				if (!inopen)

					lchng = chng - 1;

				else

					nochng();

				continue;

			}

			tail("t");

			vmacchng(0);

			move();

			continue;

		case 'u':

			if (peekchar() == 'n') {

				ignchar();

				switch(peekchar()) {

/* unmap */

				case 'm':

					tail2of("unmap");

					setnoaddr();

					mapcmd(1, 0);

					continue;

/* unabbreviate */

				case 'a':

					tail2of("unabbreviate");

					setnoaddr();

					mapcmd(1, 1);

					anyabbrs = 1;

					continue;

				}

/* undo */

				tail2of("undo");

			} else

				tail("undo");

			setnoaddr();

			markDOT();

			c = exclam();

			newline();

			undo(c);

			continue;

		case 'v':

			switch (peekchar()) {

			case 'e':

/* version */

				tail("version");

				setNAEOL();

				printf(versionstring);

				noonl();

				continue;

/* visual */

			case 'i':

				tail("visual");

				if (inopen) {

					c = 'e';

					goto editcmd;

				}

				vop();

				pflag = 0;

				nochng();

				continue;

			}

/* v */

			tail("v");

			global(0);

			nochng();

			continue;

/* write */

		case 'w':

			c = peekchar();

			tail(c == 'q' ? "wq" : "write");

wq:

			if (skipwh() && peekchar() == '!') {

				pofix();

				ignchar();

				setall();

				unix0(0);

				filter(1);

			} else {

				setall();

				wop(1);

				nochng();

			}

			if (c == 'q')

				goto quit;

			continue;

/* xit */

		case 'x':

			tail("xit");

			if (!chng)

				goto quit;

			c = 'q';

			goto wq;

/* yank */

		case 'y':

			tail("yank");

			c = cmdreg();

			setcount();

			eol();

			vmacchng(0);

			if (c)

				YANKreg(c);

			else

				yank();

			continue;

/* z */

		case 'z':

			zop(0);

			pflag = 0;

			continue;

/* * */

/* @ */

		case '*':

		case '@':

			c = getchar();

			if (c=='\n' || c=='\r')

				ungetchar(c);

			if (any(c, "@*\n\r"))

				c = lastmac;

			if (isupper(c))

				c = tolower(c);

			if (!islower(c))

				error("Bad register");

			newline();

			setdot();

			cmdmac(c);

			continue;

/* | */

		case '|':

			endline = 0;

			goto caseline;

/* \n */

		case '\n':

			endline = 1;

caseline:

			notempty();

			if (addr2 == 0) {

				if (UP != NOSTR && c == '\n' && !inglobal)

					c = CTRL('k');

				if (inglobal)

					addr1 = addr2 = dot;

				else {

					if (dot == dol)

						error("At EOF|At end-of-file");

					addr1 = addr2 = dot + 1;

				}

			}

			setdot();

			nonzero();

			if (seensemi)

				addr1 = addr2;

			ex_getline(*addr1);

			if (c == CTRL('k')) {

				flush1();

				destline--;

				if (hadpr)

					shudclob = 1;

			}

			plines(addr1, addr2, 1);

			continue;

/* " */

		case '"':

			comment();

			continue;

/* # */

		case '#':

numberit:

			setCNL();

			ignorf(setnumb(1));

			pflag = 0;

			goto print;

/* = */

		case '=':

			newline();

			setall();

			if (inglobal == 2)

				pofix();

			printf("%d", lineno(addr2));

			noonl();

			continue;

/* ! */

		case '!':

			if (addr2 != 0) {

				vmacchng(0);

				unix0(0);

				setdot();

				filter(2);

			} else {

				unix0(1);

				pofix();

				putpad(TE);

				flush();

				unixwt(1, unixex("-c", uxb, 0, 0));

				vclrech(1);	/* vcontin(0); */

				nochng();

			}

			continue;

/* < */

/* > */

		case '<':

		case '>':

			for (cnt = 1; peekchar() == c; cnt++)

				ignchar();

			setCNL();

			vmacchng(0);

			shift(c, cnt);