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_v.c	7.8.1 (2.11BSD GTE) 12/9/94";

#endif

#include "ex.h"

#include "ex_re.h"

#include "ex_tty.h"

#include "ex_vis.h"

/*

 * Entry points to open and visual from command mode processor.

 * The open/visual code breaks down roughly as follows:

 *

 * ex_v.c	entry points, checking of terminal characteristics

 *

 * ex_vadj.c	logical screen control, use of intelligent operations

 *		insert/delete line and coordination with screen image;

 *		updating of screen after changes.

 *

 * ex_vget.c	input of single keys and reading of input lines

 *		from the echo area, handling of memory for repeated

 *		commands and small saved texts from inserts and partline

 *		deletes, notification of multi line changes in the echo

 *		area.

 *

 * ex_vmain.c	main command decoding, some command processing.

 *

 * ex_voperate.c   decoding of operator/operand sequences and

 *		contextual scans, implementation of word motions.

 *

 * ex_vops.c	major operator interfaces, undos, motions, deletes,

 *		changes, opening new lines, shifts, replacements and yanks

 *		coordinating logical and physical changes.

 *

 * ex_vops2.c	subroutines for operator interfaces in ex_vops.c,

 *		insert mode, read input line processing at lowest level.

 *

 * ex_vops3.c	structured motion definitions of ( ) { } and [ ] operators,

 *		indent for lisp routines, () and {} balancing. 

 *

 * ex_vput.c	output routines, clearing, physical mapping of logical cursor

 *		positioning, cursor motions, handling of insert character

 *		and delete character functions of intelligent and unintelligent

 *		terminals, visual mode tracing routines (for debugging),

 *		control of screen image and its updating.

 *

 * ex_vwind.c	window level control of display, forward and backward rolls,

 *		absolute motions, contextual displays, line depth determination

 */

jmp_buf venv;

int	winch();

/*

 * Enter open mode

 */

#ifdef u370

#ifndef	BIT8

char	atube[TUBESIZE+LBSIZE];

#else

short	atube[TUBESIZE+LBSIZE];

#endif

#endif

oop()

{

	register char *ic;

#ifndef u370

#ifndef	BIT8

	char atube[TUBESIZE + LBSIZE];

#else

	short atube[TUBESIZE + LBSIZE];

#endif

#endif

	ttymode f;	/* mjm: was register */

	int resize;

	if (resize = setjmp(venv)) {

		setsize();

		initev = (char *)0;

		inopen = 0;

		addr1 = addr2 = dot;

	}

/* XXX	(void)signal(SIGWINCH, winch); */

	ovbeg();

	if (peekchar() == '/') {

		ignore(compile(getchar(), 1));

		savere(scanre);

		if (execute(0, dot) == 0)

			error("Fail|Pattern not found on addressed line");

		ic = loc1;

		if (ic > linebuf && *ic == 0)

			ic--;

	} else {

		getDOT();

		ic = vskipwh(linebuf);

	}

	newline();

	/*

	 * If overstrike then have to HARDOPEN

	 * else if can move cursor up off current line can use CRTOPEN (~~vi1)

	 * otherwise (ugh) have to use ONEOPEN (like adm3)

	 */

	if (OS && !EO)

		bastate = HARDOPEN;

	else if (CA || UP)

		bastate = CRTOPEN;

	else

		bastate = ONEOPEN;

	setwind();

	/*

	 * To avoid bombing on glass-crt's when the line is too long

	 * pretend that such terminals are 160 columns wide.

	 * If a line is too wide for display, we will dynamically

	 * switch to hardcopy open mode.

	 */

	if (state != CRTOPEN)

		WCOLS = TUBECOLS;

	if (!inglobal)

		savevis();

	vok(atube);

	if (state != CRTOPEN)

		COLUMNS = WCOLS;

	Outchar = vputchar;

	f = ostart();

	if (state == CRTOPEN) {

		if (outcol == UKCOL)

			outcol = 0;

		vmoveitup(1, 1);

	} else

		outline = destline = WBOT;

	vshow(dot, NOLINE);

	vnline(ic);

	vmain();

	if (state != CRTOPEN)

		vclean();

	Command = "open";

	ovend(f);

/* XXX	(void)signal(SIGWINCH, SIG_DFL); */

}

ovbeg()

{

	if (!value(OPEN))

		error("Can't use open/visual unless open option is set");

	if (inopen)

		error("Recursive open/visual not allowed");

	Vlines = lineDOL();

	fixzero();

	setdot();

	pastwh();

	dot = addr2;

}

ovend(f)

	ttymode f;

{

	splitw++;

	vgoto(WECHO, 0);

	vclreol();

	vgoto(WECHO, 0);

	holdcm = 0;

	splitw = 0;

	ostop(f);

	setoutt();

	undvis();

	COLUMNS = OCOLUMNS;

	inopen = 0;

	flusho();

	netchHAD(Vlines);

}

/*

 * Enter visual mode

 */

vop()

{

	register int c;

#ifndef u370

	char atube[TUBESIZE + LBSIZE];

#endif

	ttymode f;	/* mjm: was register */

	int resize;

	if (!CA && UP == NOSTR) {

		if (initev) {

toopen:

			merror("[Using open mode]");

			putNFL();

			oop();

			return;

		}

		error("Visual needs addressible cursor or upline capability");

	}

	if (OS && !EO) {

		if (initev)

			goto toopen;

		error("Can't use visual on a terminal which overstrikes");

	}

	if (!CL) {

		if (initev)

			goto toopen;

		error("Visual requires clear screen capability");

	}

	if (NS && !SF) {

		if (initev)

			goto toopen;

		error("Visual requires scrolling");

	}

	if (resize = setjmp(venv)) {

		setsize();

		initev = (char *)0;

		inopen = 0;

		addr1 = addr2 = dot;

	}

/* XXX	(void)signal(SIGWINCH, winch); */

	ovbeg();

	bastate = VISUAL;

	c = 0;

	if (any(peekchar(), "+-^."))

		c = getchar();

	pastwh();

	vsetsiz(isdigit(peekchar()) ? getnum() : value(WINDOW));

	setwind();

	newline();

	vok(atube);

	if (!inglobal)

		savevis();

	Outchar = vputchar;

	vmoving = 0;

	enable_raw();

	f = ostart();

	if (initev == 0) {

		vcontext(dot, c);

		vnline(NOSTR);

	}

	vmain();

	Command = "visual";

	ovend(f);

/*XXX	(void)signal(SIGWINCH, SIG_DFL); */

}

/*

 * Hack to allow entry to visual with

 * empty buffer since routines internally

 * demand at least one line.

 */

fixzero()

{

	if (dol == zero) {

		register bool ochng = chng;

		vdoappend("");

		if (!ochng)

			sync();

		addr1 = addr2 = one;

	} else if (addr2 == zero)

		addr2 = one;

}

/*

 * Save lines before visual between unddol and truedol.

 * Accomplish this by throwing away current [unddol,truedol]

 * and then saving all the lines in the buffer and moving

 * unddol back to dol.  Don't do this if in a global.

 *

 * If you do

 *	g/xxx/vi.

 * and then do a

 *	:e xxxx

 * at some point, and then quit from the visual and undo

 * you get the old file back.  Somewhat weird.

 */

savevis()

{

	if (inglobal)

		return;

	truedol = unddol;

	saveall();

	unddol = dol;

	undkind = UNDNONE;

}

/*

 * Restore a sensible state after a visual/open, moving the saved

 * stuff back to [unddol,dol], and killing the partial line kill indicators.

 */

undvis()

{

	if (ruptible)

		signal(SIGINT, onintr);

	squish();

	pkill[0] = pkill[1] = 0;

	unddol = truedol;

	unddel = zero;

	undap1 = one;

	undap2 = dol + 1;

	undkind = UNDALL;

	if (undadot <= zero || undadot > dol)

		undadot = zero+1;

}

/*

 * Set the window parameters based on the base state bastate

 * and the available buffer space.

 */

setwind()

{

#ifdef ADEBUG

	if (trace)

		tfixnl(), fprintf(trace, "setwindw() - bastate: %d,%d,%d)\n", 

				bastate,basWTOP,WBOT), tvliny();

#endif

	WCOLS = COLUMNS;

	switch (bastate) {

	case ONEOPEN:

		if (AM)

			WCOLS--;

		/* fall into ... */

	case HARDOPEN:

		basWTOP = WTOP = WBOT = WECHO = 0;

		ZERO = 0;

		holdcm++;

		break;

	case CRTOPEN:

		basWTOP = LINES - 2;

		/* fall into */

	case VISUAL:

		ZERO = LINES - TUBESIZE / WCOLS;

		if (ZERO < 0)

			ZERO = 0;

		if (ZERO > basWTOP)

			error("Screen too large for internal buffer");

		WTOP = basWTOP; WBOT = LINES - 2; WECHO = LINES - 1;

		break;

	}

	state = bastate;

	basWLINES = WLINES = WBOT - WTOP + 1;

}

/*

 * Can we hack an open/visual on this terminal?

 * If so, then divide the screen buffer up into lines,

 * and initialize a bunch of state variables before we start.

 */

vok(atube)

#ifndef	BIT8

	register char *atube;

#else

	register short *atube;

#endif

{

	register int i;

	if (WCOLS == 1000)

		serror("Don't know enough about your terminal to use %s", Command);

	if (WCOLS > TUBECOLS)

		error("Terminal too wide");

	if (WLINES >= TUBELINES || WCOLS * (WECHO - ZERO + 1) > TUBESIZE)

		error("Screen too large");

	vtube0 = atube;

	vclrbyte(atube, WCOLS * (WECHO - ZERO + 1));

	for (i = 0; i < ZERO; i++)

#ifndef	BIT8

		vtube[i] = (char *) 0;

#else

		vtube[i] = (short *) 0;

#endif

	for (; i <= WECHO; i++)

		vtube[i] = atube, atube += WCOLS;

	for (; i < TUBELINES; i++)

#ifndef	BIT8

		vtube[i] = (char *) 0;

#else

		vtube[i] = (short *) 0;

#endif

	vutmp = atube;

	vundkind = VNONE;

	vUNDdot = 0;

	OCOLUMNS = COLUMNS;

	inopen = 1;

#ifdef CBREAK

	signal(SIGINT, vintr);

#endif

	vmoving = 0;

	splitw = 0;

	doomed = 0;

	holdupd = 0;

	Peekkey = 0;

	vcnt = vcline = 0;

	if (vSCROLL == 0)

		vSCROLL = (value(WINDOW)+1)/2;	/* round up so dft=6,11 */

}

#ifdef CBREAK

void

vintr()

{

	extern jmp_buf readbuf;

	extern int doingread;

	signal(SIGINT, vintr);

	if (vcatch)

		onintr();

	ungetkey(ATTN);

	draino();

	if (doingread) {

		doingread = 0;

		longjmp(readbuf, 1);

	}

}

#endif

/*

 * Set the size of the screen to size lines, to take effect the

 * next time the screen is redrawn.

 */

vsetsiz(size)

	int size;

{

	register int b;

#ifdef ADEBUG

	if (trace)

		tfixnl(), fprintf(trace, "vsetsize(%d): size\n", 

				size), tvliny();

#endif

	if (bastate != VISUAL)

		return;

	b = LINES - 1 - size;

	if (b >= LINES - 1)

		b = LINES - 2;

	if (b < 0)

		b = 0;

//fprintf(trace,"vstesize LINES: %d, \n",LINES);	

	basWTOP = b;

	basWLINES = WBOT - b + 1;

}

winch()

{

	vsave();

	setty(normf);

	longjmp(venv, 1);

}