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>
6 76193d7c 2003-09-30 devnull readimage(Display *d, int fd, int dolock)
8 76193d7c 2003-09-30 devnull char hdr[5*12+1];
11 76193d7c 2003-09-30 devnull uint l, n;
12 76193d7c 2003-09-30 devnull int m, j, chunk;
13 76193d7c 2003-09-30 devnull int miny, maxy;
14 76193d7c 2003-09-30 devnull Rectangle r;
15 76193d7c 2003-09-30 devnull int ldepth;
16 76193d7c 2003-09-30 devnull u32int chan;
17 76193d7c 2003-09-30 devnull uchar *tmp;
18 76193d7c 2003-09-30 devnull Image *i;
20 76193d7c 2003-09-30 devnull if(readn(fd, hdr, 11) != 11)
21 76193d7c 2003-09-30 devnull return nil;
22 76193d7c 2003-09-30 devnull if(memcmp(hdr, "compressed\n", 11) == 0)
23 76193d7c 2003-09-30 devnull return creadimage(d, fd, dolock);
24 76193d7c 2003-09-30 devnull if(readn(fd, hdr+11, 5*12-11) != 5*12-11)
25 76193d7c 2003-09-30 devnull return nil;
27 4e206880 2004-04-25 devnull chunk = d->bufsize - 32; /* a little room for header */
29 4e206880 2004-04-25 devnull chunk = 8192;
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));
76 4e206880 2004-04-25 devnull if(dolock)
77 4e206880 2004-04-25 devnull lockdisplay(d);
78 4e206880 2004-04-25 devnull i = allocimage(d, r, chan, 0, -1);
79 4e206880 2004-04-25 devnull if(dolock)
80 4e206880 2004-04-25 devnull unlockdisplay(d);
81 4e206880 2004-04-25 devnull if(i == nil)
82 4e206880 2004-04-25 devnull return nil;
84 4e206880 2004-04-25 devnull i = mallocz(sizeof(Image), 1);
85 4e206880 2004-04-25 devnull if(i == nil)
86 4e206880 2004-04-25 devnull return nil;
89 76193d7c 2003-09-30 devnull tmp = malloc(chunk);
90 76193d7c 2003-09-30 devnull if(tmp == nil)
91 76193d7c 2003-09-30 devnull goto Err;
92 76193d7c 2003-09-30 devnull while(maxy > miny){
93 76193d7c 2003-09-30 devnull dy = maxy - miny;
94 76193d7c 2003-09-30 devnull if(dy*l > chunk)
95 76193d7c 2003-09-30 devnull dy = chunk/l;
96 76193d7c 2003-09-30 devnull if(dy <= 0){
97 76193d7c 2003-09-30 devnull werrstr("readimage: image too wide for buffer");
98 76193d7c 2003-09-30 devnull goto Err;
100 76193d7c 2003-09-30 devnull n = dy*l;
101 76193d7c 2003-09-30 devnull m = readn(fd, tmp, n);
102 76193d7c 2003-09-30 devnull if(m != n){
103 76193d7c 2003-09-30 devnull werrstr("readimage: read count %d not %d: %r", m, n);
105 76193d7c 2003-09-30 devnull if(dolock)
106 76193d7c 2003-09-30 devnull lockdisplay(d);
108 76193d7c 2003-09-30 devnull freeimage(i);
109 76193d7c 2003-09-30 devnull if(dolock)
110 76193d7c 2003-09-30 devnull unlockdisplay(d);
111 76193d7c 2003-09-30 devnull free(tmp);
112 76193d7c 2003-09-30 devnull return nil;
114 76193d7c 2003-09-30 devnull if(!new) /* an old image: must flip all the bits */
115 76193d7c 2003-09-30 devnull for(j=0; j<chunk; j++)
116 76193d7c 2003-09-30 devnull tmp[j] ^= 0xFF;
119 4e206880 2004-04-25 devnull if(dolock)
120 4e206880 2004-04-25 devnull lockdisplay(d);
121 4e206880 2004-04-25 devnull if(loadimage(i, Rect(r.min.x, miny, r.max.x, miny+dy), tmp, chunk) <= 0)
122 4e206880 2004-04-25 devnull goto Err1;
123 4e206880 2004-04-25 devnull if(dolock)
124 4e206880 2004-04-25 devnull unlockdisplay(d);
126 76193d7c 2003-09-30 devnull miny += dy;
128 76193d7c 2003-09-30 devnull free(tmp);
129 76193d7c 2003-09-30 devnull return i;
