op public repos

Blame

Date:: Wed Aug 31 02:15:26 2005 UTC
Message:: Initial lp.
Actions:: History | Blob | Raw File
  1 61746420 2005-08-31 devnull #!/usr/local/plan9/bin/rc
  2 61746420 2005-08-31 devnull if (! ~ $DEBUG '') flag x +
  3 61746420 2005-08-31 devnull REVFLAG=''
  4 61746420 2005-08-31 devnull if (~ $LPCLASS *reverse*) {
  5 61746420 2005-08-31 devnull 	switch ($REVERSE) {
  6 61746420 2005-08-31 devnull 	case '';
  7 61746420 2005-08-31 devnull 		REVFLAG=1
  8 61746420 2005-08-31 devnull 	case 1;
  9 61746420 2005-08-31 devnull 		REVFLAG=''
 10 61746420 2005-08-31 devnull 	}
 11 61746420 2005-08-31 devnull }
 12 61746420 2005-08-31 devnull if (! ~ $REVFLAG '')
 13 61746420 2005-08-31 devnull 	postreverse
 14 61746420 2005-08-31 devnull 
 15 61746420 2005-08-31 devnull if (~ $NOHEAD '') {
 16 61746420 2005-08-31 devnull 	DATE=`{date}
 17 61746420 2005-08-31 devnull 	face='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 18 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 19 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 20 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 21 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 22 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 23 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 24 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 25 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 26 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 27 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 28 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 29 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 30 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 31 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 32 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 33 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
 34 61746420 2005-08-31 devnull FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'
 35 61746420 2005-08-31 devnull 	facedom=`{awk '{ if(match("'$LPMACHID'", $1)) {print $2; exit}}' $PLAN9/face/.machinelist}
 36 61746420 2005-08-31 devnull 	if (~ $#facedom 0) facedom=$LPMACHID
 37 61746420 2005-08-31 devnull 
 38 61746420 2005-08-31 devnull 	facefile=`{awk '/^'$facedom'\/'$LPUSERID' /{print $2}' $PLAN9/face/48x48x4/.dict}
 39 61746420 2005-08-31 devnull 	facedepth=4
 40 61746420 2005-08-31 devnull 
 41 61746420 2005-08-31 devnull 	if (~ $#facefile 0) {
 42 61746420 2005-08-31 devnull 		facefile=`{awk '/^'$facedom'\/'$LPUSERID' /{print $2}' $PLAN9/face/48x48x2/.dict}
 43 61746420 2005-08-31 devnull 		facedepth=2
 44 61746420 2005-08-31 devnull 	}
 45 61746420 2005-08-31 devnull 
 46 61746420 2005-08-31 devnull 	if (~ $#facefile 0) {
 47 61746420 2005-08-31 devnull 		facefile=`{awk '/^'$facedom'\/'$LPUSERID' /{print $2}' $PLAN9/face/48x48x1/.dict}
 48 61746420 2005-08-31 devnull 		facedepth=1
 49 61746420 2005-08-31 devnull 	}
 50 61746420 2005-08-31 devnull 
 51 61746420 2005-08-31 devnull 	if (~ $#facefile 0) {facefile=u/unknown.1; facedepth=1}
 52 61746420 2005-08-31 devnull 	facefile=$PLAN9/face/48x48x$facedepth/$facefile
 53 61746420 2005-08-31 devnull 
 54 61746420 2005-08-31 devnull 	if (! ~ $#facefile 0 1)
 55 61746420 2005-08-31 devnull 		facefile=$facefile(1)
 56 61746420 2005-08-31 devnull 
 57 61746420 2005-08-31 devnull 	if (~ $#facefile 0 || ! test -f $facefile ) {facefile=$PLAN9/face/48x48x2/u/unknown.1; facedepth=2}
 58 61746420 2005-08-31 devnull 	if (test -r $facefile ) {
 59 61746420 2005-08-31 devnull 		switch($facedepth){
 60 61746420 2005-08-31 devnull 		case 1 2
 61 61746420 2005-08-31 devnull 			face=`{cat $facefile |
 62 61746420 2005-08-31 devnull 				sed -e 's/0x//g' -e 's/, *//g' |
 63 61746420 2005-08-31 devnull 				tr 0123456789abcdef fedcba9876543210 };
 64 61746420 2005-08-31 devnull 		case 4
 65 61746420 2005-08-31 devnull 			face=`{iconv -u -c k4 $facefile |
 66 61746420 2005-08-31 devnull 				dd -bs 60 -skip 1 >[2]/dev/null |
 67 61746420 2005-08-31 devnull 				xd -b | sed 's/^[^ ]+ //;s/ //g'  }
 68 61746420 2005-08-31 devnull 		}
 69 61746420 2005-08-31 devnull 	}
 70 61746420 2005-08-31 devnull }
 71 61746420 2005-08-31 devnull 
 72 61746420 2005-08-31 devnull # We have to make sure the face information is set before rc sees the HERE file
 73 61746420 2005-08-31 devnull # so the cat has to be in a separate if statement.  This is an rc bug.
 74 61746420 2005-08-31 devnull if (~ $NOHEAD '') cat <<EOF
 75 61746420 2005-08-31 devnull %!PS-Adobe-2.0	div 112 page header - research!pg
 76 61746420 2005-08-31 devnull /banner {
 77 61746420 2005-08-31 devnull 	/saveobj save def
 78 61746420 2005-08-31 devnull 	erasepage initgraphics
 79 61746420 2005-08-31 devnull 	/#copies 1 def
 80 61746420 2005-08-31 devnull 	/inch {72 mul} bind def
 81 61746420 2005-08-31 devnull 	/pageborder {
 82 61746420 2005-08-31 devnull 		25 747 moveto
 83 61746420 2005-08-31 devnull 		590 747 lineto
 84 61746420 2005-08-31 devnull 		590 25 lineto
 85 61746420 2005-08-31 devnull 		25 25 lineto
 86 61746420 2005-08-31 devnull 		closepath
 87 61746420 2005-08-31 devnull 		2 setlinewidth
 88 61746420 2005-08-31 devnull 		0 setgray
 89 61746420 2005-08-31 devnull 		stroke
 90 61746420 2005-08-31 devnull 	} def
 91 61746420 2005-08-31 devnull 
 92 61746420 2005-08-31 devnull 	/topborder {
 93 61746420 2005-08-31 devnull 		25 773 moveto
 94 61746420 2005-08-31 devnull 		590 773 lineto
 95 61746420 2005-08-31 devnull 		590 747 lineto
 96 61746420 2005-08-31 devnull 		25 747 lineto
 97 61746420 2005-08-31 devnull 		closepath
 98 61746420 2005-08-31 devnull 		2 setlinewidth
 99 61746420 2005-08-31 devnull 		0 setgray
100 61746420 2005-08-31 devnull 		stroke
101 61746420 2005-08-31 devnull 	} def
102 61746420 2005-08-31 devnull 
103 61746420 2005-08-31 devnull 	/toptext {
104 61746420 2005-08-31 devnull 		120 756 moveto
105 61746420 2005-08-31 devnull 		/Courier-Bold findfont 14 scalefont setfont
106 61746420 2005-08-31 devnull 		($LPUSERID $DATE) show
107 61746420 2005-08-31 devnull 	} def
108 61746420 2005-08-31 devnull 
109 61746420 2005-08-31 devnull 	/prface {
110 61746420 2005-08-31 devnull 		gsave
111 61746420 2005-08-31 devnull 		translate rotate scale
112 61746420 2005-08-31 devnull 		setgray
113 61746420 2005-08-31 devnull 		48 48 $facedepth [48 0 0 -48 0 48] {<$face>} image
114 61746420 2005-08-31 devnull 		grestore
115 61746420 2005-08-31 devnull 	} def
116 61746420 2005-08-31 devnull EOF
117 61746420 2005-08-31 devnull if (~ $NOHEAD '') switch ($LPCLASS) {
118 61746420 2005-08-31 devnull case *hp4simx*;
119 61746420 2005-08-31 devnull 	echo '
120 61746420 2005-08-31 devnull %% set the default papertray to be the lower tray for HP4siMX printers
121 61746420 2005-08-31 devnull 	statusdict begin defaultpapertray end 1 ne {
122 61746420 2005-08-31 devnull 		statusdict begin
123 61746420 2005-08-31 devnull 			1 setdefaultpapertray
124 61746420 2005-08-31 devnull 		end
125 61746420 2005-08-31 devnull 	} if'
126 61746420 2005-08-31 devnull }
127 61746420 2005-08-31 devnull if (~ $NOHEAD '') cat <<EOF
128 61746420 2005-08-31 devnull 	statusdict /setduplexmode known {statusdict begin false setduplexmode end} if
129 61746420 2005-08-31 devnull 	statusdict begin /manualfeed false def end
130 61746420 2005-08-31 devnull 	pageborder
131 61746420 2005-08-31 devnull 	topborder
132 61746420 2005-08-31 devnull 	toptext
133 61746420 2005-08-31 devnull 	0 14 14 0 94 752 prface
134 61746420 2005-08-31 devnull 	.3 180 180 -90 3.0 inch 10.2 inch prface
135 61746420 2005-08-31 devnull 	showpage
136 61746420 2005-08-31 devnull 	saveobj
137 61746420 2005-08-31 devnull 	restore
138 61746420 2005-08-31 devnull } bind def
139 61746420 2005-08-31 devnull banner
140 61746420 2005-08-31 devnull EOF
141 61746420 2005-08-31 devnull 
142 61746420 2005-08-31 devnull if (~ $REVFLAG '') cat
143 61746420 2005-08-31 devnull exit ''