remove tree

1 files changed, 0 insertions, 1071 deletions

diff --git a/tree/src/vi/ex-070224/ex_vops.c b/tree/src/vi/ex-070224/ex_vops.c
deleted file mode 100644
index f9a7aa5..0000000
--- a/tree/src/vi/ex-070224/ex_vops.c
+++ /dev/null
@@ -1,1071 +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_vops.c	1.28 (gritter) 8/4/05";
-#endif
-#endif
-
-/* from ex_vops.c	7.7 (Berkeley) 6/7/85 */
-
-#include "ex.h"
-#include "ex_tty.h"
-#include "ex_vis.h"
-
-/*
- * This file defines the operation sequences which interface the
- * logical changes to the file buffer with the internal and external
- * display representations.
- */
-
-/*
- * Undo.
- *
- * Undo is accomplished in two ways.  We often for small changes in the
- * current line know how (in terms of a change operator) how the change
- * occurred.  Thus on an intelligent terminal we can undo the operation
- * by another such operation, using insert and delete character
- * stuff.  The pointers vU[AD][12] index the buffer vutmp when this
- * is possible and provide the necessary information.
- *
- * The other case is that the change involved multiple lines or that
- * we have moved away from the line or forgotten how the change was
- * accomplished.  In this case we do a redisplay and hope that the
- * low level optimization routines (which don't look for winning
- * via insert/delete character) will not lose too badly.
- */
-char	*vUA1, *vUA2;
-char	*vUD1, *vUD2;
-
-void 
-vUndo(void)
-{
-
-	/*
-	 * Avoid UU which clobbers ability to do u.
-	 */
-	if (vundkind == VCAPU || vUNDdot != dot) {
-		beep();
-		return;
-	}
-	CP(vutmp, linebuf);
-	vUD1 = linebuf; vUD2 = strend(linebuf);
-	putmk1(dot, vUNDsav);
-	getDOT();
-	vUA1 = linebuf; vUA2 = strend(linebuf);
-	vundkind = VCAPU;
-	if (state == ONEOPEN || state == HARDOPEN) {
-		vjumpto(dot, vUNDcurs, 0);
-		return;
-	}
-	vdirty(vcline, 1);
-	vsyncCL();
-	cursor = linebuf;
-	vfixcurs();
-}
-
-void 
-vundo (
-    int show	/* if true update the screen */
-)
-{
-	register int cnt;
-	register line *addr;
-	register char *cp;
-	char *temp = smalloc(LBSIZE);
-	bool savenote;
-	int (*OO)(int);
-	short oldhold = hold;
-
-	switch (vundkind) {
-
-	case VMANYINS:
-		wcursor = 0;
-		addr1 = undap1;
-		addr2 = undap2 - 1;
-		vsave();
-		YANKreg('1');
-		notecnt = 0;
-		/* fall into ... */
-
-	case VMANY:
-	case VMCHNG:
-		vsave();
-		addr = dot - vcline;
-		notecnt = 1;
-		if (undkind == UNDPUT && undap1 == undap2) {
-			beep();
-			break;
-		}
-		/*
-		 * Undo() call below basically replaces undap1 to undap2-1
-		 * with dol through unddol-1.  Hack screen image to
-		 * reflect this replacement.
-		 */
-		if (show)
-			if (undkind == UNDMOVE)
-				vdirty(0, TLINES);
-			else
-				vreplace(undap1 - addr, undap2 - undap1,
-				    undkind == UNDPUT ? 0 : unddol - dol);
-		savenote = notecnt;
-		undo(1);
-		if (show && (vundkind != VMCHNG || addr != dot))
-			killU();
-		vundkind = VMANY;
-		cnt = dot - addr;
-		if (cnt < 0 || cnt > vcnt || state != VISUAL) {
-			if (show)
-				vjumpto(dot, NOSTR, '.');
-			break;
-		}
-		if (!savenote)
-			notecnt = 0;
-		if (show) {
-			vcline = cnt;
-			vrepaint(vmcurs);
-		}
-		vmcurs = 0;
-		break;
-
-	case VCHNG:
-	case VCAPU:
-		vundkind = VCHNG;
-		CP(temp, vutmp);
-		CP(vutmp, linebuf);
-		doomed = column(vUA2 - 1) - column(vUA1 - 1);
-		strcLIN(temp);
-		cp = vUA1; vUA1 = vUD1; vUD1 = cp;
-		cp = vUA2; vUA2 = vUD2; vUD2 = cp;
-		if (!show)
-			break;
-		cursor = vUD1;
-		if (state == HARDOPEN) {
-			doomed = 0;
-			vsave();
-			vopen(dot, WBOT);
-			vnline(cursor);
-			break;
-		}
-		/*
-		 * Pseudo insert command.
-		 */
-		vcursat(cursor);
-		OO = Outchar; Outchar = vinschar; hold |= HOLDQIK;
-		vprepins();
-		temp[vUA2 - linebuf] = 0;
-		for (cp = &temp[vUA1 - linebuf]; *cp;) {
-			int	c, n;
-			nextc(c, cp, n);
-			cp += n;
-			putchar(c);
-		}
-		Outchar = OO; hold = oldhold;
-		endim();
-		physdc(cindent(), cindent() + doomed);
-		doomed = 0;
-		vdirty(vcline, 1);
-		vsyncCL();
-		if (cursor > linebuf && cursor >= strend(linebuf))
-			cursor += skipleft(linebuf, cursor);
-		vfixcurs();
-		break;
-
-	case VNONE:
-		beep();
-		break;
-	}
-	free(temp);
-}
-
-/*
- * 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.
- */
-void 
-vmacchng(int fromvis)
-{
-	line *savedot, *savedol;
-	char *savecursor;
-	char *savelb;
-	int nlines, more;
-	/* register line *a1, *a2; */
-	/* char ch; */	/* DEBUG */
-
-	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:
-		savelb = smalloc(LBSIZE);
-		/* Save current state somewhere */
-#ifdef TRACE
-		vudump("before vmacchng hairy case");
-#endif
-		savedot = dot; savedol = dol; savecursor = cursor;
-		CP(savelb, linebuf);
-		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; undap2 += more;
-
-		truedol -= nlines;
-		copyw(zero+1, truedol+1, nlines);
-		dot = savedot; dol = savedol ; cursor = savecursor;
-		CP(linebuf, savelb);
-		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
-		free(savelb);
-		break;
-	case VC_NOTINMAC:
-	case VC_MANYCHANGE:
-		/* Nothing to do for various reasons. */
-		break;
-	}
-}
-
-/*
- * Initialize undo information before an append.
- */
-void 
-vnoapp(void)
-{
-
-	vUD1 = vUD2 = cursor;
-}
-
-/*
- * All the rest of the motion sequences have one or more
- * cases to deal with.  In the case wdot == 0, operation
- * is totally within current line, from cursor to wcursor.
- * If wdot is given, but wcursor is 0, then operation affects
- * the inclusive line range.  The hardest case is when both wdot
- * and wcursor are given, then operation affects from line dot at
- * cursor to line wdot at wcursor.
- */
-
-/*
- * Move is simple, except for moving onto new lines in hardcopy open mode.
- */
-/*ARGSUSED*/
-void 
-vmove(int unused)
-{
-	register int cnt;
-
-	if (wdot) {
-		if (wdot < one || wdot > dol) {
-			beep();
-			return;
-		}
-		cnt = wdot - dot;
-		wdot = NOLINE;
-		if (cnt)
-			killU();
-		vupdown(cnt, wcursor);
-		return;
-	}
-
-	/*
-	 * When we move onto a new line, save information for U undo.
-	 */
-	if (vUNDdot != dot) {
-		vUNDsav = *dot;
-		vUNDcurs = wcursor;
-		vUNDdot = dot;
-	}
-
-	/*
-	 * In hardcopy open, type characters to left of cursor
-	 * on new line, or back cursor up if its to left of where we are.
-	 * In any case if the current line is ``rubbled'' i.e. has trashy
-	 * looking overstrikes on it or \'s from deletes, we reprint
-	 * so it is more comprehensible (and also because we can't work
-	 * if we let it get more out of sync since column() won't work right.
-	 */
-	if (state == HARDOPEN) {
-		register char *cp;
-		if (rubble) {
-			register int c;
-			int oldhold = hold;
-
-			sethard();
-			cp = wcursor;
-			c = *cp;
-			*cp = 0;
-			hold |= HOLDDOL;
-			vreopen(WTOP, lineDOT(), vcline);
-			hold = oldhold;
-			*cp = c;
-		} else if (wcursor > cursor) {
-			vfixcurs();
-			for (cp = cursor; *cp && cp < wcursor;) {
-				int	c, n;
-				nextc(c, cp, n);
-				cp += n;
-				c &= TRIM;
-				putchar(c ? c : ' ');
-			}
-		}
-	}
-	vsetcurs(wcursor);
-}
-
-/*
- * Delete operator.
- *
- * Hard case of deleting a range where both wcursor and wdot
- * are specified is treated as a special case of change and handled
- * by vchange (although vchange may pass it back if it degenerates
- * to a full line range delete.)
- */
-void 
-vdelete(int c)
-{
-	register char *cp;
-	register int i;
-
-	if (wdot) {
-		if (wcursor) {
-			vchange(EOF);
-			return;
-		}
-		if ((i = xdw()) < 0)
-			return;
-		if (state != VISUAL) {
-			vgoto(LINE(0), 0);
-			vputchar('@');
-		}
-		wdot = dot;
-		vremote(i, delete, 0);
-		notenam = "delete";
-		DEL[0] = 0;
-		killU();
-		vreplace(vcline, i, 0);
-		if (wdot > dol)
-			vcline--;
-		vrepaint(NOSTR);
-		return;
-	}
-	if (wcursor < linebuf)
-		wcursor = linebuf;
-	if (cursor == wcursor) {
-		beep();
-		return;
-	}
-	i = vdcMID();
-	cp = cursor;
-	setDEL();
-	CP(cp, wcursor);
-	if (cp > linebuf && (cp[0] == 0 || c == '#'))
-		cp--;
-	if (state == HARDOPEN) {
-		bleep(i, cp);
-		cursor = cp;
-		return;
-	}
-	physdc(column(cursor + skipleft(linebuf, cursor)), i);
-	DEPTH(vcline) = 0;
-	vreopen(LINE(vcline), lineDOT(), vcline);
-	vsyncCL();
-	vsetcurs(cp);
-}
-
-/*
- * Change operator.
- *
- * In a single line we mark the end of the changed area with '$'.
- * On multiple whole lines, we clear the lines first.
- * Across lines with both wcursor and wdot given, we delete
- * and sync then append (but one operation for undo).
- */
-void 
-vchange(int c)
-{
-	register char *cp;
-	register int i, ind, cnt;
-	line *addr;
-
-	if (wdot) {
-		/*
-		 * Change/delete of lines or across line boundaries.
-		 */
-		if ((cnt = xdw()) < 0)
-			return;
-		getDOT();
-		if (wcursor && cnt == 1) {
-			/*
-			 * Not really.
-			 */
-			wdot = 0;
-			if (c == EOF) {
-				vdelete(c);
-				return;
-			}
-			goto smallchange;
-		}
-		if (cursor && wcursor) {
-			/*
-			 * Across line boundaries, but not
-			 * necessarily whole lines.
-			 * Construct what will be left.
-			 */
-			*cursor = 0;
-			strcpy(genbuf, linebuf);
-			getline(*wdot);
-			if (strlen(genbuf) + strlen(wcursor) > LBSIZE - 2) {
-				getDOT();
-				beep();
-				return;
-			}
-			strcat(genbuf, wcursor);
-			if (c == EOF && *vpastwh(genbuf) == 0) {
-				/*
-				 * Although this is a delete
-				 * spanning line boundaries, what
-				 * would be left is all white space,
-				 * so take it all away.
-				 */
-				wcursor = 0;
-				getDOT();
-				op = 0;
-				notpart(lastreg);
-				notpart('1');
-				vdelete(c);
-				return;
-			}
-			ind = -1;
-		} else if (c == EOF && wcursor == 0) {
-			vdelete(c);
-			return;
-		} else
-#ifdef LISPCODE
-			/*
-			 * We are just substituting text for whole lines,
-			 * so determine the first autoindent.
-			 */
-			if (value(LISP) && value(AUTOINDENT))
-				ind = lindent(dot);
-			else
-#endif
-				ind = whitecnt(linebuf);
-		i = vcline >= 0 ? LINE(vcline) : WTOP;
-
-		/*
-		 * Delete the lines from the buffer,
-		 * and remember how the partial stuff came about in
-		 * case we are told to put.
-		 */
-		addr = dot;
-		vremote(cnt, delete, 0);
-		setpk();
-		notenam = "delete";
-		if (c != EOF)
-			notenam = "change";
-		/*
-		 * If DEL[0] were nonzero, put would put it back
-		 * rather than the deleted lines.
-		 */
-		DEL[0] = 0;
-		if (cnt > 1)
-			killU();
-
-		/*
-		 * Now hack the screen image coordination.
-		 */
-		vreplace(vcline, cnt, 0);
-		wdot = NOLINE;
-		noteit(0);
-		vcline--;
-		if (addr <= dol)
-			dot--;
-
-		/*
-		 * If this is a across line delete/change,
-		 * cursor stays where it is; just splice together the pieces
-		 * of the new line.  Otherwise generate a autoindent
-		 * after a S command.
-		 */
-		if (ind >= 0) {
-			*genindent(ind) = 0;
-			vdoappend(genbuf);
-		} else {
-			vmcurs = cursor;
-			strcLIN(genbuf);
-			vdoappend(linebuf);
-		}
-
-		/*
-		 * Indicate a change on hardcopies by
-		 * erasing the current line.
-		 */
-		if (c != EOF && state != VISUAL && state != HARDOPEN) {
-			int oldhold = hold;
-
-			hold |= HOLDAT, vclrlin(i, dot), hold = oldhold;
-		}
-
-		/*
-		 * Open the line (logically) on the screen, and 
-		 * update the screen tail.  Unless we are really a delete
-		 * go off and gather up inserted characters.
-		 */
-		vcline++;
-		if (vcline < 0)
-			vcline = 0;
-		vopen(dot, i);
-		vsyncCL();
-		noteit(1);
-		if (c != EOF) {
-			if (ind >= 0) {
-				cursor = linebuf;
-				linebuf[0] = 0;
-				vfixcurs();
-			} else {
-				ind = 0;
-				vcursat(cursor);
-			}
-			vappend('x', 1, ind);
-			return;
-		}
-		if (*cursor == 0 && cursor > linebuf)
-			cursor += skipleft(linebuf, cursor);
-		vrepaint(cursor);
-		return;
-	}
-
-smallchange:
-	/*
-	 * The rest of this is just low level hacking on changes
-	 * of small numbers of characters.
-	 */
-	if (wcursor < linebuf)
-		wcursor = linebuf;
-	if (cursor == wcursor) {
-		beep();
-		return;
-	}
-	i = vdcMID();
-	cp = cursor;
-	if (state != HARDOPEN)
-		vfixcurs();
-
-	/*
-	 * Put out the \\'s indicating changed text in hardcopy,
-	 * or mark the end of the change with $ if not hardcopy.
-	 */
-	if (state == HARDOPEN) 
-		bleep(i, cp);
-	else {
-		int	c, d, n;
-		vcursbef(wcursor);
-		d = skipleft(linebuf, wcursor);
-		nextc(c, &wcursor[d], n);
-		if (colsc(c) > 1)
-			putchar(' ');
-		putchar('$');
-		i = cindent();
-	}
-
-	/*
-	 * Remember the deleted text for possible put,
-	 * and then prepare and execute the input portion of the change.
-	 */
-	cursor = cp;
-	setDEL();
-	CP(cursor, wcursor);
-	if (state != HARDOPEN) {
-		vcursaft(cursor - 1);
-		doomed = i - cindent();
-	} else {
-/*
-		sethard();
-		wcursor = cursor;
-		cursor = linebuf;
-		vgoto(outline, value(NUMBER) << 3);
-		vmove();
-*/
-		doomed = 0;
-	}
-	prepapp();
-	vappend('c', 1, 0);
-}
-
-/*
- * Open new lines.
- *
- * Tricky thing here is slowopen.  This causes display updating
- * to be held off so that 300 baud dumb terminals don't lose badly.
- * This also suppressed counts, which otherwise say how many blank
- * space to open up.  Counts are also suppressed on intelligent terminals.
- * Actually counts are obsoleted, since if your terminal is slow
- * you are better off with slowopen.
- */
-void 
-voOpen (
-    int c,	/* mjm: char --> int */
-    register int cnt
-)
-{
-	register int ind = 0, i;
-	short oldhold = hold;
-#ifdef	SIGWINCH
-	sigset_t set, oset;
-#endif
-
-	if (value(SLOWOPEN) || value(REDRAW) && AL && DL)
-		cnt = 1;
-#ifdef	SIGWINCH
-	sigemptyset(&set);
-	sigaddset(&set, SIGWINCH);
-	sigprocmask(SIG_BLOCK, &set, &oset);
-#endif
-	vsave();
-	setLAST();
-	if (value(AUTOINDENT))
-		ind = whitecnt(linebuf);
-	if (c == 'O') {
-		vcline--;
-		dot--;
-		if (dot > zero)
-			getDOT();
-	}
-	if (value(AUTOINDENT)) {
-#ifdef LISPCODE
-		if (value(LISP))
-			ind = lindent(dot + 1);
-#endif
-	}
-	killU();
-	prepapp();
-	if (FIXUNDO)
-		vundkind = VMANY;
-	if (state != VISUAL)
-		c = WBOT + 1;
-	else {
-		c = vcline < 0 ? WTOP - cnt : LINE(vcline) + DEPTH(vcline);
-		if (c < ZERO)
-			c = ZERO;
-		i = LINE(vcline + 1) - c;
-		if (i < cnt && c <= WBOT && (!AL || !DL))
-			vinslin(c, cnt - i, vcline);
-	}
-	*genindent(ind) = 0;
-	vdoappend(genbuf);
-	vcline++;
-	oldhold = hold;
-	hold |= HOLDROL;
-	vopen(dot, c);
-	hold = oldhold;
-	if (value(SLOWOPEN))
-		/*
-		 * Oh, so lazy!
-		 */
-		vscrap();
-	else
-		vsync1(LINE(vcline));
-	cursor = linebuf;
-	linebuf[0] = 0;
-	vappend('o', 1, ind);
-#ifdef	SIGWINCH
-	sigprocmask(SIG_SETMASK, &oset, NULL);
-#endif
-}
-
-/*
- * > < and = shift operators.
- *
- * Note that =, which aligns lisp, is just a ragged sort of shift,
- * since it never distributes text between lines.
- */
-char	vshnam[2] = { 'x', 0 };
-
-/*ARGSUSED*/
-void 
-vshftop(int unused)
-{
-	register line *addr;
-	register int cnt;
-
-	if ((cnt = xdw()) < 0)
-		return;
-	addr = dot;
-	vremote(cnt, vshift, 0);
-	vshnam[0] = op;
-	notenam = vshnam;
-	dot = addr;
-	vreplace(vcline, cnt, cnt);
-	if (state == HARDOPEN)
-		vcnt = 0;
-	vrepaint(NOSTR);
-}
-
-/*
- * !.
- *
- * Filter portions of the buffer through unix commands.
- */
-/*ARGSUSED*/
-void 
-vfilter(int unused)
-{
-	register line *addr;
-	register int cnt;
-	char *oglobp;
-	short d;
-#ifdef	BIT8
-	cell cuxb[UXBSIZE + 2];
-#endif
-
-	if ((cnt = xdw()) < 0)
-		return;
-	if (vglobp)
-#ifdef	BIT8
-		vglobp = cuxb;
-#else
-		vglobp = uxb;
-#endif
-	if (readecho('!'))
-		return;
-	oglobp = globp; globp = genbuf + 1;
-	d = peekc; ungetchar(0);
-	CATCH
-		fixech();
-		unix0(0);
-#ifdef	BIT8
-		str2cell(cuxb, uxb);
-#endif
-	ONERR
-		splitw = 0;
-		ungetchar(d);
-		vrepaint(cursor);
-		globp = oglobp;
-		return;
-	ENDCATCH
-	ungetchar(d); globp = oglobp;
-	addr = dot;
-	CATCH
-		vgoto(WECHO, 0); flusho();
-		vremote(cnt, filter, 2);
-	ONERR
-		vdirty(0, TLINES);
-	ENDCATCH
-	if (dot == zero && dol > zero)
-		dot = one;
-	splitw = 0;
-	notenam = "";
-	/*
-	 * BUG: we shouldn't be depending on what undap2 and undap1 are,
-	 * since we may be inside a macro.  What's really wanted is the
-	 * number of lines we read from the filter.  However, the mistake
-	 * will be an overestimate so it only results in extra work,
-	 * it shouldn't cause any real screwups.
-	 */
-	vreplace(vcline, cnt, undap2 - undap1);
-	dot = addr;
-	if (dot > dol) {
-		dot--;
-		vcline--;
-	}
-	vrepaint(NOSTR);
-}
-
-/*
- * Xdw exchanges dot and wdot if appropriate and also checks
- * that wdot is reasonable.  Its name comes from
- *	xchange dotand wdot
- */
-int 
-xdw(void)
-{
-	register char *cp;
-	register int cnt;
-/*
-	register int notp = 0;
- */
-
-	if (wdot == NOLINE || wdot < one || wdot > dol) {
-		beep();
-		return (-1);
-	}
-	vsave();
-	setLAST();
-	if (dot > wdot || (dot == wdot && wcursor != 0 && cursor > wcursor)) {
-		register line *addr;
-
-		vcline -= dot - wdot;
-		addr = dot; dot = wdot; wdot = addr;
-		cp = cursor; cursor = wcursor; wcursor = cp;
-	}
-	/*
-	 * If a region is specified but wcursor is at the begining
-	 * of the last line, then we move it to be the end of the
-	 * previous line (actually off the end).
-	 */
-	if (cursor && wcursor == linebuf && wdot > dot) {
-		wdot--;
-		getDOT();
-		if (vpastwh(linebuf) >= cursor)
-			wcursor = 0;
-		else {
-			getline(*wdot);
-			wcursor = strend(linebuf);
-			getDOT();
-		}
-		/*
-		 * Should prepare in caller for possible dot == wdot.
-		 */
-	}
-	cnt = wdot - dot + 1;
-	if (vreg) {
-		vremote(cnt, YANKreg, vreg);
-/*
-		if (notp)
-			notpart(vreg);
- */
-	}
-
-	/*
-	 * Kill buffer code.  If delete operator is c or d, then save
-	 * the region in numbered buffers.
-	 *
-	 * BUG:			This may be somewhat inefficient due
-	 *			to the way named buffer are implemented,
-	 *			necessitating some optimization.
-	 */
-	vreg = 0;
-	if (any(op, "cd")) {
-		vremote(cnt, YANKreg, '1');
-/*
-		if (notp)
-			notpart('1');
- */
-	}
-	return (cnt);
-}
-
-/*
- * Routine for vremote to call to implement shifts.
- */
-/*ARGSUSED*/
-void 
-vshift(int unused)
-{
-
-	shift(op, 1);
-}
-
-/*
- * Replace a single character with the next input character.
- * A funny kind of insert.
- */
-void 
-vrep(register int cnt)
-{
-	register int i, c;
-
-	if (cnt > strlen(cursor)) {
-		beep();
-		return;
-	}
-	showmode('r');
-	i = column(cursor + cnt - 1);
-	vcursat(cursor);
-	doomed = i - cindent();
-	if (!vglobp) {
-		c = getesc();
-		if (c == 0) {
-			showmode(0);
-			vfixcurs();
-			return;
-		}
-		ungetkey(c);
-	}
-	CP(vutmp, linebuf);
-	if (FIXUNDO)
-		vundkind = VCHNG;
-	wcursor = cursor;
-	for (i = 0; i < cnt; i++)
-		wcursor += skipright(cursor, wcursor);
-	vUD1 = cursor; vUD2 = wcursor;
-	CP(cursor, wcursor);
-	prepapp();
-	vappend('r', cnt, 0);
-	*lastcp++ = INS[0];
-	setLAST();
-}
-
-/*
- * Yank.
- *
- * Yanking to string registers occurs for free (essentially)
- * in the routine xdw().
- */
-/*ARGSUSED*/
-void 
-vyankit(int unused)
-{
-	register int cnt;
-
-	if (wdot) {
-		if ((cnt = xdw()) < 0)
-			return;
-		vremote(cnt, yank, 0);
-		setpk();
-		notenam = "yank";
-		if (FIXUNDO)
-			vundkind = VNONE;
-		DEL[0] = 0;
-		wdot = NOLINE;
-		if (notecnt <= vcnt - vcline && notecnt < value(REPORT))
-			notecnt = 0;
-		vrepaint(cursor);
-		return;
-	}
-	takeout(DEL);
-}
-
-/*
- * Set pkill variables so a put can
- * know how to put back partial text.
- * This is necessary because undo needs the complete
- * line images to be saved, while a put wants to trim
- * the first and last lines.  The compromise
- * is for put to be more clever.
- */
-void 
-setpk(void)
-{
-
-	if (wcursor) {
-		pkill[0] = cursor;
-		pkill[1] = wcursor;
-	}
-}
-
-/*
- * Kill the last deleted part of a line so that "p" does not put it back.
- * This is to be called from ex commands that delete some text.
- */
-void
-vkillDEL(void)
-{
-	DEL[0] = 0;
-}