1 #include "lib9.h"
2 #include "draw.h"
3 #include "memdraw.h"
4
5 int
cloadmemimage(Memimage * i,Rectangle r,uchar * data,int ndata)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