/* $Id: bmp2tiff.c,v 1.23 2010-03-10 18:56:49 bfriesen Exp $

 *

 * Project:  libtiff tools

 * Purpose:  Convert Windows BMP files in TIFF.

 * Author:   Andrey Kiselev, dron@ak4719.spb.edu

 *

 ******************************************************************************

 * Copyright (c) 2004, Andrey Kiselev <dron@ak4719.spb.edu></dron@ak4719.spb.edu>

 *

 * Permission to use, copy, modify, distribute, and sell this software and 

 * its documentation for any purpose is hereby granted without fee, provided

 * that (i) the above copyright notices and this permission notice appear in

 * all copies of the software and related documentation, and (ii) the names of

 * Sam Leffler and Silicon Graphics may not be used in any advertising or

 * publicity relating to the software without the specific, prior written

 * permission of Sam Leffler and Silicon Graphics.

 * 

 * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, 

 * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY 

 * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.  

 * 

 * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR

 * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,

 * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,

 * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF 

 * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE 

 * OF THIS SOFTWARE.

 */

#include "tif_config.h"

#include <stdio.h></stdio.h>

#include <stdlib.h></stdlib.h>

#include <string.h></string.h>

#include <ctype.h></ctype.h>

#include <sys types.h=""></sys>

#include <sys stat.h=""></sys>

#ifdef HAVE_UNISTD_H

# include <unistd.h></unistd.h>

#endif

#if HAVE_FCNTL_H

# include <fcntl.h></fcntl.h>

#endif

#if HAVE_SYS_TYPES_H

# include <sys types.h=""></sys>

#endif

#if HAVE_IO_H

# include <io.h></io.h>

#endif

#ifdef NEED_LIBPORT

# include "libport.h"

#endif

#include "tiffio.h"

#ifndef O_BINARY

# define O_BINARY 0

#endif

enum BMPType

{

    BMPT_WIN4,      /* BMP used in Windows 3.0/NT 3.51/95 */

    BMPT_WIN5,      /* BMP used in Windows NT 4.0/98/Me/2000/XP */

    BMPT_OS21,      /* BMP used in OS/2 PM 1.x */

    BMPT_OS22       /* BMP used in OS/2 PM 2.x */

};

/*

 * Bitmap file consists of a BMPFileHeader structure followed by a

 * BMPInfoHeader structure. An array of BMPColorEntry structures (also called

 * a colour table) follows the bitmap information header structure. The colour

 * table is followed by a second array of indexes into the colour table (the

 * actual bitmap data). Data may be comressed, for 4-bpp and 8-bpp used RLE

 * compression.

 *

 * +---------------------+

 * | BMPFileHeader       |

 * +---------------------+

 * | BMPInfoHeader       |

 * +---------------------+

 * | BMPColorEntry array |

 * +---------------------+

 * | Colour-index array  |

 * +---------------------+

 *

 * All numbers stored in Intel order with least significant byte first.

 */

enum BMPComprMethod

{

    BMPC_RGB = 0L,          /* Uncompressed */

    BMPC_RLE8 = 1L,         /* RLE for 8 bpp images */

    BMPC_RLE4 = 2L,         /* RLE for 4 bpp images */

    BMPC_BITFIELDS = 3L,    /* Bitmap is not compressed and the colour table

			     * consists of three DWORD color masks that specify

			     * the red, green, and blue components of each

			     * pixel. This is valid when used with

			     * 16- and 32-bpp bitmaps. */

    BMPC_JPEG = 4L,         /* Indicates that the image is a JPEG image. */

    BMPC_PNG = 5L           /* Indicates that the image is a PNG image. */

};

enum BMPLCSType                 /* Type of logical color space. */

{

    BMPLT_CALIBRATED_RGB = 0,	/* This value indicates that endpoints and

				 * gamma values are given in the appropriate

				 * fields. */

    BMPLT_DEVICE_RGB = 1,

    BMPLT_DEVICE_CMYK = 2

};

typedef struct

{

    int32   iCIEX;

    int32   iCIEY;

    int32   iCIEZ;

} BMPCIEXYZ;

typedef struct                  /* This structure contains the x, y, and z */

{				/* coordinates of the three colors that */

				/* correspond */

    BMPCIEXYZ   iCIERed;        /* to the red, green, and blue endpoints for */

    BMPCIEXYZ   iCIEGreen;      /* a specified logical color space. */

    BMPCIEXYZ	iCIEBlue;

} BMPCIEXYZTriple;

typedef struct

{

    char	bType[2];       /* Signature "BM" */

    uint32	iSize;          /* Size in bytes of the bitmap file. Should

				 * always be ignored while reading because

				 * of error in Windows 3.0 SDK's description

				 * of this field */

    uint16	iReserved1;     /* Reserved, set as 0 */

    uint16	iReserved2;     /* Reserved, set as 0 */

    uint32	iOffBits;       /* Offset of the image from file start in bytes */

} BMPFileHeader;

/* File header size in bytes: */

const int       BFH_SIZE = 14;

typedef struct

{

    uint32	iSize;          /* Size of BMPInfoHeader structure in bytes.

				 * Should be used to determine start of the

				 * colour table */

    int32	iWidth;         /* Image width */

    int32	iHeight;        /* Image height. If positive, image has bottom

				 * left origin, if negative --- top left. */

    int16	iPlanes;        /* Number of image planes (must be set to 1) */

    int16	iBitCount;      /* Number of bits per pixel (1, 4, 8, 16, 24

				 * or 32). If 0 then the number of bits per

				 * pixel is specified or is implied by the

				 * JPEG or PNG format. */

    uint32	iCompression;	/* Compression method */

    uint32	iSizeImage;     /* Size of uncomressed image in bytes. May

				 * be 0 for BMPC_RGB bitmaps. If iCompression

				 * is BI_JPEG or BI_PNG, iSizeImage indicates

				 * the size of the JPEG or PNG image buffer. */

    int32	iXPelsPerMeter; /* X resolution, pixels per meter (0 if not used) */

    int32	iYPelsPerMeter; /* Y resolution, pixels per meter (0 if not used) */

    uint32	iClrUsed;       /* Size of colour table. If 0, iBitCount should

				 * be used to calculate this value

				 * (1<

				 * unsigned for proper shifting. */

    int32	iClrImportant;  /* Number of important colours. If 0, all

				 * colours are required */

    /*

     * Fields above should be used for bitmaps, compatible with Windows NT 3.51

     * and earlier. Windows 98/Me, Windows 2000/XP introduces additional fields:

     */

    int32	iRedMask;       /* Colour mask that specifies the red component

				 * of each pixel, valid only if iCompression

				 * is set to BI_BITFIELDS. */

    int32	iGreenMask;     /* The same for green component */

    int32	iBlueMask;      /* The same for blue component */

    int32	iAlphaMask;     /* Colour mask that specifies the alpha

				 * component of each pixel. */

    uint32	iCSType;        /* Colour space of the DIB. */

    BMPCIEXYZTriple sEndpoints; /* This member is ignored unless the iCSType

				 * member specifies BMPLT_CALIBRATED_RGB. */

    int32	iGammaRed;      /* Toned response curve for red. This member

				 * is ignored unless color values are

				 * calibrated RGB values and iCSType is set to

				 * BMPLT_CALIBRATED_RGB. Specified

				 * in 16^16 format. */

    int32	iGammaGreen;    /* Toned response curve for green. */

    int32	iGammaBlue;     /* Toned response curve for blue. */

} BMPInfoHeader;

/*

 * Info header size in bytes:

 */

const unsigned int  BIH_WIN4SIZE = 40; /* for BMPT_WIN4 */

const unsigned int  BIH_WIN5SIZE = 57; /* for BMPT_WIN5 */

const unsigned int  BIH_OS21SIZE = 12; /* for BMPT_OS21 */

const unsigned int  BIH_OS22SIZE = 64; /* for BMPT_OS22 */

/*

 * We will use plain byte array instead of this structure, but declaration

 * provided for reference

 */

typedef struct

{

    char       bBlue;

    char       bGreen;

    char       bRed;

    char       bReserved;      /* Must be 0 */

} BMPColorEntry;

static	uint16 compression = (uint16) -1;

static	int jpegcolormode = JPEGCOLORMODE_RGB;

static	int quality = 75;		/* JPEG quality */

static	uint16 predictor = 0;

static void usage(void);

static int processCompressOptions(char*);

static void rearrangePixels(char *, uint32, uint32);

int

main(int argc, char* argv[])

{

	uint32	width, length;

	uint16	nbands = 1;		/* number of bands in input image */

        uint16	depth = 8;		/* bits per pixel in input image */

	uint32	rowsperstrip = (uint32) -1;

        uint16	photometric = PHOTOMETRIC_MINISBLACK;

	int	fd = 0;

	struct stat instat;

	char	*outfilename = NULL, *infilename = NULL;

	TIFF	*out = NULL;

	BMPFileHeader file_hdr;

        BMPInfoHeader info_hdr;

        int     bmp_type;

        uint32  clr_tbl_size, n_clr_elems = 3;

        unsigned char *clr_tbl;

	unsigned short *red_tbl = NULL, *green_tbl = NULL, *blue_tbl = NULL;

	uint32	row, clr;

	int	c;

	extern int optind;

	extern char* optarg;

	while ((c = getopt(argc, argv, "c:r:o:h")) != -1) {

		switch (c) {

		case 'c':		/* compression scheme */

			if (!processCompressOptions(optarg))

				usage();

			break;

		case 'r':		/* rows/strip */

			rowsperstrip = atoi(optarg);

			break;

		case 'o':

			outfilename = optarg;

			break;

		case 'h':

			usage();

		default:

			break;

		}

	}

	if (argc - optind < 2)

		usage();

	if (outfilename == NULL)

		outfilename = argv[argc-1];

	out = TIFFOpen(outfilename, "w");

	if (out == NULL) {

		TIFFError(infilename, "Cannot open file %s for output",

			  outfilename);

		goto bad3;

	}

	while (optind < argc-1) {

		infilename = argv[optind];

		optind++;

		fd = open(infilename, O_RDONLY|O_BINARY, 0);

		if (fd < 0) {

			TIFFError(infilename, "Cannot open input file");

			return -1;

		}

		read(fd, file_hdr.bType, 2);

		if(file_hdr.bType[0] != 'B' || file_hdr.bType[1] != 'M') {

			TIFFError(infilename, "File is not BMP");

			goto bad;

		}

/* -------------------------------------------------------------------- */

/*      Read the BMPFileHeader. We need iOffBits value only             */

/* -------------------------------------------------------------------- */

		lseek(fd, 10, SEEK_SET);

		read(fd, &file_hdr.iOffBits, 4);

#ifdef WORDS_BIGENDIAN

		TIFFSwabLong(&file_hdr.iOffBits);

#endif

		fstat(fd, &instat);

		file_hdr.iSize = instat.st_size;

/* -------------------------------------------------------------------- */

/*      Read the BMPInfoHeader.                                         */

/* -------------------------------------------------------------------- */

		lseek(fd, BFH_SIZE, SEEK_SET);

		read(fd, &info_hdr.iSize, 4);

#ifdef WORDS_BIGENDIAN

		TIFFSwabLong(&info_hdr.iSize);

#endif

		if (info_hdr.iSize == BIH_WIN4SIZE)

			bmp_type = BMPT_WIN4;

		else if (info_hdr.iSize == BIH_OS21SIZE)

			bmp_type = BMPT_OS21;

		else if (info_hdr.iSize == BIH_OS22SIZE

			 || info_hdr.iSize == 16)

			bmp_type = BMPT_OS22;

		else

			bmp_type = BMPT_WIN5;

		if (bmp_type == BMPT_WIN4

		    || bmp_type == BMPT_WIN5

		    || bmp_type == BMPT_OS22) {

			read(fd, &info_hdr.iWidth, 4);

			read(fd, &info_hdr.iHeight, 4);

			read(fd, &info_hdr.iPlanes, 2);

			read(fd, &info_hdr.iBitCount, 2);

			read(fd, &info_hdr.iCompression, 4);

			read(fd, &info_hdr.iSizeImage, 4);

			read(fd, &info_hdr.iXPelsPerMeter, 4);

			read(fd, &info_hdr.iYPelsPerMeter, 4);

			read(fd, &info_hdr.iClrUsed, 4);

			read(fd, &info_hdr.iClrImportant, 4);

#ifdef WORDS_BIGENDIAN

			TIFFSwabLong((uint32*) &info_hdr.iWidth);

			TIFFSwabLong((uint32*) &info_hdr.iHeight);

			TIFFSwabShort((uint16*) &info_hdr.iPlanes);

			TIFFSwabShort((uint16*) &info_hdr.iBitCount);

			TIFFSwabLong((uint32*) &info_hdr.iCompression);

			TIFFSwabLong((uint32*) &info_hdr.iSizeImage);

			TIFFSwabLong((uint32*) &info_hdr.iXPelsPerMeter);

			TIFFSwabLong((uint32*) &info_hdr.iYPelsPerMeter);

			TIFFSwabLong((uint32*) &info_hdr.iClrUsed);

			TIFFSwabLong((uint32*) &info_hdr.iClrImportant);

#endif

			n_clr_elems = 4;

		}

		if (bmp_type == BMPT_OS22) {

			/* 

			 * FIXME: different info in different documents

			 * regarding this!

			 */

			 n_clr_elems = 3;

		}

		if (bmp_type == BMPT_OS21) {

			int16  iShort;

			read(fd, &iShort, 2);

#ifdef WORDS_BIGENDIAN

			TIFFSwabShort((uint16*) &iShort);

#endif

			info_hdr.iWidth = iShort;

			read(fd, &iShort, 2);

#ifdef WORDS_BIGENDIAN

			TIFFSwabShort((uint16*) &iShort);

#endif

			info_hdr.iHeight = iShort;

			read(fd, &iShort, 2);

#ifdef WORDS_BIGENDIAN

			TIFFSwabShort((uint16*) &iShort);

#endif

			info_hdr.iPlanes = iShort;

			read(fd, &iShort, 2);

#ifdef WORDS_BIGENDIAN

			TIFFSwabShort((uint16*) &iShort);

#endif

			info_hdr.iBitCount = iShort;

			info_hdr.iCompression = BMPC_RGB;

			n_clr_elems = 3;

		}

		if (info_hdr.iBitCount != 1  && info_hdr.iBitCount != 4  &&

		    info_hdr.iBitCount != 8  && info_hdr.iBitCount != 16 &&

		    info_hdr.iBitCount != 24 && info_hdr.iBitCount != 32) {

		    TIFFError(infilename,

			      "Cannot process BMP file with bit count %d",

			      info_hdr.iBitCount);

		    close(fd);

		    return 0;

		}

		width = info_hdr.iWidth;

		length = (info_hdr.iHeight > 0) ? info_hdr.iHeight : -info_hdr.iHeight;

		switch (info_hdr.iBitCount)

		{

			case 1:

			case 4:

			case 8:

				nbands = 1;

				depth = info_hdr.iBitCount;

				photometric = PHOTOMETRIC_PALETTE;

				/* Allocate memory for colour table and read it. */

				if (info_hdr.iClrUsed)

				    clr_tbl_size =

					    ((uint32)(1<

					    ? (uint32) (1 << depth)

					    : info_hdr.iClrUsed;

				else

				    clr_tbl_size = 1 << depth;

				clr_tbl = (unsigned char *)

					_TIFFmalloc(n_clr_elems * clr_tbl_size);

				if (!clr_tbl) {

					TIFFError(infilename,

					"Can't allocate space for color table");

					goto bad;

				}

				lseek(fd, BFH_SIZE + info_hdr.iSize, SEEK_SET);

				read(fd, clr_tbl, n_clr_elems * clr_tbl_size);

				red_tbl = (unsigned short*)

					_TIFFmalloc(((tmsize_t)1)<

				if (!red_tbl) {

					TIFFError(infilename,

				"Can't allocate space for red component table");

					_TIFFfree(clr_tbl);

					goto bad1;

				}

				green_tbl = (unsigned short*)

					_TIFFmalloc(((tmsize_t)1)<

				if (!green_tbl) {

					TIFFError(infilename,

				"Can't allocate space for green component table");

					_TIFFfree(clr_tbl);

					goto bad2;

				}

				blue_tbl = (unsigned short*)

					_TIFFmalloc(((tmsize_t)1)<

				if (!blue_tbl) {

					TIFFError(infilename,

				"Can't allocate space for blue component table");

					_TIFFfree(clr_tbl);

					goto bad3;

				}

				for(clr = 0; clr < clr_tbl_size; clr++) {

				    red_tbl[clr] = 257*clr_tbl[clr*n_clr_elems+2];

				    green_tbl[clr] = 257*clr_tbl[clr*n_clr_elems+1];

				    blue_tbl[clr] = 257*clr_tbl[clr*n_clr_elems];

				}

				_TIFFfree(clr_tbl);

				break;

			case 16:

			case 24:

				nbands = 3;

				depth = info_hdr.iBitCount / nbands;

				photometric = PHOTOMETRIC_RGB;

				break;

			case 32:

				nbands = 3;

				depth = 8;

				photometric = PHOTOMETRIC_RGB;

				break;

			default:

				break;

		}

/* -------------------------------------------------------------------- */

/*  Create output file.                                                 */

/* -------------------------------------------------------------------- */

		TIFFSetField(out, TIFFTAG_IMAGEWIDTH, width);

		TIFFSetField(out, TIFFTAG_IMAGELENGTH, length);

		TIFFSetField(out, TIFFTAG_ORIENTATION, ORIENTATION_TOPLEFT);

		TIFFSetField(out, TIFFTAG_SAMPLESPERPIXEL, nbands);

		TIFFSetField(out, TIFFTAG_BITSPERSAMPLE, depth);

		TIFFSetField(out, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);

		TIFFSetField(out, TIFFTAG_PHOTOMETRIC, photometric);

		TIFFSetField(out, TIFFTAG_ROWSPERSTRIP,

			     TIFFDefaultStripSize(out, rowsperstrip));

		if (red_tbl && green_tbl && blue_tbl) {

			TIFFSetField(out, TIFFTAG_COLORMAP,

				     red_tbl, green_tbl, blue_tbl);

		}

		if (compression == (uint16) -1)

			compression = COMPRESSION_PACKBITS;

		TIFFSetField(out, TIFFTAG_COMPRESSION, compression);

		switch (compression) {

		case COMPRESSION_JPEG:

			if (photometric == PHOTOMETRIC_RGB

			    && jpegcolormode == JPEGCOLORMODE_RGB)

				photometric = PHOTOMETRIC_YCBCR;

			TIFFSetField(out, TIFFTAG_JPEGQUALITY, quality);

			TIFFSetField(out, TIFFTAG_JPEGCOLORMODE, jpegcolormode);

			break;

		case COMPRESSION_LZW:

		case COMPRESSION_DEFLATE:

			if (predictor != 0)

				TIFFSetField(out, TIFFTAG_PREDICTOR, predictor);

			break;

		}

/* -------------------------------------------------------------------- */

/*  Read uncompressed image data.                                       */

/* -------------------------------------------------------------------- */

		if (info_hdr.iCompression == BMPC_RGB) {

			uint32 offset, size;

			char *scanbuf;

			/* XXX: Avoid integer overflow. We can calculate size

			 * in one step using

			 *

			 *  size = ((width * info_hdr.iBitCount + 31) & ~31) / 8

			 *

			 * formulae, but we should check for overflow

			 * conditions during calculation.

			 */

			size = width * info_hdr.iBitCount + 31;

			if (!width || !info_hdr.iBitCount

			    || (size - 31) / info_hdr.iBitCount != width ) {

				TIFFError(infilename,

					  "Wrong image parameters; can't "

					  "allocate space for scanline buffer");

				goto bad3;

			}

			size = (size & ~31) / 8;

			scanbuf = (char *) _TIFFmalloc(size);

			if (!scanbuf) {

				TIFFError(infilename,

				"Can't allocate space for scanline buffer");

				goto bad3;

			}

			for (row = 0; row < length; row++) {

				if (info_hdr.iHeight > 0)

					offset = file_hdr.iOffBits+(length-row-1)*size;

				else

					offset = file_hdr.iOffBits + row * size;

				if (lseek(fd, offset, SEEK_SET) == (off_t)-1) {

					TIFFError(infilename,

						  "scanline %lu: Seek error",

						  (unsigned long) row);

					break;

				}

				if (read(fd, scanbuf, size) < 0) {

					TIFFError(infilename,

						  "scanline %lu: Read error",

						  (unsigned long) row);

					break;

				}

				rearrangePixels(scanbuf, width, info_hdr.iBitCount);

				if (TIFFWriteScanline(out, scanbuf, row, 0)<0) {

					TIFFError(infilename,

						  "scanline %lu: Write error",

						  (unsigned long) row);

					break;

				}

			}

			_TIFFfree(scanbuf);

/* -------------------------------------------------------------------- */

/*  Read compressed image data.                                         */

/* -------------------------------------------------------------------- */

		} else if ( info_hdr.iCompression == BMPC_RLE8

			    || info_hdr.iCompression == BMPC_RLE4 ) {

			uint32		i, j, k, runlength;

			uint32		compr_size, uncompr_size;

			unsigned char   *comprbuf;

			unsigned char   *uncomprbuf;

			compr_size = file_hdr.iSize - file_hdr.iOffBits;

			uncompr_size = width * length;

			comprbuf = (unsigned char *) _TIFFmalloc( compr_size );

			if (!comprbuf) {

				TIFFError(infilename,

			"Can't allocate space for compressed scanline buffer");

				goto bad3;

			}

			uncomprbuf = (unsigned char *)_TIFFmalloc(uncompr_size);

			if (!uncomprbuf) {

				TIFFError(infilename,

			"Can't allocate space for uncompressed scanline buffer");

				goto bad3;

			}

			lseek(fd, file_hdr.iOffBits, SEEK_SET);

			read(fd, comprbuf, compr_size);

			i = 0;

			j = 0;

			if (info_hdr.iBitCount == 8) {		/* RLE8 */

			    while(j < uncompr_size && i < compr_size) {

				if ( comprbuf[i] ) {

				    runlength = comprbuf[i++];

				    while( runlength > 0

					   && j < uncompr_size

					   && i < compr_size ) {

					uncomprbuf[j++] = comprbuf[i];

					runlength--;

				    }

				    i++;

				} else {

				    i++;

				    if (comprbuf[i] == 0) /* Next scanline */

					i++;

				    else if (comprbuf[i] == 1) /* End of image */

					break;

				    else if (comprbuf[i] == 2) { /* Move to... */

					i++;

					if (i < compr_size - 1) {

					    j+=comprbuf[i]+comprbuf[i+1]*width;

					    i += 2;

					}

					else

					    break;

				    } else {            /* Absolute mode */

					runlength = comprbuf[i++];

					for (k = 0; k < runlength && j < uncompr_size && i < compr_size; k++)

					    uncomprbuf[j++] = comprbuf[i++];

					if ( k & 0x01 )

					    i++;

				    }

				}

			    }

			}

			else {				    /* RLE4 */

			    while( j < uncompr_size && i < compr_size ) {

				if ( comprbuf[i] ) {

				    runlength = comprbuf[i++];

				    while( runlength > 0 && j < uncompr_size && i < compr_size ) {

					if ( runlength & 0x01 )

					    uncomprbuf[j++] = (comprbuf[i] & 0xF0) >> 4;

					else

					    uncomprbuf[j++] = comprbuf[i] & 0x0F;

					runlength--;

				    }

				    i++;

				} else {

				    i++;

				    if (comprbuf[i] == 0) /* Next scanline */

					i++;

				    else if (comprbuf[i] == 1) /* End of image */

					break;

				    else if (comprbuf[i] == 2) { /* Move to... */

					i++;

					if (i < compr_size - 1) {

					    j+=comprbuf[i]+comprbuf[i+1]*width;

					    i += 2;

					}

					else

					    break;

				    } else {            /* Absolute mode */

					runlength = comprbuf[i++];

					for (k = 0; k < runlength && j < uncompr_size && i < compr_size; k++) {

					    if (k & 0x01)

						uncomprbuf[j++] = comprbuf[i++] & 0x0F;

					    else

						uncomprbuf[j++] = (comprbuf[i] & 0xF0) >> 4;

					}

					if (k & 0x01)

					    i++;

				    }

				}

			    }

			}

			_TIFFfree(comprbuf);

			for (row = 0; row < length; row++) {

				if (TIFFWriteScanline(out,

					uncomprbuf + (length - row - 1) * width,

					row, 0) < 0) {

					TIFFError(infilename,

						"scanline %lu: Write error.\n",

						  (unsigned long) row);

				}

			}

			_TIFFfree(uncomprbuf);

		}

		TIFFWriteDirectory(out);

		if (blue_tbl) {

		  _TIFFfree(blue_tbl);

		  blue_tbl=NULL;

		}

		if (green_tbl) {

		  _TIFFfree(green_tbl);

		  green_tbl=NULL;

		}

		if (red_tbl) {

		  _TIFFfree(red_tbl);

		  red_tbl=NULL;

		}

	}

bad3:

	if (blue_tbl)

		_TIFFfree(blue_tbl);

bad2:

	if (green_tbl)

		_TIFFfree(green_tbl);

bad1:

	if (red_tbl)

		_TIFFfree(red_tbl);

bad:

        close(fd);

	if (out)

		TIFFClose(out);

        return 0;

}

/*

 * Image data in BMP file stored in BGR (or ABGR) format. We should rearrange

 * pixels to RGB (RGBA) format.

 */

static void

rearrangePixels(char *buf, uint32 width, uint32 bit_count)

{

	char tmp;

	uint32 i;

        switch(bit_count) {

		case 16:    /* FIXME: need a sample file */

                        break;

                case 24:

			for (i = 0; i < width; i++, buf += 3) {

				tmp = *buf;

				*buf = *(buf + 2);

				*(buf + 2) = tmp;

			}

                        break;

                case 32:

			{

				char	*buf1 = buf;

				for (i = 0; i < width; i++, buf += 4) {

					tmp = *buf;

					*buf1++ = *(buf + 2);

					*buf1++ = *(buf + 1);

					*buf1++ = tmp;

				}

			}

                        break;

                default:

                        break;

        }

}

static int

processCompressOptions(char* opt)

{

	if (strcmp(opt, "none") == 0)

		compression = COMPRESSION_NONE;

	else if (strcmp(opt, "packbits") == 0)

		compression = COMPRESSION_PACKBITS;

	else if (strncmp(opt, "jpeg", 4) == 0) {

		char* cp = strchr(opt, ':');

                compression = COMPRESSION_JPEG;

                while( cp )

                {

                    if (isdigit((int)cp[1]))

			quality = atoi(cp+1);

                    else if (cp[1] == 'r' )

			jpegcolormode = JPEGCOLORMODE_RAW;

                    else

                        usage();

                    cp = strchr(cp+1,':');

                }

	} else if (strncmp(opt, "lzw", 3) == 0) {

		char* cp = strchr(opt, ':');

		if (cp)

			predictor = atoi(cp+1);

		compression = COMPRESSION_LZW;

	} else if (strncmp(opt, "zip", 3) == 0) {

		char* cp = strchr(opt, ':');

		if (cp)

			predictor = atoi(cp+1);

		compression = COMPRESSION_DEFLATE;

	} else

		return (0);

	return (1);

}

static char* stuff[] = {

"bmp2tiff --- convert Windows BMP files to TIFF",

"usage: bmp2tiff [options] input.bmp [input2.bmp ...] output.tif",

"where options are:",

" -r #		make each strip have no more than # rows",

"",

" -c lzw[:opts]	compress output with Lempel-Ziv & Welch encoding",

" -c zip[:opts]	compress output with deflate encoding",

" -c jpeg[:opts]compress output with JPEG encoding",

" -c packbits	compress output with packbits encoding",

" -c none	use no compression algorithm on output",

"",

"JPEG options:",

" #		set compression quality level (0-100, default 75)",

" r		output color image as RGB rather than YCbCr",

"For example, -c jpeg:r:50 to get JPEG-encoded RGB data with 50% comp. quality",

"",

"LZW and deflate options:",

" #		set predictor value",

"For example, -c lzw:2 to get LZW-encoded data with horizontal differencing",

" -o out.tif	write output to out.tif",

" -h		this help message",

NULL

};

static void

usage(void)

{

	char buf[BUFSIZ];

	int i;

	setbuf(stderr, buf);

        fprintf(stderr, "%s\n\n", TIFFGetVersion());

	for (i = 0; stuff[i] != NULL; i++)

		fprintf(stderr, "%s\n", stuff[i]);

	exit(-1);

}

/* vim: set ts=8 sts=8 sw=8 noet: */

/*

 * Local Variables:

 * mode: c

 * c-basic-offset: 8

 * fill-column: 78

 * End:

 */