blob: 520aa395cd2efa9b665ed5e7fe175ae3c698b0af (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
#!/usr/local/plan9/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
|