home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1070 / a2ps.prologue < prev    next >
Encoding:
Text File  |  1990-12-28  |  5.8 KB  |  195 lines
  1. %  File: imag:/users/local/a2ps/header.ps
  2. %  Created: Tue Nov 29 12:14:02 1988 by miguel@imag (Miguel Santana)
  3. %  Version: 4.0
  4. %  Description: PostScript prolog for a2ps ascii to PostScript program.
  5. % 
  6. %  Edit History:
  7. %  - Original version by evan@csli (Evan Kirshenbaum).
  8. %  - Modified by miguel@imag to:
  9. %    1) Correct an overflow bug when printing page number 10 (operator
  10. %    cvs).
  11. %    2) Define two other variables (sheetwidth, sheetheight) describing
  12. %    the physical page (by default A4 format).
  13. %    3) Minor changes (reorganization, comments, etc).
  14. %  - Modified by tullemans@apolloway.prl.philips.nl
  15. %    1) Correct stack overflows with regard to operators cvs and copy.
  16. %       The resulting substrings where in some cases not popped off 
  17. %       the stack, what can result in a stack overflow.
  18. %    2) Replaced copypage and erasepage by showpage. Page througput
  19. %       degrades severely (see red book page 140) on our ps-printer
  20. %       after printing sheet 16 (i.e. page 8) of a file which was 
  21. %       actually bigger. For this purpose the definitions of startdoc
  22. %       and startpage are changed.
  23. %  - Modified by Tim Clark <T.Clark@uk.ac.warwick> to:
  24. %    1) Print one page per sheet (portrait) as an option.
  25. %    2) Reduce size of file name heading, if it's too big.
  26. %    3) Save and restore PostScript state at begining/end. It now uses
  27. %    conventional %%Page %%Trailer markers.
  28. %    4) Print one wide page per sheet in landscape mode as an option.
  29. %  - Modified by miguel@imag.fr to
  30. %    1) Add new option to print n copies of a file.
  31. %    2) Add new option to suppress heading printing.
  32. %    3) Add new option to suppress page surrounding border printing.
  33. %    4) Add new option to change font size. Number of lines and columns
  34. %    are now automatically adjusted, depending on font size and
  35. %    printing mode used.
  36. %    5) Minor changes (best layout, usage message, etc).
  37. %  - Modified heavily by tml@tik.vtt.fi:
  38. %    1) Simpified a lot (removed 2-up printing)
  39. %    2) Produce confirming PostScript
  40.  
  41. % Copyright (c) 1988, Miguel Santana, miguel@imag.imag.fr
  42. %
  43. % Permission is granted to copy and distribute this file in modified
  44. % or unmodified form, for noncommercial use, provided (a) this copyright
  45. % notice is preserved, (b) no attempt is made to restrict redistribution
  46. % of this file, and (c) this file is not distributed as part of any
  47. % collection whose redistribution is restricted by a compilation copyright.
  48. %
  49.  
  50.  
  51. % General macros.
  52. /getfont {findfont exch scalefont} bind def
  53.  
  54. % Page description variables and inch function are defined by a2ps program.
  55.  
  56. % Character size for differents fonts.
  57. landscape
  58.    { /filenamefontsize 12 def }
  59.    { /filenamefontsize 16 def }
  60. ifelse
  61. /datefontsize filenamefontsize 0.8 mul def
  62. /headermargin filenamefontsize 0.25 mul def
  63. /bodymargin bodyfontsize 0.7 mul def
  64.  
  65. % Font assignment to differents kinds of "objects"
  66. /filenamefontname /Helvetica-Bold def
  67. /stdfilenamefont filenamefontsize filenamefontname getfont def
  68. /datefont datefontsize /Helvetica getfont def
  69. /bodyfont bodyfontsize /Courier getfont def
  70.  
  71. % Logical page attributes
  72. /pagewidth
  73.    bodyfont setfont (0) stringwidth pop columns mul bodymargin dup add add
  74.    def
  75. /pageheight
  76.    bodyfontsize lines mul bodymargin dup add add headersize add
  77.    def
  78.  
  79. % Coordinates for upper corner of a logical page
  80. % Coordinates depend on format mode used.
  81. /rightmargin margin def
  82. /leftmargin margin def
  83. /topmargin margin def
  84. landscape
  85. {  % Landscape format
  86.    /uppery rightmargin pageheight add bodymargin add def
  87.    /upperx topmargin def
  88. }
  89. {  % Portrait format
  90.    /uppery topmargin pageheight add def
  91.    /upperx leftmargin def
  92. }
  93. ifelse
  94.  
  95. % Strings used to make easy printing numbers
  96. /pnum 12 string def
  97. /empty 12 string def
  98.  
  99. % Other initializations.
  100. /datewidth date stringwidth pop def
  101. /filenameroom
  102.          pagewidth
  103.      filenamefontsize 4 mul datewidth add (Page 999) stringwidth pop add
  104.       sub
  105.    def
  106.  
  107.  
  108. % Function setfilename
  109. /setfilename
  110.     { /filename exch def
  111.       /filenamewidth filename stringwidth pop def
  112.       /filenamefont
  113.      filenamewidth filenameroom gt
  114.      {
  115.            filenamefontsize filenameroom mul filenamewidth div
  116.            filenamefontname
  117.         getfont
  118.      }
  119.      {  stdfilenamefont }
  120.      ifelse
  121.      def
  122.     } bind def
  123.  
  124. % Function startpage: prints page header and page border and initializes
  125. % printing of the file lines.
  126. /startpage
  127.     { landscape
  128.     { sheetwidth 0 inch translate
  129.       90 rotate
  130.     } if
  131.       noborder not { printborder } if
  132.       noheader not { printheader } if
  133.      upperx bodymargin add
  134.         uppery
  135.         bodymargin bodyfontsize add  noheader {0} {headersize} ifelse  add
  136.      sub
  137.       moveto
  138.       bodyfont setfont
  139.     } bind def
  140.  
  141. % Function printheader: prints page header.
  142. /printheader
  143.     { upperx uppery headersize sub 1 add  moveto
  144.       datefont setfont
  145.       gsave
  146.         datefontsize headermargin rmoveto
  147.     date show                    % date/hour
  148.       grestore
  149.       gsave
  150.     pagenum pnum cvs pop
  151.        pagewidth (Page 999) stringwidth pop sub
  152.        headermargin
  153.     rmoveto
  154.         (Page ) show pnum show                % page number
  155.       grestore
  156.       empty pnum copy pop
  157.       gsave
  158.         filenamefont setfont
  159.           filenameroom filename stringwidth pop sub 2 div datewidth add
  160.           bodymargin 2 mul 
  161.        add 
  162.        headermargin
  163.     rmoveto
  164.         filename show                        % file name
  165.       grestore
  166.     } bind def
  167.  
  168. % Function printborder: prints border page.
  169. /printborder 
  170.     { upperx uppery moveto
  171.       noheader not
  172.          { 0 headersize neg rmoveto pagewidth 0 rlineto stroke }
  173.       if
  174.     } bind def
  175.  
  176. /epsilon 0.07 def
  177.  
  178. % Function toggle: plus/minus epsilon
  179. /toggle { toggleval 1 lt
  180.         { epsilon }
  181.         { epsilon neg }
  182.       ifelse
  183.       dup /toggleval exch def
  184. } def
  185. /toggleval epsilon def
  186.  
  187. % Function bs: backspace
  188. /bs { show (0) stringwidth pop neg toggle add 0 rmoveto } bind def
  189.  
  190. % Function s: print a source line and newline
  191. /s  { show
  192.       grestore
  193.       0 bodyfontsize neg rmoveto
  194.     } bind def
  195.