1 76193d7c 2003-09-30 devnull #include <u.h>
2 76193d7c 2003-09-30 devnull #include <libc.h>
3 76193d7c 2003-09-30 devnull #include <draw.h>
4 76193d7c 2003-09-30 devnull #include <memdraw.h>
7 76193d7c 2003-09-30 devnull readmemimage(int fd)
9 76193d7c 2003-09-30 devnull char hdr[5*12+1];
11 76193d7c 2003-09-30 devnull u32int chan;
12 76193d7c 2003-09-30 devnull uint l, n;
13 76193d7c 2003-09-30 devnull int m, j;
14 76193d7c 2003-09-30 devnull int new, miny, maxy;
15 76193d7c 2003-09-30 devnull Rectangle r;
16 76193d7c 2003-09-30 devnull uchar *tmp;
17 76193d7c 2003-09-30 devnull int ldepth, chunk;
18 76193d7c 2003-09-30 devnull Memimage *i;
20 76193d7c 2003-09-30 devnull if(readn(fd, hdr, 11) != 11){
21 76193d7c 2003-09-30 devnull werrstr("readimage: short header");
22 76193d7c 2003-09-30 devnull return nil;
24 76193d7c 2003-09-30 devnull if(memcmp(hdr, "compressed\n", 11) == 0)
25 76193d7c 2003-09-30 devnull return creadmemimage(fd);
26 76193d7c 2003-09-30 devnull if(readn(fd, hdr+11, 5*12-11) != 5*12-11){
27 76193d7c 2003-09-30 devnull werrstr("readimage: short header (2)");
28 76193d7c 2003-09-30 devnull return nil;
32 76193d7c 2003-09-30 devnull * distinguish new channel descriptor from old ldepth.
33 76193d7c 2003-09-30 devnull * channel descriptors have letters as well as numbers,
34 76193d7c 2003-09-30 devnull * while ldepths are a single digit formatted as %-11d.
37 76193d7c 2003-09-30 devnull for(m=0; m<10; m++){
38 76193d7c 2003-09-30 devnull if(hdr[m] != ' '){
43 76193d7c 2003-09-30 devnull if(hdr[11] != ' '){
44 76193d7c 2003-09-30 devnull werrstr("readimage: bad format");
45 76193d7c 2003-09-30 devnull return nil;
48 76193d7c 2003-09-30 devnull hdr[11] = '\0';
49 76193d7c 2003-09-30 devnull if((chan = strtochan(hdr)) == 0){
50 76193d7c 2003-09-30 devnull werrstr("readimage: bad channel string %s", hdr);
51 76193d7c 2003-09-30 devnull return nil;
54 76193d7c 2003-09-30 devnull ldepth = ((int)hdr[10])-'0';
55 76193d7c 2003-09-30 devnull if(ldepth<0 || ldepth>3){
56 76193d7c 2003-09-30 devnull werrstr("readimage: bad ldepth %d", ldepth);
57 76193d7c 2003-09-30 devnull return nil;
59 76193d7c 2003-09-30 devnull chan = drawld2chan[ldepth];
62 76193d7c 2003-09-30 devnull r.min.x = atoi(hdr+1*12);
63 76193d7c 2003-09-30 devnull r.min.y = atoi(hdr+2*12);
64 76193d7c 2003-09-30 devnull r.max.x = atoi(hdr+3*12);
65 76193d7c 2003-09-30 devnull r.max.y = atoi(hdr+4*12);
66 76193d7c 2003-09-30 devnull if(r.min.x>r.max.x || r.min.y>r.max.y){
67 76193d7c 2003-09-30 devnull werrstr("readimage: bad rectangle");
68 76193d7c 2003-09-30 devnull return nil;
71 76193d7c 2003-09-30 devnull miny = r.min.y;
72 76193d7c 2003-09-30 devnull maxy = r.max.y;
74 76193d7c 2003-09-30 devnull l = bytesperline(r, chantodepth(chan));
75 76193d7c 2003-09-30 devnull i = allocmemimage(r, chan);
76 76193d7c 2003-09-30 devnull if(i == nil)
77 76193d7c 2003-09-30 devnull return nil;
78 76193d7c 2003-09-30 devnull chunk = 32*1024;
79 76193d7c 2003-09-30 devnull if(chunk < l)
80 76193d7c 2003-09-30 devnull chunk = l;
81 76193d7c 2003-09-30 devnull tmp = malloc(chunk);
82 76193d7c 2003-09-30 devnull if(tmp == nil)
83 76193d7c 2003-09-30 devnull goto Err;
84 76193d7c 2003-09-30 devnull while(maxy > miny){
85 76193d7c 2003-09-30 devnull dy = maxy - miny;
86 76193d7c 2003-09-30 devnull if(dy*l > chunk)
87 76193d7c 2003-09-30 devnull dy = chunk/l;
88 76193d7c 2003-09-30 devnull if(dy <= 0){
89 76193d7c 2003-09-30 devnull werrstr("readmemimage: image too wide for buffer");
90 76193d7c 2003-09-30 devnull goto Err;
92 76193d7c 2003-09-30 devnull n = dy*l;
93 76193d7c 2003-09-30 devnull m = readn(fd, tmp, n);
94 76193d7c 2003-09-30 devnull if(m != n){
95 76193d7c 2003-09-30 devnull werrstr("readmemimage: read count %d not %d: %r", m, n);
97 76193d7c 2003-09-30 devnull freememimage(i);
98 76193d7c 2003-09-30 devnull free(tmp);
99 76193d7c 2003-09-30 devnull return nil;
101 76193d7c 2003-09-30 devnull if(!new) /* an old image: must flip all the bits */
102 76193d7c 2003-09-30 devnull for(j=0; j<chunk; j++)
103 76193d7c 2003-09-30 devnull tmp[j] ^= 0xFF;
105 76193d7c 2003-09-30 devnull if(loadmemimage(i, Rect(r.min.x, miny, r.max.x, miny+dy), tmp, chunk) <= 0)
106 76193d7c 2003-09-30 devnull goto Err;
107 76193d7c 2003-09-30 devnull miny += dy;
109 76193d7c 2003-09-30 devnull free(tmp);
110 76193d7c 2003-09-30 devnull return i;
