src/tiff/tools/fax2tiff.c

/* $Id$ */

/*
 * Copyright (c) 1990-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.
 */

/*
 * Convert a CCITT Group 3 or 4 FAX file to TIFF Group 3 or 4 format.
 */
#include "tif_config.h"

#include <stdio.h>
#include <stdlib.h>		/* should have atof & getopt */

#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif

#ifdef HAVE_FCNTL_H
# include <fcntl.h>
#endif

#ifdef HAVE_IO_H
# include <io.h>
#endif

#include "tiffiop.h"

#ifndef BINMODE
# define	BINMODE
#endif

#ifndef EXIT_SUCCESS
# define EXIT_SUCCESS	0
#endif
#ifndef EXIT_FAILURE
# define EXIT_FAILURE	1
#endif

#define TIFFhowmany8(x) (((x)&0x07)?((uint32)(x)>>3)+1:(uint32)(x)>>3)

TIFF	*faxTIFF;
char	*rowbuf;
char	*refbuf;

uint32	xsize = 1728;
int	verbose;
int	stretch;
uint16	badfaxrun;
uint32	badfaxlines;

int	copyFaxFile(TIFF* tifin, TIFF* tifout);
static	void usage(void);

int
main(int argc, char* argv[])
{
	FILE *in;
	TIFF *out = NULL;
	TIFFErrorHandler whandler = NULL;
	int compression_in = COMPRESSION_CCITTFAX3;
	int compression_out = COMPRESSION_CCITTFAX3;
	int fillorder_in = FILLORDER_LSB2MSB;
	int fillorder_out = FILLORDER_LSB2MSB;
	uint32 group3options_in = 0;	/* 1d-encoded */
	uint32 group3options_out = 0;	/* 1d-encoded */
	uint32 group4options_in = 0;	/* compressed */
	uint32 group4options_out = 0;	/* compressed */
	uint32 defrowsperstrip = (uint32) 0;
	uint32 rowsperstrip;
	int photometric_in = PHOTOMETRIC_MINISWHITE;
	int photometric_out = PHOTOMETRIC_MINISWHITE;
	int mode = FAXMODE_CLASSF;
	int rows;
	int c;
	int pn, npages;
	float resY = 196.0;
	extern int optind;
	extern char* optarg;


	while ((c = getopt(argc, argv, "R:X:o:1234ABLMPUW5678abcflmprsuvwz?")) != -1)
		switch (c) {
			/* input-related options */
		case '3':		/* input is g3-encoded */
			compression_in = COMPRESSION_CCITTFAX3;
			break;
		case '4':		/* input is g4-encoded */
			compression_in = COMPRESSION_CCITTFAX4;
			break;
		case 'U':		/* input is uncompressed (g3 and g4) */
			group3options_in |= GROUP3OPT_UNCOMPRESSED;
			group4options_in |= GROUP4OPT_UNCOMPRESSED;
			break;
		case '1':		/* input is 1d-encoded (g3 only) */
			group3options_in &= ~GROUP3OPT_2DENCODING;
			break;
		case '2':		/* input is 2d-encoded (g3 only) */
			group3options_in |= GROUP3OPT_2DENCODING;
			break;
		case 'P':	/* input has not-aligned EOL (g3 only) */
			group3options_in &= ~GROUP3OPT_FILLBITS;
			break;
		case 'A':		/* input has aligned EOL (g3 only) */
			group3options_in |= GROUP3OPT_FILLBITS;
			break;
		case 'W':		/* input has 0 mean white */
			photometric_in = PHOTOMETRIC_MINISWHITE;
			break;
		case 'B':		/* input has 0 mean black */
			photometric_in = PHOTOMETRIC_MINISBLACK;
			break;
		case 'L':		/* input has lsb-to-msb fillorder */
			fillorder_in = FILLORDER_LSB2MSB;
			break;
		case 'M':		/* input has msb-to-lsb fillorder */
			fillorder_in = FILLORDER_MSB2LSB;
			break;
		case 'R':		/* input resolution */
			resY = (float) atof(optarg);
			break;
		case 'X':		/* input width */
			xsize = (uint32) atoi(optarg);
			break;

			/* output-related options */
		case '7':		/* generate g3-encoded output */
			compression_out = COMPRESSION_CCITTFAX3;
			break;
		case '8':		/* generate g4-encoded output */
			compression_out = COMPRESSION_CCITTFAX4;
			break;
		case 'u':	/* generate uncompressed output (g3 and g4) */
			group3options_out |= GROUP3OPT_UNCOMPRESSED;
			group4options_out |= GROUP4OPT_UNCOMPRESSED;
			break;
		case '5':	/* generate 1d-encoded output (g3 only) */
			group3options_out &= ~GROUP3OPT_2DENCODING;
			break;
		case '6':	/* generate 2d-encoded output (g3 only) */
			group3options_out |= GROUP3OPT_2DENCODING;
			break;
		case 'c':		/* generate "classic" g3 format */
			mode = FAXMODE_CLASSIC;
			break;
		case 'f':		/* generate Class F format */
			mode = FAXMODE_CLASSF;
			break;
		case 'm':		/* output's fillorder is msb-to-lsb */
			fillorder_out = FILLORDER_MSB2LSB;
			break;
		case 'l':		/* output's fillorder is lsb-to-msb */
			fillorder_out = FILLORDER_LSB2MSB;
			break;
		case 'o':
			out = TIFFOpen(optarg, "w");
			if (out == NULL) {
				fprintf(stderr,
				    "%s: Can not create or open %s\n",
				    argv[0], optarg);
				return EXIT_FAILURE;
			}
			break;
		case 'a':	/* generate EOL-aligned output (g3 only) */
			group3options_out |= GROUP3OPT_FILLBITS;
			break;
		case 'p':	/* generate not EOL-aligned output (g3 only) */
			group3options_out &= ~GROUP3OPT_FILLBITS;
			break;
		case 'r':		/* rows/strip */
			defrowsperstrip = atol(optarg);
			break;
		case 's':		/* stretch image by dup'ng scanlines */
			stretch = 1;
			break;
		case 'w':		/* undocumented -- for testing */
			photometric_out = PHOTOMETRIC_MINISWHITE;
			break;
		case 'b':		/* undocumented -- for testing */
			photometric_out = PHOTOMETRIC_MINISBLACK;
			break;
		case 'z':		/* undocumented -- for testing */
			compression_out = COMPRESSION_LZW;
			break;
		case 'v':		/* -v for info */
			verbose++;
			break;
		case '?':
			usage();
			/*NOTREACHED*/
		}
	npages = argc - optind;
	if (npages < 1)
		usage();

	rowbuf = _TIFFmalloc(TIFFhowmany8(xsize));
	refbuf = _TIFFmalloc(TIFFhowmany8(xsize));
	if (rowbuf == NULL || refbuf == NULL) {
		fprintf(stderr, "%s: Not enough memory\n", argv[0]);
		return (EXIT_FAILURE);
	}

	if (out == NULL) {
		out = TIFFOpen("fax.tif", "w");
		if (out == NULL) {
			fprintf(stderr, "%s: Can not create fax.tif\n",
			    argv[0]);
			return (EXIT_FAILURE);
		}
	}

	faxTIFF = TIFFClientOpen("(FakeInput)", "w",
	/* TIFFClientOpen() fails if we don't set existing value here */
				 TIFFClientdata(out),
				 TIFFGetReadProc(out), TIFFGetWriteProc(out),
				 TIFFGetSeekProc(out), TIFFGetCloseProc(out),
				 TIFFGetSizeProc(out), TIFFGetMapFileProc(out),
				 TIFFGetUnmapFileProc(out));
	if (faxTIFF == NULL) {
		fprintf(stderr, "%s: Can not create fake input file\n",
		    argv[0]);
		return (EXIT_FAILURE);
	}
	TIFFSetMode(faxTIFF, O_RDONLY);
	TIFFSetField(faxTIFF, TIFFTAG_IMAGEWIDTH,	xsize);
	TIFFSetField(faxTIFF, TIFFTAG_SAMPLESPERPIXEL,	1);
	TIFFSetField(faxTIFF, TIFFTAG_BITSPERSAMPLE,	1);
	TIFFSetField(faxTIFF, TIFFTAG_FILLORDER,	fillorder_in);
	TIFFSetField(faxTIFF, TIFFTAG_PLANARCONFIG,	PLANARCONFIG_CONTIG);
	TIFFSetField(faxTIFF, TIFFTAG_PHOTOMETRIC,	photometric_in);
	TIFFSetField(faxTIFF, TIFFTAG_YRESOLUTION,	resY);
	TIFFSetField(faxTIFF, TIFFTAG_RESOLUTIONUNIT,	RESUNIT_INCH);

	/* NB: this must be done after directory info is setup */
	TIFFSetField(faxTIFF, TIFFTAG_COMPRESSION, compression_in);
	if (compression_in == COMPRESSION_CCITTFAX3)
		TIFFSetField(faxTIFF, TIFFTAG_GROUP3OPTIONS, group3options_in);
	else if (compression_in == COMPRESSION_CCITTFAX4)
		TIFFSetField(faxTIFF, TIFFTAG_GROUP4OPTIONS, group4options_in);
	for (pn = 0; optind < argc; pn++, optind++) {
		in = fopen(argv[optind], "r" BINMODE);
		if (in == NULL) {
			fprintf(stderr,
			    "%s: %s: Can not open\n", argv[0], argv[optind]);
			continue;
		}
#if defined(_WIN32) && defined(USE_WIN32_FILEIO)
                TIFFSetClientdata(faxTIFF, (thandle_t)_get_osfhandle(fileno(in)));
#else
                TIFFSetClientdata(faxTIFF, (thandle_t)fileno(in));
#endif
		TIFFSetFileName(faxTIFF, (const char*)argv[optind]);
		TIFFSetField(out, TIFFTAG_IMAGEWIDTH, xsize);
		TIFFSetField(out, TIFFTAG_BITSPERSAMPLE, 1);
		TIFFSetField(out, TIFFTAG_COMPRESSION, compression_out);
		TIFFSetField(out, TIFFTAG_PHOTOMETRIC, photometric_out);
		TIFFSetField(out, TIFFTAG_ORIENTATION, ORIENTATION_TOPLEFT);
		TIFFSetField(out, TIFFTAG_SAMPLESPERPIXEL, 1);
		switch (compression_out) {
			/* g3 */
			case COMPRESSION_CCITTFAX3:
			TIFFSetField(out, TIFFTAG_GROUP3OPTIONS,
				     group3options_out);
			TIFFSetField(out, TIFFTAG_FAXMODE, mode);
			rowsperstrip =
				(defrowsperstrip)?defrowsperstrip:(uint32)-1L;
			break;

			/* g4 */
			case COMPRESSION_CCITTFAX4:
			TIFFSetField(out, TIFFTAG_GROUP4OPTIONS,
				     group4options_out);
			TIFFSetField(out, TIFFTAG_FAXMODE, mode);
			rowsperstrip =
				(defrowsperstrip)?defrowsperstrip:(uint32)-1L;
			break;

			default:
			rowsperstrip = (defrowsperstrip) ?
				defrowsperstrip : TIFFDefaultStripSize(out, 0);
		}
		TIFFSetField(out, TIFFTAG_ROWSPERSTRIP, rowsperstrip);
		TIFFSetField(out, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
		TIFFSetField(out, TIFFTAG_FILLORDER, fillorder_out);
		TIFFSetField(out, TIFFTAG_SOFTWARE, "fax2tiff");
		TIFFSetField(out, TIFFTAG_XRESOLUTION, 204.0);
		if (!stretch) {
			TIFFGetField(faxTIFF, TIFFTAG_YRESOLUTION, &resY);
			TIFFSetField(out, TIFFTAG_YRESOLUTION, resY);
		} else
			TIFFSetField(out, TIFFTAG_YRESOLUTION, 196.);
		TIFFSetField(out, TIFFTAG_RESOLUTIONUNIT, RESUNIT_INCH);
		TIFFSetField(out, TIFFTAG_PAGENUMBER, pn, npages);

		if (!verbose)
		    whandler = TIFFSetWarningHandler(NULL);
		rows = copyFaxFile(faxTIFF, out);
		fclose(in);
		if (!verbose)
		    (void) TIFFSetWarningHandler(whandler);

		TIFFSetField(out, TIFFTAG_IMAGELENGTH, rows);

		if (verbose) {
			fprintf(stderr, "%s:\n", argv[optind]);
			fprintf(stderr, "%d rows in input\n", rows);
			fprintf(stderr, "%ld total bad rows\n",
			    (long) badfaxlines);
			fprintf(stderr, "%d max consecutive bad rows\n", badfaxrun);
		}
		if (compression_out == COMPRESSION_CCITTFAX3 &&
		    mode == FAXMODE_CLASSF) {
			TIFFSetField(out, TIFFTAG_BADFAXLINES, badfaxlines);
			TIFFSetField(out, TIFFTAG_CLEANFAXDATA, badfaxlines ?
			    CLEANFAXDATA_REGENERATED : CLEANFAXDATA_CLEAN);
			TIFFSetField(out, TIFFTAG_CONSECUTIVEBADFAXLINES, badfaxrun);
		}
		TIFFWriteDirectory(out);
	}
	TIFFClose(out);
	_TIFFfree(rowbuf);
	_TIFFfree(refbuf);
	return (EXIT_SUCCESS);
}

int
copyFaxFile(TIFF* tifin, TIFF* tifout)
{
	uint32 row;
	uint32 linesize = TIFFhowmany8(xsize);
	uint16 badrun;
	int ok;

	tifin->tif_rawdatasize = TIFFGetFileSize(tifin);
	tifin->tif_rawdata = _TIFFmalloc(tifin->tif_rawdatasize);
	if (tifin->tif_rawdata == NULL) {
		TIFFError(tifin->tif_name, "Not enough memory");
		return (0);
	}
	if (!ReadOK(tifin, tifin->tif_rawdata, tifin->tif_rawdatasize)) {
		TIFFError(tifin->tif_name, "Read error at scanline 0");
		return (0);
	}
	tifin->tif_rawcp = tifin->tif_rawdata;
	tifin->tif_rawcc = tifin->tif_rawdatasize;

	(*tifin->tif_setupdecode)(tifin);
	(*tifin->tif_predecode)(tifin, (tsample_t) 0);
	tifin->tif_row = 0;
	badfaxlines = 0;
	badfaxrun = 0;

	_TIFFmemset(refbuf, 0, linesize);
	row = 0;
	badrun = 0;		/* current run of bad lines */
	while (tifin->tif_rawcc > 0) {
		ok = (*tifin->tif_decoderow)(tifin, (tdata_t) rowbuf,
					     linesize, 0);
		if (!ok) {
			badfaxlines++;
			badrun++;
			/* regenerate line from previous good line */
			_TIFFmemcpy(rowbuf, refbuf, linesize);
		} else {
			if (badrun > badfaxrun)
				badfaxrun = badrun;
			badrun = 0;
			_TIFFmemcpy(refbuf, rowbuf, linesize);
		}
		tifin->tif_row++;

		if (TIFFWriteScanline(tifout, rowbuf, row, 0) < 0) {
			fprintf(stderr, "%s: Write error at row %ld.\n",
			    tifout->tif_name, (long) row);
			break;
		}
		row++;
		if (stretch) {
			if (TIFFWriteScanline(tifout, rowbuf, row, 0) < 0) {
				fprintf(stderr, "%s: Write error at row %ld.\n",
				    tifout->tif_name, (long) row);
				break;
			}
			row++;
		}
	}
	if (badrun > badfaxrun)
		badfaxrun = badrun;
	_TIFFfree(tifin->tif_rawdata);
	return (row);
}

char* stuff[] = {
"usage: fax2tiff [options] input.raw...",
"where options are:",
" -3		input data is G3-encoded		[default]",
" -4		input data is G4-encoded",
" -U		input data is uncompressed (G3 or G4)",
" -1		input data is 1D-encoded (G3 only)	[default]",
" -2		input data is 2D-encoded (G3 only)",
" -P		input is not EOL-aligned (G3 only)	[default]",
" -A		input is EOL-aligned (G3 only)",
" -M		input data has MSB2LSB bit order",
" -L		input data has LSB2MSB bit order	[default]",
" -B		input data has min 0 means black",
" -W		input data has min 0 means white	[default]",
" -R #		input data has # resolution (lines/inch) [default is 196]",
" -X #		input data has # width			[default is 1728]",
"",
" -o out.tif	write output to out.tif",
" -7		generate G3-encoded output		[default]",
" -8		generate G4-encoded output",
" -u		generate uncompressed output (G3 or G4)",
" -5		generate 1D-encoded output (G3 only)",
" -6		generate 2D-encoded output (G3 only)	[default]",
" -p		generate not EOL-aligned output (G3 only)",
" -a		generate EOL-aligned output (G3 only)	[default]",
" -c		generate \"classic\" TIFF format",
" -f		generate TIFF Class F (TIFF/F) format	[default]",
" -m		output fill order is MSB2LSB",
" -l		output fill order is LSB2MSB		[default]",
" -r #		make each strip have no more than # rows",
" -s		stretch image by duplicating scanlines",
" -v		print information about conversion work",
" -z		generate LZW compressed output",
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(EXIT_FAILURE);
}

/* vim: set ts=8 sts=8 sw=8 noet: */
Commit	Line	Data
	1	/* $Id$ */
	2
	3	/*
	4	* Copyright (c) 1990-1997 Sam Leffler
	5	* Copyright (c) 1991-1997 Silicon Graphics, Inc.
	6	*
	7	* Permission to use, copy, modify, distribute, and sell this software and
	8	* its documentation for any purpose is hereby granted without fee, provided
	9	* that (i) the above copyright notices and this permission notice appear in
	10	* all copies of the software and related documentation, and (ii) the names of
	11	* Sam Leffler and Silicon Graphics may not be used in any advertising or
	12	* publicity relating to the software without the specific, prior written
	13	* permission of Sam Leffler and Silicon Graphics.
	14	*
	15	* THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
	16	* EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
	17	* WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
	18	*
	19	* IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
	20	* ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
	21	* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
	22	* WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
	23	* LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
	24	* OF THIS SOFTWARE.
	25	*/
	26
	27	/*
	28	* Convert a CCITT Group 3 or 4 FAX file to TIFF Group 3 or 4 format.
	29	*/
	30	#include "tif_config.h"
	31
	32	#include <stdio.h>
	33	#include <stdlib.h> /* should have atof & getopt */
	34
	35	#ifdef HAVE_UNISTD_H
	36	# include <unistd.h>
	37	#endif
	38
	39	#ifdef HAVE_FCNTL_H
	40	# include <fcntl.h>
	41	#endif
	42
	43	#ifdef HAVE_IO_H
	44	# include <io.h>
	45	#endif
	46
	47	#include "tiffiop.h"
	48
	49	#ifndef BINMODE
	50	# define BINMODE
	51	#endif
	52
	53	#ifndef EXIT_SUCCESS
	54	# define EXIT_SUCCESS 0
	55	#endif
	56	#ifndef EXIT_FAILURE
	57	# define EXIT_FAILURE 1
	58	#endif
	59
	60	#define TIFFhowmany8(x) (((x)&0x07)?((uint32)(x)>>3)+1:(uint32)(x)>>3)
	61
	62	TIFF *faxTIFF;
	63	char *rowbuf;
	64	char *refbuf;
	65
	66	uint32 xsize = 1728;
	67	int verbose;
	68	int stretch;
	69	uint16 badfaxrun;
	70	uint32 badfaxlines;
	71
	72	int copyFaxFile(TIFF* tifin, TIFF* tifout);
	73	static void usage(void);
	74
	75	int
	76	main(int argc, char* argv[])
	77	{
	78	FILE *in;
	79	TIFF *out = NULL;
	80	TIFFErrorHandler whandler = NULL;
	81	int compression_in = COMPRESSION_CCITTFAX3;
	82	int compression_out = COMPRESSION_CCITTFAX3;
	83	int fillorder_in = FILLORDER_LSB2MSB;
	84	int fillorder_out = FILLORDER_LSB2MSB;
	85	uint32 group3options_in = 0; /* 1d-encoded */
	86	uint32 group3options_out = 0; /* 1d-encoded */
	87	uint32 group4options_in = 0; /* compressed */
	88	uint32 group4options_out = 0; /* compressed */
	89	uint32 defrowsperstrip = (uint32) 0;
	90	uint32 rowsperstrip;
	91	int photometric_in = PHOTOMETRIC_MINISWHITE;
	92	int photometric_out = PHOTOMETRIC_MINISWHITE;
	93	int mode = FAXMODE_CLASSF;
	94	int rows;
	95	int c;
	96	int pn, npages;
	97	float resY = 196.0;
	98	extern int optind;
	99	extern char* optarg;
	100
	101
	102	while ((c = getopt(argc, argv, "R:X:o:1234ABLMPUW5678abcflmprsuvwz?")) != -1)
	103	switch (c) {
	104	/* input-related options */
	105	case '3': /* input is g3-encoded */
	106	compression_in = COMPRESSION_CCITTFAX3;
	107	break;
	108	case '4': /* input is g4-encoded */
	109	compression_in = COMPRESSION_CCITTFAX4;
	110	break;
	111	case 'U': /* input is uncompressed (g3 and g4) */
	112	group3options_in \|= GROUP3OPT_UNCOMPRESSED;
	113	group4options_in \|= GROUP4OPT_UNCOMPRESSED;
	114	break;
	115	case '1': /* input is 1d-encoded (g3 only) */
	116	group3options_in &= ~GROUP3OPT_2DENCODING;
	117	break;
	118	case '2': /* input is 2d-encoded (g3 only) */
	119	group3options_in \|= GROUP3OPT_2DENCODING;
	120	break;
	121	case 'P': /* input has not-aligned EOL (g3 only) */
	122	group3options_in &= ~GROUP3OPT_FILLBITS;
	123	break;
	124	case 'A': /* input has aligned EOL (g3 only) */
	125	group3options_in \|= GROUP3OPT_FILLBITS;
	126	break;
	127	case 'W': /* input has 0 mean white */
	128	photometric_in = PHOTOMETRIC_MINISWHITE;
	129	break;
	130	case 'B': /* input has 0 mean black */
	131	photometric_in = PHOTOMETRIC_MINISBLACK;
	132	break;
	133	case 'L': /* input has lsb-to-msb fillorder */
	134	fillorder_in = FILLORDER_LSB2MSB;
	135	break;
	136	case 'M': /* input has msb-to-lsb fillorder */
	137	fillorder_in = FILLORDER_MSB2LSB;
	138	break;
	139	case 'R': /* input resolution */
	140	resY = (float) atof(optarg);
	141	break;
	142	case 'X': /* input width */
	143	xsize = (uint32) atoi(optarg);
	144	break;
	145
	146	/* output-related options */
	147	case '7': /* generate g3-encoded output */
	148	compression_out = COMPRESSION_CCITTFAX3;
	149	break;
	150	case '8': /* generate g4-encoded output */
	151	compression_out = COMPRESSION_CCITTFAX4;
	152	break;
	153	case 'u': /* generate uncompressed output (g3 and g4) */
	154	group3options_out \|= GROUP3OPT_UNCOMPRESSED;
	155	group4options_out \|= GROUP4OPT_UNCOMPRESSED;
	156	break;
	157	case '5': /* generate 1d-encoded output (g3 only) */
	158	group3options_out &= ~GROUP3OPT_2DENCODING;
	159	break;
	160	case '6': /* generate 2d-encoded output (g3 only) */
	161	group3options_out \|= GROUP3OPT_2DENCODING;
	162	break;
	163	case 'c': /* generate "classic" g3 format */
	164	mode = FAXMODE_CLASSIC;
	165	break;
	166	case 'f': /* generate Class F format */
	167	mode = FAXMODE_CLASSF;
	168	break;
	169	case 'm': /* output's fillorder is msb-to-lsb */
	170	fillorder_out = FILLORDER_MSB2LSB;
	171	break;
	172	case 'l': /* output's fillorder is lsb-to-msb */
	173	fillorder_out = FILLORDER_LSB2MSB;
	174	break;
	175	case 'o':
	176	out = TIFFOpen(optarg, "w");
	177	if (out == NULL) {
	178	fprintf(stderr,
	179	"%s: Can not create or open %s\n",
	180	argv[0], optarg);
	181	return EXIT_FAILURE;
	182	}
	183	break;
	184	case 'a': /* generate EOL-aligned output (g3 only) */
	185	group3options_out \|= GROUP3OPT_FILLBITS;
	186	break;
	187	case 'p': /* generate not EOL-aligned output (g3 only) */
	188	group3options_out &= ~GROUP3OPT_FILLBITS;
	189	break;
	190	case 'r': /* rows/strip */
	191	defrowsperstrip = atol(optarg);
	192	break;
	193	case 's': /* stretch image by dup'ng scanlines */
	194	stretch = 1;
	195	break;
	196	case 'w': /* undocumented -- for testing */
	197	photometric_out = PHOTOMETRIC_MINISWHITE;
	198	break;
	199	case 'b': /* undocumented -- for testing */
	200	photometric_out = PHOTOMETRIC_MINISBLACK;
	201	break;
	202	case 'z': /* undocumented -- for testing */
	203	compression_out = COMPRESSION_LZW;
	204	break;
	205	case 'v': /* -v for info */
	206	verbose++;
	207	break;
	208	case '?':
	209	usage();
	210	/NOTREACHED/
	211	}
	212	npages = argc - optind;
	213	if (npages < 1)
	214	usage();
	215
	216	rowbuf = _TIFFmalloc(TIFFhowmany8(xsize));
	217	refbuf = _TIFFmalloc(TIFFhowmany8(xsize));
	218	if (rowbuf == NULL \|\| refbuf == NULL) {
	219	fprintf(stderr, "%s: Not enough memory\n", argv[0]);
	220	return (EXIT_FAILURE);
	221	}
	222
	223	if (out == NULL) {
	224	out = TIFFOpen("fax.tif", "w");
	225	if (out == NULL) {
	226	fprintf(stderr, "%s: Can not create fax.tif\n",
	227	argv[0]);
	228	return (EXIT_FAILURE);
	229	}
	230	}
	231
	232	faxTIFF = TIFFClientOpen("(FakeInput)", "w",
	233	/* TIFFClientOpen() fails if we don't set existing value here */
	234	TIFFClientdata(out),
	235	TIFFGetReadProc(out), TIFFGetWriteProc(out),
	236	TIFFGetSeekProc(out), TIFFGetCloseProc(out),
	237	TIFFGetSizeProc(out), TIFFGetMapFileProc(out),
	238	TIFFGetUnmapFileProc(out));
	239	if (faxTIFF == NULL) {
	240	fprintf(stderr, "%s: Can not create fake input file\n",
	241	argv[0]);
	242	return (EXIT_FAILURE);
	243	}
	244	TIFFSetMode(faxTIFF, O_RDONLY);
	245	TIFFSetField(faxTIFF, TIFFTAG_IMAGEWIDTH, xsize);
	246	TIFFSetField(faxTIFF, TIFFTAG_SAMPLESPERPIXEL, 1);
	247	TIFFSetField(faxTIFF, TIFFTAG_BITSPERSAMPLE, 1);
	248	TIFFSetField(faxTIFF, TIFFTAG_FILLORDER, fillorder_in);
	249	TIFFSetField(faxTIFF, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
	250	TIFFSetField(faxTIFF, TIFFTAG_PHOTOMETRIC, photometric_in);
	251	TIFFSetField(faxTIFF, TIFFTAG_YRESOLUTION, resY);
	252	TIFFSetField(faxTIFF, TIFFTAG_RESOLUTIONUNIT, RESUNIT_INCH);
	253
	254	/* NB: this must be done after directory info is setup */
	255	TIFFSetField(faxTIFF, TIFFTAG_COMPRESSION, compression_in);
	256	if (compression_in == COMPRESSION_CCITTFAX3)
	257	TIFFSetField(faxTIFF, TIFFTAG_GROUP3OPTIONS, group3options_in);
	258	else if (compression_in == COMPRESSION_CCITTFAX4)
	259	TIFFSetField(faxTIFF, TIFFTAG_GROUP4OPTIONS, group4options_in);
	260	for (pn = 0; optind < argc; pn++, optind++) {
	261	in = fopen(argv[optind], "r" BINMODE);
	262	if (in == NULL) {
	263	fprintf(stderr,
	264	"%s: %s: Can not open\n", argv[0], argv[optind]);
	265	continue;
	266	}
	267	#if defined(_WIN32) && defined(USE_WIN32_FILEIO)
	268	TIFFSetClientdata(faxTIFF, (thandle_t)_get_osfhandle(fileno(in)));
	269	#else
	270	TIFFSetClientdata(faxTIFF, (thandle_t)fileno(in));
	271	#endif
	272	TIFFSetFileName(faxTIFF, (const char*)argv[optind]);
	273	TIFFSetField(out, TIFFTAG_IMAGEWIDTH, xsize);
	274	TIFFSetField(out, TIFFTAG_BITSPERSAMPLE, 1);
	275	TIFFSetField(out, TIFFTAG_COMPRESSION, compression_out);
	276	TIFFSetField(out, TIFFTAG_PHOTOMETRIC, photometric_out);
	277	TIFFSetField(out, TIFFTAG_ORIENTATION, ORIENTATION_TOPLEFT);
	278	TIFFSetField(out, TIFFTAG_SAMPLESPERPIXEL, 1);
	279	switch (compression_out) {
	280	/* g3 */
	281	case COMPRESSION_CCITTFAX3:
	282	TIFFSetField(out, TIFFTAG_GROUP3OPTIONS,
	283	group3options_out);
	284	TIFFSetField(out, TIFFTAG_FAXMODE, mode);
	285	rowsperstrip =
	286	(defrowsperstrip)?defrowsperstrip:(uint32)-1L;
	287	break;
	288
	289	/* g4 */
	290	case COMPRESSION_CCITTFAX4:
	291	TIFFSetField(out, TIFFTAG_GROUP4OPTIONS,
	292	group4options_out);
	293	TIFFSetField(out, TIFFTAG_FAXMODE, mode);
	294	rowsperstrip =
	295	(defrowsperstrip)?defrowsperstrip:(uint32)-1L;
	296	break;
	297
	298	default:
	299	rowsperstrip = (defrowsperstrip) ?
	300	defrowsperstrip : TIFFDefaultStripSize(out, 0);
	301	}
	302	TIFFSetField(out, TIFFTAG_ROWSPERSTRIP, rowsperstrip);
	303	TIFFSetField(out, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
	304	TIFFSetField(out, TIFFTAG_FILLORDER, fillorder_out);
	305	TIFFSetField(out, TIFFTAG_SOFTWARE, "fax2tiff");
	306	TIFFSetField(out, TIFFTAG_XRESOLUTION, 204.0);
	307	if (!stretch) {
	308	TIFFGetField(faxTIFF, TIFFTAG_YRESOLUTION, &resY);
	309	TIFFSetField(out, TIFFTAG_YRESOLUTION, resY);
	310	} else
	311	TIFFSetField(out, TIFFTAG_YRESOLUTION, 196.);
	312	TIFFSetField(out, TIFFTAG_RESOLUTIONUNIT, RESUNIT_INCH);
	313	TIFFSetField(out, TIFFTAG_PAGENUMBER, pn, npages);
	314
	315	if (!verbose)
	316	whandler = TIFFSetWarningHandler(NULL);
	317	rows = copyFaxFile(faxTIFF, out);
	318	fclose(in);
	319	if (!verbose)
	320	(void) TIFFSetWarningHandler(whandler);
	321
	322	TIFFSetField(out, TIFFTAG_IMAGELENGTH, rows);
	323
	324	if (verbose) {
	325	fprintf(stderr, "%s:\n", argv[optind]);
	326	fprintf(stderr, "%d rows in input\n", rows);
	327	fprintf(stderr, "%ld total bad rows\n",
	328	(long) badfaxlines);
	329	fprintf(stderr, "%d max consecutive bad rows\n", badfaxrun);
	330	}
	331	if (compression_out == COMPRESSION_CCITTFAX3 &&
	332	mode == FAXMODE_CLASSF) {
	333	TIFFSetField(out, TIFFTAG_BADFAXLINES, badfaxlines);
	334	TIFFSetField(out, TIFFTAG_CLEANFAXDATA, badfaxlines ?
	335	CLEANFAXDATA_REGENERATED : CLEANFAXDATA_CLEAN);
	336	TIFFSetField(out, TIFFTAG_CONSECUTIVEBADFAXLINES, badfaxrun);
	337	}
	338	TIFFWriteDirectory(out);
	339	}
	340	TIFFClose(out);
	341	_TIFFfree(rowbuf);
	342	_TIFFfree(refbuf);
	343	return (EXIT_SUCCESS);
	344	}
	345
	346	int
	347	copyFaxFile(TIFF* tifin, TIFF* tifout)
	348	{
	349	uint32 row;
	350	uint32 linesize = TIFFhowmany8(xsize);
	351	uint16 badrun;
	352	int ok;
	353
	354	tifin->tif_rawdatasize = TIFFGetFileSize(tifin);
	355	tifin->tif_rawdata = _TIFFmalloc(tifin->tif_rawdatasize);
	356	if (tifin->tif_rawdata == NULL) {
	357	TIFFError(tifin->tif_name, "Not enough memory");
	358	return (0);
	359	}
	360	if (!ReadOK(tifin, tifin->tif_rawdata, tifin->tif_rawdatasize)) {
	361	TIFFError(tifin->tif_name, "Read error at scanline 0");
	362	return (0);
	363	}
	364	tifin->tif_rawcp = tifin->tif_rawdata;
	365	tifin->tif_rawcc = tifin->tif_rawdatasize;
	366
	367	(*tifin->tif_setupdecode)(tifin);
	368	(*tifin->tif_predecode)(tifin, (tsample_t) 0);
	369	tifin->tif_row = 0;
	370	badfaxlines = 0;
	371	badfaxrun = 0;
	372
	373	_TIFFmemset(refbuf, 0, linesize);
	374	row = 0;
	375	badrun = 0; /* current run of bad lines */
	376	while (tifin->tif_rawcc > 0) {
	377	ok = (*tifin->tif_decoderow)(tifin, (tdata_t) rowbuf,
	378	linesize, 0);
	379	if (!ok) {
	380	badfaxlines++;
	381	badrun++;
	382	/* regenerate line from previous good line */
	383	_TIFFmemcpy(rowbuf, refbuf, linesize);
	384	} else {
	385	if (badrun > badfaxrun)
	386	badfaxrun = badrun;
	387	badrun = 0;
	388	_TIFFmemcpy(refbuf, rowbuf, linesize);
	389	}
	390	tifin->tif_row++;
	391
	392	if (TIFFWriteScanline(tifout, rowbuf, row, 0) < 0) {
	393	fprintf(stderr, "%s: Write error at row %ld.\n",
	394	tifout->tif_name, (long) row);
	395	break;
	396	}
	397	row++;
	398	if (stretch) {
	399	if (TIFFWriteScanline(tifout, rowbuf, row, 0) < 0) {
	400	fprintf(stderr, "%s: Write error at row %ld.\n",
	401	tifout->tif_name, (long) row);
	402	break;
	403	}
	404	row++;
	405	}
	406	}
	407	if (badrun > badfaxrun)
	408	badfaxrun = badrun;
	409	_TIFFfree(tifin->tif_rawdata);
	410	return (row);
	411	}
	412
	413	char* stuff[] = {
	414	"usage: fax2tiff [options] input.raw...",
	415	"where options are:",
	416	" -3 input data is G3-encoded [default]",
	417	" -4 input data is G4-encoded",
	418	" -U input data is uncompressed (G3 or G4)",
	419	" -1 input data is 1D-encoded (G3 only) [default]",
	420	" -2 input data is 2D-encoded (G3 only)",
	421	" -P input is not EOL-aligned (G3 only) [default]",
	422	" -A input is EOL-aligned (G3 only)",
	423	" -M input data has MSB2LSB bit order",
	424	" -L input data has LSB2MSB bit order [default]",
	425	" -B input data has min 0 means black",
	426	" -W input data has min 0 means white [default]",
	427	" -R # input data has # resolution (lines/inch) [default is 196]",
	428	" -X # input data has # width [default is 1728]",
	429	"",
	430	" -o out.tif write output to out.tif",
	431	" -7 generate G3-encoded output [default]",
	432	" -8 generate G4-encoded output",
	433	" -u generate uncompressed output (G3 or G4)",
	434	" -5 generate 1D-encoded output (G3 only)",
	435	" -6 generate 2D-encoded output (G3 only) [default]",
	436	" -p generate not EOL-aligned output (G3 only)",
	437	" -a generate EOL-aligned output (G3 only) [default]",
	438	" -c generate \"classic\" TIFF format",
	439	" -f generate TIFF Class F (TIFF/F) format [default]",
	440	" -m output fill order is MSB2LSB",
	441	" -l output fill order is LSB2MSB [default]",
	442	" -r # make each strip have no more than # rows",
	443	" -s stretch image by duplicating scanlines",
	444	" -v print information about conversion work",
	445	" -z generate LZW compressed output",
	446	NULL
	447	};
	448
	449	static void
	450	usage(void)
	451	{
	452	char buf[BUFSIZ];
	453	int i;
	454
	455	setbuf(stderr, buf);
	456	fprintf(stderr, "%s\n\n", TIFFGetVersion());
	457	for (i = 0; stuff[i] != NULL; i++)
	458	fprintf(stderr, "%s\n", stuff[i]);
	459	exit(EXIT_FAILURE);
	460	}
	461
	462	/* vim: set ts=8 sts=8 sw=8 noet: */