1 #!/usr/local/plan9/bin/rc
2 if (~ $DEBUG 1) flag x +
3 # convert Tex dvi to PostScript
8 %% set the default papertray to be the lower tray for HP4siMX printers
9 statusdict begin defaultpapertray end 1 ne {
15 for (i in `{echo $IBIN|awk -F, '{ n=split($0, a, ","); for (i=1;i<=n;i++) print a[i]; }'}) {
17 case man manual manualfeed;
19 %%BeginFeature: *Select ManualFeed
20 [{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
21 << /ManualFeed true >> setpagedevice
22 } {statusdict begin /manualfeed true def end} ifelse
32 systemdict/languagelevel known {languagelevel 2 eq {true (0) startjob dup not
33 {/exitserver errordict/invalidaccess get exec}if}{false}ifelse}{false}ifelse
35 currentpagedevice/InputAttributes get {0 get} stopped
36 {pop pop} {2 dict dup /InputAttributes 1 dict dup
37 /Priority[0] put put dup /TraySwitch false put setpagedevice} ifelse
38 false (0) startjob pop
41 systemdict/languagelevel known {languagelevel 2 eq {true (0) startjob dup not
42 {/exitserver errordict/invalidaccess get exec}if}{false}ifelse}{false}ifelse
44 currentpagedevice/InputAttributes get {1 get} stopped
45 {pop pop} {2 dict dup /InputAttributes 1 dict dup
46 /Priority[1] put put dup /TraySwitch false put setpagedevice} ifelse
47 false (0) startjob pop
51 statusdict begin $i setpapertray end'
53 case 11x17 ledger; PATCH=$PATCH'
54 statusdict begin '$i'tray end'
65 %%BeginFeature: *Set DuplexMode
66 [{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
67 << /Duplex '$DUPLEX' >> setpagedevice
68 } {statusdict /setduplexmode known {statusdict begin '$DUPLEX' setduplexmode end} if} ifelse
72 if (! ~ $#LAND 0 && ~ $LAND 1)
74 if (~ $LPCLASS *reverse*) {
92 if (! ~ $COPIES '' -c*) COPIES=-c^$COPIES
93 if (! ~ $OLIST '' '='*) OLIST=`{echo $OLIST | sed 's/-o/=/' | sed 's/-/:/g' }
99 eval dvips -q -f $DPI -r $LAND $COPIES $1
101 DVIFILE=/tmp/dv$pid.dvi
102 dviselect -s $OLIST $1 > $DVIFILE
103 eval dvips -q -f $DPI -r $LAND $COPIES $DVIFILE
106 $LPLIB/process/hpost </dev/null
108 $LPLIB/process/hpost </dev/null
112 eval dvips -q -f $DPI $LAND $COPIES $1
114 DVIFILE=/tmp/dv$pid.dvi
115 dviselect -s $OLIST $1 > $DVIFILE
116 eval dvips -q -f $DPI $LAND $COPIES $DVIFILE