ps_include.c revision cf94e433b5f7949f0e0805e266b0f44ae81a6f77
/*
* 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);
}