shithub: riscv

ref: 0d4b5b8a8a6e38faf3a07774f97dbf66797f8dea
dir: /sys/lib/lp/spooler/pcclone.new/

View raw version 
#!/bin/rc
if (! ~ $DEBUG '') flag x +
if (~ $OUTDEV -) OUTDEV=/fd/1

# make a place for pc's to spool files that is private
ramfs
mkdir /tmp/log /tmp/prob /tmp/queue
bind -b /tmp/log $LPLIB/log
bind -b /tmp/prob $LPLIB/prob
bind -b /tmp/queue $LPLIB/queue

if (~ $#* 0) {
	@{bind -b $LPLIB/process /bin; $LPPROC} | aux/download -f -H/sys/lib/postscript/font -mfontmap -plw+ > $OUTDEV
	if (! ~ $LPDEST stdout) echo -n `{ascii -t 4} > $OUTDEV
}
if not {
	for (i in $*) {
		@{bind -b $LPLIB/process /bin; $LPPROC} < $i  | aux/download -f -H/sys/lib/postscript/font -mfontmap -plw+ > $OUTDEV
		if (! ~ $LPDEST stdout) echo -n `{ascii -t 4} > $OUTDEV
	}
}
exit ''