78 lines
1.7 KiB
C
78 lines
1.7 KiB
C
|
/*
|
||
|
|
* This file is part of the UCB release of Plan 9. It is subject to the license
|
||
|
|
* terms in the LICENSE file found in the top-level directory of this
|
||
|
|
* distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No
|
||
|
|
* part of the UCB release of Plan 9, including this file, may be copied,
|
||
|
|
* modified, propagated, or distributed except according to the terms contained
|
||
|
|
* in the LICENSE file.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <u.h>
|
||
|
|
#include <libc.h>
|
||
|
|
#include <draw.h>
|
||
|
|
#include <memdraw.h>
|
||
|
|
|
||
|
|
int
|
||
|
|
cloadmemimage(Memimage *i, Rectangle r, uint8_t *data, int ndata)
|
||
|
|
{
|
||
|
|
int y, bpl, c, cnt, offs;
|
||
|
|
uint8_t mem[NMEM], *memp, *omemp, *emem, *linep, *elinep, *u, *eu;
|
||
|
|
|
||
|
|
if(!rectinrect(r, i->r))
|
||
|
|
return -1;
|
||
|
|
bpl = bytesperline(r, i->depth);
|
||
|
|
u = data;
|
||
|
|
eu = data+ndata;
|
||
|
|
memp = mem;
|
||
|
|
emem = mem+NMEM;
|
||
|
|
y = r.min.y;
|
||
|
|
linep = byteaddr(i, Pt(r.min.x, y));
|
||
|
|
elinep = linep+bpl;
|
||
|
|
for(;;){
|
||
|
|
if(linep == elinep){
|
||
|
|
if(++y == r.max.y)
|
||
|
|
break;
|
||
|
|
linep = byteaddr(i, Pt(r.min.x, y));
|
||
|
|
elinep = linep+bpl;
|
||
|
|
}
|
||
|
|
if(u == eu){ /* buffer too small */
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
c = *u++;
|
||
|
|
if(c >= 128){
|
||
|
|
for(cnt=c-128+1; cnt!=0 ;--cnt){
|
||
|
|
if(u == eu){ /* buffer too small */
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
if(linep == elinep){ /* phase error */
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
*linep++ = *u;
|
||
|
|
*memp++ = *u++;
|
||
|
|
if(memp == emem)
|
||
|
|
memp = mem;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else{
|
||
|
|
if(u == eu) /* short buffer */
|
||
|
|
return -1;
|
||
|
|
offs = *u++ + ((c&3)<<8)+1;
|
||
|
|
if(memp-mem < offs)
|
||
|
|
omemp = memp+(NMEM-offs);
|
||
|
|
else
|
||
|
|
omemp = memp-offs;
|
||
|
|
for(cnt=(c>>2)+NMATCH; cnt!=0; --cnt){
|
||
|
|
if(linep == elinep) /* phase error */
|
||
|
|
return -1;
|
||
|
|
*linep++ = *omemp;
|
||
|
|
*memp++ = *omemp++;
|
||
|
|
if(omemp == emem)
|
||
|
|
omemp = mem;
|
||
|
|
if(memp == emem)
|
||
|
|
memp = mem;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return u-data;
|
||
|
|
}
|