Return to inbitmap.c CVS log

Up to [Research Unix] / researchv10no / libcc

Annotation of researchv10no/libcc/inbitmap.c, revision 1.1.1.1

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

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