# 3.3-3.4
ed - ex.c << '-*-END-*-'
418a
#ifdef TIOCLGET
		if (dosusp)
			signal(SIGTSTP, onsusp);
#endif
	}
.
413c
	if (ruptible) {
.
362a
	/*
	 * USG tty driver can send multiple HUP's!!
	 */
	signal(SIGINT, SIG_IGN);
	signal(SIGHUP, SIG_IGN);
.
347a
        if(xflag) {
                xtflag = 1;
                makekey(key, tperm);
        }
.
344a
#ifdef USG
	signal (SIGHUP, SIG_IGN);
#endif
#ifdef USG3TTY
#ifndef USG
	signal (SIGHUP, SIG_IGN);
#endif
#endif
.
272,273c
		else {
			globp = 0;
			if ((cp = getenv("HOME")) != 0 && *cp)
				source(strcat(strcpy(genbuf, cp), "/.exrc"), 1);
		}
.
270c
		if ((globp = getenv("EXINIT")) && *globp)
.
265c
			if ((cp = getenv("TERM")) != 0 && *cp)
.
260a
		if (cp = getenv("SHELL"))
			CP(shell, cp);
.
225a
	if(xflag){
		key = getpass(KEYPROMPT);
		kflag = crinit(key, perm);
	}

.
214a
		case 'x':
			/* -x: encrypted mode */
			xflag = 1;
			break;

.
163a
		case 'R':
			value(READONLY) = 1;
			break;

.
139a
#ifdef TIOCLGET
	if (signal(SIGTSTP, SIG_IGN) == SIG_DFL)
		signal(SIGTSTP, onsusp), dosusp++;
#endif
.
118a
	 * For debugging take files out of . if name is a.out.
	 */
	if (av[0][0] == 'a')
		erpath = tailpath(erpath);
#endif
	/*
.
117a
#ifndef VMUNIX
.
104,112c
	ivis = any('v', av[0]);	/* "vi" */
	if (any('w', av[0]))	/* "view" */
		value(READONLY) = 1;
	if (any('d', av[0])) {	/* "edit" */
.
101,102c
	 * Figure out how we were invoked: ex, edit, vi, view.
.
98d
94c
	 * Defend against d's, v's, w's, and a's in directories of
.
91a
#else
	normf = tty;
#endif
.
90a
#ifndef USG3TTY
.
62,67c
 * in the routine commands.  We are entered as either "ex", "edit", "vi"
 * or "view" and the distinction is made here.  Actually, we are "vi" if
 * there is a 'v' in our name, "view" is there is a 'w', and "edit" if
 * there is a 'd' in our name.  For edit we just diddle options;
 * for vi we actually force an early visual command.
.
54a
 * ex_unix.c		Routines for the ! command and its variations.
 *
.
w
q
'-*-END-*-'
ed - ex.h << '-*-END-*-'
335a
int	onsusp();
.
279a
 * Various miscellaneous flags and buffers needed by the encryption routines.
 */
#define	KSIZE   9       /* key size for encryption */
#define	KEYPROMPT       "Key: "
int	xflag;		/* True if we are in encryption mode */
int	xtflag;		/* True if the temp file is being encrypted */
int	kflag;		/* True if the key has been accepted */
char	perm[768];
char	tperm[768];
char	*key;
char	crbuf[CRSIZE];
char	*getpass();

/*
.
175a
short	oprompt;		/* Saved during source */
.
156a
bool	inappend;		/* in ex command append mode */
.
144a
#ifdef TIOCLGET
bool	dosusp;			/* Do SIGTSTP in visual when ^Z typed */
#endif
.
50a
/*
 *	The following little dance copes with the new USG tty handling.
 *	This stuff has the advantage of considerable flexibility, and
 *	the disadvantage of being incompatible with anything else.
 *	The presence of the symbol USG3TTY will indicate the new code:
 *	in this case, we define CBREAK (because we can simulate it exactly),
 *	but we won't actually use it, so we set it to a value that will
 *	probably blow the compilation if we goof up.
 */
#ifdef USG3TTY
#include <termio.h>
#define CBREAK xxxxx
#else
#include <sgtty.h>
#endif

.
46d
39c
 * or to csvax.mark@berkeley on the ARPA-net.  I would particularly like to hear
.
32c
 *	Mark Horton
.
7c
 * Ex version 3 (see exact version in ex_cmds.c, search for /Version/)
.
w
q
'-*-END-*-'
ed - ex_addr.c << '-*-END-*-'
204a
						if (loc1 == loc2)
							loc2++;
.
197a
					}
.
195c
					while (loc1 <= inline) {
						if (loc1 == loc2)
							loc2++;
.
w
q
'-*-END-*-'
ed - ex_cmds.c << '-*-END-*-'
758a
			vmacchng(0);
.
747c
				vclrech(1);	/* vcontin(0); */
.
737a
				vmacchng(0);
.
716a
/* " */
		case '"':
			comment();
			continue;

.
651a
			vmacchng(0);
.
606a
				if (inopen) {
					c = 'e';
					goto editcmd;
				}
.
600c
				printf("Version 3.4, June 24, 1980");
.
579a
/* unabbreviate */
				case 'a':
					tail2of("unabbreviate");
					setnoaddr();
					mapcmd(1, 1);
					anyabbrs = 1;
					continue;
.
578c
					mapcmd(1, 0);
.
575c
				switch(peekchar()) {
/* unmap */
				case 'm':
.
573d
567a
			vmacchng(0);
.
551a
			vmacchng(0);
.
540a
#ifdef TIOCLGET
/* stop */
			case 't':
				tail("stop");
				if (!ldisc)
					error("Old tty driver|Not using new tty driver/shell");
				c = exclam();
				eol();
				if (!c)
					ckaw();
				eol();
				onsusp();
				continue;
#endif

.
491a
			vmacchng(0);
.
451a
					ckaw();
					ignore(quickly());
.
450d
433a
					*/
.
431a
					tostop();
					/* replaced by tostop
.
381a
				vmacchng(0);
.
343a
			vmacchng(0);
.
335c
					mapcmd(0, 0);
.
298a
			vmacchng(0);
.
286a
			inappend = 0;
.
285a
			inappend = 1;
.
283a
			vmacchng(0);
.
239a
editcmd:
.
229a
			vmacchng(0);
.
218a
			inappend = 0;
.
217a
			inappend = 1;
.
215a
			vmacchng(0);
.
167a
				vmacchng(0);
.
158a
			inappend = 0;
.
157a
			inappend = 1;
.
155a
			vmacchng(0);
.
140c
			switch(peekchar()) {
			case 'b':
/* abbreviate */
				tail("abbreviate");
				setnoaddr();
				mapcmd(0, 1);
				anyabbrs = 1;
				continue;
			case 'r':
.
w
q
'-*-END-*-'
ed - ex_cmds2.c << '-*-END-*-'
529a
		*/
.
527a
		tostop();
		/* replaced by the ostop above
.
509a
			*/
.
507a
			tostart();
			/* replaced by ostart.
.
506c
		if (Peekkey != ':') {
.
381c
	return (endcmd(peekchar()) && peekchar() != '"');
.
279a
		case '"':
			comment();
			setflav();
			return;

.
234a
	isalt = (strcmp(altfile, args)==0) + 1;
.
230a
	extern short isalt;	/* defined in ex_io.c */
.
161c
	inappend = inglobal = 0;
.
136a
		*/
.
134a
		/* ostop should be doing this
.
121,124d
104a
	if (laste) {
		laste = 0;
		sync();
	}
.
41a
	case '"':
.
w
q
'-*-END-*-'
ed - ex_cmdsub.c << '-*-END-*-'
1173c
			if (eq(src, mp[slot].cap) || eq(src, mp[slot].mapto))
.
1136a
#ifdef TRACE
	if (trace)
		fprintf(trace, "addmac(src='%s', dest='%s', dname='%s', mp=%x\n", src, dest, dname, mp);
#endif
.
1096c
		} else if (endcmd(c) && c!='"') {
.
1080a
				*p = 0;
.
1072,1077c
		} else if (!un && any(c, " \t")) {
			/* End of lhs */
			break;
		} else if (endcmd(c) && c!='"') {
.
1052a
		if (un)
			error("Missing lhs");
.
1046c
	mp = ab ? abbrevs : exclam() ? immacs : arrows;
.
1040c
	char lhs[100], rhs[100];	/* max sizes resp. */
.
1038a
	int ab;	/* true if this is abbr command */
.
1037c
mapcmd(un, ab)
.
988c
	/*
	 * Defensive programming - after a munged undadot.
	 * Also handle empty buffer case.
	 */
	if ((dot <= zero || dot > dol) && dot != dol)
.
585c
					extern char *ncols['z'-'a'+2];
.
562a
			/* Rest of tag if abbreviated */
			while (!iswhite(*cp))
				cp++;

.
544c
			if ((*lp || !iswhite(*cp)) && (value(TAGLENGTH)==0 || lp-lasttag < value(TAGLENGTH))) {
.
526a
		tfcount++;
.
216a
	if (FIXUNDO)
		vundkind = VMANY;
.
215a
	if (FIXUNDO)
		undap1 = undap2 = addr1;
.
14a
static	jnoop();
.
5a
#include "ex_vis.h"
.
w
q
'-*-END-*-'
ed - ex_data.c << '-*-END-*-'
69d
64a
	"taglength",	"tl",	NUMERIC,	0,	0,	0,
	"tags",		"tag",	STRING,		0,	0,	tags,
.
63d
53a
	"readonly",	"ro",	ONOFF,		0,	0,	0,
.
48a
	"mesg",		0,	ONOFF,		1,	1,	0,
.
w
q
'-*-END-*-'
ed - ex_io.c << '-*-END-*-'
973a
	if (slevel <= 0)
		ttyindes = saveinp;
.
968d
960c
short slevel;
short ttyindes;
.
936a
	if(kflag)
		crblock(perm, genbuf, nib, cntch);
.
922a
                		if(kflag)
                                        crblock(perm, genbuf, nib, cntch);
.
894d
876a
			while(fp < &genbuf[ninbuf]) {
				if (*fp++ & 0200) {
					if (kflag)
						crblock(perm, genbuf, ninbuf+1,
cntch);
					break;
				}
			}
			fp = genbuf;
			cntch += ninbuf+1;
.
870a
					lp++;
.
543,854d
484a
			if (value(READONLY))
				error(" File is read only");
.
483a
		case EDF:
			if (value(READONLY))
				error(" File is read only");
			break;

.
465c
		if (!exclam && (!value(WRITEANY) || value(READONLY)))
		switch (edfile()) {
.
324a
		if (xflag)
			break;
.
141c
			if (any(peekchar(), "#%|"))
.
86a
			if (value(READONLY))
				printf(" [Read only]");
.
46a
		if (c == 'e' || c == 'E')
			altdot = lineDOT();
.
45c
		wasalt = (isalt > 0) ? isalt-1 : 0;
		isalt = 0;
.
18a
short	isalt;
.
9c
 * File input/output, source, preserve and recover
.
w
q
'-*-END-*-'
ed - ex_put.c << '-*-END-*-'
902a
}

#ifdef TIOCLGET
/*
 * We have just gotten a susp.  Suspend and prepare to resume.
 */
onsusp()
{
	ttymode f;

	f = setty(normf);
	vnfl();
	putpad(TE);
	flush();

	signal(SIGTSTP, SIG_DFL);
	kill(0, SIGTSTP);

	/* the pc stops here */

	signal(SIGTSTP, onsusp);
	vcontin(0);
	setty(f);
	if (!inopen)
		error(0);
	else {
		if (vcnt < 0) {
			vcnt = -vcnt;
			if (state == VISUAL)
				vclear();
			else if (state == CRTOPEN)
				vcnt = 0;
		}
		vdirty(0, LINES);
		vrepaint(cursor);
	}
.
892a
# endif
# ifdef TIOCLGET
	ioctl(i, TIOCSLTC, &nlttyc);
# endif

#else
	/* USG 3 very simple: just set everything */
	ioctl(i, TCSETAW, &tty);
.
890,891c
# endif

# ifdef TIOCGETC
	/* Update the other random chars while we're at it. */
.
888c
# else
	/* We have to.  Too bad. */
.
879,886c
#ifndef USG3TTY
# ifdef USG
	/* Bug in USG tty driver, put out a DEL as a patch. */
	if (tty.sg_ospeed >= B1200)
		write(1, "\377", 1);
# endif

# ifdef TIOCSETN
	/* Don't flush typeahead if we don't have to */
.
874a
/*
 * sTTY: set the tty modes on file descriptor i to be what's
 * currently in global "tty".  (Also use nttyc if needed.)
 */
.
872a
	if ((tn=ttyname(0)) == NULL && (tn=ttyname(1)) == NULL && (tn=ttyname(2)) == NULL)
		tn = "/dev/tty";
	strcpy(ttynbuf, tn);
	stat(ttynbuf, &sbuf);
	ttymesg = sbuf.st_mode & 0777;
.
871a
# endif
# ifdef TIOCLGET
	ioctl(i, TIOCGLTC, &olttyc);
	nlttyc = olttyc;
# endif
#else
	ioctl(i, TCGETA, &tty);
.
869c
# ifdef TIOCGETC
.
867a
#ifndef USG3TTY
.
866a
	char *tn;
	struct stat sbuf;
.
859a
#else
	if (tty.c_lflag & ICANON)
		ttcharoff();
	tty = f;
#endif
.
856,858c
# ifdef TIOCLGET
		nlttyc = olttyc;
# endif
	} else
		ttcharoff();
.
853,854c
#ifndef USG3TTY
	if (f == normf) {
.
851a
#else
	ttymode ot;
	ot = tty;
#endif
.
850a
#ifndef USG3TTY
.
849c
	ttymode f;
.
847a
ttymode
.
836c
	ttymode f;
.
807a
	if (!value(MESG))
		chmod(ttynbuf, ttymesg);
.
805a
	tostop();
}

/* Actions associated with putting the terminal in the right mode. */
tostop()
{
.
803a
#else
	pfast = (f.c_oflag & OCRNL) == 0;
#endif
.
802a
#ifndef USG3TTY
.
800c
	ttymode f;
.
796a
 * Turn off start/stop chars if they aren't the default ^S/^Q.
 * This is so idiots who make esc their start/stop don't lose.
 * We always turn off quit since datamedias send ^\ for their
 * right arrow key.
 */
#ifdef TIOCGETC
ttcharoff()
{
	nttyc.t_quitc = '\377';
	if (nttyc.t_startc != CTRL(q))
		nttyc.t_startc = '\377';
	if (nttyc.t_stopc != CTRL(s))
		nttyc.t_stopc = '\377';
# ifdef TIOCLGET
	nlttyc.t_suspc = '\377';	/* ^Z */
	nlttyc.t_dsuspc = '\377';	/* ^Y */
	nlttyc.t_flushc = '\377';	/* ^O */
	nlttyc.t_lnextc = '\377';	/* ^V */
# endif
}
#endif

#ifdef USG3TTY
ttcharoff()
{
	tty.c_cc[VQUIT] = '\377';
# ifdef VSTART
	/*
	 * The following is sample code if USG ever lets people change
	 * their start/stop chars.  As long as they can't we can't get
	 * into trouble so we just leave them alone.
	 */
	if (tty.c_cc[VSTART] != CTRL(q))
		tty.c_cc[VSTART] = '\377';
	if (tty.c_cc[VSTOP] != CTRL(s))
		tty.c_cc[VSTOP] = '\377';
# endif
}
#endif

/*
.
795a
/* actions associated with putting the terminal in open mode */
tostart()
{
	putpad(VS);
	putpad(KS);
	if (!value(MESG))
		chmod(ttynbuf, 0611);	/* 11 = urgent only allowed */
}

.
790,791c
	tostart();
.
786,788d
784c
	f = tty;
	tty = normf;
	tty.c_iflag &= ~ICRNL;
	tty.c_lflag &= ~(ECHO|ICANON);
	tty.c_oflag &= ~TAB3;
	tty.c_cc[VMIN] = 1;
	tty.c_cc[VTIME] = 1;
	ttcharoff();
.
781,782c
	tty.sg_flags = (normf &~ (ECHO|XTABS|CRMOD)) |
# ifdef CBREAK
							CBREAK;
# else
							RAW;
# endif
# ifdef TIOCGETC
	ttcharoff();
# endif
.
779a
#ifndef USG3TTY
.
774c
	ttymode f;
.
771a
ttymode
.
750a
#else
	tty = normf;
	tty.c_oflag &= ~(ONLCR|TAB3);
	tty.c_lflag &= ~ECHO;
#endif
.
749a
#ifndef USG3TTY
.
681,690d
671c
	*obp++ = c & 0177;
.
565,568d
532c
		i = tabcol(outcol, value(HARDTABS));
.
499c
		if (xNL && pfast)
			tputs(xNL, 0, plodput);
		else
			plodput('\n');
.
491c
			if (xNL)
				tputs(xNL, 0, plodput);
			else
				plodput('\n');
.
489c
		/*
		 * BUG: this doesn't take the (possibly long) length
		 * of xCR into account.
		 */
		if (xCR)
			tputs(xCR, 0, plodput);
		else
			plodput('\r');
.
459c
		i = destcol % value(HARDTABS)
		    + destcol / value(HARDTABS);
.
457c
	} else
	/*
	 * No home and no up means it's impossible, so we return an
	 * incredibly big number to make cursor motion win out.
	 */
		if (!UP && destline < outline)
			return (500);
.
451c
			if (i + k + 2 < j && (k<=0 || UP)) {
.
449a
			/*
			 * Quickly consider homing down and moving from there.
			 * Assume cost of LL is 2.
			 */
.
446c

		/*
		 * Decision.  We may not have a choice if no UP.
		 */
		if (i + destline < j || (!UP && destline < outline)) {
			/*
			 * Cheaper to home.  Do it now and pretend it's a
			 * regular local motion.
			 */
.
441c
				j = i + 1; /* impossibly expensive */

		/* k is the absolute value of vertical distance */
.
439c
				i = j = outcol - destcol; /* cheaper to backspace */
.
437c
		} else
			/* leftward motion only works if we can backspace. */
.
431,434c
		/*
		 * j is cost to move locally without homing
		 */
		if (destcol >= outcol) {	/* if motion is to the right */
			j = destcol / value(HARDTABS) - outcol / value(HARDTABS);
			if (GT && j)
				j += destcol % value(HARDTABS);
.
428c
			i = (destcol / value(HARDTABS)) + (destcol % value(HARDTABS));
.
426a
		/*
		 * i is the cost to home and tab/space to the right to
		 * get to the proper column.  This assumes ND space costs
		 * 1 char.  So i+destcol is cost of motion with home.
		 */
.
425a
	/*
	 * Consider homing and moving down/right from there, vs moving
	 * directly with local motions to the right spot.
	 */
.
369c
			/*
			 * The following linefeed (or simulation thereof)
			 * is supposed to scroll up the screen, since we
			 * are on the bottom line.  We make the assumption
			 * that linefeed will scroll.  If ns is in the
			 * capability list this won't work.  We should
			 * probably have an sc capability but sf will
			 * generally take the place if it works.
			 *
			 * Superbee glitch:  in the middle of the screen we
			 * have to use esc B (down) because linefeed screws up
			 * in "Efficient Paging" (what a joke) mode (which is
			 * essential in some SB's because CRLF mode puts garbage
			 * in at end of memory), but you must use linefeed to
			 * scroll since down arrow won't go past memory end.
			 * I turned this off after recieving Paul Eggert's
			 * Superbee description which wins better.
			 */
			if (xNL /* && !XB */ && pfast)
				tputs(xNL, 0, putch);
			else
				putch('\n');
.
347,348c
					if (xCR)
						tputs(xCR, 0, putch);
					else
						putch('\r');
				if (xNL)
					tputs(xNL, 0, putch);
				else
					putch('\n');
.
197,202c
static	char linb[66];
static	char *linp = linb;
.
w
q
'-*-END-*-'
ed - ex_re.c << '-*-END-*-'
786c
	case CEOFC:
.
704,707d
650c
				*ep++ = CEOFC;
.
525c
			*ep++ = CEOFC;
.
310c
	if (cflag == 0)
.
198c
			cflag = !cflag;
.
186a
		if (subre.Expbuf[0] == 0)
			error("No previous substitute re|No previous substitute to repeat");
.
177c
		cflag = 0;
.
160c
		gsubf = cflag = 0;
.
148c
	if (stotal == 0 && !inglobal && !cflag)
.
107c
bool	cflag;
.
w
q
'-*-END-*-'
ed - ex_re.h << '-*-END-*-'
62c
#define	CEOFC	17
.
w
q
'-*-END-*-'
ed - ex_set.c << '-*-END-*-'
76a
			if (op == &options[PROMPT])
				oprompt = 1 - no;
.
w
q
'-*-END-*-'
ed - ex_subr.c << '-*-END-*-'
770d
686a
/*
 * Return the column number that results from being in column col and
 * hitting a tab, where tabs are set every ts columns.  Work right for
 * the case where col > COLUMNS, even if ts does not divide COLUMNS.
 */
tabcol(col, ts)
int col, ts;
{
	int offset, result;

	if (col >= COLUMNS) {
		offset = COLUMNS * (col/COLUMNS);
		col -= offset;
	} else
		offset = 0;
	result = col + ts - (col % ts) + offset;
	return (result);
}

.
446c
	*addr = n | oldglobmk;
.
440a
	oldglobmk = *addr & 1;
.
439a
	register oldglobmk;
.
181a
	else if (c=='"')
		comment();
.
58a
/*
 * Ignore a comment to the end of the line.
 * This routine eats the trailing newline so don't call newline().
 */
comment()
{
	register int c;

	do {
		c = getchar();
	} while (c != '\n' && c != EOF);
	if (c == EOF)
		ungetchar(c);
}

.
w
q
'-*-END-*-'
ed - ex_temp.c << '-*-END-*-'
574a
}

/*
 * Encryption routines.  These are essentially unmodified from ed.
 */

/*
 * crblock: encrypt/decrypt a block of text.
 * buf is the buffer through which the text is both input and
 * output. nchar is the size of the buffer. permp is a work
 * buffer, and startn is the beginning of a sequence.
 */
crblock(permp, buf, nchar, startn)
char *permp;
char *buf;
int nchar;
long startn;
{
	register char *p1;
	int n1;
	int n2;
	register char *t1, *t2, *t3;

	t1 = permp;
	t2 = &permp[256];
	t3 = &permp[512];

	n1 = startn&0377;
	n2 = (startn>>8)&0377;
	p1 = buf;
	while(nchar--) {
		*p1 = t2[(t3[(t1[(*p1+n1)&0377]+n2)&0377]-n2)&0377]-n1;
		n1++;
		if(n1==256){
			n1 = 0;
			n2++;
			if(n2==256) n2 = 0;
		}
		p1++;
	}
}

/*
 * makekey: initialize buffers based on user key a.
 */
makekey(a, b)
char *a, *b;
{
       register int i;
	long t;
	char temp[KSIZE + 1];

	for(i = 0; i < KSIZE; i++)
		temp[i] = *a++;
	time(&t);
	t += getpid();
	for(i = 0; i < 4; i++)
		temp[i] ^= (t>>(8*i))&0377;
	crinit(temp, b);
}

/*
 * crinit: besides initializing the encryption machine, this routine
 * returns 0 if the key is null, and 1 if it is non-null.
 */
crinit(keyp, permp)
char    *keyp, *permp;
{
       register char *t1, *t2, *t3;
	register i;
	int ic, k, temp;
	unsigned random;
	char buf[13];
	long seed;

	t1 = permp;
	t2 = &permp[256];
	t3 = &permp[512];
	if(*keyp == 0)
		return(0);
	strncpy(buf, keyp, 8);
	while (*keyp)
		*keyp++ = '\0';

	buf[8] = buf[0];
	buf[9] = buf[1];
	domakekey(buf);

	seed = 123;
	for (i=0; i<13; i++)
		seed = seed*buf[i] + i;
	for(i=0;i<256;i++){
		t1[i] = i;
		t3[i] = 0;
	}
	for(i=0; i<256; i++) {
		seed = 5*seed + buf[i%13];
		random = seed % 65521;
		k = 256-1 - i;
		ic = (random&0377) % (k+1);
		random >>= 8;
		temp = t1[k];
		t1[k] = t1[ic];
		t1[ic] = temp;
		if(t3[k]!=0) continue;
		ic = (random&0377) % k;
		while(t3[ic]!=0) ic = (ic+1) % k;
		t3[k] = ic;
		t3[ic] = k;
	}
	for(i=0; i<256; i++)
		t2[t1[i]&0377] = i;
	return(1);
}

/*
 * domakekey: the following is the major nonportable part of the encryption
 * mechanism. A 10 character key is supplied in buffer.
 * This string is fed to makekey (an external program) which
 * responds with a 13 character result. This result is placed
 * in buffer.
 */
domakekey(buffer)
char *buffer;
{
       int pf[2];

	if (pipe(pf)<0)
		pf[0] = pf[1] = -1;
	if (fork()==0) {
		close(0);
		close(1);
		dup(pf[0]);
		dup(pf[1]);
		execl("/usr/lib/makekey", "-", 0);
		execl("/lib/makekey", "-", 0);
		exit(1);
	}
	write(pf[1], buffer, 10);
	if (wait((int *)NULL)==-1 || read(pf[0], buffer, 13)!=13)
		error("crypt: cannot generate key");
	close(pf[0]);
	close(pf[1]);
	/* end of nonportable part */
.
219a
			if (*bp > NMBLKS)
				error(" Tmp file too large");
.
176,177c
	if (oblock >= 0) {
		if(xtflag) {
			/*
			 * Encrypt block before writing, so some devious
			 * person can't look at temp file while editing.
			 */
			p1 = obuff;
			p2 = crbuf;
			n = CRSIZE;
			while(n--)
				*p2++ = *p1++;
			crblock(tperm, crbuf, CRSIZE, (long)0);
			blkio(oblock, crbuf, write);
		} else
			blkio(oblock, obuff, write);
	}
.
173a
		if(xtflag)
			crblock(tperm, ibuff, CRSIZE, (long)0);
.
170a
		}
.
169c
		if (ichanged) {
			if(xtflag)
				crblock(tperm, ibuff, CRSIZE, (long)0);
.
164a
			if(xtflag)
				crblock(tperm, ibuff2, CRSIZE, (long)0);
.
161a
			}
.
160c
			if (ichang2) {
				if(xtflag)
					crblock(tperm, ibuff2, CRSIZE, (long)0);
.
139a
        register char *p1, *p2;
        register int n;
.
w
q
'-*-END-*-'
ed - ex_tty.c << '-*-END-*-'
117c
	namp = "albcbtcdceclcmcrdcdldmdoedeik0k1k2k3k4k5k6k7k8k9hoicimipkdkekhklkrkskullndnlpcsesfsosrtatetiupvbvsve";
.
111c
 	namp = "ambsdadbeohchzinmincnsosulxbxnxtxx";
.
92,96d
82c
	if (tgoto(CM, 2, 2)[0] == 'O')	/* OOPS */
.
80c
	if (COLUMNS <= 4)
.
75a
#ifdef TIOCLGET
	/*
	 * Now map users susp char to ^Z, being careful that the susp
	 * overrides any arrow key, but only for hackers (=new tty driver).
	 */
	{
		static char sc[2];
		int i, fnd;

		ioctl(0, TIOCGETD, &ldisc);
		if (ldisc == NTTYDISC) {
			sc[0] = olttyc.t_suspc;
			sc[1] = 0;
			if (olttyc.t_suspc == CTRL(z)) {
				for (i=0; i<=4; i++)
					if (arrows[i].cap[0] == CTRL(z))
						addmac(sc, NULL, NULL, arrows);
			} else
				addmac(sc, "\32", "susp", arrows);
		}
	}
#endif

.
42c
	char *tgoto();
.
34c
	&AM, &BS, &DA, &DB, &EO, &HC, &HZ, &IN, &MI, &NC, &NS, &OS, &UL,
	&XB, &XN, &XT, &XX
.
31c
	&ND, &xNL, &xPC, &SE, &SF, &SO, &SR, &TA, &TE, &TI, &UP, &VB, &VS, &VE
.
28c
	&AL, &BC, &BT, &CD, &CE, &CL, &CM, &xCR, &DC, &DL, &DM, &DO, &ED, &EI,
.
23a
#else
	if (ioctl(1, TCGETA, &tty) < 0)
		return;
	if (ospeed != tty.c_cflag & CBAUD)
		value(SLOWOPEN) = (tty.c_cflag & CBAUD) < B1200;
	ospeed = tty.c_cflag & CBAUD;
	normf = tty;
	UPPERCASE = (tty.c_iflag & IUCLC) != 0;
	GT = (tty.c_oflag & TABDLY) != TAB3 && !XT;
	NONL = (tty.c_oflag & OCRNL) == 0;
#endif
.
14a
#ifndef USG3TTY
.
w
q
'-*-END-*-'
ed - ex_tty.h << '-*-END-*-'
132a
int	maphopcnt;	/* check for infinite mapping loops */
bool	anyabbrs;	/* true if abbr or unabbr has been done */
char	ttynbuf[20];	/* result of ttyname() */
int	ttymesg;	/* original mode of users tty */
.
130a
struct maps abbrevs[MAXNOMACS];	/* for word abbreviations */
int	ldisc;			/* line discipline for ucb tty driver */
.
111a
ttymode	normf;			/* Restore tty flags to this (someday) */
bool	normtty;		/* Have to restore normal mode from normf */

ttymode ostart(), setty(), unixex();

.
108,110d
105,106c
/*
 * There are several kinds of tty drivers to contend with.  These include:
 * (1)	V6:		no CBREAK, no ioctl.  (Include PWB V1 here).
 * (2)	V7 research:	has CBREAK, has ioctl, and has the tchars (TIOCSETC)
 *			business to change start, stop, etc. chars.
 * (3)	USG V2:		Basically like V6 but RAW mode is like V7 RAW.
 *			(We treat it as V6.)
 * (4)	USG V3:		equivalent to V7 but totally incompatible.
 * (5)  Berkeley:	has ltchars in addition to all of V7.
 *
 * The following attempts to decide what we are on, and declare
 * some variables in the appropriate format.  The wierd looking one (ttymode)
 * is the thing we pass to sTTY and family to turn "RAW" mode on or off
 * when we go into or out of visual mode.  In V7/V6 it's just the flags word
 * to stty.  In USG V3 it's the whole tty structure.
 */
#ifdef	USG3TTY			/* USG V3 */
  struct	termio tty;	/* Use this one structure to change modes */
  typedef	struct termio ttymode;	/* Mode to contain tty flags */

#else				/* All others */
  struct	sgttyb tty;	/* Always stty/gtty using this one structure */
  typedef	int ttymode;	/* Mode to contain tty flags */
# ifdef 	TIOCSETC	/* V7 */
   struct	tchars ottyc, nttyc;	/* For V7 character masking */
# endif
# ifdef		TIOCLGET	/* Berkeley */
   struct	ltchars olttyc, nlttyc;	/* More of tchars style stuff */
# endif

.
86a
bool	XX;			/* Tektronix 4025 insert line */
.
84a
bool	XB;			/* Beehive (no escape key, simulate with f1) */
.
82a
bool	NS;			/* No scroll - linefeed at bottom won't scroll */
.
58a
char	*xNL;			/*    Line feed (new line) */
.
37a
char	*xCR;			/* P  Carriage return */
.
w
q
'-*-END-*-'
ed - ex_tune.h << '-*-END-*-'
109c
#define	ATTN	(-2)
.
40a
#define CRSIZE		512
.
37a
#define CRSIZE		1024
.
16c
#define	EXSTRINGS	libpath(ex3.4strings)
.
13,14c
#define	EXRECOVER	libpath(ex3.4recover)
#define	EXPRESERVE	libpath(ex3.4preserve)
.
w
q
'-*-END-*-'
cat > ex_unix.c << '-*-END-*-'
/* Copyright (c) 1979 Regents of the University of California */
#include "ex.h"
#include "ex_temp.h"
#include "ex_tty.h"
#include "ex_vis.h"

/*
 * Unix escapes, filtering
 */

/*
 * First part of a shell escape,
 * parse the line, expanding # and % and ! and printing if implied.
 */
unix0(warn)
	bool warn;
{
	register char *up, *fp;
	register short c;
	char printub, puxb[UXBSIZE + sizeof (int)];

	printub = 0;
	CP(puxb, uxb);
	c = getchar();
	if (c == '\n' || c == EOF)
		error("Incomplete shell escape command@- use 'shell' to get a shell");
	up = uxb;
	do {
		switch (c) {

		case '\\':
			if (any(peekchar(), "%#!"))
				c = getchar();
		default:
			if (up >= &uxb[UXBSIZE]) {
tunix:
				uxb[0] = 0;
				error("Command too long");
			}
			*up++ = c;
			break;

		case '!':
			fp = puxb;
			if (*fp == 0) {
				uxb[0] = 0;
				error("No previous command@to substitute for !");
			}
			printub++;
			while (*fp) {
				if (up >= &uxb[UXBSIZE])
					goto tunix;
				*up++ = *fp++;
			}
			break;

		case '#':
			fp = altfile;
			if (*fp == 0) {
				uxb[0] = 0;
				error("No alternate filename@to substitute for #");
			}
			goto uexp;

		case '%':
			fp = savedfile;
			if (*fp == 0) {
				uxb[0] = 0;
				error("No filename@to substitute for %%");
			}
uexp:
			printub++;
			while (*fp) {
				if (up >= &uxb[UXBSIZE])
					goto tunix;
				*up++ = *fp++ | QUOTE;
			}
			break;
		}
		c = getchar();
	} while (c == '"' || c == '|' || !endcmd(c));
	if (c == EOF)
		ungetchar(c);
	*up = 0;
	if (!inopen)
		resetflav();
	if (warn)
		ckaw();
	if (warn && hush == 0 && chng && xchng != chng && value(WARN) && dol > zero) {
		xchng = chng;
		vnfl();
		printf(mesg("[No write]|[No write since last change]"));
		noonl();
		flush();
	} else
		warn = 0;
	if (printub) {
		if (uxb[0] == 0)
			error("No previous command@to repeat");
		if (inopen) {
			splitw++;
			vclean();
			vgoto(WECHO, 0);
		}
		if (warn)
			vnfl();
		if (hush == 0)
			lprintf("!%s", uxb);
		if (inopen && Outchar != termchar) {
			vclreol();
			vgoto(WECHO, 0);
		} else
			putnl();
		flush();
	}
}

/*
 * Do the real work for execution of a shell escape.
 * Mode is like the number passed to open system calls
 * and indicates filtering.  If input is implied, newstdin
 * must have been setup already.
 */
ttymode
unixex(opt, up, newstdin, mode)
	char *opt, *up;
	int newstdin, mode;
{
	int pvec[2];
	ttymode f;

	signal(SIGINT, SIG_IGN);
#ifdef TIOCLGET
	if (dosusp)
		signal(SIGTSTP, SIG_DFL);
#endif
	if (inopen)
		f = setty(normf);
	if ((mode & 1) && pipe(pvec) < 0) {
		/* Newstdin should be io so it will be closed */
		if (inopen)
			setty(f);
		error("Can't make pipe for filter");
	}
#ifndef VFORK
	pid = fork();
#else
	pid = vfork();
#endif
	if (pid < 0) {
		if (mode & 1) {
			close(pvec[0]);
			close(pvec[1]);
		}
		setrupt();
		error("No more processes");
	}
	if (pid == 0) {
		if (mode & 2) {
			close(0);
			dup(newstdin);
			close(newstdin);
		}
		if (mode & 1) {
			close(pvec[0]);
			close(1);
			dup(pvec[1]);
			if (inopen) {
				close(2);
				dup(1);
			}
			close(pvec[1]);
		}
		if (io)
			close(io);
		if (tfile)
			close(tfile);
#ifndef VMUNIX
		close(erfile);
#endif
		signal(SIGHUP, oldhup);
		signal(SIGQUIT, oldquit);
		if (ruptible)
			signal(SIGINT, SIG_DFL);
		execl(svalue(SHELL), "sh", opt, up, (char *) 0);
		printf("No %s!\n", svalue(SHELL));
		error(NOSTR);
	}
	if (mode & 1) {
		io = pvec[0];
		close(pvec[1]);
	}
	if (newstdin)
		close(newstdin);
	return (f);
}

/*
 * Wait for the command to complete.
 * F is for restoration of tty mode if from open/visual.
 * C flags suppression of printing.
 */
unixwt(c, f)
	bool c;
	ttymode f;
{

	waitfor();
#ifdef TIOCLGET
	if (dosusp)
		signal(SIGTSTP, onsusp);
#endif
	if (inopen)
		setty(f);
	setrupt();
	if (!inopen && c && hush == 0) {
		printf("!\n");
		flush();
		termreset();
		gettmode();
	}
}

/*
 * Setup a pipeline for the filtration implied by mode
 * which is like a open number.  If input is required to
 * the filter, then a child editor is created to write it.
 * If output is catch it from io which is created by unixex.
 */
filter(mode)
	register int mode;
{
	static int pvec[2];
	register ttymode f;
	register int lines = lineDOL();

	mode++;
	if (mode & 2) {
		signal(SIGINT, SIG_IGN);
		if (pipe(pvec) < 0)
			error("Can't make pipe");
		pid = fork();
		io = pvec[0];
		if (pid < 0) {
			setrupt();
			close(pvec[1]);
			error("No more processes");
		}
		if (pid == 0) {
			setrupt();
			io = pvec[1];
			close(pvec[0]);
			putfile();
			exit(0);
		}
		close(pvec[1]);
		io = pvec[0];
		setrupt();
	}
	f = unixex("-c", uxb, (mode & 2) ? pvec[0] : 0, mode);
	if (mode == 3) {
		delete(0);
		addr2 = addr1 - 1;
	}
	if (mode & 1) {
		if(FIXUNDO)
			undap1 = undap2 = addr2+1;
		ignore(append(getfile, addr2));
	}
	close(io);
	io = -1;
	unixwt(!inopen, f);
	netchHAD(lines);
}

/*
 * Set up to do a recover, getting io to be a pipe from
 * the recover process.
 */
recover()
{
	static int pvec[2];

	if (pipe(pvec) < 0)
		error(" Can't make pipe for recovery");
	pid = fork();
	io = pvec[0];
	if (pid < 0) {
		close(pvec[1]);
		error(" Can't fork to execute recovery");
	}
	if (pid == 0) {
		close(2);
		dup(1);
		close(1);
		dup(pvec[1]);
	        close(pvec[1]);
		execl(EXRECOVER, "exrecover", svalue(DIRECTORY), file, (char *) 0);
		close(1);
		dup(2);
		error(" No recovery routine");
	}
	close(pvec[1]);
}

/*
 * Wait for the process (pid an external) to complete.
 */
waitfor()
{

	do
		rpid = wait(&status);
	while (rpid != pid && rpid != -1);
	status = (status >> 8) & 0377;
}

/*
 * The end of a recover operation.  If the process
 * exits non-zero, force not edited; otherwise force
 * a write.
 */
revocer()
{

	waitfor();
	if (pid == rpid && status != 0)
		edited = 0;
	else
		change();
}
'-*-END-*-'
ed - ex_v.c << '-*-END-*-'
260a
	if (undadot <= zero || undadot > dol)
		undadot = zero+1;
.
177a
	if (NS && !SF) {
		if (initev)
			goto toopen;
		error("Visual requires scrolling");
	}
.
156c
	register ttymode f;
.
131c
	ttymode f;
.
56c
	register ttymode f;
.
w
q
'-*-END-*-'
ed - ex_vadj.c << '-*-END-*-'
366a
	vscroll(cnt);
.
365d
118a
#ifdef TRACE
	if (trace)
		fprintf(trace, "after pline in vreopen\n");
#endif
.
117a
#ifdef TRACE
	if (trace)
		fprintf(trace, "before pline in vreopen\n");
#endif
.
w
q
'-*-END-*-'
ed - ex_vars.h << '-*-END-*-'
40c
#define	NOPTS	40
.
13,38c
#define MESG            12
#define NUMBER          13
#define OPEN            14
#define OPTIMIZE        15
#define PARAGRAPHS      16
#define PROMPT          17
#define READONLY        18
#define REDRAW          19
#define REMAP           20
#define REPORT          21
#define SCROLL          22
#define SECTIONS        23
#define SHELL           24
#define SHIFTWIDTH      25
#define SHOWMATCH       26
#define SLOWOPEN        27
#define TABSTOP         28
#define TAGLENGTH       29
#define TAGS            30
#define TERM            31
#define TERSE           32
#define TIMEOUT         33
#define TTYTYPE         34
#define WARN            35
#define WINDOW          36
#define WRAPSCAN        37
#define WRAPMARGIN      38
#define WRITEANY        39
.
w
q
'-*-END-*-'
ed - ex_vget.c << '-*-END-*-'
496,497c
	register line *p;

	if (!trace) return;

	fprintf(trace, "\n%s: undkind=%d, vundkind=%d, unddel=%d, undap1=%d, undap2=%d,\n",
		s, undkind, vundkind, lineno(unddel), lineno(undap1), lineno(undap2));
	fprintf(trace, "  undadot=%d, dot=%d, dol=%d, unddol=%d, truedol=%d\n",
		lineno(undadot), lineno(dot), lineno(dol), lineno(unddol), lineno(truedol));
	fprintf(trace, "  [");
	for (p=zero+1; p<=truedol; p++)
		fprintf(trace, "%o ", *p);
	fprintf(trace, "]\n");
.
492a
visdump(s)
char *s;
{
	register int i;

	if (!trace) return;

	fprintf(trace, "\n%s: basWTOP=%d, basWLINES=%d, WTOP=%d, WBOT=%d, WLINES=%d, WCOLS=%d, WECHO=%d\n",
		s, basWTOP, basWLINES, WTOP, WBOT, WLINES, WCOLS, WECHO);
	fprintf(trace, "   vcnt=%d, vcline=%d, cursor=%d, wcursor=%d, wdot=%d\n",
		vcnt, vcline, cursor-linebuf, wcursor-linebuf, wdot-zero);
	for (i=0; i<TUBELINES; i++)
		if (vtube[i] && *vtube[i])
			fprintf(trace, "%d: '%s'\n", i, vtube[i]);
	tvliny();
}

.
488a
#endif
		vch_mac = VC_NOCHANGE;
.
483a
#ifdef notdef
.
469c
		fprintf(trace, "macpush(%s), canundo=%d\n",st,canundo);
.
466a
#endif
.
464a
#ifdef notdef
.
442c
		fprintf(trace,"Fail: push(%s), return %c", &b[1], c);
.
433,434c
			if (trace)
				fprintf(trace,"Success: push(%s), return %c",maps[d].mapto, c);
.
430c
			macpush(maps[d].mapto,maps == arrows);
.
415a
						 * Nothing waiting.  Push back
						 * what we peeked at & return
						 * failure (c).
						 *
.
413c
							fprintf(trace,"fpk=0: return '%c'",c);
.
404a
					 * Is there another char waiting?
					 *
.
395c
			fprintf(trace,"\ntry '%s', ",maps[d].cap);
.
389a
	/*
	 * If c==0, the char came from getesc typing escape.  Pass it through
	 * unchanged.  0 messes up the following code anyway.
	 */
	if (c==0)
		return(0);

.
246c
	if (vglobp || vmacp)
.
220a
	if (Outchar == termchar)
		putchar('\n');
.
95a
#ifdef BEEHIVE
	if (XB && slevel==0 && c == ESCAPE) {
		if (read(0, &Peek2key, 1) != 1)
			goto getATTN;
		Peek2key &= TRIM;
		switch (Peek2key) {
		case 'C':	/* SPOW mode sometimes sends \EC for space */
			c = ' ';
			Peek2key = 0;
			break;
		case 'q':	/* f2 -> ^C */
			c = CTRL(c);
			Peek2key = 0;
			break;
		case 'p':	/* f1 -> esc */
			Peek2key = 0;
			break;
		}
	}
#endif
.
90c
	if (read(slevel == 0 ? 0 : ttyindes, &ch, 1) != 1) {
.
86a
		vch_mac = VC_NOTINMAC;
.
72a
#ifdef BEEHIVE
	if (Peek2key) {
		c = Peek2key;
		Peek2key = 0;
		return (c);
	}
#endif
.
65a
#define BEEHIVE
#ifdef BEEHIVE
	static char Peek2key;
#endif
	extern short slevel, ttyindes;
.
w
q
'-*-END-*-'
ed - ex_vis.h << '-*-END-*-'
135a

/*
 * State information for undoing of macros.  The basic idea is that
 * if the macro does only 1 change or even none, we don't treat it
 * specially.  If it does 2 or more changes we want to be able to
 * undo it as a unit.  We remember how many changes have been made
 * within the current macro.  (Remember macros can be nested.)
 */
#define VC_NOTINMAC	0	/* Not in a macro */
#define VC_NOCHANGE	1	/* In a macro, no changes so far */
#define VC_ONECHANCE	2	/* In a macro, one change so far */
#define VC_MANYCHANGE	3	/* In a macro, at least 2 changes so far */

short	vch_mac;	/* Change state - one of the above */
.
3c
 * Ex version 3
.
w
q
'-*-END-*-'
ed - ex_vmain.c << '-*-END-*-'
1040c
			vundo(1);
.
852a
			getDOT();
.
839a
		 * ^Z:	suspend editor session and temporarily return
		 * 	to shell.  Only works on Berkeley tty driver.
		 */
		case CTRL(z):
			forbid(dosusp == 0 || !ldisc);
			vsave();
			oglobp = globp;
			globp = "stop";
			goto gogo;
#endif

		/*
.
838a
#ifdef TIOCLGET
.
692a
			vmacchng(1);
.
691a
			/*
			 * If we just did a macro the whole buffer is in
			 * the undo save area.  We don't want to put THAT.
			 */
			forbid (vundkind == VMANY && undkind==UNDALL);
.
674a
#endif
.
673a
#ifdef notdef
.
646a
			/*
			 * If we are in the middle of a macro, throw away
			 * the rest and fix up undo.
			 * This code copied from getbr().
			 */
			if (vmacp) {
				vmacp = 0;
				if (inopen == -1)	/* don't screw up undo for esc esc */
					vundkind = VMANY;
				inopen = 1;	/* restore old setting now that macro done */
			}
.
576a
			vmacchng(1);
.
508a
				setLAST();
.
490a
			vmacchng(1);
.
455a
			vmacchng(1);
.
403c
				dot -= vcline - 2 + (cnt-1)*basWLINES;
.
400,401d
388c
				dot += (vcnt - vcline) - 2 + (cnt-1)*basWLINES;
.
385,386d
381c
		 *		Count repeats.
.
146a
			if (++maphopcnt > 256)
				error("Infinite macro loop");
.
123a
		maphopcnt = 0;
.
26a
	vch_mac = VC_NOTINMAC;

.
w
q
'-*-END-*-'
ed - ex_voperate.c << '-*-END-*-'
415a
		vmacchng(1);
.
113a
	vmacchng(1);
.
108a
		vmacchng(1);
.
w
q
'-*-END-*-'
ed - ex_vops.c << '-*-END-*-'
148a
		break;
	}
}

/*
 * Routine to handle a change inside a macro.
 * Fromvis is true if we were called from a visual command (as
 * opposed to an ex command).  This has nothing to do with being
 * in open/visual mode as :s/foo/bar is not fromvis.
 */
vmacchng(fromvis)
bool fromvis;
{
	line *savedot, *savedol;
	char *savecursor;
	int nlines, more;
	register line *a1, *a2;
	char ch;	/* DEBUG */
	int copyw(), copywR();

	if (!inopen)
		return;
	if (!vmacp)
		vch_mac = VC_NOTINMAC;
#ifdef TRACE
	if (trace)
		fprintf(trace, "vmacchng, vch_mac=%d, linebuf='%s', *dot=%o\n", vch_mac, linebuf, *dot);
#endif
	if (vmacp && fromvis)
		vsave();
#ifdef TRACE
	if (trace)
		fprintf(trace, "after vsave, linebuf='%s', *dot=%o\n", linebuf, *dot);
#endif
	switch(vch_mac) {
	case VC_NOCHANGE:
		vch_mac = VC_ONECHANGE;
		break;
	case VC_ONECHANGE:
		/* Save current state somewhere */
#ifdef TRACE
		vudump("before vmacchng hairy case");
#endif
		savedot = dot; savedol = dol; savecursor = cursor;
		nlines = dol - zero;
		while ((line *) endcore - truedol < nlines)
			morelines();
		copyw(truedol+1, zero+1, nlines);
		truedol += nlines;

#ifdef TRACE
		visdump("before vundo");
#endif
		/* Restore state as it was at beginning of macro */
		vundo(0);
#ifdef TRACE
		visdump("after vundo");
		vudump("after vundo");
#endif

		/* Do the saveall we should have done then */
		saveall();
#ifdef TRACE
		vudump("after saveall");
#endif

		/* Restore current state from where saved */
		more = savedol - dol; /* amount we shift everything by */
		if (more)
			(*(more>0 ? copywR : copyw))(savedol+1, dol+1, truedol-dol);
		unddol += more; truedol += more;

		truedol -= nlines;
		copyw(zero+1, truedol+1, nlines);
		dot = savedot; dol = savedol ; cursor = savecursor;
		vch_mac = VC_MANYCHANGE;

		/* Arrange that no further undo saving happens within macro */
		otchng = tchng;	/* Copied this line blindly - bug? */
		inopen = -1;	/* no need to save since it had to be 1 or -1 before */
		vundkind = VMANY;
#ifdef TRACE
		vudump("after vmacchng");
#endif
		break;
	case VC_NOTINMAC:
	case VC_MANYCHANGE:
		/* Nothing to do for various reasons. */
.
118a
		if (!show)
			break;
.
105,106c
		if (show) {
			vcline = cnt;
			vrepaint(vmcurs);
		}
.
100c
			if (show)
				vjumpto(dot, NOSTR, '.');
.
95c
		if (show && (vundkind != VMCHNG || addr != dot))
.
91,92c
		if (show)
			if (undkind == UNDMOVE)
				vdirty(0, LINES);
			else
				vreplace(undap1 - addr, undap2 - undap1,
				    undkind == UNDPUT ? 0 : unddol - dol);
.
56c
vundo(show)
bool show;	/* if true update the screen */
.
52a
	cursor = linebuf;
.
w
q
'-*-END-*-'
ed - ex_vops2.c << '-*-END-*-'
720c
	if (Outchar != termchar)
		Outchar = OO;
.
714d
710d
704a
			flush();
.
596a

		/*
		 * Word abbreviation mode.
		 */
		cstr[0] = c;
		if (anyabbrs && gcursor > ogcursor && !wordch(cstr) && wordch(gcursor-1)) {
				int wdtype, abno;

				cstr[1] = 0;
				wdkind = 1;
				cp = gcursor - 1;
				for (wdtype = wordch(cp - 1);
				    cp > ogcursor && wordof(wdtype, cp - 1); cp--)
					;
				*gcursor = 0;
				for (abno=0; abbrevs[abno].mapto; abno++) {
					if (eq(cp, abbrevs[abno].cap)) {
						macpush(cstr, 0);
						macpush(abbrevs[abno].mapto);
						goto vbackup;
					}
				}
		}

.
595a
		dontbreak:;
.
592,594c
			if (/* c <= ' ' && */ value(WRAPMARGIN) &&
				outcol >= OCOLUMNS - value(WRAPMARGIN)) {
				/*
				 * At end of word and hit wrapmargin.
				 * Move the word to next line and keep going.
				 */
				wdkind = 1;
				*gcursor++ = c;
				*gcursor = 0;
				/*
				 * Find end of previous word if we are past it.
				 */
				for (cp=gcursor; cp>ogcursor && isspace(cp[-1]); cp--)
					;
				if (outcol - (gcursor-cp) >= OCOLUMNS - value(WRAPMARGIN)) {
					/*
					 * Find beginning of previous word.
					 */
					for (; cp>ogcursor && !isspace(cp[-1]); cp--)
						;
					if (cp <= ogcursor) {
						/*
						 * There is a single word that
						 * is too long to fit.  Just
						 * let it pass, but beep for
						 * each new letter to warn
						 * the luser.
						 */
						c = *--gcursor;
						*gcursor = 0;
						beep();
						goto dontbreak;
					}
					/*
					 * Save it for next line.
					 */
					macpush(cp, 0);
					cp--;
				}
				macpush("\n", 0);
				/*
				 * Erase white space before the word.
				 */
				while (cp > ogcursor && isspace(cp[-1]))
					cp--;	/* skip blank */
				gobblebl = 3;
				goto vbackup;
.
587,588c
		if (c != NL && !splitw) {
			if (c == ' ' && gobblebl) {
.
547a
#else
				if (c == tty.c_cc[VERASE]
				    || c == tty.c_cc[VKILL]) {
#endif
.
546a
#ifndef USG3TTY
.
463a
#else
			if (c == tty.c_cc[VERASE])
				c = CTRL(h);
			else if (c == tty.c_cc[VKILL])
				c = -1;
#endif
.
459a
#ifndef USG3TTY
.
450a
				if (++maphopcnt > 256)
					error("Infinite macro loop");
.
445c
		c = getkey();
		if (c != ATTN)
			c &= (QUOTE|TRIM);
		ch = c;
		maphopcnt = 0;
.
409a
	char cstr[2];
.
w
q
'-*-END-*-'
ed - ex_vops3.c << '-*-END-*-'
459c
			if (lf == vmove && wcursor > linebuf)
.
372a
	else {
		strcLIN(sp);
		strcpy(scurs, genbuf);
		if (!lmatchp((line *) 0))
			beep();
	}
.
329c
	parens = any(*cp, "()") ? "()" : any(*cp, "[]") ? "[]" : "{}";
.
325c
	for (cp = cursor; !any(*cp, "({[)}]");)
.
w
q
'-*-END-*-'
ed - ex_vput.c << '-*-END-*-'
621c
		if (inssiz >= doomed + tabcol(tabstart, value(TABSTOP)) - tabstart) {
.
545c
		inssiz = tabcol(inscol, value(TABSTOP)) - inscol;
.
446c
	if (p < 0 || vtube[p] == cp)
.
406c
	while (--i);
.
402c
	register int i = tabcol(destcol, value(TABSTOP)) - destcol;
.
118,121c
		if (DB) {
			vgoto(WECHO, 0);
			vputp(CD ? CD : CE, 1);
		} else {
			if (XT) {
				/*
				 * This code basically handles the t1061
				 * where positioning at (0, 0) won't work
				 * because the terminal won't let you put
				 * the cursor on it's magic cookie.
				 *
				 * Should probably be XS above, or even a
				 * new X? glitch, but right now t1061 is the
				 * only terminal with XT.
				 */
				vgoto(WECHO, 0);
				vputp(DL, 1);
			} else {
				vigoto(WECHO, 0);
				vclreol();
			}
		}
.
w
q
'-*-END-*-'
ed - exrecover.c << '-*-END-*-'
179a
#else
	ioctl(2, TCGETA, &tty);
	if (tty.c_lflag & ICANON)
#endif
.
177a
#ifndef USG3TTY
.
w
q
'-*-END-*-'
ed - makefile << '-*-END-*-'
/rm -f.*NBINDIR/s/$/ ${DESTDIR}${NBINDIR}\/view/
/ln.*NBINDIR.*vi/a
	ln ${DESTDIR}${NBINDIR}/ex ${DESTDIR}${NBINDIR}/view
.
/rm -f.*{BINDIR}\/vi/a
	-rm -f ${DESTDIR}${BINDIR}/view
.
/ln.*{BINDIR}\/vi/a
	ln ${DESTDIR}${BINDIR}/ex ${DESTDIR}${BINDIR}/view
.
/ex_tty.o/s//& ex_unix.o/
1c
VERSION=3.4
.
w
q
'-*-END-*-'
ed - makeoptions << '-*-END-*-'
40c
rm /tmp/foo.c
.
35,37c
	$s/e[ 	].*[ 	]/e	NOPTS	/
	w! ex_vars.h
	q
.
11,32c
cc -E $* /tmp/$$.c >/tmp/foo.c
ex - /tmp/foo.c <<'X'
	" delete all preprocessor output (# line, etc)
	g/^# /d
	set sh=/bin/csh
	" delete junk (all but data lines)
	g/^[ 	]*$/d
	1,/options/d
	/}/-1,$d
	" get rid of all of line but option name
	1,$s/	"//
	1,$s/".*//
	1m$	" kludge since options start at 0 but num at 1
	%!num
	$t0	" unkludge
	1s/......../     0  /	" unkludge
	" make #define lines
	1,$s/\(......\)\(.*\)/#define	\U\2\L	\1/
	" get rid of extra blanks, turning into (single) tabs.
	1,$s/	 */	/g
	g/  */s//	/g
	" filter through expand to make it line up nice
	%!expand -8\,24
	" blank line and number of options.
	$i
.
4,9c
onintr ifintr
cp ex_data.c /tmp/$$.c
ex - /tmp/$$.c <<'%'
	g/^#include/d
	w
	q
.
w
q
'-*-END-*-'