roentgen b75cab
/*
roentgen b75cab
 * listtif.c -- lists a tiff file.
roentgen b75cab
 */
roentgen b75cab
roentgen b75cab
#include "xtiffio.h"
roentgen b75cab
#include <stdlib.h></stdlib.h>
roentgen b75cab
roentgen b75cab
void main(int argc,char *argv[])
roentgen b75cab
{
roentgen b75cab
	char *fname="newtif.tif";
roentgen b75cab
	int flags;
roentgen b75cab
roentgen b75cab
	TIFF *tif=(TIFF*)0;  /* TIFF-level descriptor */
roentgen b75cab
roentgen b75cab
	if (argc>1) fname=argv[1];
roentgen b75cab
	
roentgen b75cab
	tif=XTIFFOpen(fname,"r");
roentgen b75cab
	if (!tif) goto failure;
roentgen b75cab
	
roentgen b75cab
	/* We want the double array listed */
roentgen b75cab
	flags = TIFFPRINT_MYMULTIDOUBLES;
roentgen b75cab
	
roentgen b75cab
	TIFFPrintDirectory(tif,stdout,flags);
roentgen b75cab
	XTIFFClose(tif);
roentgen b75cab
	exit (0);
roentgen b75cab
	
roentgen b75cab
failure:
roentgen b75cab
	printf("failure in listtif\n");
roentgen b75cab
	if (tif) XTIFFClose(tif);
roentgen b75cab
	exit (-1);
roentgen b75cab
}
roentgen b75cab
roentgen b75cab
/*
roentgen b75cab
 * Local Variables:
roentgen b75cab
 * mode: c
roentgen b75cab
 * c-basic-offset: 8
roentgen b75cab
 * fill-column: 78
roentgen b75cab
 * End:
roentgen b75cab
 */