home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / dos / inne / gs300ini / gslp.ps < prev    next >
Encoding:
Text File  |  1994-08-02  |  14.0 KB  |  484 lines
  1. %    Copyright (C) 1991, 1993 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % gslp.ps - format and print text
  19.  
  20. % This utility provides functionality approximately equivalent to the Unix
  21. % `enscript' program.  It prints plain text files using a single font.
  22. % It currently handles tabs and formfeeds, but not backspaces.
  23. % It only works with fixed-pitch fonts.
  24. % Standard flags implemented:
  25. %    -12BclqRr -b -f -F -L -p
  26. % Sun flags implemented:
  27. %    -T<n>    set tab width
  28. % Flags ignored:
  29. %    -GghKkmow -# -C -d -J -n -P -S -s -t -v
  30. % Flags added:
  31. %    --detect
  32. %        treats the file as PostScript if it starts with %!
  33. %    --(heading|footing)-(left|center|right) <string>
  34. %        sets the heading/footing fields; use -B first to clear
  35. %    --first-page <n>
  36. %        sets the first page to print
  37. %    --last-page <n>
  38. %        sets the last page to print
  39. %    --spacing <n>
  40. %        for double (n=2), triple (n=3), etc. spacing
  41. % Also, the string %# in a heading or footing is replaced with the page #.
  42. /PageNumberString (%#) def
  43.  
  44. /lpdict 150 dict def
  45. lpdict begin
  46.  
  47. % Define the initial values of the printing parameters.
  48.  
  49. /BodyFont null def        % use default
  50.   /defaultBodyFont
  51.     { /Courier findfont Landscape { 7 } { 10 } ifelse scalefont } def
  52. /Columns 1 def
  53. /DetectFileType false def
  54. /Footers false def
  55. /FootingLeft () def
  56. /FootingCenter () def
  57. /FootingRight () def
  58. /Headers true def
  59. /HeadingLeft () def
  60. /HeadingCenter () def
  61. /HeadingRight (page ) PageNumberString concatstrings def
  62. /HeadingFont null def        % use default
  63.   /defaultHeadingFont
  64.     { /Courier-Bold findfont 10 scalefont } def
  65. /Landscape false def
  66. /MarginBottom 36 def        % 1/2"
  67. /MarginLeft 36 def        % 1/2"
  68. /MarginRight 36 def        % 1/2"
  69. /MarginTop 36 def        % 1/2"
  70. /MaxLines 9999 def        % max lines per page
  71. /Noisy true def            % i.e., not quiet
  72. /OutFile null def        % null = write directly to device
  73. /PageFirst 1 def
  74. /PageLast 99999 def
  75. /Spacing 1 def
  76. /Tab 8 def
  77. /Truncate false def        % wrap long lines, don't truncate
  78.  
  79. % When writing to a file, we want to write out PostScript;
  80. % when writing to the printer, we want to execute it;
  81. % some commands should be executed regardless.
  82. % lpexec provides for all this.
  83.  
  84. /lpexec        % <arg1> ... <argn> </op> <n> <do_always> lpexec -
  85.  { OutFile null eq
  86.     { pop 1 add true
  87.     }
  88.     { /t exch def 1 add /n exch def cvx
  89.       n { n -1 roll dup wosp } repeat
  90.       OutFile (\n) writestring
  91.       n t
  92.     }
  93.    ifelse
  94.     { pop load exec }
  95.     { { pop } repeat }
  96.    ifelse
  97.  } def
  98.  
  99. /lpmoveto
  100.  { /moveto 2 true lpexec
  101.  } def
  102. /lpshow
  103.  { dup length 0 ne { /show 1 false lpexec } { pop } ifelse
  104.  } def
  105. /lpsetmyfont
  106.  { dup load setfont
  107.    OutFile null ne { cvx /setfont 1 false lpexec } { pop } ifelse
  108.  } def
  109.  
  110. % Define some utility procedures.
  111.  
  112. /banner        % ypos left center right
  113.  { /HFont lpsetmyfont
  114.    3 -1 roll bannerstring pop 0 4 index pwidth showline2 pop
  115.    exch bannerstring pwidth exch sub 2 div 3 index pwidth showline2 pop
  116.    bannerstring pwidth exch sub
  117.    3 -1 roll pwidth showline2 pop
  118.  } def
  119.  
  120. /bannerstring    % string -> string width
  121.   { PageNumberString search
  122.      { exch pop pindex 4 string cvs concatstrings exch concatstrings
  123.      }
  124.     if dup stringwidth pop
  125.   } def
  126.  
  127. /beginpage
  128.  { /lindex 0 def
  129.    /skipping pindex PageFirst ge pindex PageLast le and not def
  130.    /save 0 true lpexec /pagesave exch def
  131.    skipping { nulldevice   /OutFile null def } if
  132.    Headers
  133.     { lheight hdescent add
  134.       HeadingLeft HeadingCenter HeadingRight banner
  135.     } if
  136.    /BFont lpsetmyfont
  137.  } def
  138.  
  139. /endpage
  140.  { lindex 0 ne
  141.     { Footers
  142.        { topskip plength sub hdescent add
  143.          FootingLeft FootingCenter FootingRight banner
  144.        } if
  145.       /showpage 0 false lpexec
  146.     } if
  147.    pagesave /restore 0 true lpexec
  148.    /pindex pindex 1 add def
  149.  } def
  150.  
  151. /fontheight    % <font> fontheight <ascent> <height>
  152.  { gsave setfont
  153.    newpath 0 0 moveto
  154.    (|^_j) false charpath
  155.    pathbbox exch pop dup 2 index sub 4 -2 roll pop pop
  156.    grestore exch 1.25 mul exch 1.25 mul
  157.  } def
  158.  
  159. /wosp
  160.  { OutFile ( ) writestring OutFile exch write==only
  161.  } def
  162.  
  163. /outfont        % name font ->
  164.  { OutFile null ne
  165.     { exch wosp
  166.       dup /FontName get wosp OutFile ( findfont) writestring
  167.       /FontMatrix get 0 get 1000 mul round cvi wosp
  168.       OutFile ( scalefont def\n) writestring
  169.     }
  170.     { pop pop
  171.     }
  172.    ifelse
  173.  } def
  174.  
  175. /StringFF (\f) def
  176. /CharFF StringFF 0 get def
  177. /StringTAB (\t) def
  178. /CharTAB StringTAB 0 get def
  179.  
  180. /showline        % line -> leftover_line (handles \f)
  181.  {  { showline1 dup length 0 eq { exit } if
  182.       dup 0 get CharFF ne { exit } if
  183.       endpage beginpage
  184.       skip1
  185.     }
  186.    loop
  187.  } def
  188.  
  189. /showline1        % line -> leftover_line (handles page break)
  190.  { lindex llength eq { endpage beginpage } if
  191.    lindex colines idiv cowidth mul        % x
  192.    lindex colines mod 1 add lheight mul neg fascent sub    % y
  193.    1 index cowidth add
  194.    showline2
  195.    /lindex lindex 1 add def
  196.  } def
  197.  
  198. /showline2    % string x y xlimit -> leftover_string (handles tabs)
  199.  { 2 index exch 5 2 roll lpmoveto    % xinit xlimit string
  200.     { showline3 dup length 0 eq { exit } if
  201.       dup 0 get CharTAB ne { exit } if
  202.       currentpoint exch 4 index sub tabwx div
  203.     0.05 add ceiling tabwx mul 4 index add exch lpmoveto
  204.       skip1
  205.       currentpoint pop 2 index ge { exit } if
  206.     }
  207.    loop exch pop exch pop
  208.  } def
  209.  
  210. /showline3    % xlimit string -> xlimit leftover_string
  211.         % (finds line break / tab / formfeed)
  212.  { currentpoint pop 2 index exch sub
  213.      cwx div 0.1 add cvi 0 max 1 index length min
  214.    1 index 0 3 -1 roll getinterval
  215.     % look for \f or \t
  216.    StringFF search { exch pop exch pop } if
  217.    StringTAB search { exch pop exch pop } if
  218.    dup lpshow
  219.    length dup 2 index length exch sub getinterval
  220.  } def
  221.  
  222. /skip1
  223.  { dup length 1 sub 1 exch getinterval
  224.  } def
  225.  
  226. % The main printing procedure
  227.  
  228. /lp        % file initial_chars ->
  229.  { /lpline exch def
  230.    /lpfile exch def
  231.    /save 0 true lpexec
  232.  
  233. % Initialize the device and fonts.
  234.    /BFont
  235.      BodyFont null eq { defaultBodyFont } { BodyFont } ifelse def
  236.    /BFont BFont outfont
  237.    Headers Footers or
  238.     { /HFont
  239.     HeadingFont null eq { defaultHeadingFont } { HeadingFont } ifelse def
  240.       /HFont HFont outfont
  241.     }
  242.    if
  243.  
  244. % Get the layout parameters.
  245.    clippath
  246.    Landscape { -90 /rotate 1 true lpexec } if
  247.    BFont setfont ( ) stringwidth pop /cwx exch def
  248.      cwx Tab mul /tabwx exch def
  249.    BFont fontheight /fheight exch def /fascent exch def
  250.    Headers Footers or { HFont fontheight } { 0 0 } ifelse
  251.      /hheight exch def /hascent exch def
  252.      /hdescent hheight hascent sub def
  253.    fheight Spacing mul /lheight exch def
  254.    Headers { hheight lheight add } { 0 } ifelse
  255.      /topskip exch def
  256.    Footers { hheight lheight add } { 0 } ifelse
  257.      /botskip exch def
  258.    /pskip topskip botskip add def
  259.     % Translate the page so that (0,0) corresponds to
  260.     % the top of the topmost body line.
  261.    pathbbox
  262.      2 index sub MarginBottom MarginTop add sub /plength exch def
  263.      2 index sub MarginLeft MarginRight add sub /pwidth exch def
  264.      pwidth Columns div /cowidth exch def
  265.      exch MarginLeft add
  266.      exch MarginBottom add plength add topskip sub
  267.      /translate 2 true lpexec
  268.    plength pskip sub lheight div cvi MaxLines min
  269.      dup /colines exch def
  270.      Columns mul /llength exch def
  271.    OutFile null ne { nulldevice } if
  272.  
  273. % Print layout
  274.    Noisy
  275.     { (Page height = ) print llength =only
  276.       (.\n) print flush
  277.     } if
  278.  
  279. % Disable stack recording so we can use stopped with readline.
  280.    $error /recordstacks false put
  281.  
  282. % Initialize for the first page.
  283.    /lbuf 1000 string def
  284.    /pindex 1 def
  285.    beginpage
  286.  
  287. % Iterate through the file.
  288.    lpline
  289.     { dup length /pos exch def
  290.       lbuf exch 0 exch putinterval
  291.        { lpfile lbuf pos lbuf length pos sub getinterval readline } stopped
  292.        {    % Filled the line before a CR or EOF.
  293.          exch pop showline
  294.        }
  295.        {    % Reached CR and/or EOF first.
  296.          exch length pos add lbuf exch 0 exch getinterval
  297.      1 index { showline } if        % omit final empty line
  298.       { dup length 0 eq Truncate or { pop () exit } if
  299.         showline
  300.       }
  301.      loop
  302.      exch not { exit } if
  303.        }
  304.       ifelse
  305.     } loop
  306.    pop
  307.  
  308. % Wrap up.
  309.    endpage
  310.    /restore 0 true lpexec
  311.  
  312.  } def
  313.  
  314. end
  315.  
  316. % Usage: <file> lp
  317. %   prints <file> using the current parameter settings.
  318. % Usage: [ <arg1> ... <argn> ] lpcommand
  319. %   interprets args like a command line.
  320.  
  321. /lp { save   lpdict begin () lp end   restore } def
  322.  
  323. lpdict begin
  324.  
  325. /splitfn        % (FontNNN) -> <font>
  326.  { dup /arg exch def length
  327.     { dup 0 le { exit } if
  328.       dup 1 sub arg exch get dup 48 ge exch 59 le and not { exit } if
  329.       1 sub
  330.     } loop
  331.    arg exch 0 exch getinterval dup cvn findfont
  332.    exch arg exch anchorsearch pop pop cvr scalefont
  333.  } def
  334.  
  335. % Parse the command line switches.
  336.  
  337. /doswitch    % argn ... arg1 (-?) restofswitch ->
  338.  { exch dup cvn lpdict exch known
  339.     { cvn load exec }
  340.     { exch pop (Unknown switch: ) print print (\n) print flush }
  341.    ifelse
  342.  } def
  343.  
  344. /more        % argn ... arg1 restofswitch ->
  345.  { dup length 0 ne
  346.     { (- ) dup 1 3 index 0 get put
  347.       exch dup length 1 sub 1 exch getinterval
  348.       doswitch
  349.     }
  350.     { pop
  351.     }
  352.    ifelse
  353.  } def
  354.  
  355. /-- { (--) exch concatstrings
  356.       dup cvn lpdict exch known
  357.        { cvn load exec }
  358.        { (Unknown switch: ) print print (\n) print flush }
  359.       ifelse
  360.     } def
  361. /--columns { cvi 1 max /Columns exch def } def
  362. /--detect { /DetectFileType true def } def
  363. /--first-page { cvi /PageFirst exch def } def
  364. /--footing-center { /FootingCenter exch def   /Footers true def } def
  365. /--footing-left { /FootingLeft exch def   /Footers true def } def
  366. /--footing-right { /FootingRight exch def   /Footers true def} def
  367. /--heading-center { /HeadingCenter exch def   /Headers true def } def
  368. /--heading-left { /HeadingLeft exch def   /Headers true def } def
  369. /--heading-right { /HeadingRight exch def   /Headers true def } def
  370. /--margin-bottom { cvr 72.0 mul /MarginBottom exch def } def
  371. /--margin-left { cvr 72.0 mul /MarginLeft exch def } def
  372. /--margin-right { cvr 72.0 mul /MarginRight exch def } def
  373. /--margin-top { cvr 72.0 mul /MarginTop exch def } def
  374. /--last-page { cvi /PageLast exch def } def
  375. /--spacing { cvr /Spacing exch def } def
  376.  
  377. /-# { pop } def        % ignore
  378. /-+ { -- } def
  379. (-1)cvn { /Columns 1 def   more } def
  380. (-2)cvn { /Columns 2 def   more } def
  381. /-b { /HeadingLeft exch def   /HeadingCenter () def   /HeadingRight PageNumberString def
  382.       /Headers true def
  383.       /break true def
  384.     } def
  385. /-B { /HeadingLeft () def   /HeadingCenter () def   /HeadingRight () def
  386.       /Headers false def
  387.       /FootingLeft () def   /FootingCenter () def   /FootingRight () def
  388.       /Footers false def
  389.       /break true def
  390.       more
  391.     } def
  392. /-C { pop } def        % ignore
  393. /-c { /Truncate true def   more } def
  394. /-d { pop } def        % ignore
  395. /-f { splitfn /BodyFont exch def } def
  396. /-F { splitfn /HeadingFont exch def } def
  397. /-G { more } def    % ignore
  398. /-g { more } def    % ignore
  399. /-h { more } def    % ignore
  400. /-J { pop } def        % ignore
  401. /-K { more } def    % ignore
  402. /-k { more } def    % ignore
  403. /-l { 66 -L -B } def
  404. /-L { cvi /MaxLines exch def } def
  405. /-m { more } def    % ignore
  406. /-n { pop } def        % ignore
  407. /-o { more } def    % ignore
  408. /-p { (w) file /OutFile exch def   OutFile (%!\n) writestring } def
  409. /-P { pop } def        % ignore
  410. /-q { /Noisy false def   more } def
  411. /-r { /Landscape true def   more } def
  412. /-R { /Landscape false def   more } def
  413. /-S { pop } def        % ignore
  414. /-s { pop } def        % ignore
  415. /-T { cvi /Tab exch def } def
  416. /-v { pop } def        % ignore
  417. /-w { more } def    % ignore
  418.  
  419. /lp1        % filename ->
  420.  { break not { dup /HeadingLeft exch def } if
  421.    Noisy
  422.     { (Printing ) print dup print (\n) print flush
  423.     } if
  424.    (r) file
  425.         % If requested, check for a PostScript file.
  426.    DetectFileType
  427.     { dup 2 string readstring pop dup (%!) eq
  428.        {    % Yes, it's a PostScript file.
  429.          pop dup 80 string readline pop pop cvx exec
  430.        }
  431.        { lp
  432.        }
  433.       ifelse
  434.     }
  435.     { () lp
  436.     }
  437.    ifelse
  438.  } bind def
  439.  
  440. /lpcstring 100 string def
  441.  
  442. end
  443.  
  444. /lpcommand        % [arg1 ... argn] -> -
  445.  {    % Push the commands on the stack in reverse order
  446.    mark exch
  447.    dup length 1 sub -1 0 { 1 index exch get exch } for pop
  448.    lpdict begin
  449.    /break false def
  450.     { dup mark eq { pop exit } if
  451.       dup length 2 ge { dup 0 get (-) 0 get eq } { false } ifelse
  452.        { dup 0 2 getinterval
  453.          exch dup length 2 sub 2 exch getinterval
  454.      doswitch
  455.        }
  456.        { dup  /matched false def
  457.           { /matched true def    lp1 } lpcstring filenameforall
  458.      matched { pop } { lp1 } ifelse        % let the error happen
  459.        }
  460.       ifelse
  461.     } loop
  462.    OutFile null ne
  463.     { OutFile (%stdout) (w) file ne { OutFile closefile } if
  464.       /OutFile null def
  465.     } if
  466.    end
  467.  } def
  468.  
  469. [ shellarguments
  470.  { ] dup length 0 ne
  471.     { lpcommand
  472.     }
  473.     { (Usage: gslp [-12BclqRr] [-b<header] [-f<font>] [-F<hfont>]\n) print
  474.       (        [-L<lines>] [-p<outfile>] [-T<tabwidth>] [--columns <n>]\n) print
  475.       (        [--detect] [--first-page <page#>] [--last-page <page#>]\n) print
  476.       (        [--(heading|footing)-(left|right|center) <string>]\n) print
  477.       (        [--margin-(top|bottom|left|right) <inches>]\n) print
  478.       (        [--spacing <n>] file1 ... filen\n) print flush
  479.     }
  480.    ifelse
  481.  }
  482.  { pop }
  483. ifelse
  484.