fprintf(stderr,"write_tga: could not write TGA footer magic (fwrite: %s)\n",pstrerror(errno));	/* Ready */	file_wpop();	return 0;}static int RLE_decompress(FILE *f, void *buf, int bufsize, int pixelsize) {	unsigned char pt;	unsigned char *bufp;	unsigned char temp[8]; /* MAXPIXELSIZE */	int bufi;	int count;		file_rpush(f);	bufp = buf;	for (bufi=0; bufi<bufsize; ) {		pt = file_readb();		if (feof(f)) {			fprintf(stderr,"RLE_decompress: after final packet only got %d of %d bytes\n",bufi,bufsize);			file_rpop();			return -1;		}		count = (pt & 0x7f)+1;		if (bufi+count*pixelsize>bufsize) {			fprintf(stderr,"RLE_decompress: buffer too short for next packet (need %d bytes, have %d)\n",bufi+count*pixelsize,bufsize);			file_rpop();			return -1;		}		if ((pt & 0x80) == 0) {	/* RAW PACKET */			if (fread(bufp,pixelsize,count,f)<(unsigned)count) {				if (feof(f))					fprintf(stderr,"RLE_decompress: short RAW packet (expected %d bytes) (EOF)\n",pixelsize*count);				else					fprintf(stderr,"RLE_decompress: short RAW packet (expected %d bytes) (fread: %s)\n",pixelsize*count,pstrerror(errno));#if 0				file_rpop();				return -1;#endif			}			bufp += count*pixelsize;			bufi += count*pixelsize;		} else { /* RLE PACKET */			if (fread(temp,pixelsize,1,f) < 1) {				if (feof(f))					fprintf(stderr,"RLE_decompress: short RLE packet (expected %d bytes) (EOF)\n",pixelsize);				else					fprintf(stderr,"RLE_decompress: short RLE packet (expected %d bytes) (fread: %s)\n",pixelsize,pstrerror(errno));#if 0				file_rpop();				return -1;#endif			}			if (count<2) {				fprintf(stderr,"RLE_decompress: suspicious RLE repetition count %d\n",count);			}			for (;count > 0; count--) {				memcpy(bufp,temp,pixelsize);				bufp += pixelsize;				bufi += pixelsize;			}		}	}	file_rpop();	return 0;}static void RLE_write_pkt(FILE *f, t_tgapkttype pkttype, int len, void *data, int pixelsize) {	unsigned char count;		if (len<1 || len>128) {		fprintf(stderr,"RLE_write_pkt: packet has bad length (%d bytes)\n",len);		return;	}	if (pkttype==RLE) {		if (len<2) {			fprintf(stderr,"RLE_write_pkt: RLE packet has bad length (%d bytes)\n",len);			return;		}		count = (unsigned char)(0x80 | (len-1));		if (fwrite(&count, 1, 1, f)<1)			fprintf(stderr,"RLE_write_pkt: could not write RLE pixel count (fwrite: %s)\n",pstrerror(errno));		if (fwrite(data, pixelsize, 1, f)<1)			fprintf(stderr,"RLE_write_pkt: could not write RLE pixel value (fwrite: %s)\n",pstrerror(errno));	} else {		count = (unsigned char) (len-1);		if (fwrite(&count, 1, 1, f)<1)			fprintf(stderr,"RLE_write_pkt: could not write RAW pixel count (fwrite: %s)\n",pstrerror(errno));		if (fwrite(data,pixelsize,len,f)<(unsigned)len)			fprintf(stderr,"RLE_write_pkt: could not write %d RAW pixels (fwrite: %s)\n",len,pstrerror(errno));	}}static int RLE_compress(FILE *f, t_tgaimg const *img) {	int pixelsize;	unsigned char const *datap;	unsigned char *pktdata;	unsigned int pktlen;	t_tgapkttype pkttype;	unsigned char *pktdatap;	unsigned int actual=0,perceived=0;	int i;	pkttype = RAW;	pktdatap = NULL;		if (img == NULL) return -1;	if (img->data == NULL) return -1;	pixelsize = getpixelsize(img);	if (pixelsize == 0) return -1;		datap = img->data;	pktdata = malloc(img->width*img->height*pixelsize);	pktlen = 0;		for (i=0; i<img->width*img->height; ) {		if (pktlen == 0) {			pktdatap = pktdata;			memcpy(pktdatap,datap,pixelsize);			pktlen++;			i++;			pktdatap += pixelsize;			datap += pixelsize;			pkttype = RAW;			continue;		}		if (pktlen == 1) {			if (memcmp(datap-pixelsize,datap,pixelsize)==0) {				pkttype = RLE;			}		}		if (pkttype == RLE) {			if (memcmp(datap-pixelsize,datap,pixelsize)!=0 || pktlen>=128) {				RLE_write_pkt(f,pkttype,pktlen,pktdata,pixelsize);				actual += 1+pixelsize;				perceived += pixelsize*pktlen;				pktlen = 0;			} else {				pktlen++;				i++;				datap += pixelsize;			}		} else {			if (memcmp(datap-pixelsize,datap,pixelsize)==0 || pktlen>=129) {				datap -= pixelsize; /* push back last pixel */				i--;				if (i<0) fprintf(stderr,"BUG!\n");				pktlen--;				RLE_write_pkt(f,pkttype,pktlen,pktdata,pixelsize);				actual += 1+pixelsize*pktlen;				perceived += pixelsize*pktlen;				pktlen = 0;			} else {				memcpy(pktdatap,datap,pixelsize);				pktlen++;				i++;				pktdatap += pixelsize;				datap += pixelsize;			}		}	}	if (pktlen) {		RLE_write_pkt(f,pkttype,pktlen,pktdata,pixelsize);		if (pkttype==RLE) {			actual += 1+pixelsize;			perceived += pixelsize*pktlen;		} else {			actual += 1+pixelsize*pktlen;			perceived += pixelsize*pktlen;		}		pktlen = 0;	}	fprintf(stderr,"RLE_compress: wrote %u bytes (%u uncompressed)\n",actual,perceived);	return 0;}extern void destroy_img(t_tgaimg * img) {	if (img == NULL) return;		if (img->data)		free(img->data);	free(img);}extern void print_tga_info(t_tgaimg const * img, FILE * fp) {	unsigned int interleave;	unsigned int attrbits; 	char const * typestr; 	char const * cmapstr;	char const * horzstr;	char const * vertstr;	char const * intlstr;		if (!img || !fp)		return;		interleave = ((img->desc&tgadesc_interleave1)!=0)*2+((img->desc&tgadesc_interleave2)!=0);	attrbits = img->desc&(tgadesc_attrbits0|tgadesc_attrbits1|tgadesc_attrbits2|tgadesc_attrbits3);	switch (img->imgtype) {	case tgaimgtype_empty:		typestr = "No Image Data Included";		break;	case tgaimgtype_uncompressed_mapped:		typestr = "Uncompressed, Color-mapped Image";		break;	case tgaimgtype_uncompressed_truecolor:		typestr = "Uncompressed, True-color Image";		break;	case tgaimgtype_uncompressed_monochrome:		typestr = "Uncompressed, Black-and-white image";		break;	case tgaimgtype_rlecompressed_mapped:		typestr = "Run-length encoded, Color-mapped Image";		break;	case tgaimgtype_rlecompressed_truecolor:		typestr = "Run-length encoded, True-color Image";		break;	case tgaimgtype_rlecompressed_monochrome:		typestr = "Run-length encoded, Black-and-white image";		break;	case tgaimgtype_huffman_mapped:		typestr = "Huffman encoded, Color-mapped image";		break;        case tgaimgtype_huffman_4pass_mapped:		typestr = "Four-pass Huffman encoded, Color-mapped image";		break;	default:		typestr = "unknown";	}	switch (img->cmaptype) {	case tgacmap_none:		cmapstr = "None";		break;	case tgacmap_included:		cmapstr = "Included";		break;	default:		cmapstr = "Unknown";	}	if ((img->desc&tgadesc_horz)==0) {		horzstr = "left";	} else {		horzstr = "right";	}	if ((img->desc&tgadesc_vert)==0) {		vertstr = "bottom";	} else {		vertstr = "top";	}	switch (interleave) {	case 0:		intlstr = "none";		break;	case 2:		intlstr = "two way";		break;	case 3:		intlstr = "four way";		break;	case 4:	default:		intlstr = "unknown";		break;	}		fprintf(fp,"TGAHeader: IDLength=%u ColorMapType=%u(%s)\n",img->idlen,img->cmaptype,cmapstr);	fprintf(fp,"TGAHeader: ImageType=%u(%s)\n",img->imgtype,typestr);	fprintf(fp,"TGAHeader: ColorMap: FirstEntryIndex=%u ColorMapLength=%u\n",img->cmapfirst,img->cmaplen);	fprintf(fp,"TGAHeader: ColorMap: ColorMapEntrySize=%ubits\n",img->cmapes);	fprintf(fp,"TGAHeader: X-origin=%u Y-origin=%u Width=%u(0x%x) Height=%u(0x%x)\n",img->xorigin,img->yorigin,img->width,img->width,img->height,img->height);	fprintf(fp,"TGAHeader: PixelDepth=%ubits ImageDescriptor=0x%02x(%u attribute bits, origin is %s %s, interleave=%s)\n",img->bpp,img->desc,attrbits,vertstr,horzstr,intlstr);}