5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * CDDL HEADER START
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * The contents of this file are subject to the terms of the
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * Common Development and Distribution License, Version 1.0 only
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * (the "License"). You may not use this file except in compliance
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * with the License.
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
dff2cc5646d4437ab9e0cb1dcb59da65462a5938jeff.schenk * See the License for the specific language governing permissions
dff2cc5646d4437ab9e0cb1dcb59da65462a5938jeff.schenk * and limitations under the License.
dff2cc5646d4437ab9e0cb1dcb59da65462a5938jeff.schenk * When distributing Covered Code, include this CDDL HEADER in each
dff2cc5646d4437ab9e0cb1dcb59da65462a5938jeff.schenk * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
dff2cc5646d4437ab9e0cb1dcb59da65462a5938jeff.schenk * If applicable, add the following below this CDDL HEADER, with the
dff2cc5646d4437ab9e0cb1dcb59da65462a5938jeff.schenk * fields enclosed by brackets "[]" replaced with your own identifying
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * information: Portions Copyright [yyyy] [name of copyright owner]
dff2cc5646d4437ab9e0cb1dcb59da65462a5938jeff.schenk * CDDL HEADER END
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * Use is subject to license terms.
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk/* All Rights Reserved */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk#pragma ident "%Z%%M% %I% %E% SMI"
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * PostScript picture inclusion routines. Support for managing in-line pictures
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * has been added, and works in combination with the simple picpack pre-processor
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * that's supplied with this package. An in-line picture begins with a special
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * device control command that looks like,
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * x X InlinPicture name size
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * where name is the pathname of the original picture file and size is the number
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * of bytes in the picture, which begins immediately on the next line. When dpost
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * encounters the InlinePicture device control command inlinepic() is called and
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * that routine appends the string name and the integer size to a temporary file
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * (fp_pic) and then adds the next size bytes read from the current input file to
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * file fp_pic. All in-line pictures are saved in fp_pic and located later using
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * the name string and picture file size that separate pictures saved in fp_pic.
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * When a picture request (ie. an "x X PI" command) is encountered picopen() is
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * called and it first looks for the picture file in fp_pic. If it's found there
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * the entire picture (ie. size bytes) is copied from fp_pic to a new temp file
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * and that temp file is used as the picture file. If there's nothing in fp_pic
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * or if the lookup failed the original route is taken.
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * Support for in-line pictures is an attempt to address requirements, expressed
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * by several orginazations, of being able to store a document as a single file
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * (usually troff input) that can then be sent through dpost and ultimately to
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * a PostScript printer. The mechanism may help some users, but the are obvious
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * disadvantages to this approach, and the original mechanism is the recommended
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * approach! Perhaps the most important problem is that troff output, with in-line
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * pictures included, doesn't fit the device independent language accepted by
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * important post-processors (like proff) and that means you won't be able to
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * reliably preview a packed file on your 5620 (or whatever).
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk#include "comments.h" /* PostScript file structuring comments */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk#include "gen.h" /* general purpose definitions */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk#include "path.h" /* just for TEMPDIR definition */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenkFILE *fp_pic = NULL; /* in-line pictures go here */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk/*****************************************************************************/
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk /* stuff following 'x X PI' command */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk char name[100]; /* picture file and page string */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk char hwo[40], *p; /* height, width and offset strings */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk int page = 1; /* page number pulled from name[] */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk double frame[4]; /* height, width, y, and x offsets from hwo[] */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk char units; /* scale indicator for frame dimensions */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk int outline = 0; /* draw a box around the picture? */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk double rot = 0; /* rotation in clockwise degrees */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk int i; /* loop index */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * Called from devcntrl() after an 'x X PI' command is found. The syntax of that
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * command is:
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * x X PI:args
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * with args separated by colons and given by:
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * file[(page)]
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * height[,width[,yoffset[,xoffset]]]
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * poffset, indent, length, and totrap are given in machine units. height, width,
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * and offset refer to the picture frame in inches, unless they're followed by
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * the u scale indicator. flags is a string that provides a little bit of control
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * over the placement of the picture in the frame. Rotation of the picture, in
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * clockwise degrees, is set by the a flag. If it's not followed by an angle
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * the current rotation angle is incremented by 90 degrees, otherwise the angle
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk * is set by the number that immediately follows the a.
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk if ( sscanf(buf, "%d:%d:%d:%d:%[^:]:%[^:]:%[^:]", &poffset, &indent,
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk error(NON_FATAL, "too few arguments to specify picture");
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk } /* End if */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk if ( sscanf(name, "%*[^(](%d", &page) == 1 ) /* grab the page number */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk strtok(name, "("); /* and separate it from the name */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk error(NON_FATAL, "can't open picture file %s", name);
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk } /* End if */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk frame[0] = frame[1] = -1; /* default frame height, width */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk frame[2] = frame[3] = 0; /* and y and x offsets */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk for ( i = 0, p = hwo-1; i < 4 && p != NULL; i++, p = strchr(p, ',') )
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk if ( sscanf(++p, "%lf%c", &frame[i], &units) == 2 )
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk if ( units == 'i' || units == ',' || units == '\0' )
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk if ( frame[0] <= 0 ) /* check what we got for height */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk if ( frame[1] <= 0 ) /* and width - check too big?? */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk frame[3] += poffset + indent; /* real x offset */
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk for ( i = 0; flags[i]; i++ )
5b64d5d44892834ba97f003080f3467299b7c5c5jeff.schenk switch ( flags[i] ) {
t_sf();
FILE *
return(fp);
for ( i = 0; i < total; i++ )