1 #include "lib9.h" 2 #include "draw.h" 3 #include "memdraw.h" 4 5 int 6 cloadmemimage(Memimage *i, Rectangle r, uchar *data, int ndata) 7 { 8 int y, bpl, c, cnt, offs; 9 uchar mem[NMEM], *memp, *omemp, *emem, *linep, *elinep, *u, *eu; 10 11 if(!rectinrect(r, i->r)) 12 return -1; 13 bpl = bytesperline(r, i->depth); 14 u = data; 15 eu = data+ndata; 16 memp = mem; 17 emem = mem+NMEM; 18 y = r.min.y; 19 linep = byteaddr(i, Pt(r.min.x, y)); 20 elinep = linep+bpl; 21 for(;;){ 22 if(linep == elinep){ 23 if(++y == r.max.y) 24 break; 25 linep = byteaddr(i, Pt(r.min.x, y)); 26 elinep = linep+bpl; 27 } 28 if(u == eu){ /* buffer too small */ 29 return -1; 30 } 31 c = *u++; 32 if(c >= 128){ 33 for(cnt=c-128+1; cnt!=0 ;--cnt){ 34 if(u == eu){ /* buffer too small */ 35 return -1; 36 } 37 if(linep == elinep){ /* phase error */ 38 return -1; 39 } 40 *linep++ = *u; 41 *memp++ = *u++; 42 if(memp == emem) 43 memp = mem; 44 } 45 } 46 else{ 47 if(u == eu) /* short buffer */ 48 return -1; 49 offs = *u++ + ((c&3)<<8)+1; 50 if(memp-mem < offs) 51 omemp = memp+(NMEM-offs); 52 else 53 omemp = memp-offs; 54 for(cnt=(c>>2)+NMATCH; cnt!=0; --cnt){ 55 if(linep == elinep) /* phase error */ 56 return -1; 57 *linep++ = *omemp; 58 *memp++ = *omemp++; 59 if(omemp == emem) 60 omemp = mem; 61 if(memp == emem) 62 memp = mem; 63 } 64 } 65 } 66 return u-data; 67 } 68