1*8ccd4a63SDavid du Colombier #include <u.h>
2*8ccd4a63SDavid du Colombier #include <libc.h>
3*8ccd4a63SDavid du Colombier #include <draw.h>
4*8ccd4a63SDavid du Colombier #include <memdraw.h>
57dd7cddfSDavid du Colombier
67dd7cddfSDavid du Colombier int
_cloadmemimage(Memimage * i,Rectangle r,uchar * data,int ndata)77dd7cddfSDavid du Colombier _cloadmemimage(Memimage *i, Rectangle r, uchar *data, int ndata)
87dd7cddfSDavid du Colombier {
97dd7cddfSDavid du Colombier int y, bpl, c, cnt, offs;
107dd7cddfSDavid du Colombier uchar mem[NMEM], *memp, *omemp, *emem, *linep, *elinep, *u, *eu;
117dd7cddfSDavid du Colombier
127dd7cddfSDavid du Colombier if(!rectinrect(r, i->r))
137dd7cddfSDavid du Colombier return -1;
147dd7cddfSDavid du Colombier bpl = bytesperline(r, i->depth);
157dd7cddfSDavid du Colombier u = data;
167dd7cddfSDavid du Colombier eu = data+ndata;
177dd7cddfSDavid du Colombier memp = mem;
187dd7cddfSDavid du Colombier emem = mem+NMEM;
197dd7cddfSDavid du Colombier y = r.min.y;
207dd7cddfSDavid du Colombier linep = byteaddr(i, Pt(r.min.x, y));
217dd7cddfSDavid du Colombier elinep = linep+bpl;
227dd7cddfSDavid du Colombier for(;;){
237dd7cddfSDavid du Colombier if(linep == elinep){
247dd7cddfSDavid du Colombier if(++y == r.max.y)
257dd7cddfSDavid du Colombier break;
267dd7cddfSDavid du Colombier linep = byteaddr(i, Pt(r.min.x, y));
277dd7cddfSDavid du Colombier elinep = linep+bpl;
287dd7cddfSDavid du Colombier }
297dd7cddfSDavid du Colombier if(u == eu){ /* buffer too small */
307dd7cddfSDavid du Colombier return -1;
317dd7cddfSDavid du Colombier }
327dd7cddfSDavid du Colombier c = *u++;
337dd7cddfSDavid du Colombier if(c >= 128){
347dd7cddfSDavid du Colombier for(cnt=c-128+1; cnt!=0 ;--cnt){
357dd7cddfSDavid du Colombier if(u == eu){ /* buffer too small */
367dd7cddfSDavid du Colombier return -1;
377dd7cddfSDavid du Colombier }
387dd7cddfSDavid du Colombier if(linep == elinep){ /* phase error */
397dd7cddfSDavid du Colombier return -1;
407dd7cddfSDavid du Colombier }
417dd7cddfSDavid du Colombier *linep++ = *u;
427dd7cddfSDavid du Colombier *memp++ = *u++;
437dd7cddfSDavid du Colombier if(memp == emem)
447dd7cddfSDavid du Colombier memp = mem;
457dd7cddfSDavid du Colombier }
467dd7cddfSDavid du Colombier }
477dd7cddfSDavid du Colombier else{
487dd7cddfSDavid du Colombier if(u == eu) /* short buffer */
497dd7cddfSDavid du Colombier return -1;
507dd7cddfSDavid du Colombier offs = *u++ + ((c&3)<<8)+1;
517dd7cddfSDavid du Colombier if(memp-mem < offs)
527dd7cddfSDavid du Colombier omemp = memp+(NMEM-offs);
537dd7cddfSDavid du Colombier else
547dd7cddfSDavid du Colombier omemp = memp-offs;
557dd7cddfSDavid du Colombier for(cnt=(c>>2)+NMATCH; cnt!=0; --cnt){
567dd7cddfSDavid du Colombier if(linep == elinep) /* phase error */
577dd7cddfSDavid du Colombier return -1;
587dd7cddfSDavid du Colombier *linep++ = *omemp;
597dd7cddfSDavid du Colombier *memp++ = *omemp++;
607dd7cddfSDavid du Colombier if(omemp == emem)
617dd7cddfSDavid du Colombier omemp = mem;
627dd7cddfSDavid du Colombier if(memp == emem)
637dd7cddfSDavid du Colombier memp = mem;
647dd7cddfSDavid du Colombier }
657dd7cddfSDavid du Colombier }
667dd7cddfSDavid du Colombier }
677dd7cddfSDavid du Colombier return u-data;
687dd7cddfSDavid du Colombier }
69