NetBSD/usr.bin/window/wwwrite.c

300 lines
7.4 KiB
C

/*
* Copyright (c) 1983 Regents of the University of California.
* All rights reserved.
*
* This code is derived from software contributed to Berkeley by
* Edward Wang at The University of California, Berkeley.
*
* 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.
*/
#ifndef lint
/*static char sccsid[] = "from: @(#)wwwrite.c 3.33 (Berkeley) 6/6/90";*/
static char rcsid[] = "$Id: wwwrite.c,v 1.2 1993/08/01 18:02:33 mycroft Exp $";
#endif /* not lint */
#include "ww.h"
#include "tt.h"
#include "char.h"
#define UPDATE() \
if (!w->ww_noupdate && w->ww_cur.r >= 0 && w->ww_cur.r < wwnrow && \
wwtouched[w->ww_cur.r]) \
wwupdate1(w->ww_cur.r, w->ww_cur.r + 1)
/*
* To support control character expansion, we save the old
* p and q values in r and s, and point p at the beginning
* of the expanded string, and q at some safe place beyond it
* (p + 10). At strategic points in the loops, we check
* for (r && !*p) and restore the saved values back into
* p and q. Essentially, we implement a stack of depth 2,
* to avoid recursion, which might be a better idea.
*/
wwwrite(w, p, n)
register struct ww *w;
register char *p;
int n;
{
char hascursor;
char *savep = p;
char *q = p + n;
char *r = 0;
char *s;
#ifdef lint
s = 0; /* define it before possible use */
#endif
if (hascursor = w->ww_hascursor)
wwcursor(w, 0);
while (p < q && !w->ww_stopped && (!wwinterrupt() || w->ww_nointr)) {
if (r && !*p) {
p = r;
q = s;
r = 0;
continue;
}
if (w->ww_wstate == 0 &&
(isprt(*p) || w->ww_unctrl && isunctrl(*p))) {
register i;
register union ww_char *bp;
int col, col1;
if (w->ww_insert) { /* this is very slow */
if (*p == '\t') {
p++;
w->ww_cur.c += 8 -
(w->ww_cur.c - w->ww_w.l & 7);
goto chklf;
}
if (!isprt(*p)) {
r = p + 1;
s = q;
p = unctrl(*p);
q = p + 10;
}
wwinschar(w, w->ww_cur.r, w->ww_cur.c,
*p++, w->ww_modes);
goto right;
}
bp = &w->ww_buf[w->ww_cur.r][w->ww_cur.c];
i = w->ww_cur.c;
while (i < w->ww_w.r && p < q)
if (!*p && r) {
p = r;
q = s;
r = 0;
} else if (*p == '\t') {
register tmp = 8 - (i - w->ww_w.l & 7);
p++;
i += tmp;
bp += tmp;
} else if (isprt(*p)) {
bp++->c_w = *p++
| w->ww_modes << WWC_MSHIFT;
i++;
} else if (w->ww_unctrl && isunctrl(*p)) {
r = p + 1;
s = q;
p = unctrl(*p);
q = p + 10;
} else
break;
col = MAX(w->ww_cur.c, w->ww_i.l);
col1 = MIN(i, w->ww_i.r);
w->ww_cur.c = i;
if (w->ww_cur.r >= w->ww_i.t
&& w->ww_cur.r < w->ww_i.b) {
register union ww_char *ns = wwns[w->ww_cur.r];
register char *smap = &wwsmap[w->ww_cur.r][col];
register char *win = w->ww_win[w->ww_cur.r];
int nchanged = 0;
bp = w->ww_buf[w->ww_cur.r];
for (i = col; i < col1; i++)
if (*smap++ == w->ww_index) {
nchanged++;
ns[i].c_w = bp[i].c_w
^ win[i] << WWC_MSHIFT;
}
if (nchanged > 0)
wwtouched[w->ww_cur.r] |= WWU_TOUCHED;
}
chklf:
if (w->ww_cur.c >= w->ww_w.r)
goto crlf;
} else switch (w->ww_wstate) {
case 0:
switch (*p++) {
case '\n':
if (w->ww_mapnl)
crlf:
w->ww_cur.c = w->ww_w.l;
lf:
UPDATE();
if (++w->ww_cur.r >= w->ww_w.b) {
w->ww_cur.r = w->ww_w.b - 1;
if (w->ww_w.b < w->ww_b.b) {
(void) wwscroll1(w, w->ww_i.t,
w->ww_i.b, 1, 0);
w->ww_buf++;
w->ww_b.t--;
w->ww_b.b--;
} else
wwdelline(w, w->ww_b.t);
}
break;
case '\b':
if (--w->ww_cur.c < w->ww_w.l) {
w->ww_cur.c = w->ww_w.r - 1;
goto up;
}
break;
case '\r':
w->ww_cur.c = w->ww_w.l;
break;
case ctrl('g'):
ttputc(ctrl('g'));
break;
case ctrl('['):
w->ww_wstate = 1;
break;
}
break;
case 1:
w->ww_wstate = 0;
switch (*p++) {
case '@':
w->ww_insert = 1;
break;
case 'A':
up:
UPDATE();
if (--w->ww_cur.r < w->ww_w.t) {
w->ww_cur.r = w->ww_w.t;
if (w->ww_w.t > w->ww_b.t) {
(void) wwscroll1(w, w->ww_i.t,
w->ww_i.b, -1, 0);
w->ww_buf--;
w->ww_b.t++;
w->ww_b.b++;
} else
wwinsline(w, w->ww_b.t);
}
break;
case 'B':
goto lf;
case 'C':
right:
w->ww_cur.c++;
goto chklf;
case 'E':
w->ww_buf -= w->ww_w.t - w->ww_b.t;
w->ww_b.t = w->ww_w.t;
w->ww_b.b = w->ww_b.t + w->ww_b.nr;
w->ww_cur.r = w->ww_w.t;
w->ww_cur.c = w->ww_w.l;
wwclreos(w, w->ww_w.t, w->ww_w.l);
break;
case 'H':
UPDATE();
w->ww_cur.r = w->ww_w.t;
w->ww_cur.c = w->ww_w.l;
break;
case 'J':
wwclreos(w, w->ww_cur.r, w->ww_cur.c);
break;
case 'K':
wwclreol(w, w->ww_cur.r, w->ww_cur.c);
break;
case 'L':
UPDATE();
wwinsline(w, w->ww_cur.r);
break;
case 'M':
wwdelline(w, w->ww_cur.r);
break;
case 'N':
wwdelchar(w, w->ww_cur.r, w->ww_cur.c);
break;
case 'O':
w->ww_insert = 0;
break;
case 'P':
wwinschar(w, w->ww_cur.r, w->ww_cur.c, ' ', 0);
break;
case 'X':
wwupdate();
break;
case 'Y':
UPDATE();
w->ww_wstate = 2;
break;
case 'Z':
wwupdate();
xxflush(0);
break;
case 's':
w->ww_wstate = 4;
break;
case 'r':
w->ww_wstate = 5;
break;
}
break;
case 2:
w->ww_cur.r = w->ww_w.t +
(unsigned)(*p++ - ' ') % w->ww_w.nr;
w->ww_wstate = 3;
break;
case 3:
w->ww_cur.c = w->ww_w.l +
(unsigned)(*p++ - ' ') % w->ww_w.nc;
w->ww_wstate = 0;
break;
case 4:
w->ww_modes |= *p++ & wwavailmodes;
w->ww_wstate = 0;
break;
case 5:
w->ww_modes &= ~*p++;
w->ww_wstate = 0;
break;
}
}
if (hascursor)
wwcursor(w, 1);
wwnwwr++;
wwnwwra += n;
n = p - savep;
wwnwwrc += n;
return n;
}