check for negatives in cursor address sequence

[unix-history] / usr / src / usr.bin / window / wwwrite.c

#ifndef lint
static  char *sccsid = "@(#)wwwrite.c   3.15 83/12/06";
#endif

#include "ww.h"

wwwrite(w, p, n)
register struct ww *w;
register char *p;
int n;
{
       char hascursor;

       wwnwrite++;
       wwnwritec += n;
       if (hascursor = w->ww_hascursor)
               wwcursor(w, 0);
       while (n > 0) {
               if (w->ww_wstate == 0 && !ISCTRL(*p)) {
                       register i;
                       register union ww_char *bp;
                       union ww_char *bq;
                       int col, col1;

                       if (w->ww_insert) {     /* this is very slow */
                               n--;
                               wwinschar(w, w->ww_cur.r, w->ww_cur.c,
                                       *p++ | w->ww_modes << WWC_MSHIFT);
                               goto right;
                       }

                       bp = bq = &w->ww_buf[w->ww_cur.r][w->ww_cur.c];
                       if ((i = w->ww_b.r - w->ww_cur.c) > n)
                               i = n;
                       while (--i >= 0 && !ISCTRL(*p))
                               bp++->c_w = *p++ | w->ww_modes << WWC_MSHIFT;

                       i = bp - bq;
                       n -= i;
                       col = MAX(w->ww_cur.c, w->ww_i.l);
                       w->ww_cur.c += i;
                       col1 = MIN(w->ww_cur.c, w->ww_i.r);

                       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];
                               char touched = wwtouched[w->ww_cur.r];

                               bp = w->ww_buf[w->ww_cur.r];
                               for (i = col; i < col1; i++)
                                       if (*smap++ == w->ww_index) {
                                               touched |= WWU_TOUCHED;
                                               ns[i].c_w = bp[i].c_w
                                                       ^ win[i] << WWC_MSHIFT;
                                       }
                               wwtouched[w->ww_cur.r] = touched;
                       }
                       if (w->ww_cur.c >= w->ww_w.r) {
                               w->ww_cur.c = w->ww_w.l;
                               goto lf;
                       }
                       continue;
               }
               n--;
               switch (w->ww_wstate) {
               case 0:
                       switch (*p++) {
                       case '\n':
                               if (w->ww_mapnl)
                                       w->ww_cur.c = w->ww_w.l;
               lf:
                               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 '\t':
                               w->ww_cur.c +=
                                       8 - (w->ww_cur.c - w->ww_w.l & 7);
                               if (w->ww_cur.c >= w->ww_w.r) {
                                       w->ww_cur.c = w->ww_w.l;
                                       goto lf;
                               }
                               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):
                               wwbell();
                               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:
                               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:
                               if (++w->ww_cur.c >= w->ww_w.r) {
                                       w->ww_cur.c = w->ww_w.l;
                                       goto lf;
                               }
                               break;
                       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':
                               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':
                               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 'Y':
                               w->ww_wstate = 2;
                               break;
                       case 'p':
                               w->ww_modes |= WWM_REV;
                               break;
                       case 'q':
                               w->ww_modes &= ~WWM_REV;
                               break;
                       case 'r':
                               w->ww_modes |= WWM_UL;
                               break;
                       case 's':
                               w->ww_modes &= ~WWM_UL;
                               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;
               }
       }
       if (hascursor)
               wwcursor(w, 1);
       return 0;
}