Return to deltext.c CVS log

Up to [Research Unix] / researchv10dc / 630 / src

Annotation of researchv10dc/630/src/deltext.c, revision 1.1.1.1

1.1       root        1: #include <jerq.h>
                      2: #include <layer.h>
                      3: #include <queue.h>
                      4: #include <jerqproc.h>
                      5: #include "frame.h"
                      6: 
                      7: #define        INFINITY        32767
                      8: 
                      9: deltext(t, s1, s2)
                     10:        register Frame *t;
                     11: {
                     12:        register char *p, *q, *r;
                     13:        register n, y1, y2;
                     14:        Point pt;
                     15:        frameop(t, opclear, ptofchar(t, s1), t->str.s+s1, s2-s1);
                     16:        p=t->str.s+s2;
                     17:        r=t->str.s+t->str.n;
                     18:        for(n=0,q=p; q<r && *q!='\n'; q++)
                     19:                n++;
                     20:        /* Found the '\n' at the end of this line; clear out */
                     21:        frameop(t, opclear, ptofchar(t, s2), p, n);
                     22:        y1=endpoint.y;  /* current y position of '\n' at p[n] */
                     23:        /* Draw rest of line at new place */
                     24:        pt=ptofchar(t, s1);
                     25:        draw(t, pt, p, n);
                     26:        y2=endpoint.y;
                     27:        if(y1 != y2){   /* More housekeeping */
                     28:                /* NOTE: y1 > y2 */
                     29:                y1+=newlnsz;
                     30:                y2+=newlnsz;
                     31:                /* Scroll up */
                     32:                Ubitblt(D, Rect(t->rect.origin.x, y1,
                     33:                        t->rect.corner.x, t->rect.corner.y),
                     34:                        D, Pt(t->rect.origin.x, y2), F_STORE);
                     35:                /* Clear the rest */
                     36:                clear(Rpt(Pt(t->rect.origin.x, t->rect.corner.y-(y1-y2)),
                     37:                        t->rect.corner), 1);
                     38:                y1-=newlnsz;
                     39:                y2-=newlnsz;
                     40:        }
                     41:        y1=lineno(t, y1);
                     42:        y2=lineno(t, y2);
                     43:        delstring(&t->str, s1, s2);
                     44:        if(y1 == y2)
                     45:                setcpl(t, lineno(t, pt.y), y1);
                     46:        else
                     47:                setcpl(t, 0, t->nlines-1);      /* SLOW, correct */
                     48:        if(y1 != y2){
                     49:                n=charofpt(t, Pt(0, (t->nlines-(y1-y2))
                     50:                        *newlnsz+t->rect.origin.y));    /* Re-use of n */
                     51:                /* n is last visible char */
                     52:                draw(t, ptofchar(t, n), t->str.s+n, t->str.n-n);
                     53:                if(complete)
                     54:                        return TRUE;
                     55:        }
                     56:        return FALSE;
                     57: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.