1
0

pdfpost 2.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576
  1. #!/bin/rc
  2. # convert PDF output to PostScript
  3. if (! ~ $DEBUG '') flag x +
  4. PATCH='%!PS
  5. %%Patch from lp'
  6. switch ($LPCLASS) {
  7. case *hp4simx*;
  8. PATCH=$PATCH'
  9. %% set the default papertray to be the lower tray for HP4siMX printers
  10. statusdict begin defaultpapertray end 1 ne {
  11. statusdict begin
  12. 1 setdefaultpapertray
  13. end
  14. } if'
  15. }
  16. for (i in `{echo $IBIN|awk -F, '{ n=split($0, a, ","); for (i=1;i<=n;i++) print a[i]; }'}) {
  17. switch ($i) {
  18. case -P*;
  19. case man manual manualfeed;
  20. PATCH=$PATCH'
  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
  25. } stopped cleartomark
  26. %%EndFeature'
  27. case simplex;
  28. DUPLEX=0
  29. case [0-9];
  30. PATCH=$PATCH'
  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
  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'''' >[1=2]
  53. }
  54. }
  55. if (! ~ $#DUPLEX 0) {
  56. switch ($DUPLEX) {
  57. case 0;
  58. DUPLEX=false
  59. case 1;
  60. DUPLEX=true
  61. }
  62. PATCH=$PATCH'
  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
  67. } stopped cleartomark
  68. %%EndFeature'
  69. }
  70. PATCH=$PATCH'
  71. %%EndPatch from lp
  72. '
  73. echo $PATCH
  74. pdfgs $1 pswrite | $LPLIB/process/hpost
  75. exit ''