Return to inbitmap.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / jj

Annotation of researchv9/jerq/src/lib/jj/inbitmap.c, revision 1.1

1.1     ! root        1: #include <jerq.h>
        !             2: 
        !             3: #define SHORTSIZE      16
        !             4: 
        !             5: #define inpoint(pp)    (inword(&(pp)->x) < 0 ? -1 : inword(&(pp)->y))
        !             6: #define inrect(rp)     (inpoint(&(rp)->origin) < 0 ? -1 : inpoint(&(rp)->corner))
        !             7: 
        !             8: static Word buffer[XMAX/WORDSIZE];
        !             9: 
        !            10: static Bitmap bbuffer = { buffer, XMAX/WORDSIZE, 0, 0, XMAX, 1, };
        !            11: 
        !            12: static int (*inch)();
        !            13: 
        !            14: Bitmap *
        !            15: inbitmap(incharg)
        !            16: int (*incharg)();
        !            17: {
        !            18:        register Bitmap *bp;
        !            19:        register y;
        !            20:        int rastwid, dummy;
        !            21:        Rectangle r;
        !            22: 
        !            23:        inch = incharg;
        !            24: 
        !            25:        if (inword(&dummy) < 0 || inrect(&r) < 0 || (bp = balloc(r)) == 0)
        !            26:                return 0;
        !            27:        rastwid = (r.corner.x - r.origin.x + SHORTSIZE - 1)/SHORTSIZE;
        !            28:        for (y = r.origin.y; y < r.corner.y; y++) {
        !            29:                if (getrast((short *)buffer, rastwid) < 0) {
        !            30:                        bfree(bp);
        !            31:                        return 0;
        !            32:                }
        !            33:                bitblt(&bbuffer, bbuffer.rect, bp, Pt(r.origin.x, y), F_STORE);
        !            34:                if (y > r.origin.y)
        !            35:                        bitblt(bp, Rect(r.origin.x, y-1, r.corner.x, y),
        !            36:                               bp, Pt(r.origin.x, y), F_XOR);
        !            37:        }
        !            38:        return bp;
        !            39: }
        !            40: 
        !            41: static
        !            42: getrast(p, nwords)     /* receive single compressed raster */
        !            43: register short *p; int nwords;
        !            44: {
        !            45:        int count, same;
        !            46: 
        !            47:        while (nwords > 0) {
        !            48:                if ((count = (*inch)()) <= 0)
        !            49:                        return -1;
        !            50:                same = count&128; count &= 127;
        !            51:                nwords -= count;
        !            52: 
        !            53:                if (same) {
        !            54:                        if (innchars(sizeof(short), (char *)p) < 0)
        !            55:                                return -1;
        !            56:                        for (count--; count>0; count--) {
        !            57:                                *(p+1) = *p; p++;
        !            58:                        }
        !            59:                        p++;
        !            60:                } else {
        !            61:                        if (innchars(sizeof(short)*count, (char *)p) < 0)
        !            62:                                return -1;
        !            63:                        p += count;
        !            64:                }
        !            65:        }
        !            66:        return (nwords == 0 ? 0 : -1);
        !            67: }
        !            68: 
        !            69: static
        !            70: inword(wp)
        !            71: short *wp;
        !            72: {
        !            73:        register lo, hi;
        !            74:        if ((lo = (*inch)()) < 0 || (hi = (*inch)()) < 0)
        !            75:                return -1;
        !            76:        *wp = (hi << 8) | lo;
        !            77:        return 0;
        !            78: }
        !            79: 
        !            80: static
        !            81: innchars(n, p)
        !            82: register n; register char *p;
        !            83: {
        !            84:        register c;
        !            85:        while (--n >= 0)
        !            86:                if ((c = (*inch)()) < 0)
        !            87:                        return -1;
        !            88:                else
        !            89:                        *p++ = c;
        !            90:        return 0;
        !            91: }

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