/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
/*	  All Rights Reserved  	*/

/*
 *
 * Picture inclusion code for PostScript printers.
 *
 */


#include <stdio.h>
#include "ps_include.h"


#define	var(x)		fprintf(fout, "/%s %g def\n", #x, x)
#define	has(word)	(strncmp(buf, word, strlen(word)) == 0)
#define	grab(n)		((Section *)(nglobal \
			? realloc((char *)global, n * sizeof (Section)) \
			: calloc(n, sizeof (Section))))


char	buf[512];
typedef struct {
	long start;
	long end;
} Section;

extern char	*calloc(), *realloc();

static void print(FILE *, char **);
static void copy(FILE *, FILE *, Section *);


/*
 * fin, fout - input and output files
 * page_no physical page number from *fin
 * whiteout - erase picture area
 * outline - draw a box around it and
 * scaleboth - scale both dimensions - if not zero
 * cx, cy - center of the picture and
 * sx, sy - its size - in current coordinates
 * ax, ay - left-right, up-down adjustment
 * rot - rotation - in clockwise degrees
 */
void
ps_include(FILE *fin, FILE *fout, int page_no, int whiteout,
    int outline, int scaleboth, double cx, double cy,
    double sx, double sy, double ax, double ay, double rot)
{
	/* found the page when non zero */
	int		foundpage = 0;
	/* number of global defs so far */
	int		nglobal = 0;
	/* and the number we've got room for */
	int		maxglobal = 0;
	/* prologue, page, and trailer offsets */
	Section		prolog, page, trailer;
	/* offsets for all global definitions */
	Section		*global;
	/* lower left and */
	double		llx, lly;
	/* upper right corners - default coords */
	double		urx, ury;
	/* mostly for the var() macro */
	double		w = whiteout != 0;
	double		o = outline != 0;
	double		s = scaleboth != 0;
	int		i;


	/*
	 *
	 * Reads a PostScript file (*fin), and uses structuring comments to
	 * locate the prologue, trailer, global definitions, and the requested
	 * page. After the whole file is scanned, the special ps_include
	 * PostScript definitions are copied to *fout, followed by the
	 * prologue, global definitions, the requested page, and the
	 * trailer. Before returning the initial environment (saved in
	 * PS_head) is restored.
	 *
	 * By default we assume the picture is 8.5 by 11 inches, but the
	 * BoundingBox comment, if found, takes precedence.
	 *
	 */

	/* default BoundingBox - 8.5x11 inches */
	llx = lly = 0;
	urx = 72 * 8.5;
	ury = 72 * 11.0;

	/* section boundaries and bounding box */

	prolog.start = prolog.end = 0;
	page.start = page.end = 0;
	trailer.start = 0;
	fseek(fin, 0L, 0);

	while (fgets(buf, sizeof (buf), fin) != NULL)
		if (!has("%%"))
			continue;
		else if (has("%%Page: ")) {
			if (!foundpage)
				page.start = ftell(fin);
			sscanf(buf, "%*s %*s %d", &i);
			if (i == page_no)
				foundpage = 1;
			else if (foundpage && page.end <= page.start)
				page.end = ftell(fin);
		} else if (has("%%EndPage: ")) {
			sscanf(buf, "%*s %*s %d", &i);
			if (i == page_no) {
				foundpage = 1;
				page.end = ftell(fin);
			}
			if (!foundpage)
				page.start = ftell(fin);
		} else if (has("%%BoundingBox:"))
			sscanf(buf, "%%%%BoundingBox: %lf %lf %lf %lf",
			    &llx, &lly, &urx, &ury);
		else if (has("%%EndProlog") || has("%%EndSetup") ||
		    has("%%EndDocumentSetup"))
			prolog.end = page.start = ftell(fin);
		else if (has("%%Trailer"))
			trailer.start = ftell(fin);
		else if (has("%%BeginGlobal")) {
			if (page.end <= page.start) {
				if (nglobal >= maxglobal) {
					maxglobal += 20;
					global = grab(maxglobal);
				}
				global[nglobal].start = ftell(fin);
			}
		} else if (has("%%EndGlobal"))
			if (page.end <= page.start)
				global[nglobal++].end = ftell(fin);

	fseek(fin, 0L, 2);
	if (trailer.start == 0)
		trailer.start = ftell(fin);
	trailer.end = ftell(fin);

	if (page.end <= page.start)
		page.end = trailer.start;

	/* all output here */
	print(fout, PS_head);
	var(llx); var(lly); var(urx); var(ury); var(w); var(o); var(s);
	var(cx); var(cy); var(sx); var(sy); var(ax); var(ay); var(rot);
	print(fout, PS_setup);
	copy(fin, fout, &prolog);
	for (i = 0; i < nglobal; i++)
		copy(fin, fout, &global[i]);
	copy(fin, fout, &page);
	copy(fin, fout, &trailer);
	print(fout, PS_tail);

	if (nglobal)
		free(global);

}

static void
print(FILE *fout, char **s)
{
	while (*s)
		fprintf(fout, "%s\n", *s++);
}

static void
copy(FILE *fin, FILE *fout, Section *s)
{
	if (s->end <= s->start)
		return;
	fseek(fin, s->start, 0);
	while (ftell(fin) < s->end && fgets(buf, sizeof (buf), fin) != NULL)
		if (buf[0] != '%')
			fprintf(fout, "%s", buf);
}