1 61746420 2005-08-31 devnull #!/usr/local/plan9/bin/rc
 2 61746420 2005-08-31 devnull # convert CCITT G3 Fax format to PostScript
 3 61746420 2005-08-31 devnull if (! ~ $DEBUG '') flag x +
 4 61746420 2005-08-31 devnull PATCH='%%Patch from lp'
 5 61746420 2005-08-31 devnull switch ($LPCLASS) {
 6 61746420 2005-08-31 devnull case *hp4simx*;
 7 61746420 2005-08-31 devnull 	PATCH=$PATCH'
 8 61746420 2005-08-31 devnull %% set the default papertray to be the lower tray for HP4siMX printers
 9 61746420 2005-08-31 devnull 	statusdict begin defaultpapertray end 1 ne {
10 61746420 2005-08-31 devnull 		statusdict begin
11 61746420 2005-08-31 devnull 			1 setdefaultpapertray
12 61746420 2005-08-31 devnull 		end
13 61746420 2005-08-31 devnull 	} if'
14 61746420 2005-08-31 devnull }
15 61746420 2005-08-31 devnull for (i in `{echo $IBIN|awk -F, '{ n=split($0, a, ","); for (i=1;i<=n;i++) print a[i]; }'}) {
16 61746420 2005-08-31 devnull 	switch ($i) {
17 61746420 2005-08-31 devnull 	case -P*;
18 61746420 2005-08-31 devnull 	case man manual manualfeed;
19 61746420 2005-08-31 devnull 		PATCH=$PATCH'
20 61746420 2005-08-31 devnull %%BeginFeature: *Select ManualFeed
21 61746420 2005-08-31 devnull [{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
22 61746420 2005-08-31 devnull     << /ManualFeed true >> setpagedevice
23 61746420 2005-08-31 devnull    } {statusdict begin /manualfeed true def end} ifelse
24 61746420 2005-08-31 devnull  } stopped cleartomark
25 61746420 2005-08-31 devnull %%EndFeature'
26 61746420 2005-08-31 devnull 	case simplex;
27 61746420 2005-08-31 devnull 		DUPLEX=0
28 61746420 2005-08-31 devnull 	case [0-9];
29 61746420 2005-08-31 devnull 		PATCH=$PATCH'
30 61746420 2005-08-31 devnull %%BeginFeature: *Select InputTray
31 61746420 2005-08-31 devnull [{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
32 61746420 2005-08-31 devnull 	<< '$i' << /MediaType (tray'$i') >> >>
33 61746420 2005-08-31 devnull     << /MediaType (tray'$i') >> setpagedevice
34 61746420 2005-08-31 devnull    } {statusdict begin '$i' setpapertray end} ifelse
35 61746420 2005-08-31 devnull  } stopped cleartomark
36 61746420 2005-08-31 devnull %%EndFeature'
37 61746420 2005-08-31 devnull 	case 11x17 [Ll]edger;
38 61746420 2005-08-31 devnull 		PATCH=$PATCH'
39 61746420 2005-08-31 devnull %%BeginFeature: *Select Ledger
40 61746420 2005-08-31 devnull [{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
41 61746420 2005-08-31 devnull     << /PageSize [792 1224] >> setpagedevice
42 61746420 2005-08-31 devnull    } {statusdict begin '$i'tray end} ifelse
43 61746420 2005-08-31 devnull  } stopped cleartomark
44 61746420 2005-08-31 devnull %%EndFeature'
45 61746420 2005-08-31 devnull 	case transparency vg viewgraph;
46 61746420 2005-08-31 devnull 		PATCH=$PATCH'
47 61746420 2005-08-31 devnull %%BeginFeature: *Select Transparency
48 61746420 2005-08-31 devnull [{ << /MediaType (Transparency) >> setpagedevice
49 61746420 2005-08-31 devnull  } stopped cleartomark
50 61746420 2005-08-31 devnull %%EndFeature'
51 61746420 2005-08-31 devnull 	case *;
52 61746420 2005-08-31 devnull 		echo illegal option ''''-i $i'''' >[1=2]
53 61746420 2005-08-31 devnull 	}
54 61746420 2005-08-31 devnull }
55 61746420 2005-08-31 devnull if (! ~ $#DUPLEX 0) {
56 61746420 2005-08-31 devnull 	switch ($DUPLEX) {
57 61746420 2005-08-31 devnull 	case 0;
58 61746420 2005-08-31 devnull 		DUPLEX=false
59 61746420 2005-08-31 devnull 	case 1;
60 61746420 2005-08-31 devnull 		DUPLEX=true
61 61746420 2005-08-31 devnull 	}
62 61746420 2005-08-31 devnull 	PATCH=$PATCH'
63 61746420 2005-08-31 devnull %%BeginFeature: *Set DuplexMode
64 61746420 2005-08-31 devnull [{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
65 61746420 2005-08-31 devnull     << /Duplex '$DUPLEX'  >> setpagedevice
66 61746420 2005-08-31 devnull   } {statusdict /setduplexmode known {statusdict begin '$DUPLEX' setduplexmode end} if} ifelse
67 61746420 2005-08-31 devnull  } stopped cleartomark
68 61746420 2005-08-31 devnull %%EndFeature'
69 61746420 2005-08-31 devnull }
70 61746420 2005-08-31 devnull PATCH=$PATCH'
71 61746420 2005-08-31 devnull %%EndPatch from lp'
72 61746420 2005-08-31 devnull if (! ~ $PATCH '' -P*)
73 61746420 2005-08-31 devnull 	PATCH=-P$PATCH;
74 61746420 2005-08-31 devnull 
75 61746420 2005-08-31 devnull if (~ $MAG '') MAG=1
76 61746420 2005-08-31 devnull if (~ $MAG [.0-9]*) MAG=-m^$MAG
77 61746420 2005-08-31 devnull 
78 61746420 2005-08-31 devnull if (! ~ $LAND '') LAND=-L
79 61746420 2005-08-31 devnull if not LAND=()
80 61746420 2005-08-31 devnull 
81 61746420 2005-08-31 devnull /$cputype/bin/gif -t | /$cputype/bin/aux/p9bitpost $MAG $LAND $PATCH | $LPLIB/process/hpost
82 61746420 2005-08-31 devnull exit
83 61746420 2005-08-31 devnull