/* $Id: fax2ps.c,v 1.27 2011-04-02 19:30:20 bfriesen Exp $" */

/*

* Copyright (c) 1991-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 <stdlib.h>

#include <stdio.h>

#include <string.h>

#include <math.h>

#include <time.h>

#ifdef HAVE_UNISTD_H

# include <unistd.h>

#endif

#ifdef HAVE_FCNTL_H

# include <fcntl.h>

#endif

#ifdef HAVE_IO_H

# include <io.h>

#endif

#ifdef NEED_LIBPORT

# include "libport.h"

#endif

#include "tiffio.h"

float defxres = 204.; /* default x resolution (pixels/inch) */

float defyres = 98.; /* default y resolution (lines/inch) */

const float half = 0.5;

const float points = 72.0;

float pageWidth = 0; /* image page width (inches) */

float pageHeight = 0; /* image page length (inches) */

int scaleToPage = 0; /* if true, scale raster to page dimensions */

int totalPages = 0; /* total # pages printed */

int row; /* current output row */

int maxline = 512; /* max output line of PostScript */

/*

* Turn a bit-mapped scanline into the appropriate sequence

* of PostScript characters to be rendered.

*

* Original version written by Bret D. Whissel,

* Florida State University Meteorology Department

* March 13-15, 1995.

*/

static void

printruns(unsigned char* buf, uint32* runs, uint32* erun, uint32 lastx)

{

static struct {

char white, black;

unsigned short width;

} WBarr[] = {

{ 'd', 'n', 512 }, { 'e', 'o', 256 }, { 'f', 'p', 128 },

{ 'g', 'q', 64 }, { 'h', 'r', 32 }, { 'i', 's', 16 },

{ 'j', 't', 8 }, { 'k', 'u', 4 }, { 'l', 'v', 2 },

{ 'm', 'w', 1 }

};

static char* svalue =

" !\"#$&'*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abc";

int colormode = 1; /* 0 for white, 1 for black */

uint32 runlength = 0;

int n = maxline;

uint32 x = 0;

int l;

(void) buf;

printf("%d m(", row++);

while (runs < erun) {

if (runlength <= 0) {

colormode ^= 1;

runlength = *runs++;

if (x+runlength > lastx)

runlength = runs[-1] = lastx-x;

x += runlength;

if (!colormode && runs == erun)

break; /* don't bother printing the final white run */

}

/*

* If a runlength is greater than 6 pixels, then spit out

* black or white characters until the runlength drops to

* 6 or less. Once a runlength is <= 6, then combine black

* and white runlengths until a 6-pixel pattern is obtained.

* Then write out the special character. Six-pixel patterns

* were selected since 64 patterns is the largest power of

* two less than the 92 "easily printable" PostScript

* characters (i.e., no escape codes or octal chars).

*/

l = 0;

while (runlength > 6) { /* Run is greater than six... */

if (runlength >= WBarr[l].width) {

if (n == 0) {

putchar('\n');

n = maxline;

}

putchar(colormode ? WBarr[l].black : WBarr[l].white), n--;

runlength -= WBarr[l].width;

} else

l++;

}

while (runlength > 0 && runlength <= 6) {

uint32 bitsleft = 6;

int t = 0;

while (bitsleft) {

if (runlength <= bitsleft) {

if (colormode)

t |= ((1 << runlength)-1) << (bitsleft-runlength);

bitsleft -= runlength;

runlength = 0;

if (bitsleft) {

if (runs >= erun)

break;

colormode ^= 1;

runlength = *runs++;

if (x+runlength > lastx)

runlength = runs[-1] = lastx-x;

x += runlength;

}

} else { /* runlength exceeds bits left */

if (colormode)

t |= ((1 << bitsleft)-1);

runlength -= bitsleft;

bitsleft = 0;

}

}

if (n == 0) {

putchar('\n');

n = maxline;

}

putchar(svalue[t]), n--;

}

}

printf(")s\n");

}

/*

* Create a special PostScript font for printing FAX documents. By taking

* advantage of the font-cacheing mechanism, a substantial speed-up in

* rendering time is realized.

*/

static void

emitFont(FILE* fd)

{

static const char* fontPrologue[] = {

"/newfont 10 dict def newfont begin /FontType 3 def /FontMatrix [1",

"0 0 1 0 0] def /FontBBox [0 0 512 1] def /Encoding 256 array def",

"0 1 31{Encoding exch /255 put}for 120 1 255{Encoding exch /255",

"put}for Encoding 37 /255 put Encoding 40 /255 put Encoding 41 /255",

"put Encoding 92 /255 put /count 0 def /ls{Encoding exch count 3",

"string cvs cvn put /count count 1 add def}def 32 1 36{ls}for",

"38 1 39{ls}for 42 1 91{ls}for 93 1 99{ls}for /count 100",

"def 100 1 119{ls}for /CharDict 5 dict def CharDict begin /white",

"{dup 255 eq{pop}{1 dict begin 100 sub neg 512 exch bitshift",

"/cw exch def cw 0 0 0 cw 1 setcachedevice end}ifelse}def /black",

"{dup 255 eq{pop}{1 dict begin 110 sub neg 512 exch bitshift",

"/cw exch def cw 0 0 0 cw 1 setcachedevice 0 0 moveto cw 0 rlineto",

"0 1 rlineto cw neg 0 rlineto closepath fill end}ifelse}def /numbuild",

"{dup 255 eq{pop}{6 0 0 0 6 1 setcachedevice 0 1 5{0 moveto",

"dup 32 and 32 eq{1 0 rlineto 0 1 rlineto -1 0 rlineto closepath",

"fill newpath}if 1 bitshift}for pop}ifelse}def /.notdef {}",

"def /255 {}def end /BuildChar{exch begin dup 110 ge{Encoding",

"exch get 3 string cvs cvi CharDict /black get}{dup 100 ge {Encoding",

"exch get 3 string cvs cvi CharDict /white get}{Encoding exch get",

"3 string cvs cvi CharDict /numbuild get}ifelse}ifelse exec end",

"}def end /Bitfont newfont definefont 1 scalefont setfont",

NULL

};

int i;

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

fprintf(fd, "%s\n", fontPrologue[i]);

}

void

printTIF(TIFF* tif, uint16 pageNumber)

{

uint32 w, h;

uint16 unit, compression;

float xres, yres, scale = 1.0;

tstrip_t s, ns;

time_t creation_time;

TIFFGetField(tif, TIFFTAG_IMAGELENGTH, &h);

TIFFGetField(tif, TIFFTAG_IMAGEWIDTH, &w);

if (!TIFFGetField(tif, TIFFTAG_COMPRESSION, &compression)

|| compression < COMPRESSION_CCITTRLE

|| compression > COMPRESSION_CCITT_T6)

return;

if (!TIFFGetField(tif, TIFFTAG_XRESOLUTION, &xres) || !xres) {

TIFFWarning(TIFFFileName(tif),

"No x-resolution, assuming %g dpi", defxres);

xres = defxres;

}

if (!TIFFGetField(tif, TIFFTAG_YRESOLUTION, &yres) || !yres) {

TIFFWarning(TIFFFileName(tif),

"No y-resolution, assuming %g lpi", defyres);

yres = defyres; /* XXX */

}

if (TIFFGetField(tif, TIFFTAG_RESOLUTIONUNIT, &unit) &&

unit == RESUNIT_CENTIMETER) {

xres *= 2.54F;

yres *= 2.54F;

}

if (pageWidth == 0)

pageWidth = w / xres;

if (pageHeight == 0)

pageHeight = h / yres;

printf("%%!PS-Adobe-3.0\n");

printf("%%%%Creator: fax2ps\n");

#ifdef notdef

printf("%%%%Title: %s\n", file);

#endif

creation_time = time(0);

printf("%%%%CreationDate: %s", ctime(&creation_time));

printf("%%%%Origin: 0 0\n");

printf("%%%%BoundingBox: 0 0 %u %u\n",

(int)(pageWidth * points), (int)(pageHeight * points)); /* XXX */

printf("%%%%Pages: (atend)\n");

printf("%%%%EndComments\n");

printf("%%%%BeginProlog\n");

emitFont(stdout);

printf("/d{bind def}def\n"); /* bind and def proc */

printf("/m{0 exch moveto}d\n");

printf("/s{show}d\n");

printf("/p{showpage}d \n"); /* end page */

printf("%%%%EndProlog\n");

printf("%%%%Page: \"%u\" %u\n", pageNumber, pageNumber);

printf("/$pageTop save def gsave\n");

if (scaleToPage)

scale = pageHeight / (h/yres) < pageWidth / (w/xres) ?

pageHeight / (h/yres) : pageWidth / (w/xres);

printf("%g %g translate\n",

points * (pageWidth - scale*w/xres) * half,

points * (scale*h/yres + (pageHeight - scale*h/yres) * half));

printf("%g %g scale\n", points/xres*scale, -points/yres*scale);

printf("0 setgray\n");

TIFFSetField(tif, TIFFTAG_FAXFILLFUNC, printruns);

ns = TIFFNumberOfStrips(tif);

row = 0;

for (s = 0; s < ns; s++)

(void) TIFFReadEncodedStrip(tif, s, (tdata_t) NULL, (tsize_t) -1);

printf("p\n");

printf("grestore $pageTop restore\n");

totalPages++;

}

#define GetPageNumber(tif) \

TIFFGetField(tif, TIFFTAG_PAGENUMBER, &pn, &ptotal)

int

findPage(TIFF* tif, uint16 pageNumber)

{

uint16 pn = (uint16) -1;

uint16 ptotal = (uint16) -1;

if (GetPageNumber(tif)) {

while (pn != (pageNumber-1) && TIFFReadDirectory(tif) && GetPageNumber(tif))

;

return (pn == (pageNumber-1));

} else

return (TIFFSetDirectory(tif, (tdir_t)(pageNumber-1)));

}

void

fax2ps(TIFF* tif, uint16 npages, uint16* pages, char* filename)

{

if (npages > 0) {

uint16 pn, ptotal;

int i;

if (!GetPageNumber(tif))

fprintf(stderr, "%s: No page numbers, counting directories.\n",

filename);

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

if (findPage(tif, pages[i]))

printTIF(tif, pages[i]);

else

fprintf(stderr, "%s: No page number %d\n", filename, pages[i]);

}

} else {

uint16 pageNumber = 0;

do

printTIF(tif, pageNumber++);

while (TIFFReadDirectory(tif));

}

}

#undef GetPageNumber

static int

pcompar(const void* va, const void* vb)

{

const int* pa = (const int*) va;

const int* pb = (const int*) vb;

return (*pa - *pb);

}

static void usage(int code);

int

main(int argc, char** argv)

{

extern int optind;

extern char* optarg;

uint16 *pages = NULL, npages = 0, pageNumber;

int c, dowarnings = 0; /* if 1, enable library warnings */

TIFF* tif;

while ((c = getopt(argc, argv, "l:p:x:y:W:H:wS")) != -1)

switch (c) {

case 'H': /* page height */

pageHeight = (float)atof(optarg);

break;

case 'S': /* scale to page */

scaleToPage = 1;

break;

case 'W': /* page width */

pageWidth = (float)atof(optarg);

break;

case 'p': /* print specific page */

pageNumber = (uint16)atoi(optarg);

if (pages)

pages = (uint16*) realloc(pages, (npages+1)*sizeof(uint16));

else

pages = (uint16*) malloc(sizeof(uint16));

pages[npages++] = pageNumber;

break;

case 'w':

dowarnings = 1;

break;

case 'x':

defxres = (float)atof(optarg);

break;

case 'y':

defyres = (float)atof(optarg);

break;

case 'l':

maxline = atoi(optarg);

break;

case '?':

usage(-1);

}

if (npages > 0)

qsort(pages, npages, sizeof(uint16), pcompar);

if (!dowarnings)

TIFFSetWarningHandler(0);

if (optind < argc) {

do {

tif = TIFFOpen(argv[optind], "r");

if (tif) {

fax2ps(tif, npages, pages, argv[optind]);

TIFFClose(tif);

} else

fprintf(stderr, "%s: Can not open, or not a TIFF file.\n",

argv[optind]);

} while (++optind < argc);

} else {

int n;

FILE* fd;

char buf[16*1024];

fd = tmpfile();

if (fd == NULL) {

fprintf(stderr, "Could not obtain temporary file.\n");

exit(-2);

}

#if defined(HAVE_SETMODE) && defined(O_BINARY)

setmode(fileno(stdin), O_BINARY);

#endif

while ((n = read(fileno(stdin), buf, sizeof (buf))) > 0)

write(fileno(fd), buf, n);

lseek(fileno(fd), 0, SEEK_SET);

#if defined(_WIN32) && defined(USE_WIN32_FILEIO)

tif = TIFFFdOpen(_get_osfhandle(fileno(fd)), "temp", "r");

#else

tif = TIFFFdOpen(fileno(fd), "temp", "r");

#endif

if (tif) {

fax2ps(tif, npages, pages, "<stdin>");

TIFFClose(tif);

} else

fprintf(stderr, "Can not open, or not a TIFF file.\n");

fclose(fd);

}

printf("%%%%Trailer\n");

printf("%%%%Pages: %u\n", totalPages);

printf("%%%%EOF\n");

return (0);

}

char* stuff[] = {

"usage: fax2ps [options] [input.tif ...]",

"where options are:",

" -w suppress warning messages",

" -l chars set maximum output line length for generated PostScript",

" -p page# select page to print (can use multiple times)",

" -x xres set default horizontal resolution of input data (dpi)",

" -y yres set default vertical resolution of input data (lpi)",

" -S scale output to page size",

" -W width set output page width (inches), default is 8.5",

" -H height set output page height (inches), default is 11",

NULL

};

static void

usage(int code)

{

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

}

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

/*

* Local Variables:

* mode: c

* c-basic-offset: 8

* fill-column: 78

* End:

*/