1 #!/usr/local/plan9/bin/rc
2 # convert PDF output to PostScript
3 if (! ~ $DEBUG '') flag x +
9 %% set the default papertray to be the lower tray for HP4siMX printers
10 statusdict begin defaultpapertray end 1 ne {
16 for (i in `{echo $IBIN|awk -F, '{ n=split($0, a, ","); for (i=1;i<=n;i++) print a[i]; }'}) {
19 case man manual manualfeed;
21 %%BeginFeature: *Select ManualFeed
22 [{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
23 << /ManualFeed true >> setpagedevice
24 } {statusdict begin /manualfeed true def end} ifelse
31 %%BeginFeature: *Select InputTray
32 [{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
33 << /MediaType (tray'$i') >> setpagedevice
34 } {statusdict begin '$i' setpapertray end} ifelse
39 %%BeginFeature: *Select Ledger
40 [{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
41 << /PageSize [792 1224] >> setpagedevice
42 } {statusdict begin '$i'tray end} ifelse
45 case transparency vg viewgraph;
47 %%BeginFeature: *Select Transparency
48 [{ << /MediaType (Transparency) >> setpagedevice
52 echo illegal option ''''-i $i'''' >[1=2]
63 %%BeginFeature: *Set DuplexMode
64 [{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
65 << /Duplex '$DUPLEX' >> setpagedevice
66 } {statusdict /setduplexmode known {statusdict begin '$DUPLEX' setduplexmode end} if} ifelse
75 pdfgs $1 pswrite | $LPLIB/process/hpost