tInitial lp. - plan9port - [fork] Plan 9 from user space
(HTM) git clone git://src.adamsgaard.dk/plan9port
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) README
(DIR) LICENSE
---
(DIR) commit 6174642093bdcef4116ae78dbdf4f2e608494258
(DIR) parent 9f1d53a09bdd8f99e9f81a344c7fa6b5161e1359
(HTM) Author: rsc <devnull@localhost>
Date: Wed, 31 Aug 2005 02:15:26 +0000
Initial lp.
Diffstat:
A lp/bin/.cvsignore | 0
A lp/bin/UNLOCK | 3 +++
A lp/bin/lpsend.rc | 18 ++++++++++++++++++
A lp/daemon/generic | 138 ++++++++++++++++++++++++++++++
A lp/daemon/gsdev | 19 +++++++++++++++++++
A lp/daemon/psdev | 14 ++++++++++++++
A lp/devices | 80 +++++++++++++++++++++++++++++++
A lp/log/.placeholder | 0
A lp/log/lpdaemonl | 0
A lp/perm/.placeholder | 0
A lp/prob/.placeholder | 0
A lp/process/dvipost | 120 +++++++++++++++++++++++++++++++
A lp/process/g3post | 82 +++++++++++++++++++++++++++++++
A lp/process/generic | 108 +++++++++++++++++++++++++++++++
A lp/process/gifpost | 83 +++++++++++++++++++++++++++++++
A lp/process/hpost | 143 +++++++++++++++++++++++++++++++
A lp/process/jpgpost | 82 +++++++++++++++++++++++++++++++
A lp/process/noproc | 3 +++
A lp/process/p9bitpost | 83 +++++++++++++++++++++++++++++++
A lp/process/pdfgs | 78 +++++++++++++++++++++++++++++++
A lp/process/pdfpost | 76 +++++++++++++++++++++++++++++++
A lp/process/post | 68 +++++++++++++++++++++++++++++++
A lp/process/ppost | 98 +++++++++++++++++++++++++++++++
A lp/process/psextract | 60 +++++++++++++++++++++++++++++++
A lp/process/tr2post | 86 ++++++++++++++++++++++++++++++
A lp/queue/.placeholder | 0
A lp/sched/FIFO | 2 ++
A lp/spooler/generic | 48 +++++++++++++++++++++++++++++++
A lp/spooler/lpdspool | 15 +++++++++++++++
A lp/spooler/nospool | 21 +++++++++++++++++++++
30 files changed, 1528 insertions(+), 0 deletions(-)
---
(DIR) diff --git a/lp/bin/.cvsignore b/lp/bin/.cvsignore
(DIR) diff --git a/lp/bin/UNLOCK b/lp/bin/UNLOCK
t@@ -0,0 +1,3 @@
+#!/usr/local/plan9/bin/rc
+
+>$1/LOCK && rm -f $1/LOCK
(DIR) diff --git a/lp/bin/lpsend.rc b/lp/bin/lpsend.rc
t@@ -0,0 +1,18 @@
+#!/usr/local/plan9/bin/rc
+if (! ~ $DEBUG '') { flag x + }
+if (test -e /net/tcp/clone) {
+ dialstring=`{ndb/query sys $1 dom}
+ network=tcp
+ if (~ $#dialstring 0 || ! ~ $dialstring '') {
+ dialstring=$1
+ }
+ if(lpsend $network^!^$dialstring^!printer) exit ''
+ rv='tcp failed'
+}
+if not rv='no tcp'
+
+
+if (! ~ $dialstring '')
+ exit 'lpsend: no dialstring'
+if not
+ exit 'lpsend: '^$rv
(DIR) diff --git a/lp/daemon/generic b/lp/daemon/generic
t@@ -0,0 +1,138 @@
+#!/usr/local/plan9/bin/rc
+
+rfork s
+
+if (! ~ $DEBUG '') flag x +
+
+LPDELAY=60
+
+if (! ~ $#* 2 && ! ~ $#* 3) {
+ echo 'usage generic local_cmd _remote_cmd [ success_cmd ]' >[1=2]
+ exit 'argument count'
+}
+LOCAL_CMD=$1
+REMOTE_CMD=$2
+SUCCESS_CMD=$3
+
+# we don't want to make a LOCK file unless we are at the destination
+# let the spooler take care of moving it there
+# this is necessary for clients and servers that share the
+# same lp queue directory
+if (! ~ $THIS_HOST $DEST_HOST || ! LOCK $LPSPOOL/$LPDEST/LOCK $THIS_HOST $pid) exit ''
+
+cd $LPSPOOL
+
+MAXTRY=2
+PRINTLOG=$LPLOGDIR/$LPDEST^.st
+
+fn schedule{
+ FILE=`{lpsub sched $SCHED $LPDEST}
+}
+
+while (schedule; ! ~ $#FILE 0) {
+ SCHEDLINE=`{cat $LPDEST/$FILE(1)^id}
+ LSLINE=`{ls -l $LPDEST/$FILE(1)}
+ echo `{date} start $SCHEDLINE
+ if (! test -s $LPDEST/.seqno) {
+ echo 0 > $LPDEST/.seqno
+ }
+ if not {
+ LPSEQNO = `{cat $LPDEST/.seqno | awk '{seqno = $1 + 1; if (seqno > 999) seqno = 0; print seqno}'}
+ echo $LPSEQNO > $LPDEST/.seqno
+ }
+ STARTIME=`{date}
+ if (! test -s $LPDEST/$FILE(1)) {
+ echo `{date} file $LPDEST/$FILE(1) disappeared or is empty
+ ls -l $LPDEST
+ echo $SCHEDLINE(2)$SCHEDLINE(4)' '$SCHEDLINE(3) $SCHEDLINE(5)' ! '$LSLINE(6) $STARTIME(4) >> $LPLOG
+ rm -f $LPDEST/$FILE $LPDEST/$FILE^id
+ }
+ if not {
+ if (~ $THIS_HOST $DEST_HOST) {
+ if (test -f $LPLIB/perm/$LPDEST && grep -s $SCHEDLINE(2) $LPLIB/perm/$LPDEST) {
+ echo `{date} permission denied
+ echo you are not allowed to use printer $LPDEST | mail $SCHEDLINE(2)
+ rm -f $LPDEST/$FILE(1) $LPDEST/$FILE(1)^id
+ }
+ if not {
+ echo `{date} sending to printer
+ > $PRINTLOG
+ STARTIME=`{date}
+ @{eval $LOCAL_CMD}
+ rv=$status
+ ENDTIME=`{date}
+ status=$rv
+ if () {
+ echo $SCHEDLINE(1)^$SCHEDLINE(3)' '$SCHEDLINE(2)' '$SCHEDLINE(4)' + '$LSLINE(6)' '$STARTIME(4)' '$ENDTIME(4)
+ eval $SUCCESS_CMD
+ rm -f $LPDEST/$FILE(1) $LPDEST/$FILE(1)^id
+ }
+ if not {
+ echo $SCHEDLINE(1)^$SCHEDLINE(3)' '$SCHEDLINE(2)' '$SCHEDLINE(4)' - '$LSLINE(6)' '$STARTIME(4)' '$ENDTIME(4)' status='$rv
+ THISTRY=`{echo $SCHEDLINE(4) + 1|hoc}
+ echo $SCHEDLINE(1) $SCHEDLINE(2) $SCHEDLINE(3) $THISTRY >$LPDEST/$FILE(1)^id
+ if (test $THISTRY -ge $MAXTRY) {
+ if (test -d $LPLIB/prob/$LPDEST) {
+ cp $LPDEST/$FILE(1) $LPLIB/prob/$LPDEST
+ cp $LPDEST/$FILE(1)^id $LPLIB/prob/$LPDEST
+ cp $PRINTLOG $LPLIB/prob/$LPDEST/$FILE(1)^log
+ }
+ upasname=daemon
+ mail $SCHEDLINE(2) <<endmail1
+ rm -f $LPDEST/$FILE(1) $LPDEST/$FILE(1)^id
+ }
+ if not {
+ touch $LPDEST/$FILE(1)
+ sleep $LPDELAY
+ }
+ }
+ }
+ }
+ if not {
+# we don't want to be here
+# trap '' 13 # temp hack: ignore SIGPIPE
+ echo `{date} queuing - should not get here
+ STARTIME=`{date}
+ eval $REMOTE_CMD
+ rv=$status
+ ENDTIME=`{date}
+ if (~ $rv '') {
+ echo $SCHEDLINE(1)^$SCHEDLINE(3)' '$SCHEDLINE(2)' '$SCHEDLINE(4)' + '$LSLINE(6)' '$STARTIME(4)' '$ENDTIME(4)
+ rm -f $LPDEST/$FILE(1) $LPDEST/$FILE(1)^id
+ }
+ if not {
+ echo $SCHEDLINE(1)^$SCHEDLINE(3)' '$SCHEDLINE(2)' '$SCHEDLINE(4)' - '$LSLINE(6)' '$STARTIME(4)' '$ENDTIME(4)
+ echo status $rv from '$REMOTE_CMD'
+ THISTRY=`{echo $SCHEDLINE(4) + 1|hoc}
+ echo $SCHEDLINE(1) $SCHEDLINE(2) $SCHEDLINE(3) $THISTRY >$LPDEST/$FILE(1)^id
+ if (~ $THISTRY $MAXTRY) {
+ upasname=daemon
+ mail $SCHEDLINE(2) <<endmail2
+ }
+ if not {
+ touch $LPDEST/$FILE(1)
+ sleep $LPDELAY
+
+ # this is here to deal with running out of
+ # Datakit channels or other stupid problems
+ # backoff connection attempts but not too long
+ LPDELAY=`{echo $LPDELAY '*' 2|hoc}
+ if (test $LPDELAY -gt 960)
+ LPDELAY=60
+ }
+ }
+ }
+ }
+}
+Your job has failed to print on $LPDEST after $MAXTRY attempt(s).
+If the directory $LPLIB/prob/$LPDEST exists on $DEST_HOST,
+the file has been put there along with the printer log file.
+ Your friendly printer daemon
+endmail1
+Your job has failed to print on $LPDEST after $MAXTRY attempt(s).
+There is a problem in sending the job to $DEST_HOST,
+but I'll keep trying. Have a nice day.
+ Your enthusiastic printer daemon
+endmail2
+UNLOCK $LPSPOOL/$LPDEST
+rm $LPSPOOL/$LPDEST >[2]/dev/null
(DIR) diff --git a/lp/daemon/gsdev b/lp/daemon/gsdev
t@@ -0,0 +1,19 @@
+#!/usr/local/plan9/bin/rc
+
+fn local {
+ GSDEVICE=`{echo $LPCLASS | 9 sed 's/(.*\+)?gs!([^+]*)(\+.*)?/\2/'}
+ echo gs $GSDEVICE
+ {
+ psdownload -f -H$PLAN9/postscript/font -mfontmap -plw+ \
+ < $LPDEST/$FILE(1) |
+ gs -sDEVICE'='$GSDEVICE -s'OUTPUTFILE='$OUTDEV -dSAFER -dNOPAUSE -dQUIET -dBATCH -
+ } >[2]$PRINTLOG
+}
+fn remote {
+ {
+ echo -d$LPDEST -pnoproc -M$SCHEDLINE(1) -u$SCHEDLINE(2)
+ cat $LPDEST/$FILE
+ sleep 5
+ } | lpsend.rc $DEST_HOST
+}
+generic local remote ''
(DIR) diff --git a/lp/daemon/psdev b/lp/daemon/psdev
t@@ -0,0 +1,14 @@
+#!/usr/local/plan9/bin/rc
+
+fn local {
+ psdownload -f -H$PLAN9/postscript/font -mfontmap -plw+ \
+ < $LPDEST/$FILE(1) >$OUTDEV >[2]$PRINTLOG
+}
+fn remote {
+ {
+ echo -d$LPDEST -pnoproc -M$SCHEDLINE(1) -u$SCHEDLINE(2)
+ cat $LPDEST/$FILE
+ sleep 5
+ } | lpsend.rc $DEST_HOST
+}
+generic local remote ''
(DIR) diff --git a/lp/devices b/lp/devices
t@@ -0,0 +1,80 @@
+# Here is a sample printer devices file where
+# some of the printers have been commented out.
+#
+# The fields are:
+#
+# $1 printer name
+# $2 printer location - just a comment for lp -d'?'
+# $3 destination host - machine that manages print queue
+# $4 devname - device name used by destination host or physical device file
+# $5 speed - for printers on serial ports
+# $6 class - describes printer, e.g., postscript vs pcl
+# $7 process - how to process file to produce printable output
+# $8 spooler - how to spool that output for printing
+# $9 stat - how to query device status
+# $10 kill - how to remove print jobs
+# $11 daemon - how to start the print daemon to serve queue
+# $12 sched - scheduling order
+#
+# HP LaserJet 4M connected to serial port on an Annex terminal server.
+# 2c254 2C-254 rice tcp!annex!7035 19200 post+600dpi generic generic generic generic tcppost FIFO
+#
+# HP LaserJet 4M connected to Ethernet via a JetDirect card.
+# The speed field is used to set the bufffer size in the tcpostio program run from tcppost.
+# 2c307 2C-307 alice tcp!mh2c307!9100 81920 post+600dpi generic generic generic generic tcppost FIFO
+#
+# HP LaserJet 4M connected to serial port on a Cisco terminal server.
+# 2t4 2T-402 pyxis tcp!ts!4010 19200 post+600dpi generic generic generic generic tcppost FIFO
+#
+# HP LaserJet 4Si/MX connected to Ethernet via a JetDirect card.
+# This printer has a duplexing option.
+# See /sys/lib/postscript/prologues/hpsimx.ps for a fix to make it default
+# to the large paper tray at postion 1.
+# fn 2C-501 helix tcp!fn!9100 81920 post2+600dpi+duplex generic generic generic generic tcppost FIFO
+#
+# Tektronix Phaser 200i connected to Ethernet.
+# Using Xinet K-Talk software from a UNIX host. This software is not recommended.
+# We do not want to waste stock on the color printer so we do not print header pages.
+# peacock 2C-501 cetus peacock - post2+300dpi+nohead+color generic generic generic generic appletalk FIFO
+#
+# Any PostScript printer connected to the LPT1 port on my 486 pc running Plan 9 as a terminal.
+pcclone - - /dev/lpt1data - post+nohead generic pcclone - - - -
+#
+# QMS-410 connected to the serial port of an NCD terminal.
+# math34 2T-102 rice tcp!math34!87 9600 post+600dpi generic generic generic generic tcppost FIFO
+#
+# QMS-410 connected to the serial port of an AT&T 630/730 terminal
+# ps630 printer-on-630 - - - post+300dpi+nohead generic ps630 - - - -
+#
+# Xante Accel-a-Writer-8200. 1200dpi printer that uses a BSD lpr print daemon protocol
+# psu 2C-501 cetus psu - post+1200dpi generic generic xante generic lpddaemon FIFO
+#
+# 'stdout' sends the output to the standard output of the lp command.
+# if the 'phys_dev_name' field is set to a file or device, the output will go to it instead.
+# if '+sendEOT' is added to the 'class' field, an EOT character will be sent at the end of the output.
+#
+stdout - - - - post+nohead generic nospool - - - -
+#
+# sends the output to the standard output of the lp command.
+# used for generating output suitable for 100 dpi.
+100dpi - - - - post+100dpi+nohead generic nospool - - - -
+#
+# same as above for generating output suitable for 300 dpi.
+300dpi - - - - post+300dpi+nohead generic nospool - - - -
+#
+# same as above for generating output suitable for 600 dpi.
+#
+600dpi - - - - post+600dpi+nohead generic nospool - - - -
+#
+# same as above for generating output suitable for Linotronics phototypesetter.
+1270dpi - - - - post+lino+nohead generic nospool - - - -
+
+# 600dpi postscript printer named vogon via BSD LPD printer queue on alice
+vogon printer-room t23 /dev/atibm - post+600dpi generic generic generic generic dumb FIFO
+
+# HP DeskJet and Canon BJC-240
+hpdeskjet - - /dev/lpt1data - gs!cdj670+nohead generic nospool - - - -
+canonbjc240l - - /dev/lpt1data - gs!bjc600+nohead generic nospool - - - -
+
+# LaserJet4-compatible printer on Linux parallel port
+laser 2D t23 /dev/par0 - post+gs!ljet4+nohead generic generic generic generic gsdev FIFO
(DIR) diff --git a/lp/log/.placeholder b/lp/log/.placeholder
(DIR) diff --git a/lp/log/lpdaemonl b/lp/log/lpdaemonl
(DIR) diff --git a/lp/perm/.placeholder b/lp/perm/.placeholder
(DIR) diff --git a/lp/prob/.placeholder b/lp/prob/.placeholder
(DIR) diff --git a/lp/process/dvipost b/lp/process/dvipost
t@@ -0,0 +1,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
(DIR) diff --git a/lp/process/g3post b/lp/process/g3post
t@@ -0,0 +1,82 @@
+#!/usr/local/plan9/bin/rc
+# convert CCITT G3 Fax format to PostScript
+if (! ~ $DEBUG '') flag x +
+PATCH='%%Patch from lp'
+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 -P*;
+ 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];
+ PATCH=$PATCH'
+%%BeginFeature: *Select InputTray
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << '$i' << /MediaType (tray'$i') >> >>
+ << /MediaType (tray'$i') >> setpagedevice
+ } {statusdict begin '$i' setpapertray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case 11x17 [Ll]edger;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Ledger
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << /PageSize [792 1224] >> setpagedevice
+ } {statusdict begin '$i'tray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case transparency vg viewgraph;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Transparency
+[{ << /MediaType (Transparency) >> setpagedevice
+ } stopped cleartomark
+%%EndFeature'
+ case *;
+ echo illegal option ''''-i $i'''' >[1=2]
+ }
+}
+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'
+}
+PATCH=$PATCH'
+%%EndPatch from lp'
+if (! ~ $PATCH '' -P*)
+ PATCH=-P$PATCH;
+
+if (~ $MAG '') MAG=1
+if (~ $MAG [.0-9]*) MAG=-m^$MAG^,^`{echo $MAG '*' 2 | hoc}
+
+if (! ~ $LAND '') LAND=-L
+if not LAND=()
+
+g3p9bit | p9bitpost $MAG $LAND $PATCH | $LPLIB/process/hpost
+exit
(DIR) diff --git a/lp/process/generic b/lp/process/generic
t@@ -0,0 +1,108 @@
+#!/usr/local/plan9/bin/rc
+# Tries to determine what type of file you are printing and do the correct
+# thing with it.
+# It currently knows about images, troff intermediate, and ascii files.
+TMPFILE=/tmp/lp$pid
+fn sigexit { rm -f $TMPFILE; }
+if (! ~ $DEBUG '') flag x +
+if (~ $LPCLASS *nohead*) NOHEAD=1
+if (~ $LPCLASS *duplex*) DUPLEX=1
+cat >$TMPFILE
+FILETYPE=`{file $TMPFILE}
+switch ($FILETYPE(2)) {
+case troff;
+ switch ($LPCLASS) {
+ case *Latin1* *post* *opost*; switch ($FILETYPE(5)) {
+ # Latin1 is for compatibility with old research UNIX systems, doesn't work on Plan 9
+ case Latin1 post; tcs -s -f utf -t latin1 < $TMPFILE |$LPLIB/process/dpost
+
+ case UTF; $LPLIB/process/tr2post < $TMPFILE
+ }
+
+ case *; echo $FILETYPE(2) -T$FILETYPE(5) output is improper for $LPDEST >[1=2]
+ }
+case special;
+ switch ($FILETYPE(4)) {
+ case '#b'; switch ($LPCLASS) {
+ case *post*; $LPLIB/process/p9bitpost < $TMPFILE
+ }
+
+ case *; echo $FILETYPE file is improper for $LPDEST >[1=2]
+ }
+case Compressed plan old; # type is really 'Compressed image' or 'plan 9 image'
+ # or 'old plan 9 image'
+ switch ($LPCLASS) {
+ case *post*; $LPLIB/process/p9bitpost < $TMPFILE
+ }
+case jpeg;
+ switch ($LPCLASS) {
+ case *post*; $LPLIB/process/jpgpost < $TMPFILE
+ }
+
+case GIF;
+ switch ($LPCLASS) {
+ case *post*; $LPLIB/process/gifpost < $TMPFILE
+ }
+
+case ccitt-g31;
+ switch ($LPCLASS) {
+ case *post*; $LPLIB/process/g3post < $TMPFILE
+ }
+
+# bitmap for research UNIX compatibility, does not work on Plan 9.
+case bitmap;
+ switch ($LPCLASS) {
+ case *post*; $LPLIB/process/bpost < $TMPFILE
+ case *mhcc*; $LPLIB/process/bpost < $TMPFILE | $LPLIB/process/mhcc
+ case *; echo $FILETYPE(2) file is improper for $LPDEST >[1=2]
+ }
+case tex;
+ mv $TMPFILE $TMPFILE.dvi
+ TMPFILE=$TMPFILE.dvi
+ switch ($LPCLASS) {
+ case *post*; $LPLIB/process/dvipost $TMPFILE
+ case *; echo $FILETYPE(2) file is improper for $LPDEST >[1=2]
+ }
+case postscript;
+ switch ($LPCLASS) {
+ case *post*; $LPLIB/process/post < $TMPFILE
+ case *; echo $FILETYPE(2) file is improper for $LPDEST >[1=2]
+ }
+case HPJCL;
+ switch ($LPCLASS) {
+ case *HPJCL*; $LPLIB/process/noproc < $TMPFILE
+ case *; echo $FILETYPE(2) file is improper for $LPDEST >[1=2]
+ }
+case daisy;
+ switch ($LPDEST) {
+ case *; echo $FILETYPE(2) file is improper for $LPDEST >[1=2]
+ }
+case English short extended alef limbo [Aa]scii ASCII assembler c latin rc sh as mail email message/rfc822;
+ switch ($LPCLASS) {
+ case *post*; $LPLIB/process/ppost < $TMPFILE
+ case *canon*; $LPLIB/process/can $* < $TMPFILE
+ case *; echo Unrecognized class of line printer for $LPDEST >[1=2]
+ }
+
+case tiff;
+ switch ($LPCLASS) {
+ case *post*; $LPLIB/process/tiffpost $TMPFILE
+ case *; echo Unrecognized class of line printer for $LPDEST >[1=2]
+ }
+case PDF;
+ switch ($LPCLASS) {
+ case *post*; $LPLIB/process/pdfpost $TMPFILE
+ case *; echo Unrecognized class of line printer for $LPDEST >[1=2]
+ }
+case empty;
+ echo file is empty >[1=2]
+case cannot;
+ echo cannot open file >[1=2]
+case *;
+ echo $FILETYPE(2) file is improper for $LPDEST >[1=2]
+}
+wait
+rv=$status
+rm -f $TMPFILE
+#exit $status
+exit
(DIR) diff --git a/lp/process/gifpost b/lp/process/gifpost
t@@ -0,0 +1,83 @@
+#!/usr/local/plan9/bin/rc
+# convert CCITT G3 Fax format to PostScript
+if (! ~ $DEBUG '') flag x +
+PATCH='%%Patch from lp'
+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 -P*;
+ 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];
+ PATCH=$PATCH'
+%%BeginFeature: *Select InputTray
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << '$i' << /MediaType (tray'$i') >> >>
+ << /MediaType (tray'$i') >> setpagedevice
+ } {statusdict begin '$i' setpapertray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case 11x17 [Ll]edger;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Ledger
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << /PageSize [792 1224] >> setpagedevice
+ } {statusdict begin '$i'tray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case transparency vg viewgraph;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Transparency
+[{ << /MediaType (Transparency) >> setpagedevice
+ } stopped cleartomark
+%%EndFeature'
+ case *;
+ echo illegal option ''''-i $i'''' >[1=2]
+ }
+}
+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'
+}
+PATCH=$PATCH'
+%%EndPatch from lp'
+if (! ~ $PATCH '' -P*)
+ PATCH=-P$PATCH;
+
+if (~ $MAG '') MAG=1
+if (~ $MAG [.0-9]*) MAG=-m^$MAG
+
+if (! ~ $LAND '') LAND=-L
+if not LAND=()
+
+/$cputype/bin/gif -t | /$cputype/bin/aux/p9bitpost $MAG $LAND $PATCH | $LPLIB/process/hpost
+exit
+
(DIR) diff --git a/lp/process/hpost b/lp/process/hpost
t@@ -0,0 +1,143 @@
+#!/usr/local/plan9/bin/rc
+if (! ~ $DEBUG '') flag x +
+REVFLAG=''
+if (~ $LPCLASS *reverse*) {
+ switch ($REVERSE) {
+ case '';
+ REVFLAG=1
+ case 1;
+ REVFLAG=''
+ }
+}
+if (! ~ $REVFLAG '')
+ postreverse
+
+if (~ $NOHEAD '') {
+ DATE=`{date}
+ face='FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF'
+ facedom=`{awk '{ if(match("'$LPMACHID'", $1)) {print $2; exit}}' $PLAN9/face/.machinelist}
+ if (~ $#facedom 0) facedom=$LPMACHID
+
+ facefile=`{awk '/^'$facedom'\/'$LPUSERID' /{print $2}' $PLAN9/face/48x48x4/.dict}
+ facedepth=4
+
+ if (~ $#facefile 0) {
+ facefile=`{awk '/^'$facedom'\/'$LPUSERID' /{print $2}' $PLAN9/face/48x48x2/.dict}
+ facedepth=2
+ }
+
+ if (~ $#facefile 0) {
+ facefile=`{awk '/^'$facedom'\/'$LPUSERID' /{print $2}' $PLAN9/face/48x48x1/.dict}
+ facedepth=1
+ }
+
+ if (~ $#facefile 0) {facefile=u/unknown.1; facedepth=1}
+ facefile=$PLAN9/face/48x48x$facedepth/$facefile
+
+ if (! ~ $#facefile 0 1)
+ facefile=$facefile(1)
+
+ if (~ $#facefile 0 || ! test -f $facefile ) {facefile=$PLAN9/face/48x48x2/u/unknown.1; facedepth=2}
+ if (test -r $facefile ) {
+ switch($facedepth){
+ case 1 2
+ face=`{cat $facefile |
+ sed -e 's/0x//g' -e 's/, *//g' |
+ tr 0123456789abcdef fedcba9876543210 };
+ case 4
+ face=`{iconv -u -c k4 $facefile |
+ dd -bs 60 -skip 1 >[2]/dev/null |
+ xd -b | sed 's/^[^ ]+ //;s/ //g' }
+ }
+ }
+}
+
+# We have to make sure the face information is set before rc sees the HERE file
+# so the cat has to be in a separate if statement. This is an rc bug.
+if (~ $NOHEAD '') cat <<EOF
+%!PS-Adobe-2.0 div 112 page header - research!pg
+/banner {
+ /saveobj save def
+ erasepage initgraphics
+ /#copies 1 def
+ /inch {72 mul} bind def
+ /pageborder {
+ 25 747 moveto
+ 590 747 lineto
+ 590 25 lineto
+ 25 25 lineto
+ closepath
+ 2 setlinewidth
+ 0 setgray
+ stroke
+ } def
+
+ /topborder {
+ 25 773 moveto
+ 590 773 lineto
+ 590 747 lineto
+ 25 747 lineto
+ closepath
+ 2 setlinewidth
+ 0 setgray
+ stroke
+ } def
+
+ /toptext {
+ 120 756 moveto
+ /Courier-Bold findfont 14 scalefont setfont
+ ($LPUSERID $DATE) show
+ } def
+
+ /prface {
+ gsave
+ translate rotate scale
+ setgray
+ 48 48 $facedepth [48 0 0 -48 0 48] {<$face>} image
+ grestore
+ } def
+EOF
+if (~ $NOHEAD '') switch ($LPCLASS) {
+case *hp4simx*;
+ echo '
+%% set the default papertray to be the lower tray for HP4siMX printers
+ statusdict begin defaultpapertray end 1 ne {
+ statusdict begin
+ 1 setdefaultpapertray
+ end
+ } if'
+}
+if (~ $NOHEAD '') cat <<EOF
+ statusdict /setduplexmode known {statusdict begin false setduplexmode end} if
+ statusdict begin /manualfeed false def end
+ pageborder
+ topborder
+ toptext
+ 0 14 14 0 94 752 prface
+ .3 180 180 -90 3.0 inch 10.2 inch prface
+ showpage
+ saveobj
+ restore
+} bind def
+banner
+EOF
+
+if (~ $REVFLAG '') cat
+exit ''
(DIR) diff --git a/lp/process/jpgpost b/lp/process/jpgpost
t@@ -0,0 +1,82 @@
+#!/usr/local/plan9/bin/rc
+# convert JPG to PostScript
+if (! ~ $DEBUG '') flag x +
+PATCH='%%Patch from lp'
+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 -P*;
+ 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];
+ PATCH=$PATCH'
+%%BeginFeature: *Select InputTray
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << '$i' << /MediaType (tray'$i') >> >>
+ << /MediaType (tray'$i') >> setpagedevice
+ } {statusdict begin '$i' setpapertray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case 11x17 [Ll]edger;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Ledger
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << /PageSize [792 1224] >> setpagedevice
+ } {statusdict begin '$i'tray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case transparency vg viewgraph;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Transparency
+[{ << /MediaType (Transparency) >> setpagedevice
+ } stopped cleartomark
+%%EndFeature'
+ case *;
+ echo illegal option ''''-i $i'''' >[1=2]
+ }
+}
+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'
+}
+PATCH=$PATCH'
+%%EndPatch from lp'
+if (! ~ $PATCH '' -P*)
+ PATCH=-P$PATCH;
+
+if (~ $MAG '') MAG=1
+if (~ $MAG [.0-9]*) MAG=-m^$MAG
+
+if (! ~ $LAND '') LAND=-L
+if not LAND=()
+
+9 jpg -t9 | p9bitpost $MAG $LAND $PATCH -p 32 26.17 | $LPLIB/process/hpost
+exit
(DIR) diff --git a/lp/process/noproc b/lp/process/noproc
t@@ -0,0 +1,3 @@
+#!/usr/local/plan9/bin/rc
+# No processing, copy file from input to output
+cat
(DIR) diff --git a/lp/process/p9bitpost b/lp/process/p9bitpost
t@@ -0,0 +1,83 @@
+#!/usr/local/plan9/bin/rc
+# convert plan 9 image to PostScript
+if (~ $DEBUG 1) flag x +
+PATCH='%%Patch from lp'
+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 -P*;
+ 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];
+ PATCH=$PATCH'
+%%BeginFeature: *Select InputTray
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << '$i' << /MediaType (tray'$i') >> >>
+ << /MediaType (tray'$i') >> setpagedevice
+ } {statusdict begin '$i' setpapertray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case 11x17 [Ll]edger;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Ledger
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << /PageSize [792 1224] >> setpagedevice
+ } {statusdict begin '$i'tray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case transparency vg viewgraph;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Transparency
+[{ << /MediaType (Transparency) >> setpagedevice
+ } stopped cleartomark
+%%EndFeature'
+ case *;
+ echo illegal option ''''-i $i'''' >[1=2]
+ }
+}
+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'
+}
+PATCH=$PATCH'
+%%EndPatch from lp'
+if (! ~ $PATCH '' -P*)
+ PATCH=-P$PATCH;
+if (! ~ $LAND '') LAND=-L
+if not LAND=()
+# if (! ~ $COPIES '' -c*) COPIES=-c^$COPIES
+if (! ~ $MAG '') MAG=-m^$MAG
+if (~ $MAG '') MAG=()
+# if (! ~ $NPAG '' -n*) NPAG=-n^$NPAG
+# if (! ~ $XOFF '' -x*) XOFF=-x^$XOFF
+# if (! ~ $YOFF '' -y*) YOFF=-y^$YOFF
+p9bitpost $MAG $LAND $PATCH | $LPLIB/process/hpost
+exit
(DIR) diff --git a/lp/process/pdfgs b/lp/process/pdfgs
t@@ -0,0 +1,78 @@
+#!/usr/local/plan9/bin/rc
+
+#
+# we don't go through postscript, because to
+# get to postscript, we send the pdf through gs!
+# much easier to just go directly.
+#
+
+# usage: pdfgs pdffile [gsdev]
+
+switch($#*) {
+case 2
+ GSDEVICE=$2
+case 1
+ GSDEVICE=`{echo $LPCLASS | sed 's/(.*\+)?gs!([^+]*)(\+.*)?/\2/'}
+case *
+ echo 'usage: pdfgs pdffile [gsdev]' >[1=2]
+}
+
+GSTMPFILE=/tmp/pdf^$pid
+GSOPT=('-sDEVICE='$GSDEVICE '-sOutputFile='^$GSTMPFILE -dSAFER -dNOPAUSE -dQUIET -dBATCH -dNOPAUSE)
+
+#
+# RSC: pswrite produces weird overbars on various
+# letters, most notably Times-Roman A and h, unless
+# we use LanguageLevel=1. This doesn't seem to be
+# constrained to hp4simx printers, so just use LanguageLevel 1
+# all the time.
+#
+
+#if(~ $dev pswrite && ~ $LPCLASS *hp4simx*)
+# GSOPT=($GSOPT '-dLanguageLevel=1')
+if(~ $GSDEVICE pswrite)
+ GSOPT=($GSOPT '-dLanguageLevel=1')
+
+if(~ $OLIST '')
+ gs $GSOPT $1
+if not {
+ PGLIST=`{echo $OLIST | sed 's/-o//;s/,/ /g;s/ / /g' | tr -cd '0-9 -'}
+ GSPGLIST=()
+ for(i in $PGLIST){
+ switch($i){
+ case -*
+ GSPGLIST=($GSPGLIST `{seq 1 `{echo $i|tr -d '-'}})
+ case *-
+ # BUG assume 100 >= number of pages
+ GSPGLIST=($GSPGLIST `{seq `{echo $i|tr -d '-'} 100})
+ case *-*
+ GSPGLIST=($GSPGLIST `{seq `{echo $i|tr '-' ' '}})
+ case *
+ GSPGLIST=($GSPGLIST $i)
+ }
+ }
+ GSPGLIST=$"GSPGLIST
+ echo '
+ /Page null def
+ /Page# 0 def
+ /PDFSave null def
+ /DSCPageCount 0 def
+ /DoPDFPage {dup /Page# exch store pdfgetpage pdfshowpage} def
+ GS_PDF_ProcSet begin
+ pdfdict begin
+ ('^$1^') (r) file pdfopen begin
+ /npage pdfpagecount def
+ ['^$GSPGLIST^']
+ {
+ dup dup
+ 1 ge exch npage le and
+ { DoPDFPage }
+ { pop }
+ ifelse
+ } forall
+ ' | gs $GSOPT - >/dev/null >[2=1]
+}
+
+cat $GSTMPFILE
+rm -f $GSTMPFILE
+exit ''
(DIR) diff --git a/lp/process/pdfpost b/lp/process/pdfpost
t@@ -0,0 +1,76 @@
+#!/usr/local/plan9/bin/rc
+# convert PDF output to PostScript
+if (! ~ $DEBUG '') flag x +
+PATCH='%!PS
+%%Patch from lp'
+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 -P*;
+ 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];
+ PATCH=$PATCH'
+%%BeginFeature: *Select InputTray
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << /MediaType (tray'$i') >> setpagedevice
+ } {statusdict begin '$i' setpapertray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case 11x17 [Ll]edger;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Ledger
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << /PageSize [792 1224] >> setpagedevice
+ } {statusdict begin '$i'tray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case transparency vg viewgraph;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Transparency
+[{ << /MediaType (Transparency) >> setpagedevice
+ } stopped cleartomark
+%%EndFeature'
+ case *;
+ echo illegal option ''''-i $i'''' >[1=2]
+ }
+}
+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'
+}
+PATCH=$PATCH'
+%%EndPatch from lp
+'
+echo $PATCH
+
+pdfgs $1 pswrite | $LPLIB/process/hpost
+exit ''
(DIR) diff --git a/lp/process/post b/lp/process/post
t@@ -0,0 +1,68 @@
+#!/usr/local/plan9/bin/rc
+if (! ~ $DEBUG '') flag x +
+PATCH='%!PS
+%%Patch from lp'
+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 -P*;
+ 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];
+ PATCH=$PATCH'
+%%BeginFeature: *Select InputTray
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << '$i' << /MediaType (tray'$i') >> >>
+ << /MediaType (tray'$i') >> setpagedevice
+ } {statusdict begin '$i' setpapertray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case 11x17 [Ll]edger;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Ledger
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << /PageSize [792 1224] >> setpagedevice
+ } {statusdict begin '$i'tray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case transparency vg viewgraph;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Transparency
+[{ << /MediaType (Transparency) >> setpagedevice
+ } stopped cleartomark
+%%EndFeature'
+ case *;
+ echo illegal option ''''-i $i'''' ignored >[1=2]
+ }
+}
+#if (! ~ $#DUPLEX 0) {
+# if (~ $DUPLEX 1 )
+# PATCH=$PATCH'
+#statusdict /setduplexmode known {statusdict begin true setduplexmode end} if';
+# if (~ $DUPLEX 0 )
+# PATCH=$PATCH'
+#statusdict /setduplexmode known {statusdict begin false setduplexmode end} if';
+#}
+PATCH=$PATCH'
+%%EndPatch from lp
+'
+
+{ echo $PATCH; psextract } | $LPLIB/process/hpost
+
(DIR) diff --git a/lp/process/ppost b/lp/process/ppost
t@@ -0,0 +1,98 @@
+#!/usr/local/plan9/bin/rc
+# converts a regular ascii file to PostScript
+if (! ~ $DEBUG '') flag x +
+PATCH='%%Patch from lp'
+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 -P*;
+ 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];
+ PATCH=$PATCH'
+%%BeginFeature: *Select InputTray
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << '$i' << /MediaType (tray'$i') >> >>
+ << /MediaType (tray'$i') >> setpagedevice
+ } {statusdict begin '$i' setpapertray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case 11x17 [Ll]edger;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Ledger
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << /PageSize [792 1224] >> setpagedevice
+ } {statusdict begin '$i'tray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case transparency vg viewgraph;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Transparency
+[{ << /MediaType (Transparency) >> setpagedevice
+ } stopped cleartomark
+%%EndFeature'
+ case *;
+ echo illegal option ''''-i $i'''' >[1=2]
+ }
+}
+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'
+}
+PATCH=$PATCH'
+%%EndPatch from lp
+'
+if (! ~ $PATCH '' -P*)
+ PATCH=-P''''$PATCH'''';
+switch ($LAND) {
+case -p*;
+case ''; LAND=-pp
+case 1; LAND=-pl
+}
+if (! ~ $COPIES '' -c*) COPIES=-c^$COPIES
+switch ($FONT) {
+case ''; FONT=-f'Courier'
+case -f*;
+case *; FONT=-f$FONT
+}
+switch ($POINT) {
+case ''; POINT=-s10
+case -s*;
+case *; POINT=-s$POINT
+}
+if (! ~ $LINES '' -l*) LINES=-l^$LINES;
+if (! ~ $MAG '' -m*) MAG=-m^$MAG;
+if (! ~ $NPAG '' -n*) NPAG=-n^$NPAG;
+if (! ~ $XOFF '' -x*) XOFF=-x`{echo $XOFF + .4|hoc};
+if not XOFF=-x.4
+if (! ~ $YOFF '' -y*) YOFF=-y^$YOFF;
+eval $PLAN9/bin/text2post $FONT $XOFF $YOFF $COPIES $LINES $MAG $NPAG $POINT $LAND $OLIST $PATCH | $LPLIB/process/hpost
+exit
(DIR) diff --git a/lp/process/psextract b/lp/process/psextract
t@@ -0,0 +1,60 @@
+#!/usr/local/plan9/bin/rc
+
+# extract pages $OLIST from postscript on stdin
+
+if(~ $OLIST '')
+ exec cat
+
+awk '
+BEGIN {
+ x=ENVIRON["OLIST"];
+ gsub(/^-o/, "", x);
+ na = split(x, a, ",");
+ header = 1;
+ goodpage = 0;
+}
+
+header || goodpage {
+ print
+}
+
+/^%%EndSetup[ ]*$/ { header = 0; next }
+
+/^%%Page:/ {
+ header = 0;
+ p=$2+0;
+ goodpage = 0;
+ for(i=1; i<=na; i++){
+ if(aa=match(a[i], "-")){
+ low=substr(a[i], 1, RSTART);
+ high=substr(a[i], RSTART+RLENGTH);
+ if(low == "")
+ low = 0;
+ else
+ low = low+0;
+ if(high == "")
+ high = 100000;
+ else
+ high = high+0;
+ if(low <= p && p <= high){
+ goodpage = 1;
+ break;
+ }
+ }else{
+ if(a[i] == p){
+ goodpage = 1;
+ break;
+ }
+ }
+ }
+}
+
+/^%%EndPage[ ]*$/ {
+ goodpage = 0;
+}
+
+/^%%Trailer[ ]*$/ {
+ goodpage = 1;
+}
+
+'
(DIR) diff --git a/lp/process/tr2post b/lp/process/tr2post
t@@ -0,0 +1,86 @@
+#!/usr/local/plan9/bin/rc
+if (~ $DEBUG 1) flag x +
+# convert troff output to PostScript
+PATCH='%%Patch from lp'
+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 -P*;
+ 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];
+ PATCH=$PATCH'
+%%BeginFeature: *Select InputTray
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << '$i' << /MediaType (tray'$i') >> >>
+ << /MediaType (tray'$i') >> setpagedevice
+ } {statusdict begin '$i' setpapertray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case 11x17 [Ll]edger;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Ledger
+[{ systemdict /languagelevel known {languagelevel 1 gt product (HP LaserJet 4Si) ne and} if {
+ << /PageSize [792 1224] >> setpagedevice
+ } {statusdict begin '$i'tray end} ifelse
+ } stopped cleartomark
+%%EndFeature'
+ case transparency vg viewgraph;
+ PATCH=$PATCH'
+%%BeginFeature: *Select Transparency
+[{ << /MediaType (Transparency) >> setpagedevice
+ } stopped cleartomark
+%%EndFeature'
+ case *;
+ echo illegal option ''''-i $i'''' >[1=2]
+ }
+}
+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'
+}
+PATCH=$PATCH'
+%%EndPatch from lp
+'
+if (! ~ $PATCH '' -P*)
+ PATCH=-P''''$PATCH'''';
+switch ($LAND) {
+case -p*;
+case ''; LAND=-pp
+case 1; LAND=-pl
+}
+if (! ~ $COPIES '' -c*) COPIES=-c^$COPIES
+if (! ~ $MAG '' -m*) MAG=-m^$MAG
+if (! ~ $NPAG '' -n*) NPAG=-n^$NPAG
+if (! ~ $XOFF '' -x*) XOFF=-x^$XOFF
+if (! ~ $YOFF '' -y*) YOFF=-y^$YOFF
+eval tr2post $XOFF $YOFF $COPIES $MAG $NPAG $LAND $OLIST $PATCH | $LPLIB/process/hpost
+exit
(DIR) diff --git a/lp/queue/.placeholder b/lp/queue/.placeholder
(DIR) diff --git a/lp/sched/FIFO b/lp/sched/FIFO
t@@ -0,0 +1,2 @@
+#!/usr/local/plan9/bin/rc
+9 ls -ptr $* | 9 sed -n -e '/^[0-9][0-9]*\.[1-9][0-9]*$/p'
(DIR) diff --git a/lp/spooler/generic b/lp/spooler/generic
t@@ -0,0 +1,48 @@
+#!/usr/local/plan9/bin/rc
+# fn sigexit { rm -f $LPSPOOL/$LPDEST/.$pid.* $LPSPOOL/$LPDEST/$pid.* $LPSPOOL/$LPDEST }
+if (! ~ $DEBUG '') flag x +
+
+echo $THIS_HOST $DEST_HOST
+if (~ $THIS_HOST $DEST_HOST) {
+ if (! test -d $LPSPOOL/$LPDEST) {
+ mkdir $LPSPOOL/$LPDEST
+ chmod 777 $LPSPOOL/$LPDEST >[2]/dev/null
+ chmod +t $LPSPOOL/$LPDEST >[2]/dev/null
+ }
+}
+# Process and enqueue files to be printed
+# take arguments as input files
+i=0
+if (~ $#* 0) *=''
+for (j in $*) {
+ i= `{echo $i + 1|hoc}
+
+# check access to the file so that you know that a failure in the
+# processing is a drastic error which will cause an exit from lp.
+
+ if (~ $j '' || test -f $j) {
+ if (~ $THIS_HOST $DEST_HOST) {
+ echo $LPMACHID $LPUSERID $pid.$i 0 > $LPSPOOL/$LPDEST/.$pid.$i^id
+ lpinput $j lpsub process $LPPROC >$LPSPOOL/$LPDEST/.$pid.$i
+ if (~ $status '') {
+ mv $LPSPOOL/$LPDEST/.$pid.$i $LPSPOOL/$LPDEST/$pid.$i
+ mv $LPSPOOL/$LPDEST/.$pid.$i^id $LPSPOOL/$LPDEST/$pid.$i^id
+ }
+ if not {
+ rval='preprocessing failed'
+ rm -f $LPSPOOL/$LPDEST/.$pid.$i $LPSPOOL/queue/$LPDEST/.$pid.$i^id
+ exit $rval
+ }
+ }
+ if not {
+ {
+ echo -d^$LPDEST -pnoproc -M^$LPMACHID -u^$LPUSERID
+ lpinput $j lpsub process $LPPROC
+ } | lpsend.rc $DEST_HOST
+ rval=$status
+ }
+ }
+ if not {
+ echo $j cannot be opened >[1=2]
+ }
+}
(DIR) diff --git a/lp/spooler/lpdspool b/lp/spooler/lpdspool
t@@ -0,0 +1,15 @@
+#!/usr/local/plan9/bin/rc
+
+if (! ~ $DEBUG '') flag x +
+
+if (~ $#* 0) *=''
+
+for (j in $*) {
+ if (~ $j '' || test -f $j) {
+ lpinput $j lpsub process $LPPROC |
+ lpdsend -d$OUTDEV -tf -H$LPMACHID -P$LPUSERID $DEST_HOST >[2]$LPLOGDIR/$LPDEST^.st
+ }
+ if not {
+ echo $j cannot be opened >[1=2]
+ }
+}
(DIR) diff --git a/lp/spooler/nospool b/lp/spooler/nospool
t@@ -0,0 +1,21 @@
+#!/usr/local/plan9/bin/rc
+if (! ~ $DEBUG '') flag x +
+
+if (~ $LPCLASS *sendEOT*) SENDEOT=1
+if not SENDEOT=0
+
+if (~ $OUTDEV -) OUTDEV=/dev/stdout
+if (~ $#* 0) {
+ if (! ~ $DEBUG '') echo input file is stdin >[1=2]
+ lpsub process $LPPROC >$OUTDEV
+ if (~ $SENDEOT 1) echo -n `{ascii -t 4} > $OUTDEV
+}
+if not {
+ if (! ~ $DEBUG '') echo input files $* >[1=2]
+ for (i in $*) {
+ if (! ~ $DEBUG '') echo processing $i >[1=2]
+ lpsub process $LPPROC < $i > $OUTDEV
+ if (~ $SENDEOT 1) echo -n `{ascii -t 4} > $OUTDEV
+ }
+}
+exit ''