Subversion Repositories planix.SVN

#!/bin/rc
if (~ $DEBUG 1) flag x +
# convert Tex dvi to PostScript
PATCH='%!PS-Adobe-2.0'
switch ($LPCLASS) {
case *hp4simx*;
        PATCH=$PATCH'
%% set the default papertray to be the lower tray for HP4siMX printers
        statusdict begin defaultpapertray end 1 ne {
                statusdict begin
                        1 setdefaultpapertray
                end
        } if'
}
for (i in `{echo $IBIN|awk -F, '{ n=split($0, a, ","); for (i=1;i<=n;i++) print a[i]; }'}) {
        switch ($i) {
        case man manual manualfeed;
                PATCH=$PATCH'
%%BeginFeature: *Select ManualFeed
[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
    << /ManualFeed true >> setpagedevice
   } {statusdict begin /manualfeed true def end} ifelse
 } stopped cleartomark
%%EndFeature'
        case simplex;
                DUPLEX=0
        case [0-9];
                switch ($LPCLASS) {
                case *post2*;
                        switch ($i) {
                        case 0; PATCH=$PATCH'
systemdict/languagelevel known {languagelevel 2 eq {true (0) startjob dup not
{/exitserver errordict/invalidaccess get exec}if}{false}ifelse}{false}ifelse
{
  currentpagedevice/InputAttributes get {0 get} stopped
  {pop pop} {2 dict dup /InputAttributes 1 dict dup
  /Priority[0] put put dup /TraySwitch false put setpagedevice} ifelse
  false (0) startjob pop
} if'
                        case 1; PATCH=$PATCH'
systemdict/languagelevel known {languagelevel 2 eq {true (0) startjob dup not
{/exitserver errordict/invalidaccess get exec}if}{false}ifelse}{false}ifelse
{
  currentpagedevice/InputAttributes get {1 get} stopped
  {pop pop} {2 dict dup /InputAttributes 1 dict dup
  /Priority[1] put put dup /TraySwitch false put setpagedevice} ifelse
  false (0) startjob pop
} if'
                        }
                case *; PATCH=$PATCH'
statusdict begin $i setpapertray end'
                }
        case 11x17 ledger;      PATCH=$PATCH'
statusdict begin '$i'tray end'
        }
}
if (! ~ $#DUPLEX 0) {
        switch ($DUPLEX) {
        case 0;
                DUPLEX=false
        case 1;
                DUPLEX=true
        }
        PATCH=$PATCH'
%%BeginFeature: *Set DuplexMode
[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
    << /Duplex '$DUPLEX'  >> setpagedevice
  } {statusdict /setduplexmode known {statusdict begin '$DUPLEX' setduplexmode end} if} ifelse
 } stopped cleartomark
%%EndFeature'
}
if (! ~ $#LAND 0 && ~ $LAND 1)
        LAND='-tlandscape'
if (~ $LPCLASS *reverse*) {
        switch ($REVERSE) {
        case '';
                REVFLAG=1
        case 1;
                REVFLAG=''
        }
}
switch ($LPCLASS) {
case *post100*;
        DPI='-Z -D100'
case *600dpi*;
        DPI='-Z -D600'
case *1200dpi*;
        DPI='-Z -D1200'
case *;
        DPI=''
}
if (! ~ $COPIES '' -c*) COPIES=-c^$COPIES
if (! ~ $OLIST '' '='*) OLIST=`{echo $OLIST | sed 's/-o/=/' | sed 's/-/:/g' }
switch ($REVFLAG) {
case 1;
        echo $PATCH
        switch ($OLIST) {
        case '';
                eval dvips -q -f $DPI -r $LAND $COPIES $1
        case *;
                DVIFILE=/tmp/dv$pid.dvi
                dviselect -s $OLIST $1 > $DVIFILE
                eval dvips -q -f $DPI -r $LAND $COPIES $DVIFILE
                rm -f $DVIFILE
        }
        $LPLIB/process/hpost </dev/null
case '';
        $LPLIB/process/hpost </dev/null
        echo $PATCH
        switch ($OLIST) {
        case '';
                eval dvips -q -f $DPI $LAND $COPIES $1
        case *;
                DVIFILE=/tmp/dv$pid.dvi
                dviselect -s $OLIST $1 > $DVIFILE
                eval dvips -q -f $DPI $LAND $COPIES $DVIFILE
                rm -f $DVIFILE
        }
}
exit