/*-------------------------------------------------------------------- *Program (file) name: printPS.c *Copyright: */ static char *last_mod = "(C) 1991-2004, Miroslav Kolar (October 28, 2004 version)"; /*Purpose: To prepare ASCII files for printing on POSTSCRIPT printers. *-------------------------------------------------------------------- *Author: http://mkolar.org/ *Formerly: http://www.pangea.ca/~kolar/software/printPS.html *License, no warranty - see below *-------------------------------------------------------------------- Compilation: UNIX: cc -O -o printPS printPS.c gcc -s -O -o printPS printPS.c cc -fast -arch host -tune host -o printPS printPS.c (DIGITAL) etc. MS C: QCL /AS /Ot printps.c VMS: CC/names=AS_IS/OPTIMIZE PRINTPS.C CC/names=AS_IS/OPTIMIZE/define=NO_TIME_ZONE PRINTPS.C (see below) Then type 'printPS -help' to get all the information about the program. If the time-zone part of the file's last-modification time is not desired as part of the file's header (or if tz name is not properly defined as may often be the case on VMS), compile with -DNO_TIME_ZONE option (UNIX) or /DNO_TIME_ZONE (MS C) or /define=NO_TIME_ZONE (VMS). (If you are getting incorrect (Pacific) time zone in MS C, set properly the TZ environment variable, e.g., set TZ=CST6CDT.) On VMS the case of all variables must be preserved during compilation: the switch /names=AS_IS must be used with DECC and VAXC compilers. Some stand-alone printers (e.g., Apple Laserwriter) require that a PostScript job be terminated with the "quit" commad. In such a case, compile with the name QUIT_PRINTER defined (-DQUIT_PRINTER, etc.). */ /* #define DEBUG */ /* Return code: 0 = successful completion 1 = illegal command line options encountered -1 = getcwd failed -2 = no file processed -3 : DATALEN too small -4 : output file could not be opened (non UNIX only) */ /* ----------------- LICENSE: 1. You may copy and distribute verbatim copies of this source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy the following copyright notice Copyright 1991-2000 Miroslav Kolar and keep intact the notice on all files that refer to this License Agreement and to the absence of any warranty; and give any other recipient of the program a copy of this License Agreement along with the program. 2. You may modify your copies of this code, and copy and distribute such modifications under the terms of Par. 1 above, provided that you also: * cause the modified files to carry prominent notices stating that you changed the files and the date of any change; and * cause the whole of any work that you distribute or publish, that in whole or in part contains or is a derivative of this program or any part thereof, to be licensed at no charge to all third parties on terms identical to those contained in this License Agreement (except that you may choose to grant more extensive warranty protection to any third party, at your option, possibly in exchange for a fee). Mere aggregation of another unrelated program with this program (or its derivative) on a volume of storage or distribution medium does not bring the other program under the scope of these terms. 3. You may copy and distribute this code (or a portion or derivative of it, under Par. 2) in object code or executable form under the terms of Paragraphs 1 and 2 above provided that you also accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Par's 1 and 2 above. 4. You may not copy, sublicense, distribute or transfer this code except as expressly provided under this License Agreement. If you do so, your rights to use the program under this License Agreement shall be automatically terminated. ABSOLUTELY NO WARRANTY IS PROVIDED. THIS PROGRAM IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. SHOULD THIS PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. IN NO EVENT WILL THE AUTHOR AND/OR ANY OTHER PARTY WHO MAY MODIFY AND REDISTRIBUTE THIS PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR ANY DAMAGES. */ /*---------------------------------------------------------------------- Changes: Dec. 1992, M.K.: Option -K2 added for printing of multiple files on both sides of paper Nov. 1993, M.K.: Printing of sub/superscripts added Nov. 1994, M.K.: Header generation improved, different font for headers; Helvetica fonts added; -4port mode added Aug. 1995, M.K.: PC (MS C) version added, with output to a .ps file Sep. 1995, M.K.: Option -K2 removed, instead options -port2, -land2, -2land2, -4port2, -portT, -landT, -2landT, -4portT, -port1, -land1, -2land1, -4port1 added to enable switching of one/twosided printing between files Nov. 1995, M.K.: Output to a .ps file also in the VMS version; need for DCL procedures eliminated Apr. 1996, M.K.: Made compilable under HP-UX May 1996, M.K.: Corrected error involving a parenthesis following a backspace; improved treatment of backspacing especially for Courier fonts Oct. 1996, M.K.: Added AvantGarde-Book font July 1997, M.K.: Added -sson/-ssoff options to switch off sub/superscripts capability when needed May 1998, M.K.: Added #ifdefs for the GNU gcc compiler Nov. 1998, M.K.: Changed default orientation to -port2 (got eyglasses; started to prefer larger letters :-)); added DEFduplex, DEFtumble macros Oct. 1999, M.K.: Added %%Page: line before each physical page to have all the pages displayed in GhostScript; also more code beautification done Mar. 2000, M.K.: Y2K'd; options -y2 -yA added Apr. 2000, M.K.: _Corrected error involving BCKSP: previously was not set if backspace was encountered in initial pages of the first file that were skipped due to -sXXX option; _Improved weeding out illegal command line values; _More DSC comments added (but (i) psview and Ghostscript seem to have problems with certain page aspect ratios, different for each one, no matter what DSC version number X.x one uses for the initial %!PS-Adobe-X.x line; (ii) printPS was designed so that physical pages may not be completely independent if more than one file is processed, and then may not be rendered correctly when viewed in screen viewers in ARBITRARY order); _Corrected layout for extreme sizes of header/text fonts; _Corrected error involving line truncation within a TAB; _Line continuation mark printing removed if -numOn and -wr . July 2000, M.K.: Time zone patch for CYGWIN32 gcc compiler added (for MS Windows 95/NT) April 2002, M.K.: sys_errlist not awailable in Cygwin V1.1.3 ??? November 2002, M.K.: but sys_errlist awailable in Cygwin V1.3.15 October 2004, M.K.: added ISO Latin1 and ISO Latin2 encodings ----------------------------------------------------------------------*/ #if defined(MSDOS) || defined(_Windows) #define _PC_ #endif #if defined(vms) || defined(VMS) #define _VMS #endif #if defined(_PC_) || defined(_VMS) #define NOTUNIX #endif #include #include #include #include #include #ifndef _VMS #include #include #include #else #include #include #endif #ifdef _PC_ #include #else #include #endif /*--------------------------------------------------------------------------- See the help() function or type 'printPS -help' after compilation to get additional information about the printPS, especially on handling of control characters. Usage on UNIX, PC: printPS or printPS -help (to get help) printPS [_o_p_t_i_o_n_s] [-] _f_i_l_e [[_o_p_t_i_o_n_s] [-] _f_i_l_e ...] [-] [|lpr -P_p_r_i_n_t_e_r] - (if last argument) ... process standard input (On a PC output is put into the file 'first_file_name'.ps) Usage on VMS: Image/ProcName or Image/ProcName -help (to get help) Image/ProcName [_o_p_t_i_o_n_s] _f_i_l_e [[_o_p_t_i_o_n_s] _f_i_l_e ...] options: {-A4 -LTR} -s_F_i_r_s_t_p_a_g_e -e_L_a_s_t_p_a_g_e {_O_r_i_e_n_t_a_t_i_o_n} {-wr -tr} {-sson -ssoff} {-dh -H_H_e_a_d_e_r -noH} {-bxon -bxoff} -fn_F_o_n_t -fh_F_o_n_t -lines_L_i_n_e_s {-numon -numoff} {-Ig -Sp -Sh -ShAll} -cp_C_o_p_i_e_s {-y2 -yA} {-enc_E_n_c_o_d_i_n_g_} All options are in fact case-insensitive except for -H_H_e_a_d_e_r _O_r_i_e_n_t_a_t_i_o_n: of the the following 12 (16) options: One sided printing: -port1 (portrait) -land1 (landscape) -2land1 (two-up (2x1) landscape mode) -4port1 (2x2 portrait mode) The same for two sided printing (flip about the long edge of paper): -port2, -land2, -2land2, -4port2 Two sided printing with flip about the short edge of paper (tumble): -portT, -landT, -2landT, -4portT Abbreviations for the expected most frequent use: -port is the same as -port2 -land " -landT -2land " -2landT -4port " -4port2 Long lines: -tr ... truncate; -wr ... wrap around (has effect for the Courier fonts only) -dh ... use default header made of file name and last modification time _H_e_a_d_e_r = user supplied header string -noH ... no header line printed -bxoff/on ... (do not) draw box around each page -fn ... font for the main text -fh ... font for headers Both fonts can be one of the following: _F_o_n_t = # ... Courier (# is the height in points - B# ... Courier-Bold an arbitrary positive number; O# ... Courier-Oblique 72 points = 1 inch) BO# ... Courier-BoldOblique H# ... Helvetica HB# ... Helvetica-Bold HO# ... Helvetica-Oblique HBO# ... Helvetica-BoldOblique A# ... AvantGarde-Book _L_i_n_e_s = maximum number of lines on each page -numoff/on ... (do not) print line numbers _C_o_p_i_e_s = number of copies to be printed Paper size: -A4 ; -LTR (8.5" x 11") (must appear before 1st file name) Control characters: -Ig (ignore), -Sp (replace by spaces), -Sh (show most of them), -ShAll (show all of them) Sub/superscripts: -sson/off (has effect only with -Ig, -Sp and -Sh _E_n_c_o_d_i_n_g_: Standard, Latin1, Latin2 (must appear before 1st file name) Defaults: -cp1 -s1 -e0 (means print till the end of file) -lines0 (calculate reasonable default for each font height) -OR[DEForient] (default orientation) -dh/-H_H_e_a_d_e_r ... DEFheaderOn = 1 -noH ... DEFheaderOn = 0 -TR[DEFtrunc] (truncation/wrapping) -CNTRL[DEFconvert] (control character rendering) -PAPER[DEFpaper] (paper format) -bxNFF[DEFbox] (box) -numNFF[DEFnumOn] (line numbers) -ssNFF[DEFssOn] (sub/superscripts) -fn'font_n_s[DEFfont]DEFheight' (for -port and -land orientations) -fn'font_n_s[DEFfont]DEFaHeight' (for -2land and -4port) -fh'font_n_s[DEFHfont]DEFHheight' -y2 ... DEFyear2 = 1 (last 2 digits of year in the header) -yA ... DEFyear2 = 0 (all digits of year in the header) -ENC[DEFenc] (encoding) 'printPS' or 'printPS -help' will print the current defaults. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Defaults can be reset by changing the following definitions: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! */ #define DEFfont 0 #define DEFheight 9. #define DEFHfont 4 #define DEFHheight 8. #define DEFaHeight 7. #define DEForient 0 #define DEFduplex 1 #define DEFtumble 0 #define DEFtrunc 0 #define DEFbox 1 #define DEFnumOn 0 #define DEFheaderOn 1 #define DEFconvert 0 #define DEFpaper 1 #define DEFssOn 0 #define DEFyear2 1 #define DEFenc 1 /* Here the values can be: DEFfont, DEFHfont: 0 = Courier / / 1 = Courier-Bold / / 2 = Courier-Oblique / / 3 = Courier-BoldOblique text header 4 = Helvetica 5 = Helvetica-Bold 6 = Helvetica-Oblique 7 = Helvetica-BoldOblique 8 = AvantGarde-Book font heights: DEFheight (text for -port and -land), DEFaHeight (text for -2land and -4port) and DEFHheight (header) are all in points DEForient: 0 = -port, 1 = -land, 2 = -2land, 3 = -4port DEFduplex: 0 = 1-sided printing, 1 = 2-sided printig DEFtumble: 0 = flip along the long side, 1 = along the short side (for duplex) DEFtrunc: 0 = -wr, 1 = -tr DEFbox: 0 = -bxon, 1 = -bxoff DEFnumOn: 0 = -numon, 1 = -numoff DEFheaderOn: 0 = -noH (only page #s), 1 = -dh or -H (page #s and file name or supplied header) DEFconvert: 0 = -Ig, 1 = -Sp, 2 = -Sh, 3 = -ShAll DEFpaper: 0 = -A4, 1 = -LTR DEFssOn: 0 = -ssoff, 1 = -sson DEFyear2: 0 = -yA, 1 = -y2 DEFenc: 0 = Standard, 1 = Latin1, 2 = Latin2 Example of usage of this program under UNIX: printPS -4port -e5 -fnB16.5 - -a -s3 -H graph.c -HDATA fil3 (print first 5 pages of the file -a and pages 3 to 5 of graph.c and fil3) ---------------------------------------------------------------------------*/ /* Page dimensions (in points): * ..WIDTH and ..HEIGHT are the dimensions of the area to be filled with text */ #define MARGINpX 58 #define MARGINpY 42 #define MARGINlX 45 #define MARGINlY 59 /* A4 format: */ #define A4HEIGHT 737 #define A4WIDTH 490 #define A4paperHEIGHT 841 #define A4paperWIDTH 595 /* letter (8.5" x 11"): */ #define LTRHEIGHT 687 #define LTRWIDTH 505 #define LTRpaperHEIGHT 792 #define LTRpaperWIDTH 612 #ifdef NOTUNIX #define PF (void)(*printProc)(psfile, #define PCh(x) (void)(*putProc)(x,psfile) #define PH (void)fprintf(stdout, #else #define PF (void)(*printProc)(stdout, #define PCh(x) (void)(*putProc)(x,stdout) #define PH (void)fprintf(stderr, #endif #define PE (void)fprintf(stderr, #define STRLEN(x) ((x) == NULL ? 0 : strlen(x)) #define ILLEGAL {PE"%s: illegal option\n",argv[i]); illegal=1;} #if defined(_VMS) || defined(__hpux) || defined(__CYGWIN32__) && !defined(__CYGWIN__) #define NO_SYS_ERRLIST #else #define FIERROR PE"File '%s': %s\n",filename,sys_errlist[errno]) #endif #define NEWLINE lineOnPage++; if(numOn) {if(!i_orig_line) PF"(%4d ",\ currentLine); else PF"( "); } else PCh('(') #define TITLE PH"\n Program: printPS, %s\n", last_mod); /* Global declarations: * ==================*/ //#if defined(ultrix) || (defined(__GNUC__) && !defined(__CYGWIN32__)) || defined(sun) #if defined(ultrix) || defined(sun) extern char *sys_errlist[]; #endif #ifdef sun int fprintf(), fputc(); #endif #ifdef _VMS extern char *getcwd(); extern int chdir(); #endif int null() { /* dummy procedure */ #ifdef _VMS return 0; #endif } void (*BACKSP)(); int (*printProc)(), (*putProc)(); static char mon[12][4] = { "Jan","Feb","Mar","Apr","May","Jun","Jul","Aug", "Sep","Oct","Nov","Dec" }, *font_n[9] = { "Courier","Courier-Bold","Courier-Oblique", "Courier-BoldOblique","Helvetica","Helvetica-Bold", "Helvetica-Oblique","Helvetica-BoldOblique", "AvantGarde-Book" }, *font_n_s[9] = { "","B","O","BO","H","HB","HO","HBO","A" }, *OR[4] = { "port","land","2land","4port" }, *TR[2] = { "wr","tr" }, *NFF[2] = { "off","on" }, *CNTRL[4] = { "Ig","Sp","Sh","ShAll" }, *PAPER[2] = { "A4","LTR" }, *ENC[3] = { "Standard","Latin1","Latin2" }, *progName; /* to be set equal to argv[0] (or part of it) */ int sizeDirName = 64; #ifdef NOTUNIX int firstfile = 1; FILE *psfile; char *psName; #endif FILE *infile; int font = DEFfont, Hfont = DEFHfont, fontChange = 0, convert = DEFconvert, paper = DEFpaper, firstPage = 1, lastPage = 0, orientation = DEForient, oldOrientation = DEForient, duplex = DEFduplex, oldDuplex = 0, tumble = DEFtumble, box = DEFbox, trunc = DEFtrunc, numOn = DEFnumOn, ssOn = DEFssOn, copies = 1, maxLines = 0, fileFlag = 1, /* change to 0 when the first input file is processed */ illegal = 0, /* change to 1 if an illegal/uknown option is processed */ year2 = DEFyear2, enc = DEFenc, Enc; // Enc is used for all job, not changed between files #define HDRLEN 200 #define DATELEN 32 int hdrlenM1 = HDRLEN - 1; char header[HDRLEN], dateTime[DATELEN], *origDir, *suppliedHeader; #define MAXSS 20 int ssStack[MAXSS], /* used for */ ssLevel, /* subscripts and */ ssIgnore; /* superscripts */ float relLetWidth = 1.; /* when ssOn=1 */ int headerFlag = 1, /* construct default headers from file names and last * modification times; * = 0 : use user supplied headers */ headerOn = DEFheaderOn, /* = 1 : header printed as specified by * headerFlag; * = 0 : no header al all */ currentPage, currentLine, lineOnPage, linesPerPage, charPerLine, totalCharPerLine, totalCharPerHeader, printFlag, /* = number of processed (printed) pages of a file = 0 if currentPage < firstPage */ i_orig_line, /* position of the processed character on the input line */ truncatedChar, /* counter for truncated characters in case of the -tr option */ textHeight, textWidth, isProportnl, isHProportnl, noPhysPages = 0, /* number of physical pages to be printed */ ch_prev, capOff = (int)'@'; float lineHeight, HlineHeight, Height, HHeight = DEFHheight; void help1() /*========*/ { PH"\n Usage:\n"); PH" %s\n", progName); PH" %s -help (to get more extensive help)\n", progName); #ifndef _VMS PH" %s [options] [-] [file [[options] [-] file ... [-]]]", progName); #ifdef _PC_ PH"\n"); #else PH" [| lpr -Pprinter]\n"); #endif PH" - (if last argument) ... process standard input\n"); PH" - (otherwise) ... next argument is a file name (may start with a '-')\n\n"); #else PH" %s [options] file [[options] file ...]\n", progName); #endif PH" options: {-A4 -LTR} -sFirstpage -eLastpage {-wr -tr} {-sson -ssoff}\n"); PH" {-port -land -2land -4port -port1 -land1 -2land1 -4port1}\n"); PH" {-port2 -land2 -2land2 -4port2 -portT -landT -2landT -4portT}\n"); PH" {-dh -HHeader -noH} {-bxon -bxoff} -fnFont -fhFont -linesLines\n"); PH" {-numon -numoff} {-Ig -Sp -Sh -ShAll} -cpCopies {-y2 -yA}\n"); PH" {-encEncoding}\n"); PH" All options are case-insensitive, except for the Header string.\n\n"); } void help2() /*========*/ { PH" Defaults: "); if(DEFheaderOn) PH"-dh"); else PH"-noH"); PH" -y%c -cp1 -%s%c -%s -%s -%s -ss%s -s1\n", (DEFyear2 ? '2' : 'A'), OR[DEForient], duplex ? (tumble ? 'T' : '2') : '1', TR[DEFtrunc], CNTRL[DEFconvert], PAPER[DEFpaper], NFF[DEFssOn]); PH" -e0 (= print till the end of file)\n"); PH" -lines0 (= calculate reasonable default for each font height)\n"); PH" -bx%s -num%s -fh%s%g -enc%s\n", NFF[DEFbox], NFF[DEFnumOn], font_n_s[DEFHfont], DEFHheight, ENC[DEFenc]); PH" -fn%s%g (for all -port and -land)\n", font_n_s[DEFfont], DEFheight); PH" -fn%s%g (for all -2land and -4port)\n\n", font_n_s[DEFfont], DEFaHeight); #ifdef _VMS PH" Example: The same result can be obtained with either of the two commands\n"); PH" %s -4port -e5 -fnB16.5 [-]a.pam -s3 -H [-.plot]graph.c \"-HDATA\" fil3\n", progName); PH" %s -4PoRt -E5 -fNB16.5 [-]A.Pam -s3 -H [-.plot]graph.c -h\"DATA\" FIL3\n", progName); PH" (print the first 5 pages of the file [-]a.pam and pages 3 to 5 of files\n"); PH" [-.plot]graph.c and fil3)\n"); PH" To preserve the case of the suplied header, use quotes as above.\n"); #else PH" Example: %s -port -e5 -fnB16.5 - -a -s3 -H -4port graph.c -HDATA fil3\n", progName); PH" (print first 5 pages of the file -a and pages 3 to 5 of graph.c and fil3)\n"); #endif #ifdef _VMS PH"\n Output: into a file in the current directory with the extension .PS\n"); /* On _PC_ there is no space on a standard screen for this */ #endif } void shelp() /*========*/ { help1(); help2(); } void help() /*=======*/ { char *t1, *t2; PH"\n Purpose: To convert ASCII files to PostScript + some extensions\n"); PH" =======\n"); PH" Up to 8 logical pages on a single sheet of paper in various formats.\n"); PH" Arbitrary font size and number of lines per page. Control character\n"); PH" visualization, overprinting the preceding character, and multilevel\n"); PH" subscripts and superscripts also available.\n"); help1(); PH" Orientation:\n"); PH" 1-sided 2-sided printing with flip about\n"); PH" printing long edge short edge (tumble)\n"); if(DEFtumble) {t1="2 ";t2="[T]";} else {t1="[2]";t2="T ";} PH" portrait: -port1 -port%s -port%s\n",t1,t2); PH" landscape: -land1 -land%s -land%s\n",t1,t2); PH" 2-up landscape: -2land1 -2land%s -2land%s\n",t1,t2); PH" 2x2 portrait: -4port1 -4port%s -4port%s\n\n",t1,t2); PH" Long lines: -tr ... truncate; -wr ... wrap around (has effect for the\n"); PH" Courier fonts only)\n"); PH" -dh ... use default header made of file name and Last Modification Time (LMT)\n"); PH" -y2/A ... print only the last 2/all digits of the year of the LMT\n"); PH" Header = user supplied header string\n"); PH" -noH ... no header line printed\n"); PH" -bxoff/on ... (do not) draw box around each page\n"); PH" -fn ... font for the main text\n"); PH" -fh ... font for headers\n"); PH" Both fonts can be one of the following:\n"); PH" Font = # ... Courier (# is the height in points - \n"); PH" B# ... Courier-Bold an arbitrary positive number;\n"); PH" O# ... Courier-Oblique 72 points = 1 inch)\n"); PH" BO# ... Courier-BoldOblique\n"); PH" H# ... Helvetica\n"); PH" HB# ... Helvetica-Bold\n"); PH" HO# ... Helvetica-Oblique\n"); PH" HBO# ... Helvetica-BoldOblique\n"); PH" A# ... AvantGarde-Book\n"); PH" Lines = maximum number of lines on a page\n"); PH" -numoff/on ... (do not) print line numbers\n"); PH" Control character rendering: -Ig ; -Sp ; -Sh ; -ShAll (see below)\n"); PH" Sub/superscript control: -sson (enabled); -ssoff (disabled) (see below)\n"); PH" Copies = number of copies to be printed\n"); PH" The following two options must appear before the 1st file name:\n"); PH" Paper size: -A4 (21 x 29.7 cm) ; -LTR (8.5\" x 11\")\n"); PH" Encoding: Standard ; Latin1 ; Latin2\n\n"); help2(); #ifdef _VMS PH" For the above example, the output file name would be A.PS\n"); #endif #ifdef _PC_ PH"\n Output: into a file in the current directory with the extension .PS\n"); PH" For the above example, the output file name would be -A.PS\n"); PH" For the standard input, it would be -STDIN.PS\n"); #endif PH"\n Control characters are either ignored (option -Ig), or printed as\n"); PH" spaces (option -Sp), or shown as capital letters with a caret (circumflex\n"); PH" accent) above them (option -Sh), except for ^H, ^I, ^J, ^L, and when -sson\n"); PH" is on, also ^^, ^_ and ^]. Backspace (^H), Tab (^I), Newline (^J) and\n"); PH" Formfeed (^L) retain their natural functions in all three cases.\n"); PH" When -sson is on, ^^ and ^_ can be used to mark the beginning\n"); PH" of superscripts and subscripts, respectively, and ^] their end.\n"); PH" Multiple-level sub/superscripts are allowed, e.g. A^^B^_c^^a^]d^_3^]^]^].\n\n"); PH" Backspace can be used for overprinting of two or more characters\n"); PH" (e.g. for underlining) and Formfeed for page breaks. Tabs are expanded.\n\n"); PH" If option -ShAll is specified, all control characters will be shown\n"); PH" and only Newline will retain its function.\n\n"); PH" For Courier fonts, long input lines are either truncated or printed on\n"); PH" several output lines (wrapped around). In each case, a small double\n"); PH" right angle bracket marks the end of an unfinished line. In case of\n"); PH" input lines that do not fit on one output line, long sequences of\n"); PH" consecutive Backspaces may sometime not be rendered correctly (for -Ig,\n"); PH" -Sp or -Sh only). For the proportional Helvetica and AvantGarde-Book\n"); PH" fonts, long lines are always clipped at the right page margin.\n"); TITLE PH" http://code.mkolar.org/printPS/\n"); } #if !defined(NO_TIME_ZONE) && defined(__CYGWIN32__) #define tzname _tzname #endif main(argc,argv) int argc; char *argv[]; /*===================================*/ { int i, A1; char *ARG, *a; void processFile(), processFileName(); #if !defined(NO_TIME_ZONE) && defined(__CYGWIN32__) { int tz; tzset(); tz = _timezone/360; /* tz offset in hours*10 */ if(tz == -120) { (void)strcpy(tzname[0],"NZST"); (void)strcpy(tzname[1],"NZDT"); } else if(tz == -100) { (void)strcpy(tzname[0],"AusEST"); (void)strcpy(tzname[1],"AusEDT"); } else if(tz == -95) { (void)strcpy(tzname[0],"AusCST"); (void)strcpy(tzname[1],"AusCDT"); } else if(tz == -90) { (void)strcpy(tzname[0],"JST"); } else if(tz == -55) { (void)strcpy(tzname[0],"IndiaST"); } else if(tz == -45) { (void)strcpy(tzname[0],"AfghaST"); } else if(tz == -35) { (void)strcpy(tzname[0],"IranST"); (void)strcpy(tzname[1],"IranDT"); } else if(tz == -30) { (void)strcpy(tzname[0],"RussST"); (void)strcpy(tzname[1],"RussDT"); } else if(tz == -20) { (void)strcpy(tzname[0],"EEST"); (void)strcpy(tzname[1],"EEDT"); } else if(tz == -10) { (void)strcpy(tzname[0],"CEST"); (void)strcpy(tzname[1],"CEDT"); } else if(tz == 0) { (void)strcpy(tzname[0],"GMT"); (void)strcpy(tzname[1],"GMDT"); } else if(tz == 35) { (void)strcpy(tzname[0],"NewfdST"); (void)strcpy(tzname[1],"NewfdDT"); } else if(tz == 40) { (void)strcpy(tzname[0],"AtlST"); (void)strcpy(tzname[1],"AtlDT"); } else if(tz == 50) { (void)strcpy(tzname[0],"EST"); (void)strcpy(tzname[1],"EDT"); } else if(tz == 60) { if(_daylight) { (void)strcpy(tzname[0],"CST"); (void)strcpy(tzname[1],"CDT"); } else (void)strcpy(tzname[0],"SaskST"); } else if(tz == 70) { (void)strcpy(tzname[0],"MST"); (void)strcpy(tzname[1],"MDT"); } else if(tz == 80) { (void)strcpy(tzname[0],"PST"); (void)strcpy(tzname[1],"PDT"); } else if(tz == 90) { (void)strcpy(tzname[0],"AlaST"); (void)strcpy(tzname[1],"AlaDT"); } else if(tz == 100) { (void)strcpy(tzname[0],"HawaiST"); } else { (void)sprintf(tzname[0],"gmt%+.3g",-0.1*tz); if(_daylight) (void)sprintf(tzname[1],"gmt%+.3g",-0.1*tz+1); } } #endif #ifdef _VMS progName = strrchr(argv[0],']'); if(progName == NULL) progName = argv[0]; else progName++; if((a = strrchr(progName,';')) != NULL) *a = 0; /* This is to eliminate the VMS version numbers */ #else progName = argv[0]; #endif #ifdef DEBUG PE"\n argv[0] = %s\n",argv[0]); PE" progName = %s\n",progName); #endif if(argc == 1) { TITLE; shelp(); exit(0); } if(!strncmp(argv[1],"-h",2) && argc == 2) { help(); exit(0); } while((origDir = getcwd((char *)NULL, sizeDirName)) == NULL && sizeDirName < 1024) sizeDirName += 64; if(origDir == NULL) { #ifdef NO_SYS_ERRLIST PE"Present directory pathname could not be obtained\n"); #else PE"Present directory: %s\n", sys_errlist[errno]); #ifdef _PC_ exit(-1); #endif #endif } #ifdef DEBUG PE" origDir = %s\n",origDir); #endif A1 = argc - 1; for (i=1; i= 'A' && *a <= 'Z') *a += 'a' - 'A'; a++; } } if(!strcmp(ARG,"ig")) convert = 0; else if(!strcmp(ARG,"sp")) convert = 1; else if(!strcmp(ARG,"sh")) convert = 2; else if(!strcmp(ARG,"shall")) convert = 3; else if(!strcmp(ARG,"port")) {orientation = 0; duplex = 1; tumble = DEFtumble;} else if(!strcmp(ARG,"land")) {orientation = 1; duplex = 1; tumble = DEFtumble;} else if(!strcmp(ARG,"2land")) {orientation = 2; duplex = 1; tumble = DEFtumble;} else if(!strcmp(ARG,"4port")) {orientation = 3; duplex = 1; tumble = DEFtumble;} else if(!strcmp(ARG,"port1")) {orientation = 0; duplex = 0; tumble = 0;} else if(!strcmp(ARG,"land1")) {orientation = 1; duplex = 0; tumble = 0;} else if(!strcmp(ARG,"2land1")){orientation = 2; duplex = 0; tumble = 0;} else if(!strcmp(ARG,"4port1")){orientation = 3; duplex = 0; tumble = 0;} else if(!strcmp(ARG,"port2")) {orientation = 0; duplex = 1; tumble = 0;} else if(!strcmp(ARG,"land2")) {orientation = 1; duplex = 1; tumble = 0;} else if(!strcmp(ARG,"2land2")){orientation = 2; duplex = 1; tumble = 0;} else if(!strcmp(ARG,"4port2")){orientation = 3; duplex = 1; tumble = 0;} else if(!strcmp(ARG,"portt")) {orientation = 0; duplex = 1; tumble = 1;} else if(!strcmp(ARG,"landt")) {orientation = 1; duplex = 1; tumble = 1;} else if(!strcmp(ARG,"2landt")){orientation = 2; duplex = 1; tumble = 1;} else if(!strcmp(ARG,"4portt")){orientation = 3; duplex = 1; tumble = 1;} else if(!strcmp(ARG,"tr")) trunc = 1; else if(!strcmp(ARG,"wr")) trunc = 0; else if(!strcmp(ARG,"bxoff")) box = 0; else if(!strcmp(ARG,"bxon")) box = 1; else if(!strcmp(ARG,"numoff")) numOn = 0; else if(!strcmp(ARG,"numon")) numOn = 1; else if(!strcmp(ARG,"ssoff")) ssOn = 0; else if(!strcmp(ARG,"sson")) ssOn = 1; else if(!strcmp(ARG,"dh")) { headerFlag = 1; headerOn = 1; } else if(*ARG=='h' || *ARG=='H'){headerFlag = 0; headerOn = 1; suppliedHeader = ARG + 1; } else if(!strcmp(ARG,"noh")) headerOn = 0; else if(!strcmp(ARG,"y2")) year2 = 1; else if(!strcmp(ARG,"ya")) year2 = 0; else if(!strcmp(ARG,"a4")) paper = 0; else if(!strcmp(ARG,"ltr")) paper = 1; else if(!strcmp(ARG,"encstandard")) enc = 0; else if(!strcmp(ARG,"enclatin1")) enc = 1; else if(!strcmp(ARG,"enclatin2")) enc = 2; else if(!strncmp(ARG,"fh",2)) { register float aux; register int HFnew; ARG += 2; if(!strncmp(ARG,"hbo",3)) { ARG += 3; HFnew = 7; } else if(!strncmp(ARG,"ho",2)){ ARG += 2; HFnew = 6; } else if(!strncmp(ARG,"hb",2)){ ARG += 2; HFnew = 5; } else if(!strncmp(ARG,"h",1)) { ARG++; HFnew = 4; } else if(!strncmp(ARG,"bo",2)){ ARG += 2; HFnew = 3; } else if(!strncmp(ARG,"o",1)) { ARG++; HFnew = 2; } else if(!strncmp(ARG,"b",1)) { ARG++; HFnew = 1; } else if(!strncmp(ARG,"a",1)) { ARG++; HFnew = 8; } else HFnew = 0; if((aux = atof(ARG)) > 0.) { HHeight = aux; Hfont = HFnew; } else ILLEGAL } else if(!strncmp(ARG,"fn",2)) { register float aux; register int Fnew; ARG += 2; if(!strncmp(ARG,"hbo",3)) { ARG += 3; Fnew = 7; } else if(!strncmp(ARG,"ho",2)){ ARG += 2; Fnew = 6; } else if(!strncmp(ARG,"hb",2)){ ARG += 2; Fnew = 5; } else if(!strncmp(ARG,"h",1)) { ARG++; Fnew = 4; } else if(!strncmp(ARG,"bo",2)){ ARG += 2; Fnew = 3; } else if(!strncmp(ARG,"o",1)) { ARG++; Fnew = 2; } else if(!strncmp(ARG,"b",1)) { ARG++; Fnew = 1; } else if(!strncmp(ARG,"a",1)) { ARG++; Fnew = 8; } else Fnew = 0; if((aux = atof(ARG)) > 0.) { fontChange = 1; Height = aux; font = Fnew; } else ILLEGAL } else if(!strncmp(ARG,"cp",2)) { register int new; ARG += 2; if((new = atoi(ARG)) > 0) copies = new; else ILLEGAL } else if(!strncmp(ARG,"lines",5)) { register int new; ARG += 5; if(*ARG == '0' && atoi(ARG) == 0) maxLines = 0; else if((new = atoi(ARG)) > 0) maxLines = new; else ILLEGAL } else if(!strncmp(ARG,"s",1)) { register int new; ARG++; if((new = atoi(ARG)) > 0) firstPage = new; else ILLEGAL } else if(!strncmp(ARG,"e",1)) { register int new; ARG++; if(*ARG == '0' && atoi(ARG) == 0) lastPage = 0; else if((new = atoi(ARG)) > 0) lastPage = new; else ILLEGAL } else ILLEGAL } #ifdef DEBUG PE"..... end of processing '%s'\n",argv[i]); #endif } /* end of for */ if(illegal) PE"\n Check your command line arguments!\n"); if(fileFlag) { PE" No file processed!\n"); shelp(); exit(-2); } printProc = fprintf; #ifdef QUIT_PRINTER PF"quit\n"); #endif PF"%%%%Trailer\n%%%%Pages: %d\n%%%%EOF\n", noPhysPages); #ifdef NOTUNIX (void)fclose(psfile); PE"> %s: PostScript file created\n", psName); #endif if(illegal) { shelp(); exit(1); } exit(0); } void processFileName(filename) char *filename; /*===========================================*/ { void processFile(); #ifdef NOTUNIX /* Convert filename to upper case: */ char *a = filename; while(*a != '\0') { if(*a > 0140 && *a < 0173) *a -= 040; a++; } #ifdef _PC_ if(strpbrk(filename,"*?") != NULL) #else if(strpbrk(filename,"*%") != NULL) #endif { PE" %s: wild card characters not allowed\n", filename); return; } #endif #ifdef DEBUG PE" filename = %s\n",filename); #endif processFile(filename, 0); (void)fclose(infile); } void processFile(filename,inType) int inType; char *filename; /*===========================================================*/ { void convert012(), convert3(), addPage(), BACKSPhel(), BACKSPcour(); int makeHeader(), makeDate(), maxLinesPerPage, i; float headerHeight; /* disk file: inType = 0 stdin: inType = 1 */ #ifdef NOTUNIX if(firstfile) { char *pe; int len; if(inType) { psName = "-stdin"; len = 6; } else { #ifdef _PC_ psName = strrchr(filename,'\\'); #else psName = strrchr(filename,']'); #endif if(psName == NULL) psName = strrchr(filename,':'); if(psName == NULL) psName = filename; else psName += 1; pe = strrchr(psName,'.'); len = pe == NULL ? STRLEN(psName) : pe - psName; } pe = (char *)malloc((len+4)*sizeof(char)); strncpy(pe, psName, len); psName = pe; psName[len] = 0; /* to make sure that the filename extension (if present) is cut-off */ strcat(psName,".PS"); #ifdef DEBUG PE" psName = %s\n",psName); #endif } #endif if(paper) { textHeight = LTRHEIGHT; textWidth = LTRWIDTH; } else { textHeight = A4HEIGHT; textWidth = A4WIDTH; } if(orientation == 1 || orientation == 2) { i = textHeight; textHeight = textWidth; textWidth = i; } if(orientation >= 2) textWidth /= 2; if(orientation == 3) textHeight /= 2; isProportnl = (font_n[font][0] == 'H' || font_n[font][0] == 'A'); isHProportnl = (font_n[Hfont][0] == 'H' || font_n[Hfont][0] == 'A'); if(lastPage && lastPage < firstPage) { PE" Last page < first page for file '%s'!\n", filename); return; } if(!fontChange) Height = ((orientation > 1) ? DEFaHeight : DEFheight); headerHeight = (headerOn ? 1.4 * HHeight/Height : 0.5) + box; if(maxLines) { maxLinesPerPage = textHeight / (0.85 * Height) - headerHeight; linesPerPage = (maxLines < maxLinesPerPage ? maxLines : maxLinesPerPage); } else linesPerPage = textHeight / (1.11 * Height) - headerHeight; lineHeight = (float)textHeight / (linesPerPage + headerHeight); if(lineHeight > 5. * Height) lineHeight = 5. * Height; HlineHeight = lineHeight * HHeight/Height; totalCharPerLine = 1.66 * textWidth / Height; totalCharPerHeader = 1.66 * textWidth / HHeight; charPerLine = totalCharPerLine; if(numOn) charPerLine -= (trunc ? 6 : 5); if(isProportnl) { charPerLine = 10000000; BACKSP = BACKSPhel; } else { BACKSP = BACKSPcour; } #ifdef DEBUG PE" Before header in processfile()\n"); #endif if(headerOn && headerFlag) { if(inType) { header[0] = '\0'; dateTime[0] = '\0'; } else if(makeDate(filename) || makeHeader(filename)) return; } else { #ifdef _PC_ if(!inType) { if(makeHeader(filename)) return; /* Check input - output conflicts */ } #endif if(headerOn) { (void)strncpy(header,suppliedHeader,hdrlenM1); header[hdrlenM1] = '\0'; } } if(inType) infile = stdin; else { if( (infile = fopen(filename,"r")) == NULL ) #ifdef NO_SYS_ERRLIST { PE" %s: cannot be opened\n", filename); return; } #else { FIERROR; return; } #endif } #ifdef DEBUG PE" Filename: %s\n", filename); if(headerOn) { PE" Header: %s\n", header); if(headerFlag) PE" Time: %s\n", dateTime); } else PE" No header\n"); PE" Firstpage: %d, lastpage %d, lines per page: %d, chars per line: %d\n", firstPage, lastPage, linesPerPage, charPerLine); PE" Text font: %s %g\n", font_n[font], Height); PE" Header font: %s %g\n", font_n[Hfont], HHeight); PE" -%s%c -%s -%s -bx%s -num%s -cp%d -%s\n\n", OR[orientation], duplex ? (tumble ? 'T' : '2') : '1', TR[trunc], CNTRL[convert], NFF[box], NFF[numOn], copies, PAPER[paper]); #endif addPage(); currentPage = 0; currentLine = 1; truncatedChar = 0; printFlag = 0; if(convert == 3) convert3(infile); else convert012(infile); oldOrientation = orientation; oldDuplex = duplex; #ifdef NOTUNIX PE"<"); #endif PE" %s: ", filename); if(printFlag) { PE" %d page", printFlag); if(printFlag > 1) PE"s"); PE" of %d lines x %d cop", linesPerPage, copies); if(copies == 1) PE"y"); else PE"ies"); PE" converted to PostScript\n"); if(truncatedChar) { for(i=0; i < strlen(filename); i++) PE" "); PE" %d characters in long lines truncated\n",truncatedChar); } } else PE" No pages converted (file contains only %d pages)\n", currentPage); } int makeDate(filename) char *filename; /*===================================*/ { struct tm *tms; static struct stat buf; int len, yer; /* Find the time of last modification of the file to be printed: */ if(stat(filename,&buf) == -1) { #ifdef NO_SYS_ERRLIST PE" %s: cannot be accessed\n", filename); #else FIERROR; #endif return(1); } tms = localtime((time_t *)&buf.st_mtime); yer= 1900 + tms->tm_year; if(year2) yer= yer - (yer/100)*100; dateTime[0] = 0; (void)sprintf(dateTime," %02d-%s-%d %d:%02d", yer, mon[tms->tm_mon], tms->tm_mday, tms->tm_hour, tms->tm_min); len = STRLEN(dateTime); if(len > 0) { if(len >= DATELEN) { PE" Program error: Line %d: DATELEN must be increased at least to %d!\n", __LINE__, len + 1); exit(-3); } #ifndef NO_TIME_ZONE #if defined(sparc) || defined(ultrix) || defined(__osf__) || defined(_PC_)\ || defined(SYSTEM_FIVE) || defined(sgi) || defined(_VMS) || defined(__GNUC__) { int LEN; char *TZ; #if defined(sparc) || defined(ultrix) || defined(__osf__) TZ = tms->tm_zone; #else TZ = tms->tm_isdst ? tzname[1] : tzname[0]; #endif LEN = len + 1 + STRLEN(TZ); if(LEN >= DATELEN) { PE" Program error: Line %d: DATELEN must be increased at least to %d!\n", __LINE__, LEN + 1); exit(-3); } (void)sprintf(dateTime + len," %s", TZ); } #endif #endif } return(0); } int makeHeader(filename) char *filename; /*=====================================*/ { char *propername, *cwd; int len; /* Find the full path for the file to be included into the header: */ #ifdef _VMS if((propername = strstr(filename,"::")) != NULL) { if(propername == filename) filename += 2; /* file is on the current machine */ else goto Simple; /* file is on different machine; we won't bother with trying to find the full pathname */ } propername = strrchr(filename,']'); #elif defined(_PC_) propername = strrchr(filename,'\\'); #else propername = strrchr(filename,'/'); #endif #ifdef NOTUNIX if(propername == NULL) propername = strrchr(filename,':'); #endif len = STRLEN(propername); if(len > hdrlenM1) { PE" Line %d: HDRLEN should be increased at least to %d\n",__LINE__,len+1); PE" to accommodate at least the proper filename\n"); } #ifndef _VMS #ifdef _PC_ if(filename[1] == ':' && filename[0] != origDir[0]) { goto Simple1; } #else if(filename[0] == '/') goto Simple; #endif if(propername == NULL) { propername = filename; header[0] = '.'; header[1] = '\0'; } else { len = propername - filename; #ifdef _PC_ if(len == 0) len = 1; if(*propername == ':') { propername++; header[0] = '.'; header[1] = '\0'; goto Cont; } #endif propername++; if(len > hdrlenM1) goto Simple; else { (void)strncpy(header,filename,len); header[len] = '\0'; } #else if(propername == NULL) { propername = filename; header[0] = '['; header[1] = ']'; header[2] = '\0'; } else { len = ++propername - filename; /* ':' or ']' must be in */ if(len > hdrlenM1) goto Simple; else { (void)strncpy(header,filename,len); header[len] = '\0'; } #endif } #ifndef _PC_ if(origDir == NULL) goto Simple; #else Cont: #endif /* Now header contains pathname of the directory with the * processed file. We want to find out the full name of this * directory and thus the file. */ if(!chdir(header)) { cwd = getcwd((char *)NULL, HDRLEN + 1); if(cwd == NULL) goto Simple; #ifdef _PC_ if(!strcmp(cwd,origDir) && !strcmp(propername,psName)) { PE" %s: in conflict with the output file name\n", filename); return(1); } #endif #ifndef _VMS len = strlen(propername) + strlen(cwd) + 1; #else len = strlen(propername) + STRLEN(cwd); #endif if(len > hdrlenM1) { char *p1; p1 = header + hdrlenM1; len = strlen(propername) - 1; while(p1 >= header && len >= 0) *p1-- = propername[len--]; #ifndef _VMS #ifdef _PC_ if(p1 >= header) { *p1-- = '\\'; #else if(p1 >= header) { *p1-- = '/'; #endif len = strlen(cwd) - 1; } #else if(p1 >= header) len = strlen(cwd) - 1; #endif while(p1 >= header) *p1-- = cwd[len--]; header[0] = Enc==2 ? 0200 : 0273; } else { (void)strcpy(header,cwd); #ifndef _VMS #ifdef _PC_ if(header[strlen(header)-1] != '\\') (void)strcat(header,"\\"); #else (void)strcat(header,"/"); #endif #endif (void)strcat(header,propername); } free(cwd); if(chdir(origDir)) #ifdef NO_SYS_ERRLIST PE" Couldn't get back to the original directory"); } else { PE"Directory %s not found\n", header); #else perror("Couldn't get back to the original directory"); } else { PE"Directory '%s': %s\n", header, sys_errlist[errno]); #endif goto Simple; } return(0); Simple: #ifdef _PC_ { char A = *(--propername); *propername = 0; /* terminate the filename temporarily after the end of the directory path */ if(!(len = chdir(filename))) while((cwd = getcwd((char *)NULL, sizeDirName)) == NULL && sizeDirName < 1024) sizeDirName += 64; PE"%s %d %s\n", filename, len, cwd); *propername++ = A; /* restore filename */ (void)chdir(origDir); if( (len || cwd == NULL || !strcmp(cwd,origDir)) && !strcmp(propername,psName) ) { PE" %s: in conflict with the output file name\n", filename); return(1); } } Simple1: #endif len = strlen(filename); (void)strcpy(header, filename + (len>hdrlenM1 ? len-hdrlenM1 : 0)); return(0); } void PSprolog() /*===========*/ { PF"%%!PS-Adobe-2.1\n"); PF"%%%%Creator: printPS %s\n", last_mod); PF"%%%%BoundingBox: 0 0 %d %d\n", (paper ? LTRpaperWIDTH : A4paperWIDTH), (paper ? LTRpaperHEIGHT : A4paperHEIGHT)); PF"%%%%Pages: (atend)\n"); PF"%%%%PageOrder: Ascend\n"); PF"%%%%EndComments\n"); PF"0 setgray\n"); PF"/#u {dup show stringwidth pop /width exch def\n"); PF" lineH 33 div dup setlinewidth 7.7 mul /down exch def\n"); PF" currentpoint width neg down neg rmoveto width 0 rlineto stroke\n"); PF" moveto} def %% underline\n"); PF"/portrait {initmatrix %d %d translate} def\n", MARGINpX, MARGINpY + (paper ? LTRHEIGHT : A4HEIGHT)); PF"/landscape {initmatrix 90 rotate %d %d translate} def\n", MARGINlX, -MARGINlY); PF"/#p {isBox {#b} if showpage} def %% print page\n"); PF"/offSet 1.5 def\n"); PF"/#N {isPortrait {portrait} {landscape} ifelse\n"); PF" isProportnl {initclip 1 setgray\n"); PF" xLeft d moveto 0 Ym neg rlineto Xm 0 rlineto 0 Ym rlineto closepath\n"); PF" clip newpath 0 setgray} if /line lineH neg isBox not\n"); PF" {lineheight add} if def /leftmargin offS def leftmargin line\n"); PF" moveto} def %% start new page\n"); PF"/#s {show} def\n"); PF"/#B {backsp 0 rmoveto} def\n"); PF"/#S {shift 0 rmoveto} def\n"); PF"/#sB {stringwidth pop neg /backsp exch def} def\n"); PF"/#A {dup stringwidth pop (\\303) stringwidth pop sub 2 div currentpoint\n"); PF" 4 2 roll lineheight 5 div rmoveto (\\303) show 3 1 roll moveto\n"); PF" show} def %% prints a caret above a (capital) character\n"); PF"/#c2 {isProportnl {initclip 1 setgray xLeft Xm add d moveto 0 Ym neg rlineto\n"); PF" Xm 0 rlineto 0 Ym rlineto closepath clip newpath 0 setgray} if\n"); PF" /line lineH neg isBox not {lineheight add} if def\n"); PF" /leftmargin Xm offS add def\n"); PF" leftmargin line moveto} def %% 2nd page of 2land or 4port\n"); PF"/#c3 {isProportnl {initclip 1 setgray xLeft d Ym sub moveto 0 Ym neg rlineto\n"); PF" Xm 0 rlineto 0 Ym rlineto closepath clip newpath 0 setgray} if\n"); PF" /line lineH neg Ym sub isBox not {lineheight add} if def\n"); PF" /leftmargin offS def\n"); PF" leftmargin line moveto} def %% 3rd page of 4port\n"); PF"/#c4 {isProportnl {initclip 1 setgray xLeft Xm add d Ym sub moveto 0 Ym neg rlineto\n"); PF" Xm 0 rlineto 0 Ym rlineto closepath clip newpath 0 setgray} if\n"); PF" /line lineH neg Ym sub isBox not {lineheight add} if def\n"); PF" /leftmargin Xm offS add def\n"); PF" leftmargin line moveto} def %% 4th page of 4port\n"); PF"/# {show /line line lineheight sub def leftmargin line moveto} def\n"); PF"/#b {initclip xLeft d moveto 0 ym neg rlineto xm 0 rlineto 0 ym\n"); PF" rlineto closepath is2land is4port or {Xm xLeft add d moveto\n"); PF" 0 ym neg rlineto} if is4port {xLeft d Ym sub moveto xm 0 rlineto} if\n"); PF" 0.5 setlinewidth stroke} def %% draw box\n"); PF"/#wr {show forwd 0 rmoveto (\\%d) show} def %% line continuation mark\n", enc==2 ? 200 : 273); PF"/#H { currentpoint 0 lineheight 4 div translate moveto .75 .75 scale} def\n"); PF"/#h { 4 3 div dup scale currentpoint 0 lineheight 4 div neg translate moveto} def\n"); PF"/#L { currentpoint 0 lineheight 6 div neg translate moveto .75 .75 scale} def\n"); PF"/#l { 4 3 div dup scale currentpoint 0 lineheight 6 div translate moveto} def\n"); if(enc==2) Latin2enc(); Enc=enc; PF"%%%%EndProlog\n"); } void addPage() /*==========*/ { if(oldDuplex && (oldOrientation == 3 && (printFlag+7) % 8 < 4 || oldOrientation == 2 && (printFlag+3) % 4 < 2 || oldOrientation < 2 && printFlag % 2) ) { noPhysPages++; PF"%%%%Page: blank %d\nshowpage\n",noPhysPages); } } void ssLineBreak() /*==============*/ { int ss; for(ss = ssLevel; ss > 0; ss--) { if(ssStack[ss - 1] == 1) PF")#s #h("); else PF")#s #l("); } } void ssCheck(direction) int direction; /*==================================*/ { i_orig_line++; if(ssLevel == MAXSS) { if(!ssIgnore) { PE" line %d: more than %d sub/superscript", currentLine, MAXSS); PE" levels; additional levels ignored!\n"); } ssIgnore++; } else { ssStack[ssLevel++] = direction; if(direction == 1) PF")#s #H("); else PF")#s #L("); relLetWidth *= 0.75; } } void BACKSPhel(i) float *i; /*=======================*/ { static int ch_prev_Old = (int)'m'; PF")#s\n"); if(ch_prev != ch_prev_Old) { ch_prev_Old = ch_prev; if((char)ch_prev == '\\') PF"(\\\\"); else if((char)ch_prev == ')') PF"(\\)"); else if((char)ch_prev == '(') PF"(\\("); else PF"(%c",(char)ch_prev); PF")#sB "); } /* in case of two or more consecutive backspaces, the same value of /backsp is used for all of them; see GETC() */ PF"#B("); *i -= relLetWidth; i_orig_line--; } void BACKSPcour(i) float *i; /*========================*/ { PF")#s\n#B("); *i -= relLetWidth; i_orig_line--; } int GETC(file) FILE *file; /*======================*/ { static int CH = 0; int ch; /* At the beginning of this function, CH is the unconverted last character, ch_prev is the converted last but one character */ /* Get new character: */ ch = getc(file); if(CH == 8 && ch == ch_prev) PF")#s #S("); /* If a character is being overprinted by itself, we assume that one wants to produce a "bold" type (see HP man pages) this is achieved here by shifting the 2nd character slightly. In this code, the same shift is obtained even if two identical characters are separated by arbitrary # of backspaces. Better treatment of strings of backspaces would require extensive rewriting of this program: read in the whole line first and then to process it. */ if(CH < 32) { if(!convert || (CH > 7 && CH < 11) || CH == 12 || CH > 28) /*no change*/; else ch_prev = convert == 1 ? 32 : capOff + CH; } else ch_prev = CH; return (CH = ch); } void convert012(file) FILE *file; /*=============================*/ { int ch, j, J, pageBreak(), lineBreak(); float i; ssLevel = 0; relLetWidth = 1.; ssIgnore = 0; i = 0.5; i_orig_line = 0; (void) pageBreak(); if(!printFlag) { printProc = null; putProc = null; } while ( (ch = GETC(file)) != EOF ) { Check: if(ssOn) { if(ch == 30) { /* start superscript */ ssCheck(1); continue; } if(ch == 31) { /* start subscript */ ssCheck(-1); continue; } if(ch == 29) { /* end super/subscript */ if(ssIgnore) ssIgnore--; else { if(ssStack[--ssLevel] == 1) PF")#s #h("); else PF")#s #l("); if(ssLevel) relLetWidth /= 0.75; else relLetWidth = 1.; } i_orig_line++; continue; } } if(ch == 9) { /* TAB */ J = 8 - i_orig_line % 8; while(J > 0) { if((ch = GETC(file)) != 8) break; J--; } if(J == 0) continue; for (j=1;j<=J;j++) { PCh(' '); i += relLetWidth; i_orig_line++; if(i >= charPerLine) { if(j == J) goto Newline; if(ssOn) ssLineBreak(); if(trunc) { PF")#wr("); ssLevel = 0; ssIgnore = 0; relLetWidth = 1.; while(ch != 10) { if(ch == EOF) goto CloseFile; truncatedChar++; ch = GETC(file); } i = 0.5; goto TRUNCend; } else if(!numOn) PF")#wr("); if(lineBreak(0)) goto CloseFile; i = 0.5; } } if(ch == EOF) goto CloseFile; goto Check; } if(ch == 12) { /* Formfeed */ if(numOn && convert == 2) PF")#s(L)#A("); if((ch = GETC(file)) == EOF) goto CloseFile; if(pageBreak()) goto CloseFile; i_orig_line = 0; i = 0.5; goto Check; } if(ch == 10) { /* Newline */ if((ch = GETC(file)) == EOF) goto CloseFile; currentLine++; i_orig_line = 0; if(lineBreak(1)) goto CloseFile; i = 0.5; goto Check; } if(ch == 8) { /* Backspace */ if(i_orig_line > 0) (*BACKSP)(&i); } else { if((char)ch == '\\') PF"\\\\"); else if((char)ch == ')') PF"\\)"); else if((char)ch == '(') PF"\\("); else if(ch > 31) PCh((char)ch); else if(convert) { if(convert == 1) PCh(' '); else { if(ch == 28) PF")#s(\\\\)#A("); else PF")#s(%c)#A(", (char)(capOff + ch)); } } if(ch > 31 || convert) i += relLetWidth; i_orig_line++; } if(i >= charPerLine) { if((ch = GETC(file)) == 8) (*BACKSP)(&i); else { Newline: i = 0.5; if(ch == 12) { if(numOn && convert == 2) PF")#s(L)#A("); if((ch = GETC(file)) == EOF) goto CloseFile; if(pageBreak()) goto CloseFile; i_orig_line = 0; goto Check; } if(ch == 10) { if((ch = GETC(file)) == EOF) goto CloseFile; currentLine++; i_orig_line = 0; if(lineBreak(1)) goto CloseFile; goto Check; } if(ch == EOF) goto CloseFile; if(ssOn) ssLineBreak(); if(trunc) { PF")#wr("); ssLevel = 0; ssIgnore = 0; relLetWidth = 1.; truncatedChar++; while((ch = GETC(file)) != 10) { if(ch == EOF) goto CloseFile; truncatedChar++; } TRUNCend: i_orig_line = 0; ch = GETC(file); if(ch == EOF) goto CloseFile; currentLine++; } else if(!numOn) PF")#wr("); if(lineBreak(0)) goto CloseFile; goto Check; } } } /* end of while */ CloseFile: if(printFlag) PF")#s\n#p\n"); } void convert3(file) FILE *file; /*===========================*/ { int ch, i, pageBreak(), lineBreak(); ssLevel = 0; /* must be set up also here for lineBreak() */ i = i_orig_line = 0; (void) pageBreak(); if(!printFlag) { printProc = null; putProc = null; } while ( (ch = getc(file)) != EOF ) { Check: if(ch == 10) { PF")#s(J)#A("); if((ch = getc(file)) == EOF) goto CloseFile; currentLine++; i_orig_line = 0; if(lineBreak(0)) goto CloseFile; i = 0; goto Check; } if((char)ch == '\\') PF"\\\\"); else if((char)ch == ')') PF"\\)"); else if((char)ch == '(') PF"\\("); else if(ch > 31) PCh((char)ch); else if(ch == 28) PF")#s(\\\\)#A("); else PF")#s(%c)#A(", (char)(capOff + ch)); i++; i_orig_line++; if(i == charPerLine) { i = 0; if((ch = getc(file)) == 10) { PF")#s(J)#A("); if((ch = getc(file)) == EOF) goto CloseFile; currentLine++; i_orig_line = 0; if(lineBreak(0)) goto CloseFile; goto Check; } if(ch == EOF) goto CloseFile; if(trunc) { PF")#wr("); truncatedChar++; while((ch = getc(file)) != 10) { if(ch == EOF) goto CloseFile; truncatedChar++; } i_orig_line = 0; ch = getc(file); if(ch == EOF) goto CloseFile; currentLine++; } else if(!numOn) PF")#wr("); if(lineBreak(0)) goto CloseFile; goto Check; } } /* end of while */ CloseFile: if(printFlag) PF")#s #p\n"); } void startPage(pagePosition) int pagePosition; /*===========================================*/ { static float headerShift; if(!pagePosition && printFlag) { noPhysPages++; PF"%%%%Page: %d %d\n",currentPage,noPhysPages); } if(currentPage == firstPage) { /* PF"%%%%BeginPageSetup\n"); */ PF"%% ------------------------- New file ------------------- %%\n\ %% For full page independence this setup should be repeated on each page.\n\ %% At present pages may not be viewed in arbitrary order in screen viewers.\n"); PF"mark {statusdict begin %s setduplexmode %s settumble end} stopped\n", duplex ? "true" : "false", tumble ? "true" : "false"); PF"cleartomark\n"); if(Enc) { if(headerOn) { //Latin1 and Latin2 encodings PF"/%s findfont\n", font_n[Hfont]); PF"dup length dict begin\n\ {1 index /FID ne {def} {pop pop} ifelse} forall\n\ /Encoding ISOLatin%dEncoding def\n currentdict\nend\n", Enc); PF"/%s-L%d exch definefont pop\n", font_n[Hfont], Enc); PF"/%s-L%d findfont %g scalefont setfont\ncurrentfont\n", font_n[Hfont], Enc, HHeight); } PF"/%s findfont\n", font_n[font]); PF"dup length dict begin\n\ {1 index /FID ne {def} {pop pop} ifelse} forall\n\ /Encoding ISOLatin%dEncoding def\n currentdict\nend\n", Enc); PF"/%s-L%d exch definefont pop\n", font_n[font], Enc); PF"/%s-L%d findfont %g scalefont setfont\n", font_n[font], Enc, Height); } else { // Standard encoding if(headerOn) PF"/%s findfont %g scalefont setfont\ncurrentfont\n", font_n[Hfont], HHeight); PF"/%s findfont %g scalefont setfont\n", font_n[font], Height); } PF"/lineheight %f def\n", lineHeight); PF"/lineH %f def\n", headerOn ? HlineHeight : 1.5 * lineHeight); if(lineHeight > HlineHeight) headerShift = lineHeight; else headerShift = 0.9 * lineHeight + 0.35 * HlineHeight; if(orientation == 1 || orientation == 2) PF"/isPortrait false def\n"); else PF"/isPortrait true def\n"); if(orientation == 2) PF"/is2land true def\n"); else PF"/is2land false def\n"); if(orientation == 3) PF"/is4port true def\n"); else PF"/is4port false def\n"); if(box) PF"/isBox true def\n"); else PF"/isBox false def\n"); if(isProportnl) { PF"/isProportnl true def\n"); } else { PF"/isProportnl false def\n"); } PF"/shift (n) stringwidth pop 0.032 mul def\n"); PF"(m) stringwidth pop dup neg /backsp exch def 7 div /forwd exch def\n"); PF"/d2 %f def /d d2 2 div def /nd d neg def\n", (Height > 20. ? 20. : Height) ); PF"/Xm d2 %d add def /Ym d2 %d add def\n", textWidth, textHeight); PF"/xm Xm is2land is4port or {Xm add} if def\n"); PF"/ym Ym is4port {Ym add} if def\n"); PF"/xLeft nd is4port {d2 sub} if def /offS offSet is4port {d2 sub} if def\n"); PF"/#copies %d def\n", copies); if(isHProportnl) PF"/printPN true def\n"); /* PF"%%%%EndPageSetup\n"); */ } if(headerOn) { PF"currentfont exch setfont\n"); if(isHProportnl) { PF"(Page %d) stringwidth pop d2 add\n", currentPage); if(pagePosition) PF"#c%d\n", pagePosition + 1); else PF"#N dup\n"); PF"/PW exch def /PB leftmargin Xm add PW sub def\n"); if(!pagePosition) { char *pH; PCh('('); pH = header; while(*pH != 0) { PCh(*pH); if(*pH++ == '\\') PCh('\\'); } PF" ) stringwidth pop dup 3 1 roll add\n"); PF"(%s) stringwidth pop add exch dup Xm\n", dateTime); if(currentPage == 1 && orientation == 2 && !isProportnl) PF"Xm add PW sub dup 4 1 roll gt {sub d sub 0 rmoveto /printD false def}\n {pop"); else if(currentPage == 1) PF"gt {Xm sub neg d sub 0 rmoveto /printD false def}\n {"); else PF"PW sub dup 4 1 roll gt {sub d sub 0 rmoveto /printD false def}\n {pop"); PF" pop /printD true def} ifelse\n("); pH = header; while(*pH != 0) { PCh(*pH); if(*pH++ == '\\') PCh('\\'); } PF")#u printD {(%s)#u} if\n", dateTime); if(currentPage == 1 || !pagePosition && orientation > 1) PF"Xm gt {/printPN false def} if\n"); else PF"Xm gt {1 setgray PB d sub line %f sub PW %f rectfill 0 setgray} if\n", 0.3 * HHeight, 1.6 * HHeight); } PF"printPN {PB line moveto (Page %d)#u} if\n", currentPage); if(currentPage == 1 || !pagePosition && orientation > 1) PF"/printPN true def\n"); } else { /* Header font is Courier: */ int i, pageNumPosition, posIntLen(), iSpc, printPageNum = 1; char *c; pageNumPosition = totalCharPerHeader - 4 - posIntLen(currentPage); /* 4 = strlen("Page ") - 1 */ iSpc = (HHeight > 15 ? 1 : 2*HHeight/15); i = iSpc + 1; /* We want at least iSpc spaces between the end of * the header and the Page number */ if(pagePosition) PF"#c%d\n", pagePosition + 1); else { int diff = STRLEN(header) - pageNumPosition + i; PF"#N\n("); if(currentPage == 1 && diff > 0) { printPageNum = 0; if(orientation == 2 && !isProportnl) { diff -= totalCharPerHeader; pageNumPosition += totalCharPerHeader; } else { i = 1; pageNumPosition = totalCharPerHeader + 1; diff = STRLEN(header) - totalCharPerHeader; } } c = header + (diff > 0 ? diff : 0); if(diff>0) *c = Enc==2 ? 0200 : 0273; while(i < pageNumPosition && *c != '\0') { PCh(*c++); i++; } if(headerFlag) { c = dateTime; if(i+STRLEN(c)>pageNumPosition) c++; /* skip one leading space in dateTime */ while(i < pageNumPosition && *c != '\0') { PCh(*c++); i++; } } PF")#u\n"); } if(printPageNum) { i -= iSpc; PCh('('); while(i < pageNumPosition) { PCh(' '); i++; } PF")#s(Page %d)#u\n", currentPage); } } PF"/line line %f sub def leftmargin line moveto()#\n", headerShift); PF"currentfont exch setfont\n"); } else { if(pagePosition) PF"#c%d\n", pagePosition + 1); else PF"#N\n"); } NEWLINE; /* starts the Postscript string '(...)' construct for the first * line of text */ } int posIntLen(i) int i; /*====================*/ { int l = 1, j = 10; while(i > j) { j *= 10; l++; } return(l); } int lineBreak(ssFlag) int ssFlag; /*==============================*/ { int pageBreak(), ss; if(ssFlag) ssLineBreak(); if(lineOnPage == linesPerPage) return(pageBreak()); PF")#\n"); NEWLINE; for(ss = 0; ss < ssLevel; ss++) { if(ssStack[ss] == 1) PF")#s #H("); else PF")#s #L("); } return(0); } int pageBreak() /*===========*/ { void startPage(); int pagePosition; /* Last line is still unfinished (PostScript: not shown) at this point! */ currentPage++; lineOnPage = 0; if(orientation == 2) pagePosition = (currentPage - firstPage) % 2; else if(orientation == 3) pagePosition = (currentPage - firstPage) % 4; else pagePosition = 0; if(printFlag) { if(lastPage && (currentPage > lastPage)) return(1); /* In case of this return, the current line and page will * be finished after exiting from while loop in the * procedure convert012() or convert3() */ PF")#s\n"); if(!pagePosition) PF"#p\n"); startPage(pagePosition); printFlag++; } else { if(firstPage == currentPage) { printFlag = 1; putProc = fputc; printProc = fprintf; #ifdef NOTUNIX if(firstfile) { if( (psfile = fopen(psName,"w")) == NULL ) { #ifdef _PC_ PE"File '%s': %s\n",psName,sys_errlist[errno]); #else PE" psfile %s: cannot be opened\n", psName); #endif exit(-4); } firstfile = 0; } #endif if(fileFlag) { fileFlag = 0; PSprolog(); } startPage(pagePosition); } else lineOnPage++; } return(0); } int Latin2enc() /*===========*/ { // Addition to standard ISOLatin2: // For octal 200, here /.notdef is replaced by /guillemotright (>>) PF"/ISOLatin2Encoding [\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /space /exclam /quotedbl /numbersign\n\ /dollar /percent /ampersand /quoteright\n\ /parenleft /parenright /asterisk /plus\n\ /comma /minus /period /slash\n\ /zero /one /two /three\n\ /four /five /six /seven\n\ /eight /nine /colon /semicolon\n\ /less /equal /greater /question\n\ /at /A /B /C\n\ /D /E /F /G\n\ /H /I /J /K\n\ /L /M /N /O\n\ /P /Q /R /S\n\ /T /U /V /W\n\ /X /Y /Z /bracketleft\n\ /backslash /bracketright /asciicircum /underscore\n\ /quoteleft /a /b /c\n\ /d /e /f /g\n\ /h /i /j /k\n\ /l /m /n /o\n\ /p /q /r /s\n\ /t /u /v /w\n\ /x /y /z /braceleft\n\ /bar /braceright /tilde /.notdef\n\ /guillemotright /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /.notdef /.notdef /.notdef /.notdef\n\ /space /Aogonek /breve /Lslash\n\ /currency /Lcaron /Sacute /dieresis\n\ /.notdef /Scaron /Scedilla /Tcaron\n\ /Zacute /hyphen /Zcaron /Zdotaccent\n\ /degree /aogonek /ogonek /lslash\n\ /acute /lcaron /sacute /caron\n\ /cedilla /scaron /scedilla /tcaron\n\ /zacute /hungarumlaut /zcaron /zdotaccent\n\ /Racute /Aacute /Acircumflex /Abreve\n\ /Adieresis /Lacute /Cacute /Ccedilla\n\ /Ccaron /Eacute /Eogonek /Edieresis\n\ /Ecaron /Iacute /Icircumflex /Dcaron\n\ /Eth /Nacute /Ncaron /Oacute\n\ /Ocircumflex /Ohungarumlaut /Odieresis /multiply\n\ /Rcaron /Uring /Uacute /Uhungarumlaut\n\ /Udieresis /Yacute /Tcedilla /germandbls\n\ /racute /aacute /acircumflex /abreve\n\ /adieresis /lacute /cacute /ccedilla\n\ /ccaron /eacute /eogonek /edieresis\n\ /ecaron /iacute /icircumflex /dcaron\n\ /eth /nacute /ncaron /oacute\n\ /ocircumflex /ohungarumlaut /odieresis /divide\n\ /rcaron /uring /uacute /uhungarumlaut\n\ /udieresis /yacute /tcedilla /dotaccent\n\ ] def\n"); }