#!/bin/rc
# converts a regular ascii file to PostScript
switch ($IBIN) {
case -P*;
case man manual manualfeed;
       IBIN='statusdict begin /manualfeed true def end'
case [0-9];
       IBIN='statusdict begin '^$IBIN^' setpapertray end'
case 11x17 ledger;
       IBIN='statusdict begin '^$IBIN^'tray end'
case *;
       IBIN=''
}
if (! ~ $#DUPLEX 0 && ~ $DUPLEX 1 && ! ~ $IBIN -P*)
       IBIN=$IBIN' statusdict begin true setduplexmode end';
if (! ~ $IBIN '' -P*)
       IBIN=-P''''$IBIN'''';
switch ($LAND) {
case -p*;
case ''; LAND=-pp
case 1; LAND=-pl
}
if (! ~ $MAG '' -m*) MAG=-m^$MAG;
if (! ~ $NPAG '' -n*) NPAG=-n^$NPAG;
if (! ~ $XOFF '' -x*) XOFF=-x^$XOFF;
if (! ~ $YOFF '' -y*) YOFF=-y^$YOFF;
eval /sys/lib/postscript/bin/$cputype/posttek $XOFF $YOFF $COPIES $MAG $NPAG $LAND $OLIST $IBIN | $LPLIB/process/hpost
exit

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.