tpost - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       tpost (1971B)
       ---
            1 #!/usr/local/plan9/bin/rc
            2 if (! ~ $DEBUG '') flag x +
            3 PATCH='%!PS
            4 %%Patch from lp'
            5 switch ($LPCLASS) {
            6 case *hp4simx*;
            7         PATCH=$PATCH'
            8 %% set the default papertray to be the lower tray for HP4siMX printers
            9         statusdict begin defaultpapertray end 1 ne {
           10                 statusdict begin
           11                         1 setdefaultpapertray
           12                 end
           13         } if'
           14 }
           15 for (i in `{echo $IBIN|awk -F, '{ n=split($0, a, ","); for (i=1;i<=n;i++) print a[i]; }'}) {
           16         switch ($i) {
           17         case -P*;
           18         case man manual manualfeed;
           19                 PATCH=$PATCH'
           20 %%BeginFeature: *Select ManualFeed
           21 [{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
           22     << /ManualFeed true >> setpagedevice
           23    } {statusdict begin /manualfeed true def end} ifelse
           24  } stopped cleartomark
           25 %%EndFeature'
           26         case simplex;
           27                 DUPLEX=0
           28         case [0-9];
           29                 PATCH=$PATCH'
           30 %%BeginFeature: *Select InputTray
           31 [{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
           32         << '$i' << /MediaType (tray'$i') >> >>
           33     << /MediaType (tray'$i') >> setpagedevice
           34    } {statusdict begin '$i' setpapertray end} ifelse
           35  } stopped cleartomark
           36 %%EndFeature'
           37         case 11x17 [Ll]edger;
           38                 PATCH=$PATCH'
           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
           43  } stopped cleartomark
           44 %%EndFeature'
           45         case transparency vg viewgraph;
           46                 PATCH=$PATCH'
           47 %%BeginFeature: *Select Transparency
           48 [{ << /MediaType (Transparency) >> setpagedevice
           49  } stopped cleartomark
           50 %%EndFeature'
           51         case *;
           52                 echo illegal option ''''-i $i'''' ignored >[1=2]
           53         }
           54 }
           55 #if (! ~ $#DUPLEX 0) {
           56 #        if (~ $DUPLEX 1 )
           57 #                PATCH=$PATCH'
           58 #statusdict /setduplexmode known {statusdict begin true setduplexmode end} if';
           59 #        if (~ $DUPLEX 0 )
           60 #                PATCH=$PATCH'
           61 #statusdict /setduplexmode known {statusdict begin false setduplexmode end} if';
           62 #}
           63 PATCH=$PATCH'
           64 %%EndPatch from lp
           65 '
           66 
           67 { echo $PATCH; psextract } | $LPLIB/process/hpost
           68