Return to outbitmap.c CVS log

Up to [Research Unix] / researchv10no / libcc

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

1.1       root        1: #include <jstructs.h>
                      2: 
                      3: #define SHORTSIZE      16
                      4: 
                      5: #define outword(w)     ((*ouch)(w) < 0 ? -1 : (*ouch)((w)>>8))
                      6: #define outpoint(p)    (outword((p).x) < 0 ? -1 : outword((p).y))
                      7: #define outrect(r)     (outpoint((r).origin) < 0 ? -1 : outpoint((r).corner))
                      8: 
                      9: static int ctype, count, rastwid, (*ouch)(); static short *p1;
                     10: 
                     11: static short *buf; static bufwid;
                     12: 
                     13: outbitmap(bp, r, oucharg)
                     14: Bitmap *bp; Rectangle r; int (*oucharg)();
                     15: {
                     16:        char *malloc();
                     17:        register short *pr, *q;
                     18:        register y, i;
                     19: 
                     20:        ouch = oucharg;
                     21:        rastwid = (r.corner.x-r.origin.x+SHORTSIZE-1)/SHORTSIZE;
                     22: 
                     23:        if (rastwid > bufwid) {
                     24:                if (buf)
                     25:                        free(buf), bufwid = 0;
                     26:                buf = (short *)malloc(rastwid*sizeof(short));
                     27:                if (buf == 0)
                     28:                        return -1;
                     29:                bufwid = rastwid;
                     30:        }
                     31: 
                     32:        if (outword(0) < 0 || outrect(r) < 0)
                     33:                return -1;
                     34: 
                     35:        pr = (short *)bp->base;
                     36:        for (i=0; i<rastwid; i++)
                     37:                buf[i] = 0;
                     38:        for (y=r.origin.y; y<r.corner.y; y++) {
                     39:                for (i=0; i<rastwid; i++)
                     40:                        buf[i] ^= pr[i];
                     41:                if (outrast(buf) < 0)
                     42:                        return -1;
                     43:                for (i=0; i<rastwid; i++)
                     44:                        buf[i] = pr[i];
                     45:                pr = (short *)((Word *)pr + bp->width);
                     46:        }
                     47:        return 0;
                     48: }
                     49: 
                     50: static outrast(p2)
                     51: register short *p2;
                     52: {
                     53:        short *endraster;
                     54:        p1 = p2;
                     55:        endraster = p2+rastwid-1;
                     56:        do {
                     57:                if (p1 >= p2) {
                     58:                        p2=p1+1; count=2;
                     59:                        ctype=(*p1 == *p2);
                     60: 
                     61:                } else if ((*p2 == *(p2+1)) == ctype) {
                     62:                        if (++count >= 127) {
                     63:                                if (outbits() < 0)
                     64:                                        return -1;
                     65:                                p1=p2+2;
                     66:                        } else p2++;
                     67: 
                     68:                } else if (ctype) {
                     69:                        if (outbits() < 0)
                     70:                                return -1;
                     71:                        p1=p2+1;
                     72:                        ctype=0;
                     73: 
                     74:                } else {
                     75:                        count--;
                     76:                        if (outbits() < 0)
                     77:                                return -1;
                     78:                        p1=p2;
                     79:                        ctype=1;
                     80:                }
                     81:        } while (p2 < endraster);
                     82: 
                     83:        if (p1 > endraster)
                     84:                return 0;
                     85:        if (p2 > endraster)
                     86:                count--;
                     87:        if (outbits() < 0)
                     88:                return -1;
                     89:        return 0;
                     90: }
                     91: 
                     92: static outbits()
                     93: {
                     94:        register c; register char *pout;
                     95:        c = count;
                     96:        if (ctype)
                     97:                c += 128, count=1;
                     98:        if ((*ouch)(c) < 0)
                     99:                return -1;
                    100:        c = sizeof(short)*count;
                    101:        pout = (char *)p1;
                    102:        while (--c >= 0)
                    103:                if ((*ouch)(*pout++) < 0)
                    104:                        return -1;
                    105:        return 0;
                    106: }

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