Rev 118 | Blame | Compare with Previous | Last modification | View Log | RSS feed
/*
* 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);
}