mirror of
https://github.com/9fans/plan9port.git
synced 2025-01-12 11:10:07 +00:00
Initial lp.
This commit is contained in:
rsc
parent
9f1d53a09b
commit
6174642093
30 changed files with 1528 additions and 0 deletions
0
lp/bin/.cvsignore
Normal file
0
lp/bin/.cvsignore
Normal file
3
lp/bin/UNLOCK
Executable file
3
lp/bin/UNLOCK
Executable file
|
|
@ -0,0 +1,3 @@
|
||||||
|
#!/usr/local/plan9/bin/rc
|
||||||
|
|
||||||
|
>$1/LOCK && rm -f $1/LOCK
|
||||||
18
lp/bin/lpsend.rc
Executable file
18
lp/bin/lpsend.rc
Executable file
|
|
@ -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
|
||||||
138
lp/daemon/generic
Executable file
138
lp/daemon/generic
Executable file
|
|
@ -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
|
||||||
19
lp/daemon/gsdev
Executable file
19
lp/daemon/gsdev
Executable file
|
|
@ -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 ''
|
||||||
14
lp/daemon/psdev
Executable file
14
lp/daemon/psdev
Executable file
|
|
@ -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 ''
|
||||||
80
lp/devices
Normal file
80
lp/devices
Normal file
|
|
@ -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
|
||||||
0
lp/log/.placeholder
Normal file
0
lp/log/.placeholder
Normal file
0
lp/log/lpdaemonl
Normal file
0
lp/log/lpdaemonl
Normal file
0
lp/perm/.placeholder
Normal file
0
lp/perm/.placeholder
Normal file
0
lp/prob/.placeholder
Normal file
0
lp/prob/.placeholder
Normal file
120
lp/process/dvipost
Executable file
120
lp/process/dvipost
Executable file
|
|
@ -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
|
||||||
82
lp/process/g3post
Executable file
82
lp/process/g3post
Executable file
|
|
@ -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
|
||||||
108
lp/process/generic
Executable file
108
lp/process/generic
Executable file
|
|
@ -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
|
||||||
83
lp/process/gifpost
Executable file
83
lp/process/gifpost
Executable file
|
|
@ -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
|
||||||
|
|
||||||
143
lp/process/hpost
Executable file
143
lp/process/hpost
Executable file
|
|
@ -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 ''
|
||||||
82
lp/process/jpgpost
Executable file
82
lp/process/jpgpost
Executable file
|
|
@ -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
|
||||||
3
lp/process/noproc
Executable file
3
lp/process/noproc
Executable file
|
|
@ -0,0 +1,3 @@
|
||||||
|
#!/usr/local/plan9/bin/rc
|
||||||
|
# No processing, copy file from input to output
|
||||||
|
cat
|
||||||
83
lp/process/p9bitpost
Executable file
83
lp/process/p9bitpost
Executable file
|
|
@ -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
|
||||||
78
lp/process/pdfgs
Executable file
78
lp/process/pdfgs
Executable file
|
|
@ -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 ''
|
||||||
76
lp/process/pdfpost
Executable file
76
lp/process/pdfpost
Executable file
|
|
@ -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 ''
|
||||||
68
lp/process/post
Executable file
68
lp/process/post
Executable file
|
|
@ -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
|
||||||
|
|
||||||
98
lp/process/ppost
Executable file
98
lp/process/ppost
Executable file
|
|
@ -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
|
||||||
60
lp/process/psextract
Executable file
60
lp/process/psextract
Executable file
|
|
@ -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;
|
||||||
|
}
|
||||||
|
|
||||||
|
'
|
||||||
86
lp/process/tr2post
Executable file
86
lp/process/tr2post
Executable file
|
|
@ -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
|
||||||
0
lp/queue/.placeholder
Normal file
0
lp/queue/.placeholder
Normal file
2
lp/sched/FIFO
Executable file
2
lp/sched/FIFO
Executable file
|
|
@ -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'
|
||||||
48
lp/spooler/generic
Executable file
48
lp/spooler/generic
Executable file
|
|
@ -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]
|
||||||
|
}
|
||||||
|
}
|
||||||
15
lp/spooler/lpdspool
Executable file
15
lp/spooler/lpdspool
Executable file
|
|
@ -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]
|
||||||
|
}
|
||||||
|
}
|
||||||
21
lp/spooler/nospool
Executable file
21
lp/spooler/nospool
Executable file
|
|
@ -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 ''
|
||||||
Loading…
Reference in a new issue