Return to deltext.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / sux

Annotation of researchv9/jtools/src/sux/deltext.c, revision 1.1

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

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