diff options
Diffstat (limited to 'Master/tlpkg/tlgs/lib/gslp.ps')
-rw-r--r--[-rwxr-xr-x] | Master/tlpkg/tlgs/lib/gslp.ps | 1390 |
1 files changed, 695 insertions, 695 deletions
diff --git a/Master/tlpkg/tlgs/lib/gslp.ps b/Master/tlpkg/tlgs/lib/gslp.ps index c520be656d9..264984af968 100755..100644 --- a/Master/tlpkg/tlgs/lib/gslp.ps +++ b/Master/tlpkg/tlgs/lib/gslp.ps @@ -1,695 +1,695 @@ -% Copyright (C) 1991, 1995, 1996, 1997, 1998, 1999 Aladdin Enterprises. All rights reserved.
-%
-% This software is provided AS-IS with no warranty, either express or
-% implied.
-%
-% This software is distributed under license and may not be copied,
-% modified or distributed except as expressly authorized under the terms
-% of the license contained in the file LICENSE in this distribution.
-%
-% For more information about licensing, please refer to
-% http://www.ghostscript.com/licensing/. For information on
-% commercial licensing, go to http://www.artifex.com/licensing/ or
-% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
-% San Rafael, CA 94903, U.S.A., +1(415)492-9861.
-
-% $Id: gslp.ps 6300 2005-12-28 19:56:24Z giles $
-% gslp.ps - format and print text
-
-% This utility provides functionality approximately equivalent to the Unix
-% `enscript' program. It prints plain text files using a single font.
-% It currently handles tabs and formfeeds, but not backspaces.
-% It will line-wrap when using fixed-pitch fonts.
-% It will also do kerning and width adjustment.
-% Standard switches implemented:
-% -12BclqRr -b<header> -f<font> -F<hfont> -L<lines> -p<outfile>
-% Sun switches implemented:
-% -T<n> set tab width
-% Switches ignored:
-% -GghKkmow -# -C -d -J -n -P -S -s -t -v
-% Switches added:
-% --add-to-space <units>
-% add the given number of 1/72" units to the width of each
-% space (may be negative)
-% --add-to-width <units>
-% add the given number of 1/72" units to the width of each
-% character (may be negative)
-% --columns <n>
-% print in <n> columns
-% --detect
-% treat the file as PostScript if it starts with %!
-% --first-page <n>
-% start printing at page <n>
-% --kern <file.afm>
-% kern using information from the given .AFM file
-% --last-page <n>
-% stop printing after page <n>
-% --(heading|footing)-(left|center|right) <string>
-% set the heading/footing fields; use -B first to clear
-% --margin-(top|bottom|left|right) <inches>
-% set a margin
-% --no-eject-(file|formfeed)
-% end-of-file/FF only starts a new column, not a new sheet
-% --spacing <n>
-% use double (n=2), triple (n=3), etc. spacing
-% Also, the string %# in a heading or footing is replaced with the page #.
-/PageNumberString (%#) def
-
-/lpdict 150 dict def
-lpdict begin
-
-% build iso-latin-1 version of a font
-/font-to-iso-latin-1 { % <font> font-to-iso-latin-1 <font>
- %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
- dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
- /Encoding ISOLatin1Encoding def currentdict end
- dup /FontName get 80 string cvs (-ISOLatin1) concatstrings cvn
- exch definefont
-} def
-
-/find-latin-font { % <name> find-latin-font <font>
- findfont font-to-iso-latin-1
-} def
-
-% Define the initial values of the printing parameters.
-
-/AddToSpace 0 def
-/AddToWidth 0 def
-/BodyFont null def % use default
- /defaultBodyFontPortrait
- /Courier find-latin-font 10 scalefont def
- /defaultBodyFontLandscape
- /Courier find-latin-font 7 scalefont def
- /defaultBodyFont
- { Landscape { defaultBodyFontLandscape } { defaultBodyFontPortrait } ifelse } def
-/Columns 1 def
-/DetectFileType false def
-/EjectEOF true def
-/EjectFF true def
-/Footers false def
-/FootingLeft () def
-/FootingCenter () def
-/FootingRight () def
-/Headers true def
-/HeadingLeft () def
-/HeadingCenter () def
-/HeadingRight (page ) PageNumberString concatstrings def
-/HeadingFont null def % use default
- /defaultHeadingFont
- /Courier-Bold find-latin-font 10 scalefont def
-/Kern 0 dict def % no kerning
-/Landscape false def
-/MarginBottom 36 def % 1/2"
-/MarginLeft 36 def % 1/2"
-/MarginRight 36 def % 1/2"
-/MarginTop 36 def % 1/2"
-/MaxLines 9999 def % max lines per page
-/Noisy true def % i.e., not quiet
-/OutFile null def % null = write directly to device
-/PageFirst 1 def
-/PageLast 99999 def
-/Spacing 1 def
-/Tab 8 def
-/Truncate false def % wrap long lines, don't truncate
-
-% When writing to a file, we want to write out PostScript;
-% when writing to the printer, we want to execute it;
-% some commands should be executed regardless.
-% lpexec provides for all this.
-
-/lpdef { % <name> <value> lpdef -
- /def 2 true lpexec
-} def
-
-/lpexec { % <arg1> ... <argn> </op> <n> <do_always> lpexec -
- OutFile null eq {
- pop 1 add true
- } {
- /t exch def 1 add /n exch def cvx
- n -1 roll dup wo
- n 1 sub { n -1 roll dup wosp } repeat
- (\n) ws n t
- } ifelse
- { pop load exec }
- { { pop } repeat }
- ifelse
-} def
-
-/lpmoveto { % <x> <y> lpmoveto -
- % Round the coordinates for smaller output.
- 2 {
- exch 100 mul round 100 div
- dup dup cvi eq { cvi } if
- } repeat
- 1 index X eq { neg exch pop /V 1 } { neg /M 2 } ifelse true lpexec
-} def
-/lpshow { % <string> lpshow -
- dup length 0 ne {
- addspace 0 ne {
- addspace 0 32
- addwidth 0 ne {
- addwidth 0 6 -1 roll /awidthshow 6 true lpexec
- } {
- 4 -1 roll /widthshow 4 true lpexec
- } ifelse
- } {
- addwidth 0 ne {
- addwidth 0 3 -1 roll /ashow 3 true lpexec
- } {
- OutFile null ne {
- dup dup length =string length gt {
- /show 1 false lpexec
- } {
- (S ) ws ws (\n) ws
- } ifelse
- } if show
- } ifelse
- } ifelse
- } {
- pop
- } ifelse
-} def
-/lpsetmyfont {
- dup load setfont
- OutFile null ne { cvx /setfont 1 false lpexec } { pop } ifelse
-} def
-
-% Define some utility procedures.
-
-/banner % ypos left center right
- { /HFont lpsetmyfont
- /addspace 0 def /addwidth 0 def
- /pairkern 0 dict def
- 3 -1 roll bannerstring pop 0 4 index pwidth showline2 pop
- exch bannerstring pwidth exch sub 2 div 3 index pwidth showline2 pop
- bannerstring
- % Prevent the last character of the heading from grazing
- % the right margin.
- % ****** WHY DOES IT REQUIRE SO MUCH PADDING? ******
- ( ) stringwidth pop 2 mul add
- pwidth exch sub
- 3 -1 roll pwidth showline2 pop
- } def
-
-/bannerstring % string -> string width
- { PageNumberString search
- { exch pop pindex 4 string cvs concatstrings exch concatstrings
- }
- if dup stringwidth pop
- } def
-
-/beginpage
- { /lindex 0 def
- /skipping pindex PageFirst ge pindex PageLast le and not def
- pagex pagey Landscape {/BL} {/B} ifelse 2 true lpexec
- /pagesave exch def
- skipping { nulldevice /OutFile null def } if
- Headers
- { lheight hdescent add
- HeadingLeft HeadingCenter HeadingRight banner
- } if
- /BFont lpsetmyfont
- /pairkern Kern def
- /addspace AddToSpace def /addwidth AddToWidth def
- pairkern length 0 ne {
- /addspace AddToSpace lpdef /addwidth AddToWidth lpdef
- } if
- } def
-
-/endpage {
- lindex 0 ne {
- Footers {
- topskip plength sub hdescent add
- FootingLeft FootingCenter FootingRight banner
- } if
- /E
- } {
- /restore
- } ifelse
- pagesave exch 0 true lpexec
- /pindex pindex 1 add def
-} def
-
-/endcolumn
- { lindex colines 1 sub add colines idiv colines mul
- dup llength ge { pop endpage beginpage } { /lindex exch def } ifelse
- } def
-
-/fontheight % <font> fontheight <ascent> <height>
- { gsave setfont
- newpath 0 0 moveto
- (|^_j) false charpath
- pathbbox exch pop dup 2 index sub 4 -2 roll pop pop
- grestore exch 1.25 mul exch 1.25 mul
- } def
-
-/wdict {
- dup length wosp ( dict\n) ws
- { (dup) ws exch wosp wosp ( put\n) ws } forall
-} def
-/wosp { ( ) ws wo } def
-/wo {
- dup type /dicttype eq { wdict } { OutFile exch write==only } ifelse
-} def
-/ws {
- OutFile exch writestring
-} def
-
-/outfont { % <name> <font> outfont -
- OutFile null ne {
- exch wo
- dup /FontName get
- dup wosp (-ISOLatin1) ws wosp ( RE) ws
- /FontMatrix get 0 get 1000 mul round cvi wosp
- ( scalefont def\n) ws
- } {
- pop pop
- }ifelse
-} def
-
-/StringFF (\f) def
-/CharFF StringFF 0 get def
-/StringTAB (\t) def
-/CharTAB StringTAB 0 get def
-
-/showline % line -> leftover_line (handles \f)
- { { showline1 dup length 0 eq { exit } if
- dup 0 get CharFF ne { exit } if
- EjectFF { endpage beginpage } { endcolumn } ifelse
- skip1
- }
- loop
- } def
-
-/showline1 % line -> leftover_line (handles page break)
- { lindex llength eq { endpage beginpage } if
- lindex colines idiv cowidth mul % x
- lindex colines mod 1 add lheight mul neg fascent sub % y
- 1 index cowidth add
- showline2
- /lindex lindex 1 add def
- } def
-
-/setxy {
- /ty exch def /tx exch def
-} def
-
-/showline2 { % string x y xlimit -> leftover_string (handles tabs)
- 2 index exch 5 2 roll setxy {
- % Stack: xinit xlimit string
- showline3 dup length 0 eq { exit } if
- dup 0 get CharTAB ne { exit } if
- tx 3 index sub tabwx div
- 0.05 add ceiling tabwx mul 3 index add ty setxy
- skip1
- tx 2 index ge { exit } if
- } loop exch pop exch pop
-} def
-
-/showline3 { % xlimit string -> xlimit leftover_string
- % (finds line break / tab / formfeed)
- 1 index tx sub
- cwx div 0.1 add cvi 0 .max 1 index length .min
- 1 index 0 3 -1 roll getinterval
- % look for \f or \t
- StringFF search { exch pop exch pop } if
- StringTAB search { exch pop exch pop } if
- dup length 0 ne {
- tx ty lpmoveto
- dup pairkern length 0 eq {
- lpshow
- } {
- { kproc } exch /kshow 2 true lpexec
- } ifelse
- currentpoint setxy
- } if
- length dup 2 index length exch sub getinterval
-} def
-
-/kproc { % <char1> <char2> kproc -
- pairkern currentfont /Encoding get 3 index get
- 2 copy known {
- get currentfont /Encoding get 2 index get
- 2 copy known {
- get currentfont /FontMatrix get 0 get mul
- } {
- pop pop 0
- } ifelse
- } {
- pop pop 0
- } ifelse
- addwidth add 2 index 32 eq { addspace add } if
- dup 0 eq { pop } { 0 rmoveto } ifelse
- pop pop
-} def
-
-/skip1
- { dup length 1 sub 1 exch getinterval
- } def
-
-/e== { % <object> e== - -- print an object to stderr
- (%stderr) (w) file dup 3 -1 roll write==only flushfile
-} def
-
-/eprint { % <string> eprint - -- print a string to stderr
- (%stderr) (w) file dup 3 -1 roll writestring flushfile
-} def
-
-% Read kerning information from a .AFM file.
-
-/readkern { % <afmfile> readkern <pairkerndict>
- /mfilename 1 index def
- (r) file /mfile exch def
- mfile =string readline pop
- (StartFontMetrics ) anchorsearch {
- pop pop
- /kdict 256 dict def
- { mfile =string readline pop
- (EndFontMetrics) anchorsearch { pop pop exit } if
- (KPX ) anchorsearch {
- pop token pop cvlit /char1 exch def
- token pop cvlit /char2 exch def
- token pop /kern exch def pop
- kdict char1 .knownget not {
- 5 dict kdict char1 2 index .growput
- } if
- char2 kern .growput
- } {
- pop
- } ifelse
- } loop kdict
- } {
- pop
- mfilename eprint ( does not begin with StartFontMetrics.\n) eprint
- 0 dict
- } ifelse
- mfile closefile
-} def
-
-% The main printing procedure
-
-/doFirst true def
-/prevBFont null def
-/prevHFont null def
-
-/lpfirst { % - lpfirst -
-% Define some abbreviating procedures.
- /B {save 3 1 roll translate /X 0 def} lpdef
- /BL {save 3 1 roll 90 rotate translate /X 0 def} lpdef
- /E {showpage restore} lpdef
- /V {neg X exch moveto} lpdef
- /M {/X 2 index def neg moveto} lpdef
- /S {currentfile =string readline pop show} lpdef
- /RE { % <isoname> <fontname> RE <font>
- findfont
- %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
- dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
- /Encoding ISOLatin1Encoding def currentdict end
- definefont
- } lpdef
-} def
-
-/lp { % file initial_chars ->
- /lpline exch def
- /lpfile exch def
-
- doFirst { lpfirst /doFirst false def } if
-
-% Initialize the device and fonts.
- /BFont
- BodyFont null eq { defaultBodyFont } { BodyFont } ifelse def
- BFont prevBFont ne {
- /BFont BFont outfont
- /prevBFont BFont def
- } if
- Headers Footers or {
- /HFont
- HeadingFont null eq { defaultHeadingFont } { HeadingFont } ifelse def
- HFont prevHFont ne {
- /HFont HFont outfont
- /prevHFont HFont def
- } if
- } if
- save
-
-% Get the layout parameters.
- clippath
- gsave % for possible rotation
- Landscape { 90 rotate } if
- BFont setfont ( ) stringwidth pop /cwx exch def
- cwx Tab mul /tabwx exch def
- BFont fontheight /fheight exch def /fascent exch def
- Headers Footers or { HFont fontheight } { 0 0 } ifelse
- /hheight exch def /hascent exch def
- /hdescent hheight hascent sub def
- fheight Spacing mul /lheight exch def
- Headers { hheight lheight add } { 0 } ifelse
- /topskip exch def
- Footers { hheight lheight add } { 0 } ifelse
- /botskip exch def
- /pskip topskip botskip add def
- % Translate the page so that (0,0) corresponds to
- % the top of the topmost body line.
- pathbbox
- 2 index sub MarginBottom MarginTop add sub /plength exch def
- 2 index sub MarginLeft MarginRight add sub /pwidth exch def
- pwidth Columns div /cowidth exch def
- exch MarginLeft add
- exch MarginBottom add plength add topskip sub
- /pagey exch def /pagex exch def
- plength pskip sub lheight div cvi MaxLines .min
- dup /colines exch def
- Columns mul /llength exch def
- grestore
- OutFile null ne { nulldevice } if
-
-% Print layout
- Noisy
- { (Page height = ) eprint llength e==
- (.\n) eprint flush
- } if
-
-% Write the kerning table, if relevant.
- OutFile null ne Kern length 0 ne and {
- (/kproc) ws /kproc load wosp ( def\n) ws
- (/pairkern) ws Kern wosp ( def\n) ws
- } if
-
-% Disable stack recording so we can use stopped with readline.
- $error /recordstacks false put
-
-% Initialize for the first page.
- /lbuf 64000 string def
- /pindex 1 def
- beginpage
-
-% Iterate through the file.
- lpline
- { dup length /pos exch def
- lbuf exch 0 exch putinterval
- { lpfile lbuf pos lbuf length pos sub getinterval readline } stopped
- { % Filled the line before a CR or EOF.
- exch pop showline
- }
- { % Reached CR and/or EOF first.
- exch length pos add lbuf exch 0 exch getinterval
- 1 index { showline } if % omit final empty line
- { dup length 0 eq Truncate or { pop () exit } if
- showline
- }
- loop
- exch not { exit } if
- }
- ifelse
- pindex PageLast gt { exit } if
- } loop
- pop
-
-% Wrap up.
-%**************** WHY IS THIS COMMENTED OUT? ****************
-% EjectEOF { endpage } { endcolumn } ifelse
- endpage
- restore
-
-} def
-
-end
-
-% Usage: <file> lp
-% prints <file> using the current parameter settings.
-% Usage: [ <arg1> ... <argn> ] lpcommand
-% interprets args like a command line.
-
-/lp { save lpdict begin () lp end restore } def
-
-lpdict begin
-
-/splitfn % (FontNN.NN) -> <font>
- { dup /arg exch def length
- { dup 0 le { exit } if
- dup 1 sub arg exch get dup 48 ge 1 index 59 le and exch 46 eq or not { exit } if
- 1 sub
- } loop
- arg exch 0 exch getinterval dup cvn find-latin-font
- exch arg exch anchorsearch pop pop cvr scalefont
- } def
-
-% Parse the command line switches.
-
-/doswitch % argn ... arg1 (-?) restofswitch ->
- { exch dup cvn lpdict exch known
- { cvn load exec }
- { exch pop (Unknown switch: ) eprint eprint (\n) eprint }
- ifelse
- } def
-
-/more % argn ... arg1 restofswitch ->
- { dup length 0 ne
- { (- ) dup 1 3 index 0 get put
- exch dup length 1 sub 1 exch getinterval
- doswitch
- }
- { pop
- }
- ifelse
- } def
-
-/-- { (--) exch concatstrings
- dup cvn lpdict exch known
- { cvn load exec }
- { (Unknown switch: ) eprint eprint (\n) eprint }
- ifelse
- } def
-/--add-to-space { cvr /AddToSpace exch def } def
-/--add-to-width { cvr /AddToWidth exch def } def
-/--columns { cvi 1 .max /Columns exch def } def
-/--detect { /DetectFileType true def } def
-/--first-page { cvi /PageFirst exch def } def
-/--footing-center { /FootingCenter exch def /Footers true def } def
-/--footing-left { /FootingLeft exch def /Footers true def } def
-/--footing-right { /FootingRight exch def /Footers true def} def
-/--heading-center { /HeadingCenter exch def /Headers true def } def
-/--heading-left { /HeadingLeft exch def /Headers true def } def
-/--heading-right { /HeadingRight exch def /Headers true def } def
-/--kern { readkern /Kern exch def } def
-/--last-page { cvi /PageLast exch def } def
-/--margin-bottom { cvr 72.0 mul /MarginBottom exch def } def
-/--margin-left { cvr 72.0 mul /MarginLeft exch def } def
-/--margin-right { cvr 72.0 mul /MarginRight exch def } def
-/--margin-top { cvr 72.0 mul /MarginTop exch def } def
-/--no-eject-file { /EjectEOF false def } def
-/--no-eject-formfeed { /EjectFF false def } def
-/--spacing { cvr /Spacing exch def } def
-
-/-# { pop } def % ignore
-/-+ { -- } def
-(-1)cvn { /Columns 1 def more } def
-(-2)cvn { /Columns 2 def more } def
-/-b { /HeadingLeft exch def /HeadingCenter () def /HeadingRight PageNumberString def
- /Headers true def
- /break true def
- } def
-/-B { /HeadingLeft () def /HeadingCenter () def /HeadingRight () def
- /Headers false def
- /FootingLeft () def /FootingCenter () def /FootingRight () def
- /Footers false def
- /break true def
- more
- } def
-/-C { pop } def % ignore
-/-c { /Truncate true def more } def
-/-d { pop } def % ignore
-/-f { splitfn /BodyFont exch def } def
-/-F { splitfn /HeadingFont exch def } def
-/-G { more } def % ignore
-/-g { more } def % ignore
-/-h { more } def % ignore
-/-J { pop } def % ignore
-/-K { more } def % ignore
-/-k { more } def % ignore
-/-l { 66 -L -B } def
-/-L { cvi /MaxLines exch def } def
-/-m { more } def % ignore
-/-n { pop } def % ignore
-/-o { more } def % ignore
-/-p { (w) file /OutFile exch def OutFile (%!\n) writestring } def
-/-P { pop } def % ignore
-/-q { /Noisy false def more } def
-/-r { /Landscape true def more } def
-/-R { /Landscape false def more } def
-/-S { pop } def % ignore
-/-s { pop } def % ignore
-/-T { cvi /Tab exch def } def
-/-v { pop } def % ignore
-/-w { more } def % ignore
-
-/lp1 % filename ->
- { break not { dup /HeadingLeft exch def } if
- Noisy
- { (Printing ) eprint dup eprint (\n) eprint
- } if
- (r) file
- % If requested, check for a PostScript file.
- DetectFileType
- { dup 2 string readstring pop dup (%!) eq
- { % Yes, it's a PostScript file.
- pop dup 80 string readline pop pop cvx exec
- }
- { lp
- }
- ifelse
- }
- { () lp
- }
- ifelse
- } bind def
-
-/lpcstring 8192 string def
-
-end
-
-/lpcommand % <[arg1 ... argn]> lpcommand <any_printed>
- { % Push the commands on the stack in reverse order
- mark exch
- dup length 1 sub -1 0 { 1 index exch get exch } for pop
- lpdict begin
- /any false def
- /break false def
- { dup mark eq { pop exit } if
- dup length 2 ge { dup 0 get (-) 0 get eq } { false } ifelse
- { dup 0 2 getinterval
- exch dup length 2 sub 2 exch getinterval
- doswitch
- }
- { dup /matched false def
- { /matched true def /any true def lp1 } lpcstring filenameforall
- matched { pop } { lp1 } ifelse % let the error happen
- }
- ifelse
- } loop
- OutFile null ne
- { OutFile (%stdout) (w) file ne { OutFile closefile } if
- /OutFile null def
- } if
- any
- end
- } def
-
-[ shellarguments
- { ] dup length 0 ne { lpcommand } { false } ifelse not
- { (%stderr) (w) file
- [ (Usage: )
- /PROGNAME where { pop PROGNAME } { (gslp) } ifelse
- ( [-12BclqRr] [-b<header>] [-f<font>] [-F<hfont>]\n)
- ( [-L<lines>] [-p<outfile>] [-T<tabwidth>]\n)
- ( [--add-to-(space|width) <units>] [--columns <n>]\n)
- ( [--detect] [--first-page <page#>] [--last-page <page#>]\n)
- ( [--(heading|footing)-(left|right|center) <string>]\n)
- ( [--kern <afmfile>] [--margin-(top|bottom|left|right) <inches>]\n)
- ( [--no-eject-(file|formfeed)] [--spacing <n>] file1 ... filen\n)
- ] { 2 copy writestring pop } forall dup flushfile closefile
- }
- if
- }
- { pop }
-ifelse
+% Copyright (C) 1991, 1995, 1996, 1997, 1998, 1999 Aladdin Enterprises. All rights reserved. +% +% This software is provided AS-IS with no warranty, either express or +% implied. +% +% This software is distributed under license and may not be copied, +% modified or distributed except as expressly authorized under the terms +% of the license contained in the file LICENSE in this distribution. +% +% For more information about licensing, please refer to +% http://www.ghostscript.com/licensing/. For information on +% commercial licensing, go to http://www.artifex.com/licensing/ or +% contact Artifex Software, Inc., 101 Lucas Valley Road #110, +% San Rafael, CA 94903, U.S.A., +1(415)492-9861. + +% $Id: gslp.ps 6300 2005-12-28 19:56:24Z giles $ +% gslp.ps - format and print text + +% This utility provides functionality approximately equivalent to the Unix +% `enscript' program. It prints plain text files using a single font. +% It currently handles tabs and formfeeds, but not backspaces. +% It will line-wrap when using fixed-pitch fonts. +% It will also do kerning and width adjustment. +% Standard switches implemented: +% -12BclqRr -b<header> -f<font> -F<hfont> -L<lines> -p<outfile> +% Sun switches implemented: +% -T<n> set tab width +% Switches ignored: +% -GghKkmow -# -C -d -J -n -P -S -s -t -v +% Switches added: +% --add-to-space <units> +% add the given number of 1/72" units to the width of each +% space (may be negative) +% --add-to-width <units> +% add the given number of 1/72" units to the width of each +% character (may be negative) +% --columns <n> +% print in <n> columns +% --detect +% treat the file as PostScript if it starts with %! +% --first-page <n> +% start printing at page <n> +% --kern <file.afm> +% kern using information from the given .AFM file +% --last-page <n> +% stop printing after page <n> +% --(heading|footing)-(left|center|right) <string> +% set the heading/footing fields; use -B first to clear +% --margin-(top|bottom|left|right) <inches> +% set a margin +% --no-eject-(file|formfeed) +% end-of-file/FF only starts a new column, not a new sheet +% --spacing <n> +% use double (n=2), triple (n=3), etc. spacing +% Also, the string %# in a heading or footing is replaced with the page #. +/PageNumberString (%#) def + +/lpdict 150 dict def +lpdict begin + +% build iso-latin-1 version of a font +/font-to-iso-latin-1 { % <font> font-to-iso-latin-1 <font> + %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1 + dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall + /Encoding ISOLatin1Encoding def currentdict end + dup /FontName get 80 string cvs (-ISOLatin1) concatstrings cvn + exch definefont +} def + +/find-latin-font { % <name> find-latin-font <font> + findfont font-to-iso-latin-1 +} def + +% Define the initial values of the printing parameters. + +/AddToSpace 0 def +/AddToWidth 0 def +/BodyFont null def % use default + /defaultBodyFontPortrait + /Courier find-latin-font 10 scalefont def + /defaultBodyFontLandscape + /Courier find-latin-font 7 scalefont def + /defaultBodyFont + { Landscape { defaultBodyFontLandscape } { defaultBodyFontPortrait } ifelse } def +/Columns 1 def +/DetectFileType false def +/EjectEOF true def +/EjectFF true def +/Footers false def +/FootingLeft () def +/FootingCenter () def +/FootingRight () def +/Headers true def +/HeadingLeft () def +/HeadingCenter () def +/HeadingRight (page ) PageNumberString concatstrings def +/HeadingFont null def % use default + /defaultHeadingFont + /Courier-Bold find-latin-font 10 scalefont def +/Kern 0 dict def % no kerning +/Landscape false def +/MarginBottom 36 def % 1/2" +/MarginLeft 36 def % 1/2" +/MarginRight 36 def % 1/2" +/MarginTop 36 def % 1/2" +/MaxLines 9999 def % max lines per page +/Noisy true def % i.e., not quiet +/OutFile null def % null = write directly to device +/PageFirst 1 def +/PageLast 99999 def +/Spacing 1 def +/Tab 8 def +/Truncate false def % wrap long lines, don't truncate + +% When writing to a file, we want to write out PostScript; +% when writing to the printer, we want to execute it; +% some commands should be executed regardless. +% lpexec provides for all this. + +/lpdef { % <name> <value> lpdef - + /def 2 true lpexec +} def + +/lpexec { % <arg1> ... <argn> </op> <n> <do_always> lpexec - + OutFile null eq { + pop 1 add true + } { + /t exch def 1 add /n exch def cvx + n -1 roll dup wo + n 1 sub { n -1 roll dup wosp } repeat + (\n) ws n t + } ifelse + { pop load exec } + { { pop } repeat } + ifelse +} def + +/lpmoveto { % <x> <y> lpmoveto - + % Round the coordinates for smaller output. + 2 { + exch 100 mul round 100 div + dup dup cvi eq { cvi } if + } repeat + 1 index X eq { neg exch pop /V 1 } { neg /M 2 } ifelse true lpexec +} def +/lpshow { % <string> lpshow - + dup length 0 ne { + addspace 0 ne { + addspace 0 32 + addwidth 0 ne { + addwidth 0 6 -1 roll /awidthshow 6 true lpexec + } { + 4 -1 roll /widthshow 4 true lpexec + } ifelse + } { + addwidth 0 ne { + addwidth 0 3 -1 roll /ashow 3 true lpexec + } { + OutFile null ne { + dup dup length =string length gt { + /show 1 false lpexec + } { + (S ) ws ws (\n) ws + } ifelse + } if show + } ifelse + } ifelse + } { + pop + } ifelse +} def +/lpsetmyfont { + dup load setfont + OutFile null ne { cvx /setfont 1 false lpexec } { pop } ifelse +} def + +% Define some utility procedures. + +/banner % ypos left center right + { /HFont lpsetmyfont + /addspace 0 def /addwidth 0 def + /pairkern 0 dict def + 3 -1 roll bannerstring pop 0 4 index pwidth showline2 pop + exch bannerstring pwidth exch sub 2 div 3 index pwidth showline2 pop + bannerstring + % Prevent the last character of the heading from grazing + % the right margin. + % ****** WHY DOES IT REQUIRE SO MUCH PADDING? ****** + ( ) stringwidth pop 2 mul add + pwidth exch sub + 3 -1 roll pwidth showline2 pop + } def + +/bannerstring % string -> string width + { PageNumberString search + { exch pop pindex 4 string cvs concatstrings exch concatstrings + } + if dup stringwidth pop + } def + +/beginpage + { /lindex 0 def + /skipping pindex PageFirst ge pindex PageLast le and not def + pagex pagey Landscape {/BL} {/B} ifelse 2 true lpexec + /pagesave exch def + skipping { nulldevice /OutFile null def } if + Headers + { lheight hdescent add + HeadingLeft HeadingCenter HeadingRight banner + } if + /BFont lpsetmyfont + /pairkern Kern def + /addspace AddToSpace def /addwidth AddToWidth def + pairkern length 0 ne { + /addspace AddToSpace lpdef /addwidth AddToWidth lpdef + } if + } def + +/endpage { + lindex 0 ne { + Footers { + topskip plength sub hdescent add + FootingLeft FootingCenter FootingRight banner + } if + /E + } { + /restore + } ifelse + pagesave exch 0 true lpexec + /pindex pindex 1 add def +} def + +/endcolumn + { lindex colines 1 sub add colines idiv colines mul + dup llength ge { pop endpage beginpage } { /lindex exch def } ifelse + } def + +/fontheight % <font> fontheight <ascent> <height> + { gsave setfont + newpath 0 0 moveto + (|^_j) false charpath + pathbbox exch pop dup 2 index sub 4 -2 roll pop pop + grestore exch 1.25 mul exch 1.25 mul + } def + +/wdict { + dup length wosp ( dict\n) ws + { (dup) ws exch wosp wosp ( put\n) ws } forall +} def +/wosp { ( ) ws wo } def +/wo { + dup type /dicttype eq { wdict } { OutFile exch write==only } ifelse +} def +/ws { + OutFile exch writestring +} def + +/outfont { % <name> <font> outfont - + OutFile null ne { + exch wo + dup /FontName get + dup wosp (-ISOLatin1) ws wosp ( RE) ws + /FontMatrix get 0 get 1000 mul round cvi wosp + ( scalefont def\n) ws + } { + pop pop + }ifelse +} def + +/StringFF (\f) def +/CharFF StringFF 0 get def +/StringTAB (\t) def +/CharTAB StringTAB 0 get def + +/showline % line -> leftover_line (handles \f) + { { showline1 dup length 0 eq { exit } if + dup 0 get CharFF ne { exit } if + EjectFF { endpage beginpage } { endcolumn } ifelse + skip1 + } + loop + } def + +/showline1 % line -> leftover_line (handles page break) + { lindex llength eq { endpage beginpage } if + lindex colines idiv cowidth mul % x + lindex colines mod 1 add lheight mul neg fascent sub % y + 1 index cowidth add + showline2 + /lindex lindex 1 add def + } def + +/setxy { + /ty exch def /tx exch def +} def + +/showline2 { % string x y xlimit -> leftover_string (handles tabs) + 2 index exch 5 2 roll setxy { + % Stack: xinit xlimit string + showline3 dup length 0 eq { exit } if + dup 0 get CharTAB ne { exit } if + tx 3 index sub tabwx div + 0.05 add ceiling tabwx mul 3 index add ty setxy + skip1 + tx 2 index ge { exit } if + } loop exch pop exch pop +} def + +/showline3 { % xlimit string -> xlimit leftover_string + % (finds line break / tab / formfeed) + 1 index tx sub + cwx div 0.1 add cvi 0 .max 1 index length .min + 1 index 0 3 -1 roll getinterval + % look for \f or \t + StringFF search { exch pop exch pop } if + StringTAB search { exch pop exch pop } if + dup length 0 ne { + tx ty lpmoveto + dup pairkern length 0 eq { + lpshow + } { + { kproc } exch /kshow 2 true lpexec + } ifelse + currentpoint setxy + } if + length dup 2 index length exch sub getinterval +} def + +/kproc { % <char1> <char2> kproc - + pairkern currentfont /Encoding get 3 index get + 2 copy known { + get currentfont /Encoding get 2 index get + 2 copy known { + get currentfont /FontMatrix get 0 get mul + } { + pop pop 0 + } ifelse + } { + pop pop 0 + } ifelse + addwidth add 2 index 32 eq { addspace add } if + dup 0 eq { pop } { 0 rmoveto } ifelse + pop pop +} def + +/skip1 + { dup length 1 sub 1 exch getinterval + } def + +/e== { % <object> e== - -- print an object to stderr + (%stderr) (w) file dup 3 -1 roll write==only flushfile +} def + +/eprint { % <string> eprint - -- print a string to stderr + (%stderr) (w) file dup 3 -1 roll writestring flushfile +} def + +% Read kerning information from a .AFM file. + +/readkern { % <afmfile> readkern <pairkerndict> + /mfilename 1 index def + (r) file /mfile exch def + mfile =string readline pop + (StartFontMetrics ) anchorsearch { + pop pop + /kdict 256 dict def + { mfile =string readline pop + (EndFontMetrics) anchorsearch { pop pop exit } if + (KPX ) anchorsearch { + pop token pop cvlit /char1 exch def + token pop cvlit /char2 exch def + token pop /kern exch def pop + kdict char1 .knownget not { + 5 dict kdict char1 2 index .growput + } if + char2 kern .growput + } { + pop + } ifelse + } loop kdict + } { + pop + mfilename eprint ( does not begin with StartFontMetrics.\n) eprint + 0 dict + } ifelse + mfile closefile +} def + +% The main printing procedure + +/doFirst true def +/prevBFont null def +/prevHFont null def + +/lpfirst { % - lpfirst - +% Define some abbreviating procedures. + /B {save 3 1 roll translate /X 0 def} lpdef + /BL {save 3 1 roll 90 rotate translate /X 0 def} lpdef + /E {showpage restore} lpdef + /V {neg X exch moveto} lpdef + /M {/X 2 index def neg moveto} lpdef + /S {currentfile =string readline pop show} lpdef + /RE { % <isoname> <fontname> RE <font> + findfont + %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1 + dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall + /Encoding ISOLatin1Encoding def currentdict end + definefont + } lpdef +} def + +/lp { % file initial_chars -> + /lpline exch def + /lpfile exch def + + doFirst { lpfirst /doFirst false def } if + +% Initialize the device and fonts. + /BFont + BodyFont null eq { defaultBodyFont } { BodyFont } ifelse def + BFont prevBFont ne { + /BFont BFont outfont + /prevBFont BFont def + } if + Headers Footers or { + /HFont + HeadingFont null eq { defaultHeadingFont } { HeadingFont } ifelse def + HFont prevHFont ne { + /HFont HFont outfont + /prevHFont HFont def + } if + } if + save + +% Get the layout parameters. + clippath + gsave % for possible rotation + Landscape { 90 rotate } if + BFont setfont ( ) stringwidth pop /cwx exch def + cwx Tab mul /tabwx exch def + BFont fontheight /fheight exch def /fascent exch def + Headers Footers or { HFont fontheight } { 0 0 } ifelse + /hheight exch def /hascent exch def + /hdescent hheight hascent sub def + fheight Spacing mul /lheight exch def + Headers { hheight lheight add } { 0 } ifelse + /topskip exch def + Footers { hheight lheight add } { 0 } ifelse + /botskip exch def + /pskip topskip botskip add def + % Translate the page so that (0,0) corresponds to + % the top of the topmost body line. + pathbbox + 2 index sub MarginBottom MarginTop add sub /plength exch def + 2 index sub MarginLeft MarginRight add sub /pwidth exch def + pwidth Columns div /cowidth exch def + exch MarginLeft add + exch MarginBottom add plength add topskip sub + /pagey exch def /pagex exch def + plength pskip sub lheight div cvi MaxLines .min + dup /colines exch def + Columns mul /llength exch def + grestore + OutFile null ne { nulldevice } if + +% Print layout + Noisy + { (Page height = ) eprint llength e== + (.\n) eprint flush + } if + +% Write the kerning table, if relevant. + OutFile null ne Kern length 0 ne and { + (/kproc) ws /kproc load wosp ( def\n) ws + (/pairkern) ws Kern wosp ( def\n) ws + } if + +% Disable stack recording so we can use stopped with readline. + $error /recordstacks false put + +% Initialize for the first page. + /lbuf 64000 string def + /pindex 1 def + beginpage + +% Iterate through the file. + lpline + { dup length /pos exch def + lbuf exch 0 exch putinterval + { lpfile lbuf pos lbuf length pos sub getinterval readline } stopped + { % Filled the line before a CR or EOF. + exch pop showline + } + { % Reached CR and/or EOF first. + exch length pos add lbuf exch 0 exch getinterval + 1 index { showline } if % omit final empty line + { dup length 0 eq Truncate or { pop () exit } if + showline + } + loop + exch not { exit } if + } + ifelse + pindex PageLast gt { exit } if + } loop + pop + +% Wrap up. +%**************** WHY IS THIS COMMENTED OUT? **************** +% EjectEOF { endpage } { endcolumn } ifelse + endpage + restore + +} def + +end + +% Usage: <file> lp +% prints <file> using the current parameter settings. +% Usage: [ <arg1> ... <argn> ] lpcommand +% interprets args like a command line. + +/lp { save lpdict begin () lp end restore } def + +lpdict begin + +/splitfn % (FontNN.NN) -> <font> + { dup /arg exch def length + { dup 0 le { exit } if + dup 1 sub arg exch get dup 48 ge 1 index 59 le and exch 46 eq or not { exit } if + 1 sub + } loop + arg exch 0 exch getinterval dup cvn find-latin-font + exch arg exch anchorsearch pop pop cvr scalefont + } def + +% Parse the command line switches. + +/doswitch % argn ... arg1 (-?) restofswitch -> + { exch dup cvn lpdict exch known + { cvn load exec } + { exch pop (Unknown switch: ) eprint eprint (\n) eprint } + ifelse + } def + +/more % argn ... arg1 restofswitch -> + { dup length 0 ne + { (- ) dup 1 3 index 0 get put + exch dup length 1 sub 1 exch getinterval + doswitch + } + { pop + } + ifelse + } def + +/-- { (--) exch concatstrings + dup cvn lpdict exch known + { cvn load exec } + { (Unknown switch: ) eprint eprint (\n) eprint } + ifelse + } def +/--add-to-space { cvr /AddToSpace exch def } def +/--add-to-width { cvr /AddToWidth exch def } def +/--columns { cvi 1 .max /Columns exch def } def +/--detect { /DetectFileType true def } def +/--first-page { cvi /PageFirst exch def } def +/--footing-center { /FootingCenter exch def /Footers true def } def +/--footing-left { /FootingLeft exch def /Footers true def } def +/--footing-right { /FootingRight exch def /Footers true def} def +/--heading-center { /HeadingCenter exch def /Headers true def } def +/--heading-left { /HeadingLeft exch def /Headers true def } def +/--heading-right { /HeadingRight exch def /Headers true def } def +/--kern { readkern /Kern exch def } def +/--last-page { cvi /PageLast exch def } def +/--margin-bottom { cvr 72.0 mul /MarginBottom exch def } def +/--margin-left { cvr 72.0 mul /MarginLeft exch def } def +/--margin-right { cvr 72.0 mul /MarginRight exch def } def +/--margin-top { cvr 72.0 mul /MarginTop exch def } def +/--no-eject-file { /EjectEOF false def } def +/--no-eject-formfeed { /EjectFF false def } def +/--spacing { cvr /Spacing exch def } def + +/-# { pop } def % ignore +/-+ { -- } def +(-1)cvn { /Columns 1 def more } def +(-2)cvn { /Columns 2 def more } def +/-b { /HeadingLeft exch def /HeadingCenter () def /HeadingRight PageNumberString def + /Headers true def + /break true def + } def +/-B { /HeadingLeft () def /HeadingCenter () def /HeadingRight () def + /Headers false def + /FootingLeft () def /FootingCenter () def /FootingRight () def + /Footers false def + /break true def + more + } def +/-C { pop } def % ignore +/-c { /Truncate true def more } def +/-d { pop } def % ignore +/-f { splitfn /BodyFont exch def } def +/-F { splitfn /HeadingFont exch def } def +/-G { more } def % ignore +/-g { more } def % ignore +/-h { more } def % ignore +/-J { pop } def % ignore +/-K { more } def % ignore +/-k { more } def % ignore +/-l { 66 -L -B } def +/-L { cvi /MaxLines exch def } def +/-m { more } def % ignore +/-n { pop } def % ignore +/-o { more } def % ignore +/-p { (w) file /OutFile exch def OutFile (%!\n) writestring } def +/-P { pop } def % ignore +/-q { /Noisy false def more } def +/-r { /Landscape true def more } def +/-R { /Landscape false def more } def +/-S { pop } def % ignore +/-s { pop } def % ignore +/-T { cvi /Tab exch def } def +/-v { pop } def % ignore +/-w { more } def % ignore + +/lp1 % filename -> + { break not { dup /HeadingLeft exch def } if + Noisy + { (Printing ) eprint dup eprint (\n) eprint + } if + (r) file + % If requested, check for a PostScript file. + DetectFileType + { dup 2 string readstring pop dup (%!) eq + { % Yes, it's a PostScript file. + pop dup 80 string readline pop pop cvx exec + } + { lp + } + ifelse + } + { () lp + } + ifelse + } bind def + +/lpcstring 8192 string def + +end + +/lpcommand % <[arg1 ... argn]> lpcommand <any_printed> + { % Push the commands on the stack in reverse order + mark exch + dup length 1 sub -1 0 { 1 index exch get exch } for pop + lpdict begin + /any false def + /break false def + { dup mark eq { pop exit } if + dup length 2 ge { dup 0 get (-) 0 get eq } { false } ifelse + { dup 0 2 getinterval + exch dup length 2 sub 2 exch getinterval + doswitch + } + { dup /matched false def + { /matched true def /any true def lp1 } lpcstring filenameforall + matched { pop } { lp1 } ifelse % let the error happen + } + ifelse + } loop + OutFile null ne + { OutFile (%stdout) (w) file ne { OutFile closefile } if + /OutFile null def + } if + any + end + } def + +[ shellarguments + { ] dup length 0 ne { lpcommand } { false } ifelse not + { (%stderr) (w) file + [ (Usage: ) + /PROGNAME where { pop PROGNAME } { (gslp) } ifelse + ( [-12BclqRr] [-b<header>] [-f<font>] [-F<hfont>]\n) + ( [-L<lines>] [-p<outfile>] [-T<tabwidth>]\n) + ( [--add-to-(space|width) <units>] [--columns <n>]\n) + ( [--detect] [--first-page <page#>] [--last-page <page#>]\n) + ( [--(heading|footing)-(left|right|center) <string>]\n) + ( [--kern <afmfile>] [--margin-(top|bottom|left|right) <inches>]\n) + ( [--no-eject-(file|formfeed)] [--spacing <n>] file1 ... filen\n) + ] { 2 copy writestring pop } forall dup flushfile closefile + } + if + } + { pop } +ifelse |