ref: 6ff5c10ffb06d10eee06f1d432f9cc4738496c07
dir: /sys/src/cmd/postscript/postprint/postprint.c/
/* * * postprint - PostScript translator for ASCII files. * * A simple program that translates ASCII files into PostScript. All it really * does is expand tabs and backspaces, handle character quoting, print text lines, * and control when pages are started based on the requested number of lines per * page. * * The PostScript prologue is copied from *prologue before any of the input files * are translated. The program expects that the following procedures are defined * in that file: * * setup * * mark ... setup - * * Handles special initialization stuff that depends on how the program * was called. Expects to find a mark followed by key/value pairs on the * stack. The def operator is applied to each pair up to the mark, then * the default state is set up. * * pagesetup * * page pagesetup - * * Does whatever is needed to set things up for the next page. Expects * to find the current page number on the stack. * * l * * string l - * * Prints string starting in the first column and then goes to the next * line. * * L * * mark string column string column ... L mark * * Prints each string on the stack starting at the horizontal position * selected by column. Used when tabs and spaces can be sufficiently well * compressed to make the printer overhead worthwhile. Always used when * we have to back up. * * LL * * mark string column string column ... LL mark * * Like L, but only used to prevent potential PostScript stack overflow * from too many string/column pairs. Stays on the current line. It will * not be needed often!! * * done * * done * * Makes sure the last page is printed. Only needed when we're printing * more than one page on each sheet of paper. * * Almost everything has been changed in this version of postprint. The program * is more intelligent, especially about tabs, spaces, and backspacing, and as a * result output files usually print faster. Output files also now conform to * Adobe's file structuring conventions, which is undoubtedly something I should * have done in the first version of the program. If the number of lines per page * is set to 0, which can be done using the -l option, pointsize will be used to * guess a reasonable value. The estimate is based on the values of LINESPP, * POINTSIZE, and pointsize, and assumes LINESPP lines would fit on a page if * we printed in size POINTSIZE. Selecting a point size using the -s option and * adding -l0 to the command line forces the guess to be made. * * Many default values, like the magnification and orientation, are defined in * the prologue, which is where they belong. If they're changed (by options), an * appropriate definition is made after the prologue is added to the output file. * The -P option passes arbitrary PostScript through to the output file. Among * other things it can be used to set (or change) values that can't be accessed by * other options. * */ #include <stdio.h> #include <signal.h> #include <ctype.h> #ifdef plan9 #define isascii(c) ((unsigned char)(c)<=0177) #endif #include <sys/types.h> #include <fcntl.h> #include "comments.h" /* PostScript file structuring comments */ #include "gen.h" /* general purpose definitions */ #include "path.h" /* for the prologue */ #include "ext.h" /* external variable declarations */ #include "postprint.h" /* a few special definitions */ char *optnames = "a:c:ef:l:m:n:o:p:r:s:t:x:y:A:C:E:J:L:P:R:DI"; char *prologue = POSTPRINT; /* default PostScript prologue */ char *formfile = FORMFILE; /* stuff for multiple pages per sheet */ int formsperpage = 1; /* page images on each piece of paper */ int copies = 1; /* and this many copies of each sheet */ int linespp = LINESPP; /* number of lines per page */ int pointsize = POINTSIZE; /* in this point size */ int tabstops = TABSTOPS; /* tabs set at these columns */ int crmode = 0; /* carriage return mode - 0, 1, or 2 */ int extended = TRUE; /* use escapes for unprintable chars */ int col = 1; /* next character goes in this column */ int line = 1; /* on this line */ int stringcount = 0; /* number of strings on the stack */ int stringstart = 1; /* column where current one starts */ Fontmap fontmap[] = FONTMAP; /* for translating font names */ char *fontname = "Courier"; /* use this PostScript font */ int page = 0; /* page we're working on */ int printed = 0; /* printed this many pages */ FILE *fp_in = stdin; /* read from this file */ FILE *fp_out = stdout; /* and write stuff here */ FILE *fp_acct = NULL; /* for accounting data */ /*****************************************************************************/ main(agc, agv) int agc; char *agv[]; { /* * * A simple program that translates ASCII files into PostScript. If there's more * than one input file, each begins on a new page. * */ argc = agc; /* other routines may want them */ argv = agv; prog_name = argv[0]; /* really just for error messages */ init_signals(); /* sets up interrupt handling */ header(); /* PostScript header and prologue */ options(); /* handle the command line options */ setup(); /* for PostScript */ arguments(); /* followed by each input file */ done(); /* print the last page etc. */ account(); /* job accounting data */ exit(x_stat); /* not much could be wrong */ } /* End of main */ /*****************************************************************************/ init_signals() { /* * * Makes sure we handle interrupts. * */ if ( signal(SIGINT, interrupt) == SIG_IGN ) { signal(SIGINT, SIG_IGN); signal(SIGQUIT, SIG_IGN); signal(SIGHUP, SIG_IGN); } else { signal(SIGHUP, interrupt); signal(SIGQUIT, interrupt); } /* End else */ signal(SIGTERM, interrupt); } /* End of init_signals */ /*****************************************************************************/ header() { int ch; /* return value from getopt() */ int old_optind = optind; /* for restoring optind - should be 1 */ /* * * Scans the option list looking for things, like the prologue file, that we need * right away but could be changed from the default. Doing things this way is an * attempt to conform to Adobe's latest file structuring conventions. In particular * they now say there should be nothing executed in the prologue, and they have * added two new comments that delimit global initialization calls. Once we know * where things really are we write out the job header, follow it by the prologue, * and then add the ENDPROLOG and BEGINSETUP comments. * */ while ( (ch = getopt(argc, argv, optnames)) != EOF ) if ( ch == 'L' ) prologue = optarg; else if ( ch == '?' ) error(FATAL, ""); optind = old_optind; /* get ready for option scanning */ fprintf(stdout, "%s", CONFORMING); fprintf(stdout, "%s %s\n", VERSION, PROGRAMVERSION); fprintf(stdout, "%s %s\n", DOCUMENTFONTS, ATEND); fprintf(stdout, "%s %s\n", PAGES, ATEND); fprintf(stdout, "%s", ENDCOMMENTS); if ( cat(prologue) == FALSE ) error(FATAL, "can't read %s", prologue); if ( DOROUND ) cat(ROUNDPAGE); fprintf(stdout, "%s", ENDPROLOG); fprintf(stdout, "%s", BEGINSETUP); fprintf(stdout, "mark\n"); } /* End of header */ /*****************************************************************************/ options() { int ch; /* return value from getopt() */ /* * * Reads and processes the command line options. Added the -P option so arbitrary * PostScript code can be passed through. Expect it could be useful for changing * definitions in the prologue for which options have not been defined. * * Although any PostScript font can be used, things will only work well for * constant width fonts. * */ while ( (ch = getopt(argc, argv, optnames)) != EOF ) { switch ( ch ) { case 'a': /* aspect ratio */ fprintf(stdout, "/aspectratio %s def\n", optarg); break; case 'c': /* copies */ copies = atoi(optarg); fprintf(stdout, "/#copies %s store\n", optarg); break; case 'e': /* obsolete - it's now always on */ extended = TRUE; break; case 'f': /* use this PostScript font */ fontname = get_font(optarg); fprintf(stdout, "/font /%s def\n", fontname); break; case 'l': /* lines per page */ linespp = atoi(optarg); break; case 'm': /* magnification */ fprintf(stdout, "/magnification %s def\n", optarg); break; case 'n': /* forms per page */ formsperpage = atoi(optarg); fprintf(stdout, "%s %s\n", FORMSPERPAGE, optarg); fprintf(stdout, "/formsperpage %s def\n", optarg); break; case 'o': /* output page list */ out_list(optarg); break; case 'p': /* landscape or portrait mode */ if ( *optarg == 'l' ) fprintf(stdout, "/landscape true def\n"); else fprintf(stdout, "/landscape false def\n"); break; case 'r': /* carriage return mode */ crmode = atoi(optarg); break; case 's': /* point size */ pointsize = atoi(optarg); fprintf(stdout, "/pointsize %s def\n", optarg); break; case 't': /* tabstops */ tabstops = atoi(optarg); break; case 'x': /* shift things horizontally */ fprintf(stdout, "/xoffset %s def\n", optarg); break; case 'y': /* and vertically on the page */ fprintf(stdout, "/yoffset %s def\n", optarg); break; case 'A': /* force job accounting */ case 'J': if ( (fp_acct = fopen(optarg, "a")) == NULL ) error(FATAL, "can't open accounting file %s", optarg); break; case 'C': /* copy file straight to output */ if ( cat(optarg) == FALSE ) error(FATAL, "can't read %s", optarg); break; case 'E': /* text font encoding */ fontencoding = optarg; break; case 'L': /* PostScript prologue file */ prologue = optarg; break; case 'P': /* PostScript pass through */ fprintf(stdout, "%s\n", optarg); break; case 'R': /* special global or page level request */ saverequest(optarg); break; case 'D': /* debug flag */ debug = ON; break; case 'I': /* ignore FATAL errors */ ignore = ON; break; case '?': /* don't understand the option */ error(FATAL, ""); break; default: /* don't know what to do for ch */ error(FATAL, "missing case for option %c\n", ch); break; } /* End switch */ } /* End while */ argc -= optind; /* get ready for non-option args */ argv += optind; } /* End of options */ /*****************************************************************************/ char *get_font(name) char *name; /* name the user asked for */ { int i; /* for looking through fontmap[] */ /* * * Called from options() to map a user's font name into a legal PostScript name. * If the lookup fails *name is returned to the caller. That should let you choose * any PostScript font, although things will only work well for constant width * fonts. * */ for ( i = 0; fontmap[i].name != NULL; i++ ) if ( strcmp(name, fontmap[i].name) == 0 ) return(fontmap[i].val); return(name); } /* End of get_font */ /*****************************************************************************/ setup() { /* * * Handles things that must be done after the options are read but before the * input files are processed. linespp (lines per page) can be set using the -l * option. If it's not positive we calculate a reasonable value using the * requested point size - assuming LINESPP lines fit on a page in point size * POINTSIZE. * */ writerequest(0, stdout); /* global requests eg. manual feed */ setencoding(fontencoding); fprintf(stdout, "setup\n"); if ( formsperpage > 1 ) { if ( cat(formfile) == FALSE ) error(FATAL, "can't read %s", formfile); fprintf(stdout, "%d setupforms\n", formsperpage); } /* End if */ fprintf(stdout, "%s", ENDSETUP); if ( linespp <= 0 ) linespp = LINESPP * POINTSIZE / pointsize; } /* End of setup */ /*****************************************************************************/ arguments() { /* * * Makes sure all the non-option command line arguments are processed. If we get * here and there aren't any arguments left, or if '-' is one of the input files * we'll translate stdin. * */ if ( argc < 1 ) text(); else { /* at least one argument is left */ while ( argc > 0 ) { if ( strcmp(*argv, "-") == 0 ) fp_in = stdin; else if ( (fp_in = fopen(*argv, "r")) == NULL ) error(FATAL, "can't open %s", *argv); text(); if ( fp_in != stdin ) fclose(fp_in); argc--; argv++; } /* End while */ } /* End else */ } /* End of arguments */ /*****************************************************************************/ done() { /* * * Finished with all the input files, so mark the end of the pages with a TRAILER * comment, make sure the last page prints, and add things like the PAGES comment * that can only be determined after all the input files have been read. * */ fprintf(stdout, "%s", TRAILER); fprintf(stdout, "done\n"); fprintf(stdout, "%s %s\n", DOCUMENTFONTS, fontname); fprintf(stdout, "%s %d\n", PAGES, printed); } /* End of done */ /*****************************************************************************/ account() { /* * * Writes an accounting record to *fp_acct provided it's not NULL. Accounting is * requested using the -A or -J options. * */ if ( fp_acct != NULL ) fprintf(fp_acct, " print %d\n copies %d\n", printed, copies); } /* End of account */ /*****************************************************************************/ text() { int ch; /* next input character */ /* * * Translates *fp_in into PostScript. Intercepts space, tab, backspace, newline, * return, and formfeed. Everything else goes to oput(), which handles quoting * (if needed) and escapes for nonascii characters if extended is TRUE. The * redirect(-1) call forces the initial output to go to /dev/null - so stuff * that formfeed() does at the end of each page goes to /dev/null rather than * the real output file. * */ redirect(-1); /* get ready for the first page */ formfeed(); /* force PAGE comment etc. */ while ( (ch = getc(fp_in)) != EOF ) switch ( ch ) { case '\n': newline(); break; case '\t': case '\b': case ' ': spaces(ch); break; case '\014': formfeed(); break; case '\r': if ( crmode == 1 ) spaces(ch); else if ( crmode == 2 ) newline(); break; default: oput(ch); break; } /* End switch */ formfeed(); /* next file starts on a new page? */ } /* End of text */ /*****************************************************************************/ formfeed() { /* * * Called whenever we've finished with the last page and want to get ready for the * next one. Also used at the beginning and end of each input file, so we have to * be careful about what's done. The first time through (up to the redirect() call) * output goes to /dev/null. * * Adobe now recommends that the showpage operator occur after the page level * restore so it can be easily redefined to have side-effects in the printer's VM. * Although it seems reasonable I haven't implemented it, because it makes other * things, like selectively setting manual feed or choosing an alternate paper * tray, clumsy - at least on a per page basis. * */ if ( fp_out == stdout ) /* count the last page */ printed++; endline(); /* print the last line */ fprintf(fp_out, "cleartomark\n"); fprintf(fp_out, "showpage\n"); fprintf(fp_out, "saveobj restore\n"); fprintf(fp_out, "%s %d %d\n", ENDPAGE, page, printed); if ( ungetc(getc(fp_in), fp_in) == EOF ) redirect(-1); else redirect(++page); fprintf(fp_out, "%s %d %d\n", PAGE, page, printed+1); fprintf(fp_out, "/saveobj save def\n"); fprintf(fp_out, "mark\n"); writerequest(printed+1, fp_out); fprintf(fp_out, "%d pagesetup\n", printed+1); line = 1; } /* End of formfeed */ /*****************************************************************************/ newline() { /* * * Called when we've read a newline character. The call to startline() ensures * that at least an empty string is on the stack. * */ startline(); endline(); /* print the current line */ if ( ++line > linespp ) /* done with this page */ formfeed(); } /* End of newline */ /*****************************************************************************/ spaces(ch) int ch; /* next input character */ { int endcol; /* ending column */ int i; /* final distance - in spaces */ /* * * Counts consecutive spaces, tabs, and backspaces and figures out where the next * string should start. Once that's been done we try to choose an efficient way * to output the required number of spaces. The choice is between using procedure * l with a single string on the stack and L with several string and column pairs. * We usually break even, in terms of the size of the output file, if we need four * consecutive spaces. More means using L decreases the size of the file. For now * if there are less than 6 consecutive spaces we just add them to the current * string, otherwise we end that string, follow it by its starting position, and * begin a new one that starts at endcol. Backspacing is always handled this way. * */ startline(); /* so col makes sense */ endcol = col; do { if ( ch == ' ' ) endcol++; else if ( ch == '\t' ) endcol += tabstops - ((endcol - 1) % tabstops); else if ( ch == '\b' ) endcol--; else if ( ch == '\r' ) endcol = 1; else break; } while ( ch = getc(fp_in) ); /* if ch is 0 we'd quit anyway */ ungetc(ch, fp_in); /* wasn't a space, tab, or backspace */ if ( endcol < 1 ) /* can't move past left edge */ endcol = 1; if ( (i = endcol - col) >= 0 && i < 6 ) for ( ; i > 0; i-- ) oput((int)' '); else { endstring(); col = stringstart = endcol; } /* End else */ } /* End of spaces */ /*****************************************************************************/ startline() { /* * * Called whenever we want to be certain we're ready to start pushing characters * into an open string on the stack. If stringcount is positive we've already * started, so there's nothing to do. The first string starts in column 1. * */ if ( stringcount < 1 ) { putc('(', fp_out); stringstart = col = 1; stringcount = 1; } /* End if */ } /* End of startline */ /*****************************************************************************/ endstring() { /* * * End the current string and start a new one. * */ if ( stringcount > 100 ) { /* don't put too much on the stack */ fprintf(fp_out, ")%d LL\n(", stringstart-1); stringcount = 2; /* kludge - don't let endline() use l */ } else { fprintf(fp_out, ")%d(", stringstart-1); stringcount++; } /* End else */ } /* End of endstring */ /*****************************************************************************/ endline() { /* * * Generates a call to the PostScript procedure that processes all the text on * the stack - provided stringcount is positive. If one string is on the stack * the fast procedure (ie. l) is used to print the line, otherwise the slower * one that processes string and column pairs is used. * */ if ( stringcount == 1 ) fprintf(fp_out, ")l\n"); else if ( stringcount > 1 ) fprintf(fp_out, ")%d L\n", stringstart-1); stringcount = 0; } /* End of endline */ /*****************************************************************************/ oput(ch) int ch; /* next output character */ { /* * * Responsible for adding all printing characters from the input file to the * open string on top of the stack. * */ if ( isascii(ch) && isprint(ch) ) { startline(); if ( ch == '(' || ch == ')' || ch == '\\' ) putc('\\', fp_out); putc(ch, fp_out); col++; } else if ( extended == TRUE ) { startline(); fprintf(fp_out, "\\%.3o", ch & 0377); col++; } /* End if */ } /* End of oput */ /*****************************************************************************/ redirect(pg) int pg; /* next page we're printing */ { static FILE *fp_null = NULL; /* if output is turned off */ /* * * If we're not supposed to print page pg, fp_out will be directed to /dev/null, * otherwise output goes to stdout. * */ if ( pg >= 0 && in_olist(pg) == ON ) fp_out = stdout; else if ( (fp_out = fp_null) == NULL ) fp_out = fp_null = fopen("/dev/null", "w"); } /* End of redirect */ /*****************************************************************************/