17dd7cddfSDavid du Colombier #include <u.h>
27dd7cddfSDavid du Colombier #include <libc.h>
37dd7cddfSDavid du Colombier #include <draw.h>
47dd7cddfSDavid du Colombier
57dd7cddfSDavid du Colombier Image *
creadimage(Display * d,int fd,int dolock)67dd7cddfSDavid du Colombier creadimage(Display *d, int fd, int dolock)
77dd7cddfSDavid du Colombier {
87dd7cddfSDavid du Colombier char hdr[5*12+1];
97dd7cddfSDavid du Colombier Rectangle r;
109a747e4fSDavid du Colombier int m, nb, miny, maxy, new, ldepth, ncblock;
117dd7cddfSDavid du Colombier uchar *buf, *a;
127dd7cddfSDavid du Colombier Image *i;
137dd7cddfSDavid du Colombier ulong chan;
147dd7cddfSDavid du Colombier
157dd7cddfSDavid du Colombier if(readn(fd, hdr, 5*12) != 5*12)
167dd7cddfSDavid du Colombier return nil;
177dd7cddfSDavid du Colombier
187dd7cddfSDavid du Colombier /*
197dd7cddfSDavid du Colombier * distinguish new channel descriptor from old ldepth.
207dd7cddfSDavid du Colombier * channel descriptors have letters as well as numbers,
217dd7cddfSDavid du Colombier * while ldepths are a single digit formatted as %-11d.
227dd7cddfSDavid du Colombier */
237dd7cddfSDavid du Colombier new = 0;
247dd7cddfSDavid du Colombier for(m=0; m<10; m++){
257dd7cddfSDavid du Colombier if(hdr[m] != ' '){
267dd7cddfSDavid du Colombier new = 1;
277dd7cddfSDavid du Colombier break;
287dd7cddfSDavid du Colombier }
297dd7cddfSDavid du Colombier }
307dd7cddfSDavid du Colombier if(hdr[11] != ' '){
317dd7cddfSDavid du Colombier werrstr("creadimage: bad format");
327dd7cddfSDavid du Colombier return nil;
337dd7cddfSDavid du Colombier }
347dd7cddfSDavid du Colombier if(new){
357dd7cddfSDavid du Colombier hdr[11] = '\0';
367dd7cddfSDavid du Colombier if((chan = strtochan(hdr)) == 0){
377dd7cddfSDavid du Colombier werrstr("creadimage: bad channel string %s", hdr);
387dd7cddfSDavid du Colombier return nil;
397dd7cddfSDavid du Colombier }
407dd7cddfSDavid du Colombier }else{
417dd7cddfSDavid du Colombier ldepth = ((int)hdr[10])-'0';
427dd7cddfSDavid du Colombier if(ldepth<0 || ldepth>3){
437dd7cddfSDavid du Colombier werrstr("creadimage: bad ldepth %d", ldepth);
447dd7cddfSDavid du Colombier return nil;
457dd7cddfSDavid du Colombier }
467dd7cddfSDavid du Colombier chan = drawld2chan[ldepth];
477dd7cddfSDavid du Colombier }
487dd7cddfSDavid du Colombier r.min.x=atoi(hdr+1*12);
497dd7cddfSDavid du Colombier r.min.y=atoi(hdr+2*12);
507dd7cddfSDavid du Colombier r.max.x=atoi(hdr+3*12);
517dd7cddfSDavid du Colombier r.max.y=atoi(hdr+4*12);
527dd7cddfSDavid du Colombier if(r.min.x>r.max.x || r.min.y>r.max.y){
537dd7cddfSDavid du Colombier werrstr("creadimage: bad rectangle");
547dd7cddfSDavid du Colombier return nil;
557dd7cddfSDavid du Colombier }
567dd7cddfSDavid du Colombier
57b8661318SDavid du Colombier if(d){
587dd7cddfSDavid du Colombier if(dolock)
597dd7cddfSDavid du Colombier lockdisplay(d);
607dd7cddfSDavid du Colombier i = allocimage(d, r, chan, 0, 0);
61*50e5f38dSDavid du Colombier setmalloctag(i, getcallerpc(&d));
627dd7cddfSDavid du Colombier if(dolock)
637dd7cddfSDavid du Colombier unlockdisplay(d);
647dd7cddfSDavid du Colombier if(i == nil)
657dd7cddfSDavid du Colombier return nil;
66b8661318SDavid du Colombier }else{
67b8661318SDavid du Colombier i = mallocz(sizeof(Image), 1);
68b8661318SDavid du Colombier if(i == nil)
69b8661318SDavid du Colombier return nil;
70b8661318SDavid du Colombier }
71b8661318SDavid du Colombier ncblock = _compblocksize(r, chantodepth(chan));
729a747e4fSDavid du Colombier buf = malloc(ncblock);
737dd7cddfSDavid du Colombier if(buf == nil)
747dd7cddfSDavid du Colombier goto Errout;
757dd7cddfSDavid du Colombier miny = r.min.y;
767dd7cddfSDavid du Colombier while(miny != r.max.y){
777dd7cddfSDavid du Colombier if(readn(fd, hdr, 2*12) != 2*12){
787dd7cddfSDavid du Colombier Errout:
797dd7cddfSDavid du Colombier if(dolock)
807dd7cddfSDavid du Colombier lockdisplay(d);
817dd7cddfSDavid du Colombier Erroutlock:
827dd7cddfSDavid du Colombier freeimage(i);
837dd7cddfSDavid du Colombier if(dolock)
847dd7cddfSDavid du Colombier unlockdisplay(d);
857dd7cddfSDavid du Colombier free(buf);
867dd7cddfSDavid du Colombier return nil;
877dd7cddfSDavid du Colombier }
887dd7cddfSDavid du Colombier maxy = atoi(hdr+0*12);
897dd7cddfSDavid du Colombier nb = atoi(hdr+1*12);
907dd7cddfSDavid du Colombier if(maxy<=miny || r.max.y<maxy){
917dd7cddfSDavid du Colombier werrstr("creadimage: bad maxy %d", maxy);
927dd7cddfSDavid du Colombier goto Errout;
937dd7cddfSDavid du Colombier }
949a747e4fSDavid du Colombier if(nb<=0 || ncblock<nb){
957dd7cddfSDavid du Colombier werrstr("creadimage: bad count %d", nb);
967dd7cddfSDavid du Colombier goto Errout;
977dd7cddfSDavid du Colombier }
987dd7cddfSDavid du Colombier if(readn(fd, buf, nb)!=nb)
997dd7cddfSDavid du Colombier goto Errout;
100b8661318SDavid du Colombier if(d){
1017dd7cddfSDavid du Colombier if(dolock)
1027dd7cddfSDavid du Colombier lockdisplay(d);
1037dd7cddfSDavid du Colombier a = bufimage(i->display, 21+nb);
1047dd7cddfSDavid du Colombier if(a == nil)
1057dd7cddfSDavid du Colombier goto Erroutlock;
1067dd7cddfSDavid du Colombier a[0] = 'Y';
1077dd7cddfSDavid du Colombier BPLONG(a+1, i->id);
1087dd7cddfSDavid du Colombier BPLONG(a+5, r.min.x);
1097dd7cddfSDavid du Colombier BPLONG(a+9, miny);
1107dd7cddfSDavid du Colombier BPLONG(a+13, r.max.x);
1117dd7cddfSDavid du Colombier BPLONG(a+17, maxy);
1127dd7cddfSDavid du Colombier if(!new) /* old image: flip the data bits */
1139a747e4fSDavid du Colombier _twiddlecompressed(buf, nb);
1147dd7cddfSDavid du Colombier memmove(a+21, buf, nb);
1157dd7cddfSDavid du Colombier if(dolock)
1167dd7cddfSDavid du Colombier unlockdisplay(d);
117b8661318SDavid du Colombier }
1187dd7cddfSDavid du Colombier miny = maxy;
1197dd7cddfSDavid du Colombier }
1207dd7cddfSDavid du Colombier free(buf);
1217dd7cddfSDavid du Colombier return i;
1227dd7cddfSDavid du Colombier }
123