projects / unix-history / blob
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
BSD 2 development
[unix-history] / .ref-BSD-1 / ex-1.1 / ex_vmain.c
#include "ex.h"
#ifdef VISUAL
#include "ex_tty.h"
#include "ex_vis.h"
#include "ex_re.h"
/*
* Ex - a text editor
* Bill Joy UCB September 1977
*/
vmain(ic)
char *ic;
{
register int i;
i = Vmain(ic);
flusho();
return (i);
}
int delete(), join(), vshift();
char vscandir[3] "/\n";
static char op;
Vmain(ic)
char *ic;
{
register int c, cnt, i;
char hadcnt, first, *oglobp;
extern char Peekkey, *genindent();
int (*OP)(), ind, vmunddot, *addr;
extern char *loc1;
if (nextic) {
ic = nextic;
nextic = 0;
}
first = 1;
vnline:
if (vundkind != VMANY)
vundkind = VNONE;
getDOT();
vmunddot = *dot;
vmark:
if (vmoving)
wcursor = vfindcol(vmovcol);
else if (first) {
wcursor = ic;
first = 0;
} else
wcursor = vskipwh(ic);
ic = linebuf;
vmove();
for (;;) {
TSYNC();
killglob();
if (digit(peekkey()) && peekkey() != '0') {
hadcnt = 1;
cnt = vgetcnt();
if (cnt <= 0) {
beep();
continue;
}
} else {
Xhadcnt = hadcnt = 0;
Xcnt = cnt = 1;
}
vagain:
op = c = getkey();
if (HSTR && HSTR[0] == c && HSTR[1] == 0)
goto home;
if (UPLINE && UPLINE[0] == c && UPLINE[1] == 0)
goto upline;
switch (c) {
case CTRL(z): /* sync */
if (!visual)
vsync(LINES - 1);
else
vredraw(ZERO);
vfixcurs();
continue;
case CTRL(s):
vsave();
synctmp();
continue;
case ESCAPE: /* cancel command */
beep();
continue;
case '.': /* repeat change */
if (lastcmd[0] == 0) {
beep();
continue;
}
if (hadcnt)
lastcnt = cnt;
cnt = lastcnt;
hadcnt = lasthad;
vglobp = lastcmd;
goto vagain;
#ifdef UNIMP
case 'N':
vglobp = vscandir[0] == '/' ? "?" : "/";
goto vagain;
#endif
case 'n': /* next line matching */
vglobp = vscandir;
goto vagain;
case 'H': /* home cursor */
if (hadcnt) {
beep();
continue;
}
markDOT();
if (vcline == 0) {
c = '^';
break;
}
home:
cnt = vcline;
case '-': /* back up (to first white) */
vmoving = 0;
goto vup;
case 'k': /* up line same column */
upline:
if (vmoving == 0) {
vmoving = 1;
vmovcol = column(cursor);
}
vup:
vsave();
if (cnt > dot - one)
cnt = dot - one;
if (cnt == 0) {
beep();
continue;
}
dot =- cnt;
if (cnt > vcline || !visual) {
vch = '.';
return (1);
}
vcline =- cnt;
goto vnline;
case '\'':
c = getesc();
if (c == 0)
continue;
if (c == '\'')
c = 'a' + 26;
else if (c != letter(c)) {
beep();
continue;
}
for (addr = one; addr <= dol; addr++)
if (names[c-'a'] == (*addr &~ 01))
break;
if (addr > dol) {
beep();
continue;
}
markDOT();
gogo:
vsave();
vch = -1;
getline(*addr);
loc1 = vskipwh(linebuf);
goto it;
case 'G':
if (!hadcnt)
cnt = dol - zero;
if (cnt < 1 || cnt > dol - zero) {
beep();
continue;
}
addr = zero + cnt;
markDOT();
goto gogo;
case 'K':
c = getesc();
if (c == 0)
continue;
if (c != letter(c)) {
beep();
continue;
}
vsave();
names[c-'a'] = (*dot &~ 01);
continue;
case 'L':
cnt = vcnt - vcline - 1;
if (cnt == 0) {
c = '^';
break;
}
markDOT();
goto vdown;
case CTRL(d): /* scroll half-screen */
if (hadcnt)
vSCROLL = cnt;
cnt = vSCROLL;
if (visual) {
ind = vcnt - vcline - 1;
cnt =+ ind;
}
case '+': /* next line, first non-white */
case CR:
vmoving = 0;
goto vdown;
case 'j': /* down line respecting position */
case NL:
if (vmoving == 0) {
vmoving = 1;
vmovcol = column(cursor);
}
vdown:
if (dot == dol) {
beep();
continue;
}
vsave();
if (cnt > dol - dot) {
ind =- cnt - (dol - dot);
if (ind < 0)
ind = 0;
cnt = dol - dot;
}
i = vcnt - vcline - 1;
if (c != CTRL(d) && cnt <= i) {
vcline =+ cnt;
dot =+ cnt;
goto vnline;
}
cnt =- i;
dot =+ i;
vcline =+ i;
if (c != CTRL(d)) {
if (!visual || vfit(cnt, dot) > LINES) {
vch = '.';
dot =+ cnt;
return (1);
}
}
vroll(cnt);
if (c == CTRL(d) && VLINES != LINES) {
vcline =- ind;
dot =- ind;
if (vcline < 0) {
dot =- vcline;
vcline = 0;
}
}
goto vnline;
case 'A':
if (hadcnt) {
beep();
continue;
}
ungetkey('a');
xtrey(c);
c = '$';
break;
case 'I':
if (hadcnt) {
beep();
continue;
}
ungetkey('i');
xtrey(c);
c = '^';
break;
case 'C':
if (hadcnt) {
beep();
continue;
}
xtrey(c);
setwork();
if (*cursor == 0) {
ungetkey('a');
continue;
}
ungetkey('$');
c = 'c';
break;
case 'z': /* context */
case 'v':
if (!visual) {
if (hadcnt) {
beep();
continue;
}
vsave();
ostop();
setoutt();
inopen = 0;
addr2 = dot;
zeq(vlast - 1);
inopen++;
termreset();
Outchar = &vputchar;
ostart();
vholdmove = 1;
vch = '.';
return (1);
}
vsave();
c = getesc();
if (c == 0)
continue;
if (hadcnt) {
markDOT();
addr = zero + cnt;
if (addr < one)
addr = one;
if (addr > dol)
addr = dol;
} else
addr = dot;
switch (c) {
case '.':
case '-':
break;
case '^':
if (addr == one) {
beep();
continue;
}
break;
case '+':
if (addr == dol) {
beep();
continue;
}
c = 0;
break;
case CR:
case NL:
vch = 0;
break;
default:
beep();
continue;
}
vmoving = 0;
vch = c;
dot = addr;
return (1);
case 'Y':
if (!visual && cnt <= TUBELINES)
goto yok;
if (cnt > vcnt - vcline) {
beep();
continue;
}
yok:
vsave();
vyank(cnt);
continue;
}
vmoving = 0;
setwork(c);
switch (c) {
case '\\': /* delete line */
if (vglobp == 0) {
c = getesc();
if (c == 0)
continue;
if (c != '\\') {
beep();
continue;
}
}
if (cnt > vcnt - vcline) {
beep();
continue;
}
vsave();
setLAST();
c = vliny[vcline];
addr = dot;
for (i = 0; i < cnt; i++)
vulines[i] = dot[i];
vyank(cnt);
vresaddr = dot;
vrescnt = cnt;
vdelcnt = 0;
vundkind = VMANY;
vrescurs = cursor;
vremote(cnt, delete);
velide(cnt, vcline);
if (addr > dol)
vcline--;
if (vcnt == 0) {
if (dol == zero)
error("No lines in buffer");
if (!visual) {
vgoto(c, 0);
vputchar('@');
}
vch = '.';
return (1);
}
getDOT();
vscrap();
c = vcline ? vliny[vcline - 1] : ZERO;
if (vcline == vcnt)
vredraw(c);
else
vsync(c);
goto vmark;
case 'J': /* join lines */
if (cnt > TUBELINES || dot == dol ||
hadcnt && cnt == 1) {
beep();
continue;
}
vsave();
setLAST();
if (cnt == 1)
cnt = 2;
if (cnt > dol - dot + 1)
cnt = dol - dot + 1;
vrescnt = cnt;
copy(vulines, dot, cnt * sizeof vulines[0]);
vdelcnt = 1;
vresaddr = dot;
vrescurs = cursor;
vundkind = VMANY;
cursor = strend(linebuf);
vremote(cnt, join);
vsave();
velide(cnt - 1, vcline + 1);
vsyncCL();
if (!*cursor && cursor > linebuf)
cursor--;
vfixcurs();
continue;
#ifdef UNIMP
case '<':
case '>':
if (cnt > vcnt - vcline) {
beep();
continue;
}
vsave();
setLAST();
vrescnt = cnt;
copy(vulines, dot, cnt * sizeof vulines[0]);
vdelcnt = cnt;
vresaddr = dot;
vrescurs = cursor;
vundkind = VMANY;
vremote(cnt, vshift);
dot = vresaddr;
getDOT();
vsyncCL();
vmoving = 0;
goto vmark;
#endif
case 'S': /* replace lines */
if (cnt > vcnt - vcline) {
beep();
continue;
}
vsave();
setLAST();
ind = whitecnt(linebuf);
c = vliny[vcline];
addr = dot;
for (i = 0; i < cnt; i++)
vulines[i] = dot[i];
vyank(cnt);
vresaddr = dot;
vrescnt = cnt;
vundkind = VMANY;
vremote(cnt, delete);
velide(cnt, vcline);
vcline--;
if (addr <= dol)
dot--;
*genindent(ind) = 0;
vdoappend(genbuf);
if (!visual) {
holdat = 1;
vclrlin(c);
holdat = 0;
voinit();
} else {
vcline++;
vopen(dot, c);
vsyncCL();
}
vrescurs = cursor;
vdelcnt = 1;
cursor = linebuf;
linebuf[0] = 0;
vfixcurs();
vappend('o', 1, ind);
continue;
case 'O': /* open new lines above */
case 'o': /* open new lines below */
vsave();
setLAST();
ind = whitecnt(linebuf);
if (c == 'O') {
vcline--;
dot--;
if (dot > zero)
getDOT();
}
if (!visual) {
c = LINES - CA;
vup1();
} else {
c = vcline < 0 ? ZERO : vliny[vcline] + vdepth();
i = vliny[vcline + 1] - c;
if (i < cnt)
vopenup(cnt - i);
}
*genindent(ind) = 0;
vdoappend(genbuf);
if (!visual)
voinit();
else {
vcline++;
vopen(dot, c);
vsyncCL();
}
vrescurs = cursor;
vresaddr = dot;
vrescnt = 0;
vdelcnt = 1;
vundkind = VMANY;
cursor = linebuf;
linebuf[0] = 0;
vappend('o', 1, ind);
continue;
case 'a': /* append */
setLAST();
if (*cursor) {
vgotoCL(column(cursor));
cursor++;
}
vappend(c, cnt, 0);
continue;
case 'R':
case 'i': /* insert */
setLAST();
if (*cursor == '\t')
vgotoCL(column(cursor - 1));
oglobp = cursor;
vappend(c, cnt, 0);
/*
cursor = oglobp;
vmove();
*/
continue;
case DELETE:
beep();
if (peekkey() != DELETE)
continue;
case FS: /* quit gets you out like a q */
if (inglobal)
onintr();
case 'q': /* quit */
vch = 'q';
vsave();
return (-1);
/*
case 'U':
strcpy(genbuf, linebuf);
putmk1(dot, vmunddot);
getDOT();
ic = vundcurs();
first = 1;
c = vreopen(vliny[vcline], dot - zero);
vsync(vliny[vcline] + c);
goto vmark;
*/
case 'P':
case 'p':
if (vyancnt == 0) {
if (DEL[0] == OVERBUF) {
beep();
continue;
}
vglobp = DEL;
ungetkey(c == 'p' ? 'a' : 'i');
goto vagain;
}
setLAST();
addr = dot - vcline;
vsave();
if (c == 'P') {
dot--;
vcline--;
c = 'p';
}
vdelcnt = vyancnt;
vresaddr = dot + 1;
vrescurs = 0;
copy(vulines, vylines, vyancnt * sizeof vylines[0]);
vresCNT = 0;
vrescnt = vyancnt;
append(vrestore, dot);
vrescnt = 0;
dot = vresaddr;
vundkind = VMANY;
goto putem;
case 'u': /* undo */
switch (vundkind) {
case VMANY:
if (vdelcnt > TUBELINES)
goto fonfon;
vsave();
addr = dot - vcline;
if (vrescnt > 0) {
vresCNT = 0;
append(vrestore, vresaddr - 1);
}
if (vdelcnt > 0) {
dot = vresaddr + vrescnt;
copy(vulines, dot, vdelcnt * sizeof vulines[0]);
vremote(vdelcnt, delete);
}
c = vrescnt;
vrescnt = vdelcnt;
vdelcnt = c;
dot = vresaddr;
if (dot > dol)
dot--;
/* buffer can't be empty */
putem:
cnt = dot - addr;
if (!visual || cnt < 0 || cnt > vcnt) {
vch = '.';
nextic = vrescurs;
return (1);
}
dot--;
vcnt = cnt;
vcline = cnt - 1;
if (vcline >= 0) {
getDOT();
vlast = vliny[vcline] + vdepth();
} else
vlast = ZERO;
vroll(1);
vredraw(vliny[vcline]);
if (vrescurs) {
ic = vrescurs;
vrescurs = 0;
first = 1;
}
goto vnline;
case VNONE:
fonfon:
beep();
continue;
case VCHNG:
strcpy(genbuf, linebuf);
strcLIN(vutmp);
strcpy(vutmp, genbuf);
goto vundoit;
default:
error("Internal error: vmain undo@- please tell someone");
}
/*
case 'U':
strcpy(genbuf, linebuf);
putmk1(dot, vmunddot);
getDOT();
*/
vundoit:
ic = vundcurs();
first = 1;
c = vreopen(vliny[vcline], dot - zero);
vsync(vliny[vcline] + c);
goto vmark;
case '/':
case '?':
if (hadcnt) {
beep();
continue;
}
splitw++;
ic = cursor;
vsave();
if (!visual && !CA)
vup1();
vgoto(LINES - 1, 0);
putchar(c);
if (CA) {
vclreol();
vgoto(LINES - 1, 1);
}
cursor = linebuf;
linebuf[0] = 0;
genbuf[0] = c;
OP = Pline;
Pline = &normline;
c = vcline;
i = LINES - 1 - vliny[vcnt];
vliny[vcnt] = LINES - 1;
vcline = vcnt;
if (peekbr()) {
if (!INS[0] || INS[0] == OVERBUF) {
Peekkey = DELETE;
goto back;
}
vglobp = INS;
}
vgetline(0, genbuf + 1, &hadcnt);
back:
vcline = c;
vliny[vcnt] =- i;
Pline = OP;
splitw = 0;
if (genbuf[0] == 0 || Peekkey == DELETE ||
Peekkey == FS) {
if (Peekkey == DELETE)
Peekkey = 0;
oops:
if (!CA) {
nextic = ic;
vch = '.';
return (1);
}
getDOT();
vsetcurs(ic);
continue;
}
/*
if (genbuf[0] != '/' && genbuf[0] != '?')
error("Search delimiter must be / or ?");
*/
if (!vglobp)
vscandir[0] = genbuf[0];
oglobp = globp;
globp = genbuf + 1;
compile(genbuf[0], 1);
savere(&scanre);
vch = -1;
if (globp && *globp) {
c = *globp++;
if (!visual || c != 'v' && c != 'z')
xtra:
error("Extra chars|Extra characters after search pattern");
vch = *globp++;
switch (vch) {
case 0:
vch = 0;
break;
case '^':
case '-':
case '+':
case '.':
if (*globp == 0)
break;
default:
goto xtra;
}
}
splitw = 1;
globp = oglobp;
vgoto(LINES - 1, 0);
flusho();
splitw = 0;
addr = scanfor(genbuf[0]);
if (addr == NIL) {
putchar('F');
beep();
vraw();
goto oops;
}
markDOT();
it:
c = vcline + (addr - dot);
if (vch == -1 && CA && c >= 0 && c < vcnt) {
ic = loc1;
first = 1;
vmoving = 0;
vcline = c;
dot = addr;
goto vnline;
}
if (CA && !visual)
vup1();
nextic = loc1;
dot = addr;
if (vch == -1)
vch = '.';
return (1);
default:
operate(c, cnt);
continue;
}
}
}
vyank(cnt)
int cnt;
{
DEL[0] = OVERBUF;
vyancnt = cnt;
copy(vylines, dot, cnt * sizeof vylines[0]);
}
vgetcnt()
{
register int c, cnt;
cnt = 0;
for (;;) {
c = getkey();
if (!digit(c))
break;
cnt =* 10, cnt =+ c - '0';
}
ungetkey(c);
Xhadcnt = 1;
Xcnt = cnt;
return(cnt);
}
vremote(cnt, f)
int cnt, (*f)();
{
addr1 = dot;
addr2 = dot + cnt - 1;
inglobal++;
(*f)(0);
inglobal--;
}
vfindcol(i)
int i;
{
register char *cp;
qcolumn(linebuf - 1, 0);
for (cp = linebuf; *cp && vcntcol < i; cp++)
qcount(*cp);
if (cp != linebuf)
cp--;
return (cp);
}
vsave()
{
char genbuf[LBSIZE];
strcpy(genbuf, linebuf);
getDOT();
if (strcmp(linebuf, genbuf) == 0)
return (0);
strcLIN(genbuf);
putmark(dot);
return (1);
}
vundcurs()
{
register char *lp, *gp;
for (lp = linebuf, gp = genbuf; *lp && *gp && *lp == *gp; lp++, gp++)
continue;
if (*lp)
return (lp);
if (*gp)
return (lp > linebuf ? lp - 1 : lp);
return (vskipwh(linebuf));
}
vrestor()
{
if (vresCNT == vrescnt)
return (EOF);
getline(vulines[vresCNT]);
vresCNT++;
return (0);
}
vsyncCL()
{
vsync(vliny[vcline]);
}
getDOT()
{
getline(*dot);
}
vshift()
{
shift(op, 1);
}
#endif
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.