home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / gslp.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  20.0 KB  |  698 lines
  1. %    Copyright (C) 1991, 1995, 1996, 1997, 1998, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7. % to anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU General Public License for full details.
  10. % 
  11. % Everyone is granted permission to copy, modify and redistribute GNU
  12. % Ghostscript, but only under the conditions described in the GNU General
  13. % Public License.  A copy of this license is supposed to have been given
  14. % to you along with GNU Ghostscript so you can know your rights and
  15. % responsibilities.  It should be in a file named COPYING.  Among other
  16. % things, the copyright notice and this notice must be preserved on all
  17. % copies.
  18.  
  19. % $RCSfile: gslp.ps,v $ $Revision: 1.2.2.1 $
  20. % gslp.ps - format and print text
  21.  
  22. % This utility provides functionality approximately equivalent to the Unix
  23. % `enscript' program.  It prints plain text files using a single font.
  24. % It currently handles tabs and formfeeds, but not backspaces.
  25. % It will line-wrap when using fixed-pitch fonts.
  26. % It will also do kerning and width adjustment.
  27. % Standard switches implemented:
  28. %    -12BclqRr -b<header> -f<font> -F<hfont> -L<lines> -p<outfile>
  29. % Sun switches implemented:
  30. %    -T<n>    set tab width
  31. % Switches ignored:
  32. %    -GghKkmow -# -C -d -J -n -P -S -s -t -v
  33. % Switches added:
  34. %    --add-to-space <units>
  35. %        add the given number of 1/72" units to the width of each
  36. %        space (may be negative)
  37. %    --add-to-width <units>
  38. %        add the given number of 1/72" units to the width of each
  39. %        character (may be negative)
  40. %    --columns <n>
  41. %        print in <n> columns
  42. %    --detect
  43. %        treat the file as PostScript if it starts with %!
  44. %    --first-page <n>
  45. %        start printing at page <n>
  46. %    --kern <file.afm>
  47. %        kern using information from the given .AFM file
  48. %    --last-page <n>
  49. %        stop printing after page <n>
  50. %    --(heading|footing)-(left|center|right) <string>
  51. %        set the heading/footing fields; use -B first to clear
  52. %    --margin-(top|bottom|left|right) <inches>
  53. %        set a margin
  54. %    --no-eject-(file|formfeed)
  55. %        end-of-file/FF only starts a new column, not a new sheet
  56. %    --spacing <n>
  57. %        use double (n=2), triple (n=3), etc. spacing
  58. % Also, the string %# in a heading or footing is replaced with the page #.
  59. /PageNumberString (%#) def
  60.  
  61. /lpdict 150 dict def
  62. lpdict begin
  63.  
  64. % build iso-latin-1 version of a font
  65. /font-to-iso-latin-1 {    % <font> font-to-iso-latin-1 <font>
  66.     %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  67.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  68.     /Encoding ISOLatin1Encoding def currentdict end
  69.     dup /FontName get 80 string cvs (-ISOLatin1) concatstrings cvn 
  70.     exch definefont
  71. } def
  72.  
  73. /find-latin-font {    % <name> find-latin-font <font>
  74.   findfont font-to-iso-latin-1
  75. } def
  76.  
  77. % Define the initial values of the printing parameters.
  78.  
  79. /AddToSpace 0 def
  80. /AddToWidth 0 def
  81. /BodyFont null def        % use default
  82.   /defaultBodyFontPortrait
  83.     /Courier find-latin-font 10 scalefont def
  84.   /defaultBodyFontLandscape
  85.     /Courier find-latin-font 7 scalefont def
  86.   /defaultBodyFont
  87.     { Landscape { defaultBodyFontLandscape } { defaultBodyFontPortrait } ifelse } def
  88. /Columns 1 def
  89. /DetectFileType false def
  90. /EjectEOF true def
  91. /EjectFF true def
  92. /Footers false def
  93. /FootingLeft () def
  94. /FootingCenter () def
  95. /FootingRight () def
  96. /Headers true def
  97. /HeadingLeft () def
  98. /HeadingCenter () def
  99. /HeadingRight (page ) PageNumberString concatstrings def
  100. /HeadingFont null def        % use default
  101.   /defaultHeadingFont
  102.     /Courier-Bold find-latin-font 10 scalefont def
  103. /Kern 0 dict def        % no kerning
  104. /Landscape false def
  105. /MarginBottom 36 def        % 1/2"
  106. /MarginLeft 36 def        % 1/2"
  107. /MarginRight 36 def        % 1/2"
  108. /MarginTop 36 def        % 1/2"
  109. /MaxLines 9999 def        % max lines per page
  110. /Noisy true def            % i.e., not quiet
  111. /OutFile null def        % null = write directly to device
  112. /PageFirst 1 def
  113. /PageLast 99999 def
  114. /Spacing 1 def
  115. /Tab 8 def
  116. /Truncate false def        % wrap long lines, don't truncate
  117.  
  118. % When writing to a file, we want to write out PostScript;
  119. % when writing to the printer, we want to execute it;
  120. % some commands should be executed regardless.
  121. % lpexec provides for all this.
  122.  
  123. /lpdef {    % <name> <value> lpdef -
  124.   /def 2 true lpexec
  125. } def
  126.  
  127. /lpexec {    % <arg1> ... <argn> </op> <n> <do_always> lpexec -
  128.   OutFile null eq {
  129.     pop 1 add true
  130.   } {
  131.     /t exch def 1 add /n exch def cvx
  132.     n -1 roll dup wo
  133.     n 1 sub { n -1 roll dup wosp } repeat
  134.     (\n) ws n t
  135.   } ifelse
  136.     { pop load exec }
  137.     { { pop } repeat }
  138.   ifelse
  139. } def
  140.  
  141. /lpmoveto {    % <x> <y> lpmoveto -
  142.     % Round the coordinates for smaller output.
  143.   2 {
  144.     exch 100 mul round 100 div
  145.     dup dup cvi eq { cvi } if
  146.   } repeat
  147.   1 index X eq { neg exch pop /V 1 } { neg /M 2 } ifelse true lpexec
  148. } def
  149. /lpshow {    % <string> lpshow -
  150.   dup length 0 ne {
  151.     addspace 0 ne {
  152.       addspace 0 32 
  153.       addwidth 0 ne {
  154.     addwidth 0 6 -1 roll /awidthshow 6 true lpexec
  155.       } {
  156.     4 -1 roll /widthshow 4 true lpexec
  157.       } ifelse
  158.     } {
  159.       addwidth 0 ne {
  160.     addwidth 0 3 -1 roll /ashow 3 true lpexec
  161.       } {
  162.     OutFile null ne {
  163.       dup dup length =string length gt {
  164.         /show 1 false lpexec
  165.       } {
  166.         (S ) ws ws (\n) ws
  167.       } ifelse
  168.     } if show 
  169.       } ifelse
  170.     } ifelse
  171.   } {
  172.     pop
  173.   } ifelse
  174. } def
  175. /lpsetmyfont {
  176.   dup load setfont
  177.    OutFile null ne { cvx /setfont 1 false lpexec } { pop } ifelse
  178. } def
  179.  
  180. % Define some utility procedures.
  181.  
  182. /banner        % ypos left center right
  183.  { /HFont lpsetmyfont
  184.    /addspace 0 def /addwidth 0 def
  185.    /pairkern 0 dict def
  186.    3 -1 roll bannerstring pop 0 4 index pwidth showline2 pop
  187.    exch bannerstring pwidth exch sub 2 div 3 index pwidth showline2 pop
  188.    bannerstring
  189.         % Prevent the last character of the heading from grazing
  190.         % the right margin.
  191.         % ****** WHY DOES IT REQUIRE SO MUCH PADDING? ******
  192.    ( ) stringwidth pop 2 mul add
  193.    pwidth exch sub
  194.    3 -1 roll pwidth showline2 pop
  195.  } def
  196.  
  197. /bannerstring    % string -> string width
  198.   { PageNumberString search
  199.      { exch pop pindex 4 string cvs concatstrings exch concatstrings
  200.      }
  201.     if dup stringwidth pop
  202.   } def
  203.  
  204. /beginpage
  205.  { /lindex 0 def
  206.    /skipping pindex PageFirst ge pindex PageLast le and not def
  207.    pagex pagey Landscape {/BL} {/B} ifelse 2 true lpexec
  208.    /pagesave exch def
  209.    skipping { nulldevice   /OutFile null def } if
  210.    Headers
  211.     { lheight hdescent add
  212.       HeadingLeft HeadingCenter HeadingRight banner
  213.     } if
  214.    /BFont lpsetmyfont
  215.    /pairkern Kern def
  216.    /addspace AddToSpace def /addwidth AddToWidth def
  217.    pairkern length 0 ne {
  218.      /addspace AddToSpace lpdef /addwidth AddToWidth lpdef
  219.    } if
  220.  } def
  221.  
  222. /endpage {
  223.   lindex 0 ne {
  224.     Footers {
  225.       topskip plength sub hdescent add
  226.       FootingLeft FootingCenter FootingRight banner
  227.     } if
  228.     /E
  229.   } {
  230.     /restore
  231.   } ifelse
  232.   pagesave exch 0 true lpexec
  233.   /pindex pindex 1 add def
  234. } def
  235.  
  236. /endcolumn
  237.  { lindex colines 1 sub add colines idiv colines mul
  238.    dup llength ge { pop endpage beginpage } { /lindex exch def } ifelse
  239.  } def
  240.  
  241. /fontheight    % <font> fontheight <ascent> <height>
  242.  { gsave setfont
  243.    newpath 0 0 moveto
  244.    (|^_j) false charpath
  245.    pathbbox exch pop dup 2 index sub 4 -2 roll pop pop
  246.    grestore exch 1.25 mul exch 1.25 mul
  247.  } def
  248.  
  249. /wdict {
  250.   dup length wosp ( dict\n) ws
  251.   { (dup) ws exch wosp wosp ( put\n) ws } forall
  252. } def
  253. /wosp { ( ) ws wo } def
  254. /wo {
  255.   dup type /dicttype eq { wdict } { OutFile exch write==only } ifelse
  256. } def
  257. /ws {
  258.   OutFile exch writestring
  259. } def
  260.  
  261. /outfont {        % <name> <font> outfont -
  262.   OutFile null ne {
  263.     exch wo
  264.     dup /FontName get 
  265.     dup wosp (-ISOLatin1) ws wosp ( RE) ws
  266.     /FontMatrix get 0 get 1000 mul round cvi wosp
  267.     ( scalefont def\n) ws
  268.   } {
  269.     pop pop
  270.   }ifelse
  271. } def
  272.  
  273. /StringFF (\f) def
  274. /CharFF StringFF 0 get def
  275. /StringTAB (\t) def
  276. /CharTAB StringTAB 0 get def
  277.  
  278. /showline        % line -> leftover_line (handles \f)
  279.  {  { showline1 dup length 0 eq { exit } if
  280.       dup 0 get CharFF ne { exit } if
  281.       EjectFF { endpage beginpage } { endcolumn } ifelse
  282.       skip1
  283.     }
  284.    loop
  285.  } def
  286.  
  287. /showline1        % line -> leftover_line (handles page break)
  288.  { lindex llength eq { endpage beginpage } if
  289.    lindex colines idiv cowidth mul        % x
  290.    lindex colines mod 1 add lheight mul neg fascent sub    % y
  291.    1 index cowidth add
  292.    showline2
  293.    /lindex lindex 1 add def
  294.  } def
  295.  
  296. /setxy {
  297.   /ty exch def /tx exch def
  298. } def
  299.  
  300. /showline2 {    % string x y xlimit -> leftover_string (handles tabs)
  301.   2 index exch 5 2 roll setxy {
  302.         % Stack: xinit xlimit string
  303.     showline3 dup length 0 eq { exit } if
  304.     dup 0 get CharTAB ne { exit } if
  305.     tx 3 index sub tabwx div
  306.       0.05 add ceiling tabwx mul 3 index add ty setxy
  307.     skip1
  308.     tx 2 index ge { exit } if
  309.   } loop exch pop exch pop
  310. } def
  311.  
  312. /showline3 {    % xlimit string -> xlimit leftover_string
  313.         % (finds line break / tab / formfeed)
  314.   1 index tx sub
  315.     cwx div 0.1 add cvi 0 max 1 index length min
  316.   1 index 0 3 -1 roll getinterval
  317.     % look for \f or \t
  318.   StringFF search { exch pop exch pop } if
  319.   StringTAB search { exch pop exch pop } if
  320.   dup length 0 ne {
  321.     tx ty lpmoveto
  322.     dup pairkern length 0 eq {
  323.       lpshow
  324.     } {
  325.       { kproc } exch /kshow 2 true lpexec
  326.     } ifelse
  327.     currentpoint setxy
  328.   } if
  329.   length dup 2 index length exch sub getinterval
  330. } def
  331.  
  332. /kproc {    % <char1> <char2> kproc -
  333.   pairkern currentfont /Encoding get 3 index get
  334.   2 copy known {
  335.     get currentfont /Encoding get 2 index get
  336.     2 copy known {
  337.       get currentfont /FontMatrix get 0 get mul
  338.     } {
  339.       pop pop 0
  340.     } ifelse
  341.   } {
  342.     pop pop 0
  343.   } ifelse
  344.   addwidth add 2 index 32 eq { addspace add } if
  345.   dup 0 eq { pop } { 0 rmoveto } ifelse
  346.   pop pop
  347. } def
  348.  
  349. /skip1
  350.  { dup length 1 sub 1 exch getinterval
  351.  } def
  352.  
  353. /e== {        % <object> e== - -- print an object to stderr
  354.   (%stderr) (w) file dup 3 -1 roll write==only flushfile
  355. } def
  356.  
  357. /eprint {    % <string> eprint - -- print a string to stderr
  358.   (%stderr) (w) file dup 3 -1 roll writestring flushfile
  359. } def
  360.  
  361. % Read kerning information from a .AFM file.
  362.  
  363. /readkern {    % <afmfile> readkern <pairkerndict>
  364.   /mfilename 1 index def
  365.   (r) file /mfile exch def
  366.   mfile =string readline pop
  367.   (StartFontMetrics ) anchorsearch {
  368.     pop pop
  369.     /kdict 256 dict def
  370.     { mfile =string readline pop
  371.       (EndFontMetrics) anchorsearch { pop pop exit } if
  372.       (KPX ) anchorsearch {
  373.     pop token pop cvlit /char1 exch def
  374.     token pop cvlit /char2 exch def
  375.     token pop /kern exch def pop
  376.     kdict char1 .knownget not {
  377.       5 dict kdict char1 2 index .growput
  378.     } if
  379.     char2 kern .growput
  380.       } {
  381.     pop
  382.       } ifelse
  383.     } loop kdict
  384.   } {
  385.     pop
  386.     mfilename eprint ( does not begin with StartFontMetrics.\n) eprint
  387.     0 dict
  388.   } ifelse
  389.   mfile closefile
  390. } def
  391.  
  392. % The main printing procedure
  393.  
  394. /doFirst true def
  395. /prevBFont null def
  396. /prevHFont null def
  397.  
  398. /lpfirst {    % - lpfirst -
  399. % Define some abbreviating procedures.
  400.   /B {save 3 1 roll translate /X 0 def} lpdef
  401.   /BL {save 3 1 roll 90 rotate translate /X 0 def} lpdef
  402.   /E {showpage restore} lpdef
  403.   /V {neg X exch moveto} lpdef
  404.   /M {/X 2 index def neg moveto} lpdef
  405.   /S {currentfile =string readline pop show} lpdef
  406.   /RE {        % <isoname> <fontname> RE <font>
  407.     findfont
  408.     %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  409.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  410.     /Encoding ISOLatin1Encoding def currentdict end
  411.     definefont
  412.   } lpdef
  413. } def
  414.  
  415. /lp {        % file initial_chars ->
  416.   /lpline exch def
  417.   /lpfile exch def
  418.  
  419.   doFirst { lpfirst /doFirst false def } if
  420.  
  421. % Initialize the device and fonts.
  422.   /BFont
  423.     BodyFont null eq { defaultBodyFont } { BodyFont } ifelse def
  424.   BFont prevBFont ne {
  425.     /BFont BFont outfont
  426.     /prevBFont BFont def
  427.   } if
  428.   Headers Footers or {
  429.     /HFont
  430.       HeadingFont null eq { defaultHeadingFont } { HeadingFont } ifelse def
  431.     HFont prevHFont ne {
  432.       /HFont HFont outfont
  433.       /prevHFont HFont def
  434.     } if
  435.   } if
  436.   save
  437.  
  438. % Get the layout parameters.
  439.    clippath
  440.    gsave    % for possible rotation
  441.    Landscape { 90 rotate } if
  442.    BFont setfont ( ) stringwidth pop /cwx exch def
  443.      cwx Tab mul /tabwx exch def
  444.    BFont fontheight /fheight exch def /fascent exch def
  445.    Headers Footers or { HFont fontheight } { 0 0 } ifelse
  446.      /hheight exch def /hascent exch def
  447.      /hdescent hheight hascent sub def
  448.    fheight Spacing mul /lheight exch def
  449.    Headers { hheight lheight add } { 0 } ifelse
  450.      /topskip exch def
  451.    Footers { hheight lheight add } { 0 } ifelse
  452.      /botskip exch def
  453.    /pskip topskip botskip add def
  454.     % Translate the page so that (0,0) corresponds to
  455.     % the top of the topmost body line.
  456.    pathbbox
  457.      2 index sub MarginBottom MarginTop add sub /plength exch def
  458.      2 index sub MarginLeft MarginRight add sub /pwidth exch def
  459.      pwidth Columns div /cowidth exch def
  460.      exch MarginLeft add
  461.      exch MarginBottom add plength add topskip sub
  462.      /pagey exch def /pagex exch def
  463.    plength pskip sub lheight div cvi MaxLines min
  464.      dup /colines exch def
  465.      Columns mul /llength exch def
  466.    grestore
  467.    OutFile null ne { nulldevice } if
  468.  
  469. % Print layout
  470.    Noisy
  471.     { (Page height = ) eprint llength e==
  472.       (.\n) eprint flush
  473.     } if
  474.  
  475. % Write the kerning table, if relevant.
  476.    OutFile null ne Kern length 0 ne and {
  477.      (/kproc) ws /kproc load wosp ( def\n) ws
  478.      (/pairkern) ws Kern wosp ( def\n) ws
  479.    } if
  480.  
  481. % Disable stack recording so we can use stopped with readline.
  482.    $error /recordstacks false put
  483.  
  484. % Initialize for the first page.
  485.    /lbuf 1000 string def
  486.    /pindex 1 def
  487.    beginpage
  488.  
  489. % Iterate through the file.
  490.    lpline
  491.     { dup length /pos exch def
  492.       lbuf exch 0 exch putinterval
  493.        { lpfile lbuf pos lbuf length pos sub getinterval readline } stopped
  494.        {    % Filled the line before a CR or EOF.
  495.          exch pop showline
  496.        }
  497.        {    % Reached CR and/or EOF first.
  498.          exch length pos add lbuf exch 0 exch getinterval
  499.      1 index { showline } if        % omit final empty line
  500.       { dup length 0 eq Truncate or { pop () exit } if
  501.         showline
  502.       }
  503.      loop
  504.      exch not { exit } if
  505.        }
  506.       ifelse
  507.     } loop
  508.    pop
  509.  
  510. % Wrap up.
  511. %**************** WHY IS THIS COMMENTED OUT? ****************
  512. %   EjectEOF { endpage } { endcolumn } ifelse
  513.    endpage
  514.    restore
  515.  
  516. } def
  517.  
  518. end
  519.  
  520. % Usage: <file> lp
  521. %   prints <file> using the current parameter settings.
  522. % Usage: [ <arg1> ... <argn> ] lpcommand
  523. %   interprets args like a command line.
  524.  
  525. /lp { save   lpdict begin () lp end   restore } def
  526.  
  527. lpdict begin
  528.  
  529. /splitfn        % (FontNNN) -> <font>
  530.  { dup /arg exch def length
  531.     { dup 0 le { exit } if
  532.       dup 1 sub arg exch get dup 48 ge exch 59 le and not { exit } if
  533.       1 sub
  534.     } loop
  535.    arg exch 0 exch getinterval dup cvn find-latin-font
  536.    exch arg exch anchorsearch pop pop cvr scalefont
  537.  } def
  538.  
  539. % Parse the command line switches.
  540.  
  541. /doswitch    % argn ... arg1 (-?) restofswitch ->
  542.  { exch dup cvn lpdict exch known
  543.     { cvn load exec }
  544.     { exch pop (Unknown switch: ) eprint eprint (\n) eprint }
  545.    ifelse
  546.  } def
  547.  
  548. /more        % argn ... arg1 restofswitch ->
  549.  { dup length 0 ne
  550.     { (- ) dup 1 3 index 0 get put
  551.       exch dup length 1 sub 1 exch getinterval
  552.       doswitch
  553.     }
  554.     { pop
  555.     }
  556.    ifelse
  557.  } def
  558.  
  559. /-- { (--) exch concatstrings
  560.       dup cvn lpdict exch known
  561.        { cvn load exec }
  562.        { (Unknown switch: ) eprint eprint (\n) eprint }
  563.       ifelse
  564.     } def
  565. /--add-to-space { cvr /AddToSpace exch def } def
  566. /--add-to-width { cvr /AddToWidth exch def } def
  567. /--columns { cvi 1 max /Columns exch def } def
  568. /--detect { /DetectFileType true def } def
  569. /--first-page { cvi /PageFirst exch def } def
  570. /--footing-center { /FootingCenter exch def   /Footers true def } def
  571. /--footing-left { /FootingLeft exch def   /Footers true def } def
  572. /--footing-right { /FootingRight exch def   /Footers true def} def
  573. /--heading-center { /HeadingCenter exch def   /Headers true def } def
  574. /--heading-left { /HeadingLeft exch def   /Headers true def } def
  575. /--heading-right { /HeadingRight exch def   /Headers true def } def
  576. /--kern { readkern /Kern exch def } def
  577. /--last-page { cvi /PageLast exch def } def
  578. /--margin-bottom { cvr 72.0 mul /MarginBottom exch def } def
  579. /--margin-left { cvr 72.0 mul /MarginLeft exch def } def
  580. /--margin-right { cvr 72.0 mul /MarginRight exch def } def
  581. /--margin-top { cvr 72.0 mul /MarginTop exch def } def
  582. /--no-eject-file { /EjectEOF false def } def
  583. /--no-eject-formfeed { /EjectFF false def } def
  584. /--spacing { cvr /Spacing exch def } def
  585.  
  586. /-# { pop } def        % ignore
  587. /-+ { -- } def
  588. (-1)cvn { /Columns 1 def   more } def
  589. (-2)cvn { /Columns 2 def   more } def
  590. /-b { /HeadingLeft exch def   /HeadingCenter () def   /HeadingRight PageNumberString def
  591.       /Headers true def
  592.       /break true def
  593.     } def
  594. /-B { /HeadingLeft () def   /HeadingCenter () def   /HeadingRight () def
  595.       /Headers false def
  596.       /FootingLeft () def   /FootingCenter () def   /FootingRight () def
  597.       /Footers false def
  598.       /break true def
  599.       more
  600.     } def
  601. /-C { pop } def        % ignore
  602. /-c { /Truncate true def   more } def
  603. /-d { pop } def        % ignore
  604. /-f { splitfn /BodyFont exch def } def
  605. /-F { splitfn /HeadingFont exch def } def
  606. /-G { more } def    % ignore
  607. /-g { more } def    % ignore
  608. /-h { more } def    % ignore
  609. /-J { pop } def        % ignore
  610. /-K { more } def    % ignore
  611. /-k { more } def    % ignore
  612. /-l { 66 -L -B } def
  613. /-L { cvi /MaxLines exch def } def
  614. /-m { more } def    % ignore
  615. /-n { pop } def        % ignore
  616. /-o { more } def    % ignore
  617. /-p { (w) file /OutFile exch def   OutFile (%!\n) writestring } def
  618. /-P { pop } def        % ignore
  619. /-q { /Noisy false def   more } def
  620. /-r { /Landscape true def   more } def
  621. /-R { /Landscape false def   more } def
  622. /-S { pop } def        % ignore
  623. /-s { pop } def        % ignore
  624. /-T { cvi /Tab exch def } def
  625. /-v { pop } def        % ignore
  626. /-w { more } def    % ignore
  627.  
  628. /lp1        % filename ->
  629.  { break not { dup /HeadingLeft exch def } if
  630.    Noisy
  631.     { (Printing ) eprint dup eprint (\n) eprint 
  632.     } if
  633.    (r) file
  634.         % If requested, check for a PostScript file.
  635.    DetectFileType
  636.     { dup 2 string readstring pop dup (%!) eq
  637.        {    % Yes, it's a PostScript file.
  638.          pop dup 80 string readline pop pop cvx exec
  639.        }
  640.        { lp
  641.        }
  642.       ifelse
  643.     }
  644.     { () lp
  645.     }
  646.    ifelse
  647.  } bind def
  648.  
  649. /lpcstring 100 string def
  650.  
  651. end
  652.  
  653. /lpcommand        % <[arg1 ... argn]> lpcommand <any_printed>
  654.  {    % Push the commands on the stack in reverse order
  655.    mark exch
  656.    dup length 1 sub -1 0 { 1 index exch get exch } for pop
  657.    lpdict begin
  658.    /any false def
  659.    /break false def
  660.     { dup mark eq { pop exit } if
  661.       dup length 2 ge { dup 0 get (-) 0 get eq } { false } ifelse
  662.        { dup 0 2 getinterval
  663.          exch dup length 2 sub 2 exch getinterval
  664.      doswitch
  665.        }
  666.        { dup  /matched false def
  667.           { /matched true def   /any true def   lp1 } lpcstring filenameforall
  668.      matched { pop } { lp1 } ifelse        % let the error happen
  669.        }
  670.       ifelse
  671.     } loop
  672.    OutFile null ne
  673.     { OutFile (%stdout) (w) file ne { OutFile closefile } if
  674.       /OutFile null def
  675.     } if
  676.    any
  677.    end
  678.  } def
  679.  
  680. [ shellarguments
  681.  { ] dup length 0 ne { lpcommand } { false } ifelse not
  682.     { (%stderr) (w) file
  683.       [ (Usage: )
  684.     /PROGNAME where { pop PROGNAME } { (gslp) } ifelse
  685.     ( [-12BclqRr] [-b<header>] [-f<font>] [-F<hfont>]\n)
  686.     (        [-L<lines>] [-p<outfile>] [-T<tabwidth>]\n)
  687.     (        [--add-to-(space|width) <units>] [--columns <n>]\n)
  688.     (        [--detect] [--first-page <page#>] [--last-page <page#>]\n)
  689.     (        [--(heading|footing)-(left|right|center) <string>]\n)
  690.     (        [--kern <afmfile>] [--margin-(top|bottom|left|right) <inches>]\n)
  691.     (        [--no-eject-(file|formfeed)] [--spacing <n>] file1 ... filen\n)
  692.       ] { 2 copy writestring pop } forall dup flushfile closefile
  693.     }
  694.    if
  695.  }
  696.  { pop }
  697. ifelse
  698.