/* $Id: tiffinfo.c,v 1.8.2.1 2010-06-08 18:50:44 bfriesen Exp $ */

/*

 * Copyright (c) 1988-1997 Sam Leffler

 * Copyright (c) 1991-1997 Silicon Graphics, Inc.

 *

 * 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>

#include <stdlib.h>

#include <string.h>

#ifdef HAVE_STRINGS_H

# include <strings.h>

#endif

#ifdef HAVE_UNISTD_H

# include <unistd.h>

#endif

#include "tiffio.h"

#define	streq(a,b)	(strcasecmp(a,b) == 0)

int	showdata = 0;			/* show data */

int	rawdata = 0;			/* show raw/decoded data */

int	showwords = 0;			/* show data as bytes/words */

int	readdata = 0;			/* read data in file */

int	stoponerr = 1;			/* stop on first read error */

static	void usage(void);

static	void tiffinfo(TIFF*, uint16, long);

int

main(int argc, char* argv[])

{

	int dirnum = -1, multiplefiles, c;

	uint16 order = 0;

	TIFF* tif;

	extern int optind;

	extern char* optarg;

	long flags = 0;

	uint32 diroff = 0;

	int chopstrips = 0;		/* disable strip chopping */

	while ((c = getopt(argc, argv, "f:o:cdDSjilmrsvwz0123456789")) != -1)

		switch (c) {

		case '0': case '1': case '2': case '3':

		case '4': case '5': case '6': case '7':

		case '8': case '9':

			dirnum = atoi(&argv[optind-1][1]);

			break;

		case 'd':

			showdata++;

			/* fall thru... */

		case 'D':

			readdata++;

			break;

		case 'c':

			flags |= TIFFPRINT_COLORMAP | TIFFPRINT_CURVES;

			break;

		case 'f':		/* fill order */

			if (streq(optarg, "lsb2msb"))

				order = FILLORDER_LSB2MSB;

			else if (streq(optarg, "msb2lsb"))

				order = FILLORDER_MSB2LSB;

			else

				usage();

			break;

		case 'i':

			stoponerr = 0;

			break;

		case 'o':

			diroff = strtoul(optarg, NULL, 0);

			break;

		case 'j':

			flags |= TIFFPRINT_JPEGQTABLES |

				 TIFFPRINT_JPEGACTABLES |

				 TIFFPRINT_JPEGDCTABLES;

			break;

		case 'r':

			rawdata = 1;

			break;

		case 's':

			flags |= TIFFPRINT_STRIPS;

			break;

		case 'w':

			showwords = 1;

			break;

		case 'z':

			chopstrips = 1;

			break;

		case '?':

			usage();

			/*NOTREACHED*/

		}

	if (optind >= argc)

		usage();

	multiplefiles = (argc - optind > 1);

	for (; optind < argc; optind++) {

		if (multiplefiles)

			printf("%s:\n", argv[optind]);

		tif = TIFFOpen(argv[optind], chopstrips ? "rC" : "rc");

		if (tif != NULL) {

			if (dirnum != -1) {

				if (TIFFSetDirectory(tif, (tdir_t) dirnum))

					tiffinfo(tif, order, flags);

			} else if (diroff != 0) {

				if (TIFFSetSubDirectory(tif, diroff))

					tiffinfo(tif, order, flags);

			} else {

				do {

					uint32 offset;

					tiffinfo(tif, order, flags);

					if (TIFFGetField(tif, TIFFTAG_EXIFIFD,

							 &offset)) {

						if (TIFFReadEXIFDirectory(tif, offset))

							tiffinfo(tif, order, flags);

					}

				} while (TIFFReadDirectory(tif));

			}

			TIFFClose(tif);

		}

	}

	return (0);

}

char* stuff[] = {

"usage: tiffinfo [options] input...",

"where options are:",

" -D		read data",

" -i		ignore read errors",

" -c		display data for grey/color response curve or colormap",

" -d		display raw/decoded image data",

" -f lsb2msb	force lsb-to-msb FillOrder for input",

" -f msb2lsb	force msb-to-lsb FillOrder for input",

" -j		show JPEG tables",

" -o offset	set initial directory offset",

" -r		read/display raw image data instead of decoded data",

" -s		display strip offsets and byte counts",

" -w		display raw data in words rather than bytes",

" -z		enable strip chopping",

" -#		set initial directory (first directory is # 0)",

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);

}

static void

ShowStrip(tstrip_t strip, unsigned char* pp, uint32 nrow, tsize_t scanline)

{

	register tsize_t cc;

	printf("Strip %lu:\n", (unsigned long) strip);

	while (nrow-- > 0) {

		for (cc = 0; cc < scanline; cc++) {

			printf(" %02x", *pp++);

			if (((cc+1) % 24) == 0)

				putchar('\n');

		}

		putchar('\n');

	}

}

void

TIFFReadContigStripData(TIFF* tif)

{

	unsigned char *buf;

	tsize_t scanline = TIFFScanlineSize(tif);

	buf = (unsigned char *)_TIFFmalloc(TIFFStripSize(tif));

	if (buf) {

		uint32 row, h;

		uint32 rowsperstrip = (uint32)-1;

		TIFFGetField(tif, TIFFTAG_IMAGELENGTH, &h);

		TIFFGetField(tif, TIFFTAG_ROWSPERSTRIP, &rowsperstrip);

		for (row = 0; row < h; row += rowsperstrip) {

			uint32 nrow = (row+rowsperstrip > h ?

			    h-row : rowsperstrip);

			tstrip_t strip = TIFFComputeStrip(tif, row, 0);

			if (TIFFReadEncodedStrip(tif, strip, buf, nrow*scanline) < 0) {

				if (stoponerr)

					break;

			} else if (showdata)

				ShowStrip(strip, buf, nrow, scanline);

		}

		_TIFFfree(buf);

	}

}

void

TIFFReadSeparateStripData(TIFF* tif)

{

	unsigned char *buf;

	tsize_t scanline = TIFFScanlineSize(tif);

	buf = (unsigned char *)_TIFFmalloc(TIFFStripSize(tif));

	if (buf) {

		uint32 row, h;

		uint32 rowsperstrip = (uint32)-1;

		tsample_t s, samplesperpixel;

		TIFFGetField(tif, TIFFTAG_IMAGELENGTH, &h);

		TIFFGetField(tif, TIFFTAG_ROWSPERSTRIP, &rowsperstrip);

		TIFFGetField(tif, TIFFTAG_SAMPLESPERPIXEL, &samplesperpixel);

		for (row = 0; row < h; row += rowsperstrip) {

			for (s = 0; s < samplesperpixel; s++) {

				uint32 nrow = (row+rowsperstrip > h ?

				    h-row : rowsperstrip);

				tstrip_t strip = TIFFComputeStrip(tif, row, s);

				if (TIFFReadEncodedStrip(tif, strip, buf, nrow*scanline) < 0) {

					if (stoponerr)

						break;

				} else if (showdata)

					ShowStrip(strip, buf, nrow, scanline);

			}

		}

		_TIFFfree(buf);

	}

}

static void

ShowTile(uint32 row, uint32 col, tsample_t sample,

    unsigned char* pp, uint32 nrow, uint32 rowsize)

{

	uint32 cc;

	printf("Tile (%lu,%lu", (unsigned long) row, (unsigned long) col);

	if (sample != (tsample_t) -1)

		printf(",%u", sample);

	printf("):\n");

	while (nrow-- > 0) {

		for (cc = 0; cc < rowsize; cc++) {

			printf(" %02x", *pp++);

			if (((cc+1) % 24) == 0)

				putchar('\n');

		}

		putchar('\n');

	}

}

void

TIFFReadContigTileData(TIFF* tif)

{

	unsigned char *buf;

	tsize_t rowsize = TIFFTileRowSize(tif);

	buf = (unsigned char *)_TIFFmalloc(TIFFTileSize(tif));

	if (buf) {

		uint32 tw, th, w, h;

		uint32 row, col;

		TIFFGetField(tif, TIFFTAG_IMAGEWIDTH, &w);

		TIFFGetField(tif, TIFFTAG_IMAGELENGTH, &h);

		TIFFGetField(tif, TIFFTAG_TILEWIDTH, &tw);

		TIFFGetField(tif, TIFFTAG_TILELENGTH, &th);

		for (row = 0; row < h; row += th) {

			for (col = 0; col < w; col += tw) {

				if (TIFFReadTile(tif, buf, col, row, 0, 0) < 0) {

					if (stoponerr)

						break;

				} else if (showdata)

					ShowTile(row, col, (tsample_t) -1, buf, th, rowsize);

			}

		}

		_TIFFfree(buf);

	}

}

void

TIFFReadSeparateTileData(TIFF* tif)

{

	unsigned char *buf;

	tsize_t rowsize = TIFFTileRowSize(tif);

	buf = (unsigned char *)_TIFFmalloc(TIFFTileSize(tif));

	if (buf) {

		uint32 tw, th, w, h;

		uint32 row, col;

		tsample_t s, samplesperpixel;

		TIFFGetField(tif, TIFFTAG_IMAGEWIDTH, &w);

		TIFFGetField(tif, TIFFTAG_IMAGELENGTH, &h);

		TIFFGetField(tif, TIFFTAG_TILEWIDTH, &tw);

		TIFFGetField(tif, TIFFTAG_TILELENGTH, &th);

		TIFFGetField(tif, TIFFTAG_SAMPLESPERPIXEL, &samplesperpixel);

		for (row = 0; row < h; row += th) {

			for (col = 0; col < w; col += tw) {

				for (s = 0; s < samplesperpixel; s++) {

					if (TIFFReadTile(tif, buf, col, row, 0, s) < 0) {

						if (stoponerr)

							break;

					} else if (showdata)

						ShowTile(row, col, s, buf, th, rowsize);

				}

			}

		}

		_TIFFfree(buf);

	}

}

void

TIFFReadData(TIFF* tif)

{

	uint16 config;

	TIFFGetField(tif, TIFFTAG_PLANARCONFIG, &config);

	if (TIFFIsTiled(tif)) {

		if (config == PLANARCONFIG_CONTIG)

			TIFFReadContigTileData(tif);

		else

			TIFFReadSeparateTileData(tif);

	} else {

		if (config == PLANARCONFIG_CONTIG)

			TIFFReadContigStripData(tif);

		else

			TIFFReadSeparateStripData(tif);

	}

}

static void

ShowRawBytes(unsigned char* pp, uint32 n)

{

	uint32 i;

	for (i = 0; i < n; i++) {

		printf(" %02x", *pp++);

		if (((i+1) % 24) == 0)

			printf("\n ");

	}

	putchar('\n');

}

static void

ShowRawWords(uint16* pp, uint32 n)

{

	uint32 i;

	for (i = 0; i < n; i++) {

		printf(" %04x", *pp++);

		if (((i+1) % 15) == 0)

			printf("\n ");

	}

	putchar('\n');

}

void

TIFFReadRawData(TIFF* tif, int bitrev)

{

	tstrip_t nstrips = TIFFNumberOfStrips(tif);

	const char* what = TIFFIsTiled(tif) ? "Tile" : "Strip";

	uint32* stripbc;

	TIFFGetField(tif, TIFFTAG_STRIPBYTECOUNTS, &stripbc);

	if (nstrips > 0) {

		uint32 bufsize = stripbc[0];

		tdata_t buf = _TIFFmalloc(bufsize);

		tstrip_t s;

		for (s = 0; s < nstrips; s++) {

			if (stripbc[s] > bufsize) {

				buf = _TIFFrealloc(buf, stripbc[s]);

				bufsize = stripbc[s];

			}

			if (buf == NULL) {

				fprintf(stderr,

				   "Cannot allocate buffer to read strip %lu\n",

				    (unsigned long) s);

				break;

			}

			if (TIFFReadRawStrip(tif, s, buf, stripbc[s]) < 0) {

				fprintf(stderr, "Error reading strip %lu\n",

				    (unsigned long) s);

				if (stoponerr)

					break;

			} else if (showdata) {

				if (bitrev) {

					TIFFReverseBits(buf, stripbc[s]);

					printf("%s %lu: (bit reversed)\n ",

					    what, (unsigned long) s);

				} else

					printf("%s %lu:\n ", what,

					    (unsigned long) s);

				if (showwords)

					ShowRawWords((uint16*) buf, stripbc[s]>>1);

				else

					ShowRawBytes((unsigned char*) buf, stripbc[s]);

			}

		}

		if (buf != NULL)

			_TIFFfree(buf);

	}

}

static void

tiffinfo(TIFF* tif, uint16 order, long flags)

{

	TIFFPrintDirectory(tif, stdout, flags);

	if (!readdata)

		return;

	if (rawdata) {

		if (order) {

			uint16 o;

			TIFFGetFieldDefaulted(tif,

			    TIFFTAG_FILLORDER, &o);

			TIFFReadRawData(tif, o != order);

		} else

			TIFFReadRawData(tif, 0);

	} else {

		if (order)

			TIFFSetField(tif, TIFFTAG_FILLORDER, order);

		TIFFReadData(tif);

	}

}

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

/*

 * Local Variables:

 * mode: c

 * c-basic-offset: 8

 * fill-column: 78

 * End:

 */