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 
  5 76193d7c 2003-09-30 devnull Image*
  6 76193d7c 2003-09-30 devnull readimage(Display *d, int fd, int dolock)
  7 76193d7c 2003-09-30 devnull {
  8 76193d7c 2003-09-30 devnull 	char hdr[5*12+1];
  9 76193d7c 2003-09-30 devnull 	int dy;
 10 76193d7c 2003-09-30 devnull 	int new;
 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;
 19 76193d7c 2003-09-30 devnull 
 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;
 26 76193d7c 2003-09-30 devnull 	chunk = d->bufsize - 32;	/* a little room for header */
 27 76193d7c 2003-09-30 devnull 
 28 76193d7c 2003-09-30 devnull 	/*
 29 76193d7c 2003-09-30 devnull 	 * distinguish new channel descriptor from old ldepth.
 30 76193d7c 2003-09-30 devnull 	 * channel descriptors have letters as well as numbers,
 31 76193d7c 2003-09-30 devnull 	 * while ldepths are a single digit formatted as %-11d.
 32 76193d7c 2003-09-30 devnull 	 */
 33 76193d7c 2003-09-30 devnull 	new = 0;
 34 76193d7c 2003-09-30 devnull 	for(m=0; m<10; m++){
 35 76193d7c 2003-09-30 devnull 		if(hdr[m] != ' '){
 36 76193d7c 2003-09-30 devnull 			new = 1;
 37 76193d7c 2003-09-30 devnull 			break;
 38 76193d7c 2003-09-30 devnull 		}
 39 76193d7c 2003-09-30 devnull 	}
 40 76193d7c 2003-09-30 devnull 	if(hdr[11] != ' '){
 41 76193d7c 2003-09-30 devnull 		werrstr("readimage: bad format");
 42 76193d7c 2003-09-30 devnull 		return nil;
 43 76193d7c 2003-09-30 devnull 	}
 44 76193d7c 2003-09-30 devnull 	if(new){
 45 76193d7c 2003-09-30 devnull 		hdr[11] = '\0';
 46 76193d7c 2003-09-30 devnull 		if((chan = strtochan(hdr)) == 0){
 47 76193d7c 2003-09-30 devnull 			werrstr("readimage: bad channel string %s", hdr);
 48 76193d7c 2003-09-30 devnull 			return nil;
 49 76193d7c 2003-09-30 devnull 		}
 50 76193d7c 2003-09-30 devnull 	}else{
 51 76193d7c 2003-09-30 devnull 		ldepth = ((int)hdr[10])-'0';
 52 76193d7c 2003-09-30 devnull 		if(ldepth<0 || ldepth>3){
 53 76193d7c 2003-09-30 devnull 			werrstr("readimage: bad ldepth %d", ldepth);
 54 76193d7c 2003-09-30 devnull 			return nil;
 55 76193d7c 2003-09-30 devnull 		}
 56 76193d7c 2003-09-30 devnull 		chan = drawld2chan[ldepth];
 57 76193d7c 2003-09-30 devnull 	}
 58 76193d7c 2003-09-30 devnull 
 59 76193d7c 2003-09-30 devnull 	r.min.x = atoi(hdr+1*12);
 60 76193d7c 2003-09-30 devnull 	r.min.y = atoi(hdr+2*12);
 61 76193d7c 2003-09-30 devnull 	r.max.x = atoi(hdr+3*12);
 62 76193d7c 2003-09-30 devnull 	r.max.y = atoi(hdr+4*12);
 63 76193d7c 2003-09-30 devnull 	if(r.min.x>r.max.x || r.min.y>r.max.y){
 64 76193d7c 2003-09-30 devnull 		werrstr("readimage: bad rectangle");
 65 76193d7c 2003-09-30 devnull 		return nil;
 66 76193d7c 2003-09-30 devnull 	}
 67 76193d7c 2003-09-30 devnull 
 68 76193d7c 2003-09-30 devnull 	miny = r.min.y;
 69 76193d7c 2003-09-30 devnull 	maxy = r.max.y;
 70 76193d7c 2003-09-30 devnull 
 71 76193d7c 2003-09-30 devnull 	l = bytesperline(r, chantodepth(chan));
 72 76193d7c 2003-09-30 devnull 	if(dolock)
 73 76193d7c 2003-09-30 devnull 		lockdisplay(d);
 74 76193d7c 2003-09-30 devnull 	i = allocimage(d, r, chan, 0, -1);
 75 76193d7c 2003-09-30 devnull 	if(dolock)
 76 76193d7c 2003-09-30 devnull 		unlockdisplay(d);
 77 76193d7c 2003-09-30 devnull 	if(i == nil)
 78 76193d7c 2003-09-30 devnull 		return nil;
 79 76193d7c 2003-09-30 devnull 	tmp = malloc(chunk);
 80 76193d7c 2003-09-30 devnull 	if(tmp == nil)
 81 76193d7c 2003-09-30 devnull 		goto Err;
 82 76193d7c 2003-09-30 devnull 	while(maxy > miny){
 83 76193d7c 2003-09-30 devnull 		dy = maxy - miny;
 84 76193d7c 2003-09-30 devnull 		if(dy*l > chunk)
 85 76193d7c 2003-09-30 devnull 			dy = chunk/l;
 86 76193d7c 2003-09-30 devnull 		if(dy <= 0){
 87 76193d7c 2003-09-30 devnull 			werrstr("readimage: image too wide for buffer");
 88 76193d7c 2003-09-30 devnull 			goto Err;
 89 76193d7c 2003-09-30 devnull 		}
 90 76193d7c 2003-09-30 devnull 		n = dy*l;
 91 76193d7c 2003-09-30 devnull 		m = readn(fd, tmp, n);
 92 76193d7c 2003-09-30 devnull 		if(m != n){
 93 76193d7c 2003-09-30 devnull 			werrstr("readimage: read count %d not %d: %r", m, n);
 94 76193d7c 2003-09-30 devnull    Err:
 95 76193d7c 2003-09-30 devnull 			if(dolock)
 96 76193d7c 2003-09-30 devnull 				lockdisplay(d);
 97 76193d7c 2003-09-30 devnull    Err1:
 98 76193d7c 2003-09-30 devnull  			freeimage(i);
 99 76193d7c 2003-09-30 devnull 			if(dolock)
100 76193d7c 2003-09-30 devnull 				unlockdisplay(d);
101 76193d7c 2003-09-30 devnull 			free(tmp);
102 76193d7c 2003-09-30 devnull 			return nil;
103 76193d7c 2003-09-30 devnull 		}
104 76193d7c 2003-09-30 devnull 		if(!new)	/* an old image: must flip all the bits */
105 76193d7c 2003-09-30 devnull 			for(j=0; j<chunk; j++)
106 76193d7c 2003-09-30 devnull 				tmp[j] ^= 0xFF;
107 76193d7c 2003-09-30 devnull 
108 76193d7c 2003-09-30 devnull 		if(dolock)
109 76193d7c 2003-09-30 devnull 			lockdisplay(d);
110 76193d7c 2003-09-30 devnull 		if(loadimage(i, Rect(r.min.x, miny, r.max.x, miny+dy), tmp, chunk) <= 0)
111 76193d7c 2003-09-30 devnull 			goto Err1;
112 76193d7c 2003-09-30 devnull 		if(dolock)
113 76193d7c 2003-09-30 devnull 			unlockdisplay(d);
114 76193d7c 2003-09-30 devnull 		miny += dy;
115 76193d7c 2003-09-30 devnull 	}
116 76193d7c 2003-09-30 devnull 	free(tmp);
117 76193d7c 2003-09-30 devnull 	return i;
118 76193d7c 2003-09-30 devnull }