source: trunk/third/transcript/src/psbanner.bsd @ 9090

#ifndef lint
#define _NOTICE static char
_NOTICE N1[] = "Copyright (c) 1985,1987,1990,1991,1992 Adobe Systems Incorporated";
_NOTICE N2[] = "GOVERNMENT END USERS: See Notice file in TranScript library directory";
_NOTICE N3[] = "-- probably /usr/lib/ps/Notice";
_NOTICE RCSID[]="$Header: /afs/dev.mit.edu/source/repository/third/transcript/src/psbanner.bsd,v 1.1.1.1 1996-10-07 20:25:50 ghudson Exp $";
#endif
/* psbanner.c
 *
 * Copyright (C) 1985,1987,1990,1991,1992 Adobe Systems Incorporated. All
 * rights reserved. 
 * GOVERNMENT END USERS: See Notice file in TranScript library directory
 * -- probably /usr/lib/ps/Notice
 *
 * 4.2BSD lpr/lpd banner break page filter for PostScript printers
 * (formerly "psof" in TranScript release 1.0)
 *
 * psbanner is used ONLY to print the "break page" --
 * the job seperator/banner page; the "if" filter
 * which invokes (pscomm) MUST be in
 * the printcap database for handling communications.
 *
 * This filter does not actually print anything; it sends
 * nothing to the printer (stdout).  Instead, it writes a
 * file in the current working directory (which is the
 * spooling directory) called ".banner" which, depending
 * on the value of printer options BANNERFIRST and
 * BANNERLAST, may get printed by pscomm filter when
 * it is envoked.
 *
 * psbanner parses the standard input (the SHORT banner string)
 * into PostScript format as the argument to a "Banner"
 * PostScript procedure (defined in $BANNERPRO, from the environment)
 * which will set the job name on the printer and print a
 * banner-style job break page.
 *
 * NOTE that quoting characters into PostScript form is
 * necessary.
 *
 * psbanner gets called with:
 *      stdin   == the short banner string to print (see below)
 *      stdout  == the printer (not used here)
 *      stderr  == the printer log file
 *      argv    == (empty)
 *      cwd     == the spool directory
 *      env     == VERBOSELOG, BANNERPRO
 *
 * An example of the "short banner string" input is:
adobe:shore  Job: test.data  Date: Tue Sep 18 16:22:33 1984
^Y^A
 * where the ^Y^A are actual control characters signalling
 * the end of the banner input and the time to do SIGSTOP
 * ourselves so that the controlling lpd will
 * invoke the next filter. (N.B. this is, regretably, NOT
 * documented in any of the lpr/printcap/spooler manual pages.)
 *
 *
 * I have decided to let the PostScript side try to parse the
 * string if possible, since it's easier to change the PS code
 * then to do so in C.  If you don't like the way the
 * banner page looks, change the BANNERPRO file to
 * do something else.
 *
 * RCSLOG:
 * $Log: not supported by cvs2svn $
Revision 3.3  1992/08/21  16:26:32  snichols
Release 4.0

Revision 3.2  1992/07/14  22:50:34  snichols
Updated copyright.

 * Revision 3.1  1992/05/26  21:49:26  snichols
 * comments after endif
 * 
 * Revision 3.0  1991/06/17  16:50:45  snichols
 * Release 3.0
 * 
 * Revision 2.4  1991/03/25  23:13:19  snichols
 * made forward dec'l for DoBanner.
 * 
 * Revision 2.3  1990/12/12  10:04:49  snichols
 * new configuration stuff.
 * 
 * Revision 2.2  87/11/17  16:50:39  byron
 * *** empty log message ***
 * 
 * Revision 2.2  87/11/17  16:50:39  byron
 * Release 2.1
 * 
 * Revision 2.1.1.5  87/11/12  13:40:38  byron
 * Changed Government user's notice.
 * 
 * Revision 2.1.1.4  87/06/18  16:05:00  byron
 * Removed unlink of banner file from interrupt processing.  pscomm may
 * need it after the interrupt, and will delete it itself.
 * 
 * Revision 2.1.1.3  87/06/09  14:10:46  byron
 * Only do the .banner file if pscomm will use it.
 * Also, fixed a couple of bugs in the previous revision.
 * 
 * Revision 2.1.1.2  87/06/04  10:55:37  byron
 * Added error handling for banner buffer overflow.  Buffer could overflow
 * before, producing random (bad) problems and psbanner crashes.
 * 
 * Revision 2.1.1.1  87/04/23  10:25:48  byron
 * Copyright notice.
 * 
 * Revision 2.2  86/11/02  14:19:27  shore
 * Product Update
 * 
 * Revision 2.1  85/11/24  11:49:49  shore
 * Product Release 2.0
 * 
 * Revision 1.1  85/11/20  01:02:26  shore
 * Initial revision
 * 
 *
 */

#include <stdio.h>
#include <signal.h>
#include <strings.h>
#include "transcript.h"
#include "psspool.h"
#include "config.h"

#ifdef BDEBUG
#define debugp(x) fprintf x; fflush(stderr);
#else
#define debugp(x)
#endif /* BDEBUG */

private char    *prog;  /* invoking program name (i.e., psbanner) */
private char    *pname; /* intended printer ? */

#define BANBUFSIZE 500     /* Size of banner string input buffer */
private char    bannerbuf[BANBUFSIZE];  /* PS'd short banner string */
private int     bannerfull;     /* TRUE when bannerbuf is full */
private char    *verboselog;    /* do log file reporting (from env) */
private char    *bannerpro;     /* prolog file name (from env) */
private int     VerboseLog;
private int     dobanner;       /* True = We are printing banners */

private VOID    on_int();

static int DoBanner();

main(argc,argv)
        int argc;
        char *argv[];
{
    register int c;
    register char *bp;
    register FILE *in = stdin;
    int done = 0;
    char  *p;

    VOIDC signal(SIGINT, on_int);

    VOIDC fclose(stdout); /* we don't talk to the printer */
    prog = *argv; /* argv[0] == program name */
    pname = *(++argv);

    VerboseLog = 1;
    if (verboselog = envget("VERBOSELOG")) {
        VerboseLog = atoi(verboselog);
    }

    dobanner = 0;   /* Assume we will not be doing banners */
    p = envget("BANNERFIRST");
    if( p != NULL && atoi(p) != 0 ) dobanner = 1;
    p = envget("BANNERLAST");
    if( p != NULL && atoi(p) != 0 ) dobanner = 1;


    bannerpro = envget("BANNERPRO");

    bp = bannerbuf;
    bannerfull = 0;
    while (!done) {
        switch (c = getc (in)) {
            case EOF: /* this doesn't seem to happen */
                done = 1;
                break;
            case '\n':
            case '\f':
            case '\r': 
                break;
            case '\t': 
                if (!bannerfull) *bp++ = ' ';
                break;
            case '\\': case '\(': case '\)': /* quote chars for POSTSCRIPT */
                if (!bannerfull) {
                    *bp++ = '\\';
                    *bp++ = c;
                }
                break;
            case '\031': 
                if ((c = getc (in)) == '\1') {
                    *bp = '\0';
                    /* done, ship the banner line */
                    if (bp != bannerbuf) {
                        if(dobanner) DoBanner();  /* Do it if we will use it */
                        if (verboselog) {
                            fprintf(stderr, "%s: %s\n", prog, bannerbuf);
                            VOIDC fflush(stderr);
                        }
                    }
                    VOIDC kill (getpid (), SIGSTOP);
                    /* do we get continued for next job ? */
                    debugp((stderr,"%s: continued %d\n",
                        prog,bp == bannerbuf));
                    bp = bannerbuf;
                    *bp = '\0';
                    bannerfull = 0;
                    break;
                }
                else {
                    VOIDC ungetc(c, in);
                    if (!bannerfull) *bp++ = ' ';
                    break;
                }
            default:            /* simple text */
                if (!bannerfull) *bp++ = c;
                break;
        }
        if (!bannerfull && bp >= &bannerbuf[BANBUFSIZE-3]) {
            *bp++ = '\n'; *bp++ = '\0';
            fprintf (stderr,"%s: banner buffer overflow\n",prog);
            VOIDC fflush(stderr);
            bannerfull = 1;
        }
    }
 /* didn't expect to get here, just exit */
 debugp((stderr,"%s: done\n",prog));
 VOIDC unlink(".banner");
 exit (0);
}

static int DoBanner() {
    register FILE *out;
    
    if ((out = fopen(".banner","w")) == NULL) {
        fprintf(stderr,"%s: can't open .banner", prog);
        VOIDC fflush(stderr);
        exit (THROW_AWAY);
    }
    if (copyfile(bannerpro,out)) {
        /* error copying file, don't print a break page */
        fprintf(stderr,"%s: trouble writing .banner\n",prog);
        VOIDC fflush(stderr);
        VOIDC unlink(".banner");
        return;
    }
    fprintf(out, "(%s)(%s)Banner\n", pname, bannerbuf);
    VOIDC fclose(out);  /* this does a flush */
}

private VOID on_int() {
    /* NOTE: Let pscomm unlink banner -- it may want to use it */
    exit (THROW_AWAY);
}