#undef max
#endif
-/* XXX Shouldn't all of these go away */
+/* XXX Shouldn't these go away? */
int min(int a,int b);
int max(int x,int y);
-int myread(int fd,void *buf,int len);
-int mywrite(int fd,void *buf,int len);
-void interleave(unsigned char *inbuffer,unsigned char *outbuffer,int rowsize,int channels);
#endif
-
+/* Should these really be here? */
#undef min
#undef max
if (a>b) return a; else return b;
}
-int
-myread(int fd,void *buf,int len) {
- unsigned char* bufc;
- int bc,rc;
- bufc = (unsigned char*)buf;
- bc=0;
- while( ((rc=read(fd,bufc+bc,len-bc))>0 ) && (bc!=len) ) bc+=rc;
- if ( rc < 0 ) return rc;
- else return bc;
-}
-
-int
-mywrite(int fd,void *buf,int len) {
- unsigned char* bufc;
- int bc,rc;
- bufc=(unsigned char*)buf;
- bc=0;
- while(((rc=write(fd,bufc+bc,len-bc))>0) && (bc!=len)) bc+=rc;
- if (rc<0) return rc;
- else return bc;
-}
-
-void
-interleave(unsigned char *inbuffer,unsigned char *outbuffer,int rowsize,int channels) {
- int ch,ind,i;
- i=0;
- if ( inbuffer==outbuffer ) return; /* Check if data is already in interleaved format */
- for( ind=0; ind<rowsize; ind++) for (ch=0; ch<channels; ch++) outbuffer[i++] = inbuffer[rowsize*ch+ind];
-}
-
-
return im;
}
-undef_int
-i_writeppm(i_img *im,int fd) {
- char header[255];
- int rc;
-
- mm_log((1,"i_writeppm(im* 0x%x,fd %d)\n",im,fd));
-
- i_clear_error();
-
- if (im->channels==3) {
- sprintf(header,"P6\n#CREATOR: Imager\n%d %d\n255\n",im->xsize,im->ysize);
-
- if (mywrite(fd,header,strlen(header))<0) {
- i_push_error(errno, "could not write ppm header");
- mm_log((1,"i_writeppm: unable to write ppm header.\n"));
- return(0);
- }
-
- if (!im->virtual && im->bits == i_8_bits && im->type == i_direct_type) {
- rc=mywrite(fd,im->idata,im->bytes);
- }
- else {
- unsigned char *data = mymalloc(3 * im->xsize);
- if (data != NULL) {
- int y = 0;
- int x, ch;
- unsigned char *p;
- static int rgb_chan[3] = { 0, 1, 2 };
-
- rc = 0;
- while (y < im->ysize && rc >= 0) {
- i_gsamp(im, 0, im->xsize, y, data, rgb_chan, 3);
- rc = mywrite(fd, data, im->xsize * 3);
- }
- myfree(data);
- }
- else {
- i_push_error(0, "Out of memory");
- return 0;
- }
- }
- if (rc<0) {
- i_push_error(errno, "could not write ppm data");
- mm_log((1,"i_writeppm: unable to write ppm data.\n"));
- return(0);
- }
- }
- else if (im->channels == 1) {
- sprintf(header, "P5\n#CREATOR: Imager\n%d %d\n255\n",
- im->xsize, im->ysize);
- if (mywrite(fd,header, strlen(header)) < 0) {
- i_push_error(errno, "could not write pgm header");
- mm_log((1,"i_writeppm: unable to write pgm header.\n"));
- return(0);
- }
-
- if (!im->virtual && im->bits == i_8_bits && im->type == i_direct_type) {
- rc=mywrite(fd,im->idata,im->bytes);
- }
- else {
- unsigned char *data = mymalloc(im->xsize);
- if (data != NULL) {
- int y = 0;
- int x, ch;
- int chan = 0;
- unsigned char *p;
-
- rc = 0;
- while (y < im->ysize && rc >= 0) {
- i_gsamp(im, 0, im->xsize, y, data, &chan, 1);
- rc = mywrite(fd, data, im->xsize);
- }
- myfree(data);
- }
- else {
- i_push_error(0, "Out of memory");
- return 0;
- }
- }
- if (rc<0) {
- i_push_error(errno, "could not write pgm data");
- mm_log((1,"i_writeppm: unable to write pgm data.\n"));
- return(0);
- }
- }
- else {
- i_push_error(0, "can only save 1 or 3 channel images to pnm");
- mm_log((1,"i_writeppm: ppm/pgm is 1 or 3 channel only (current image is %d)\n",im->channels));
- return(0);
- }
-
- return(1);
-}
-
undef_int
i_writeppm_wiol(i_img *im, io_glue *ig) {
#include <errno.h>
-#define TRUE 1
-#define FALSE 0
-
-#define BSIZ 100*BUFSIZ
/*
*/
+static
void
-expandchannels(unsigned char *inbuffer,unsigned char *outbuffer,int chunks,int datachannels,int storechannels) {
+interleave(unsigned char *inbuffer,unsigned char *outbuffer,int rowsize,int channels) {
+ int ch,ind,i;
+ i=0;
+ if (inbuffer == outbuffer) return; /* Check if data is already in interleaved format */
+ for (ind=0; ind<rowsize; ind++)
+ for (ch=0; ch<channels; ch++)
+ outbuffer[i++] = inbuffer[rowsize*ch+ind];
+}
+
+static
+void
+expandchannels(unsigned char *inbuffer, unsigned char *outbuffer,
+ int chunks, int datachannels, int storechannels) {
int ch,i;
- if (inbuffer==outbuffer) return; /* Check if data is already in expanded format */
- for(ch=0;ch<chunks;ch++) for (i=0;i<storechannels;i++) outbuffer[ch*storechannels+i]=inbuffer[ch*datachannels+i];
+ if (inbuffer == outbuffer) return; /* Check if data is already in expanded format */
+ for(ch=0; ch<chunks; ch++)
+ for (i=0; i<storechannels; i++)
+ outbuffer[ch*storechannels+i] = inbuffer[ch*datachannels+i];
}
i_img *
inbuffer = (unsigned char*)mymalloc(inbuflen);
mm_log((1,"inbuflen: %d, ilbuflen: %d, exbuflen: %d.\n",inbuflen,ilbuflen,exbuflen));
- if (intrl==0) ilbuffer=inbuffer; else ilbuffer=(unsigned char*)mymalloc(inbuflen);
- if (datachannels==storechannels) exbuffer=ilbuffer; else exbuffer=(unsigned char*)mymalloc(exbuflen);
+ if (intrl==0) ilbuffer = inbuffer;
+ else ilbuffer=mymalloc(inbuflen);
+ if (datachannels==storechannels) exbuffer=ilbuffer;
+ else exbuffer= mymalloc(exbuflen);
+
k=0;
- while(k<im->ysize) {
+ while( k<im->ysize ) {
rc = ig->readcb(ig, inbuffer, inbuflen);
- if (rc!=inbuflen) { fprintf(stderr,"Premature end of file.\n"); exit(2); }
+ if (rc != inbuflen) { fprintf(stderr,"Premature end of file.\n"); exit(2); }
interleave(inbuffer,ilbuffer,im->xsize,datachannels);
expandchannels(ilbuffer,exbuffer,im->xsize,datachannels,storechannels);
- /* FIXME? Do we ever want to save to a virtual image? */
+ /* FIXME: Do we ever want to save to a virtual image? */
memcpy(&(im->idata[im->xsize*storechannels*k]),exbuffer,exbuflen);
k++;
}
myfree(inbuffer);
- if (intrl!=0) myfree(ilbuffer);
- if (datachannels!=storechannels) myfree(exbuffer);
+ if (intrl != 0) myfree(ilbuffer);
+ if (datachannels != storechannels) myfree(exbuffer);
return im;
}
if (im == NULL) { mm_log((1,"Image is empty\n")); return(0); }
if (!im->virtual) {
- rc=ig->writecb(ig,im->idata,im->bytes);
- if (rc!=im->bytes) {
+ rc = ig->writecb(ig,im->idata,im->bytes);
+ if (rc != im->bytes) {
i_push_error(errno, "Could not write to file");
mm_log((1,"i_writeraw: Couldn't write to file\n"));
return(0);
}
- }
- else {
+ } else {
int y;
if (im->type == i_direct_type) {
rc = ig->writecb(ig, data, line_size);
++y;
}
- }
- else {
+ } else {
i_push_error(0, "Out of memory");
return 0;
}
i_push_error(errno, "write error");
return 0;
}
- }
- else {
+ } else {
/* paletted image - assumes the caller puts the palette somewhere
else
*/
++y;
}
myfree(data);
- }
- else {
+ } else {
i_push_error(0, "Out of memory");
return 0;
}
}
}
}
-
return(1);
}