Changed loop structures

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

#ifndef lint
static  char *sccsid = "@(#)wwdelchar.c 3.8 83/12/02";
#endif

#include "ww.h"
#include "tt.h"

wwdelchar(w, row, col)
register struct ww *w;
{
       register i;
       int nvis;

       /*
        * First, shift the line.
        */
       {
               register union ww_char *p, *q;

               p = &w->ww_buf[row][col];
               q = p + 1;
               for (i = w->ww_b.r - col; --i > 0;)
                       *p++ = *q++;
               p->c_w = ' ';
       }

       /*
        * If can't see it, just return.
        */
       if (row < w->ww_i.t || row >= w->ww_i.b
           || w->ww_i.r <= 0 || w->ww_i.r <= col)
               return;

       if (col < w->ww_i.l)
               col = w->ww_i.l;

       /*
        * Now find out how much is actually changed, and fix wwns.
        */
       {
               register union ww_char *buf;
               register char *win;
               register union ww_char *ns;
               register char *smap;
               char touched;

               nvis = 0;
               smap = &wwsmap[row][col];
               for (i = col; i < w->ww_i.r && *smap++ != w->ww_index; i++)
                       ;
               if (i >= w->ww_i.r)
                       return;
               col = i;
               buf = w->ww_buf[row];
               win = w->ww_win[row];
               ns = wwns[row];
               smap = &wwsmap[row][i];
               touched = wwtouched[row];
               for (; i < w->ww_i.r; i++) {
                       if (*smap++ != w->ww_index)
                               continue;
                       touched = 1;
                       if (win[i])
                               ns[i].c_w =
                                       buf[i].c_w ^ win[i] << WWC_MSHIFT;
                       else {
                               nvis++;
                               ns[i] = buf[i];
                       }
               }
               wwtouched[row] = touched;
       }

       /*
        * Can/Should we use delete character?
        */
       if (tt.tt_delchar != 0 && nvis > (wwncol - col) / 2) {
               register union ww_char *p, *q;

               (*tt.tt_move)(row, col);
               (*tt.tt_delchar)();

               p = &wwos[row][col];
               q = p + 1;
               for (i = wwncol - col; --i > 0;)
                       *p++ = *q++;
               p->c_w = ' ';
       }
}