Return to instext.c CVS log

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

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

1.1     ! root        1: #include <jerq.h>
        !             2: #include "frame.h"
        !             3: int inscomplete;
        !             4: instext(t, s, sn)
        !             5:        register Frame *t;
        !             6:        register String *s;
        !             7:        register sn;    /* char number at which to insert */
        !             8: {
        !             9:        register char *p, *q, *r;
        !            10:        register n, y1, y2;
        !            11:        Point sp;       /* point on screen */
        !            12:        sp=ptofchar(t, sn);
        !            13:        p=t->str.s+sn;
        !            14:        r=t->str.s+t->str.n;
        !            15:        for(n=0,q=p; q<r && *q!='\n'; q++)
        !            16:                n++;
        !            17:        /* n is #chars to next '\n' */
        !            18:        frameop(t, opnull, sp, s->s, s->n);
        !            19:        frameop(t, opnull, endpoint, p, n);
        !            20:        y2=endpoint.y;          /* where p[n] will end up */
        !            21:        draw(t, sp, p, n);      /* undraws, leaves endpoint */
        !            22:        y1=endpoint.y;          /* where p[n] is now */
        !            23:        insstring(&t->str, sn, s);      /* build new string */
        !            24:        if(y1 != y2){           /* bitblt up a hole */
        !            25:                y1+=newlnsz;    /* BOTTOM of char */
        !            26:                y2+=newlnsz;
        !            27:                bitblt(D, Rect(t->rect.origin.x, y1,
        !            28:                        t->rect.corner.x, t->rect.corner.y-(y2-y1)),
        !            29:                        D, Pt(t->rect.origin.x, y2), F_STORE);
        !            30:                clear(Rect(t->rect.origin.x, y1, t->rect.corner.x, y2), 1);
        !            31:                y1=(y1-t->rect.origin.y)/newlnsz-1;
        !            32:                y2=(y2-t->rect.origin.y)/newlnsz-1;
        !            33:                scrollcpl(t, t->nlines-1-(y2-y1), y1, y2-y1);
        !            34:        }else
        !            35:                y2=(y2-t->rect.origin.y)/newlnsz;
        !            36:        draw(t, sp, t->str.s+sn, n+s->n);       /* redraw this line */
        !            37:        inscomplete=complete;   /* cough! */
        !            38:        sp = ptofchar(t, sn);
        !            39:        setcpl(t, (sp.y-t->rect.origin.y)/newlnsz, y2);
        !            40: }

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