---
tgsdev (470B)
---
1 #!/usr/local/plan9/bin/rc
2
3 fn local {
4 GSDEVICE=`{echo $LPCLASS | 9 sed 's/(.*\+)?gs!([^+]*)(\+.*)?/\2/'}
5 echo gs $GSDEVICE
6 {
7 psdownload -f -H$PLAN9/postscript/font -mfontmap -plw+ \
8 < $LPDEST/$FILE(1) |
9 gs -sDEVICE'='$GSDEVICE -s'OUTPUTFILE='$OUTDEV -dSAFER -dNOPAUSE -dQUIET -dBATCH -
10 } >[2]$PRINTLOG
11 }
12 fn remote {
13 {
14 echo -d$LPDEST -pnoproc -M$SCHEDLINE(1) -u$SCHEDLINE(2)
15 cat $LPDEST/$FILE
16 sleep 5
17 } | lpsend.rc $DEST_HOST
18 }
19 generic local remote '' |