add directory Linux-0.98
This commit is contained in:
gohigh
330
Linux-0.98/Yggdrasil-0.98.3/usr/lib/ghostscript/gslp.ps
Normal file
330
Linux-0.98/Yggdrasil-0.98.3/usr/lib/ghostscript/gslp.ps
Normal file
@@ -0,0 +1,330 @@
|
||||
% Copyright (C) 1991 Aladdin Enterprises. All rights reserved.
|
||||
% Distributed by Free Software Foundation, Inc.
|
||||
%
|
||||
% This file is part of Ghostscript.
|
||||
%
|
||||
% Ghostscript is distributed in the hope that it will be useful, but
|
||||
% WITHOUT ANY WARRANTY. No author or distributor accepts responsibility
|
||||
% to anyone for the consequences of using it or for whether it serves any
|
||||
% particular purpose or works at all, unless he says so in writing. Refer
|
||||
% to the Ghostscript General Public License for full details.
|
||||
%
|
||||
% Everyone is granted permission to copy, modify and redistribute
|
||||
% Ghostscript, but only under the conditions described in the Ghostscript
|
||||
% General Public License. A copy of this license is supposed to have been
|
||||
% given to you along with Ghostscript so you can know your rights and
|
||||
% responsibilities. It should be in a file named COPYING. Among other
|
||||
% things, the copyright notice and this notice must be preserved on all
|
||||
% copies.
|
||||
|
||||
% 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.
|
||||
% Currently it neither truncates nor wraps over-length lines.
|
||||
% It only works with fixed-pitch fonts.
|
||||
% Flags implemented: -12BclrR -b -f -F -L -p
|
||||
% Flags added:
|
||||
% -T<n> for defining the tab width
|
||||
% -P<n> for setting the first page to print
|
||||
% -Q<n> for setting the last page to print
|
||||
|
||||
/lpdict 80 dict def
|
||||
lpdict begin
|
||||
|
||||
% Define the initial values of the printing parameters.
|
||||
|
||||
/BodyFont null def % use default
|
||||
/defaultBodyFont
|
||||
{ /Courier findfont Landscape { 7 } { 10 } ifelse scalefont } def
|
||||
/Columns 1 def
|
||||
/Headers true def
|
||||
/HeadingLeft () def
|
||||
/HeadingCenter () def
|
||||
/HeadingRight null def % use page #
|
||||
/HeadingFont null def % use default
|
||||
/defaultHeadingFont
|
||||
{ /Courier-Bold findfont 10 scalefont } def
|
||||
/MaxLines 9999 def % max lines per page
|
||||
/Landscape false def
|
||||
/OutFile null def % null = write directly to device
|
||||
/PageFirst 1 def
|
||||
/PageLast 99999 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.
|
||||
|
||||
/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 { n -1 roll dup wosp } repeat
|
||||
OutFile (\n) writestring
|
||||
n t
|
||||
}
|
||||
ifelse
|
||||
{ pop load exec }
|
||||
{ { pop } repeat }
|
||||
ifelse
|
||||
} def
|
||||
|
||||
/lpmoveto
|
||||
{ /moveto 2 true lpexec
|
||||
} def
|
||||
/lpshow
|
||||
{ dup length 0 ne { /show 1 false lpexec } { pop } ifelse
|
||||
} def
|
||||
/lpsetmyfont
|
||||
{ dup load setfont
|
||||
OutFile null ne { cvx /setfont 1 false lpexec } { pop } ifelse
|
||||
} def
|
||||
|
||||
% Define some utility procedures.
|
||||
|
||||
/beginpage
|
||||
{ /lindex 0 def
|
||||
/skipping pindex PageFirst ge pindex PageLast le and not def
|
||||
/save 0 true lpexec /pagesave exch def
|
||||
skipping { nulldevice /OutFile null def } if
|
||||
Headers
|
||||
{ /HFont lpsetmyfont
|
||||
HeadingLeft 0 topskip showline2
|
||||
HeadingCenter dup stringwidth pop 2 div topskip showline2
|
||||
HeadingRight null eq
|
||||
{ (page ) pindex 4 string cvs concatstrings }
|
||||
{ HeadingRight }
|
||||
ifelse
|
||||
dup stringwidth pop pwidth 0.95 mul exch sub
|
||||
topskip showline2
|
||||
}
|
||||
if
|
||||
/BFont lpsetmyfont
|
||||
} def
|
||||
|
||||
/endpage
|
||||
{ lindex 0 ne { /showpage 0 false lpexec } if
|
||||
pagesave /restore 0 true lpexec
|
||||
/pindex pindex 1 add def
|
||||
} def
|
||||
|
||||
/fontheight % font -> height
|
||||
{ dup /FontBBox get
|
||||
dup 3 get exch 1 get sub
|
||||
exch /FontMatrix get
|
||||
0 get mul 1.2 mul
|
||||
} def
|
||||
|
||||
/wosp
|
||||
{ OutFile ( ) writestring OutFile exch write==only
|
||||
} def
|
||||
|
||||
/outfont % name font ->
|
||||
{ OutFile null ne
|
||||
{ exch wosp
|
||||
dup /FontName get wosp OutFile ( findfont) writestring
|
||||
/FontMatrix get 0 get 1000 mul round cvi wosp
|
||||
OutFile ( scalefont def\n) writestring
|
||||
}
|
||||
{ pop pop
|
||||
}
|
||||
ifelse
|
||||
} def
|
||||
|
||||
% showline doesn't do line wrapping yet....
|
||||
/showline % line -> leftover_line (handles \f)
|
||||
{ (\f) search
|
||||
{ { dup length 0 eq { pop exit } if showline1 } loop
|
||||
endpage beginpage
|
||||
pop
|
||||
}
|
||||
if
|
||||
showline1
|
||||
} def
|
||||
|
||||
/showline1 % line -> leftover_line (handles page break)
|
||||
{ lindex llength eq { endpage beginpage } if
|
||||
lindex colines idiv cowidth mul % x
|
||||
lindex colines mod fheight mul neg % y
|
||||
showline2
|
||||
/lindex lindex 1 add def
|
||||
()
|
||||
} def
|
||||
|
||||
/showline2 % string x y -> (handles tabs)
|
||||
{ lpmoveto
|
||||
{ dup length 0 eq { pop exit } if
|
||||
(\t) search
|
||||
{ dup length 0 ne { lpshow } { pop } ifelse pop
|
||||
currentpoint exch tabwx div
|
||||
0.05 add ceiling tabwx mul exch lpmoveto
|
||||
}
|
||||
{ lpshow exit }
|
||||
ifelse
|
||||
} loop
|
||||
} def
|
||||
|
||||
% The main printing procedure
|
||||
|
||||
/lp
|
||||
{ /lpfile exch def
|
||||
/save 0 true lpexec
|
||||
|
||||
% Initialize the device and fonts.
|
||||
/BFont
|
||||
BodyFont null eq { defaultBodyFont } { BodyFont } ifelse def
|
||||
/BFont BFont outfont
|
||||
Headers
|
||||
{ /HFont
|
||||
HeadingFont null eq { defaultHeadingFont } { HeadingFont } ifelse def
|
||||
/HFont HFont outfont
|
||||
}
|
||||
if
|
||||
|
||||
% Get the layout parameters.
|
||||
clippath
|
||||
Landscape { -90 /rotate 1 true lpexec } if
|
||||
BFont setfont ( ) stringwidth pop /cwx exch def
|
||||
cwx Tab mul /tabwx exch def
|
||||
BFont fontheight /fheight exch def
|
||||
Headers { HFont fontheight fheight add } { 0 } ifelse
|
||||
/topskip exch def
|
||||
pathbbox
|
||||
2 index sub /plength exch def
|
||||
2 index sub dup /pwidth exch def
|
||||
Columns div /cowidth exch def
|
||||
exch cowidth 0.025 mul add
|
||||
exch plength 0.98 mul add topskip sub
|
||||
/translate 2 true lpexec
|
||||
plength 0.9 mul topskip sub fheight div cvi MaxLines min
|
||||
dup /colines exch def
|
||||
Columns mul /llength exch def
|
||||
OutFile null ne { nulldevice } if
|
||||
|
||||
% Print layout
|
||||
(Page height = ) print llength =only
|
||||
(.\n) print flush
|
||||
|
||||
% Disable stack recording so we can use stopped with readline.
|
||||
$error /recordstacks false put
|
||||
|
||||
% Initialize for the first page.
|
||||
/lbuf 1000 string def
|
||||
/pindex 1 def
|
||||
beginpage
|
||||
|
||||
% Iterate through the file.
|
||||
()
|
||||
{ dup length /pos exch def
|
||||
lbuf exch 0 exch putinterval
|
||||
{ lpfile lbuf pos lbuf length pos sub getinterval readline } stopped
|
||||
{ exch pop true } if
|
||||
exch length pos add lbuf exch 0 exch getinterval exch
|
||||
{ showline }
|
||||
{ dup length 0 ne { showline } if exit }
|
||||
ifelse
|
||||
} loop
|
||||
pop
|
||||
|
||||
% Wrap up.
|
||||
endpage
|
||||
/restore 0 true lpexec
|
||||
|
||||
} 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 % (FontNNN) -> <font>
|
||||
{ dup /arg exch def length
|
||||
{ dup 0 le { exit } if
|
||||
dup 1 sub arg exch get dup 48 ge exch 59 le and not { exit } if
|
||||
1 sub
|
||||
} loop
|
||||
arg exch 0 exch getinterval dup cvn findfont
|
||||
exch arg exch anchorsearch pop pop cvr scalefont
|
||||
} def
|
||||
|
||||
% Parse the command line switches.
|
||||
|
||||
/doswitch % (-*) argstring ->
|
||||
{ exch dup cvn lpdict exch known
|
||||
{ cvn load exec }
|
||||
{ exch pop (Unknown switch: ) print print (\n) print flush }
|
||||
ifelse
|
||||
} def
|
||||
|
||||
/more % string ->
|
||||
{ dup length 0 ne
|
||||
{ (- ) dup 1 3 index 0 get put
|
||||
exch dup length 1 sub 1 exch getinterval
|
||||
doswitch
|
||||
}
|
||||
{ pop
|
||||
}
|
||||
ifelse
|
||||
} def
|
||||
|
||||
(-1)cvn { /Columns 1 def more } def
|
||||
(-2)cvn { /Columns 2 def more } def
|
||||
/-b { /HeadingLeft exch def /HeadingCenter () def /HeadingRight null def
|
||||
/Headers true def
|
||||
/break true def
|
||||
} def
|
||||
/-B { /Headers false def more } def
|
||||
/-c { /Truncate true def more } def
|
||||
/-f { splitfn /BodyFont exch def } def
|
||||
/-F { splitfn /HeadingFont exch def } def
|
||||
/-l { 66 -L -B } def
|
||||
/-L { cvi /MaxLines exch def } def
|
||||
/-p { (w) file /OutFile exch def OutFile (%!\n) writestring } def
|
||||
/-P { cvi /PageFirst exch def } def
|
||||
/-Q { cvi /PageLast exch def } def
|
||||
/-r { /Landscape true def more } def
|
||||
/-R { /Landscape false def more } def
|
||||
/-T { cvi /Tab exch def } def
|
||||
|
||||
end
|
||||
|
||||
/lpcommand
|
||||
{ lpdict begin
|
||||
/break false def
|
||||
{ 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
|
||||
}
|
||||
{ break not { dup /HeadingLeft exch def } if
|
||||
(r) file lp
|
||||
}
|
||||
ifelse
|
||||
} forall
|
||||
OutFile null ne { OutFile closefile /OutFile null def } if
|
||||
end
|
||||
} def
|
||||
|
||||
[ shellarguments
|
||||
{ ] dup length 0 ne
|
||||
{ lpcommand
|
||||
}
|
||||
{ (Usage: gslp [-12BclrR] [-b<header] [-f<font>] [-F<hfont>]\n) print
|
||||
( [-L<lines>] [-p<outfile>] [-P<startpage#>] [-Q<stoppage#>]\n) print
|
||||
( [-T<tabwidth>] file1 ... filen\n) print flush
|
||||
}
|
||||
ifelse
|
||||
}
|
||||
{ pop }
|
||||
ifelse
|
||||
Reference in New Issue
Block a user