/*
 * 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);
}