shithub: riscv

ref: 2aa727ff0909f0c1a4be6bde77e3589d024e079b
dir: /sys/lib/lp/spooler/ps630/

#!/bin/rc
fn sigexit {echo -n '';exit 1}
# Send output to the printer port on an AT&T 630/730 terminal
# 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) {
		switch ($j) {
		case ''; @{
				echo -n ''; sleep 1
				bind -b $LPLIB/process /bin
				$LPPROC
				echo -n ''
			}
		case *;	@{
				echo -n ''; sleep 1
				bind -b $LPLIB/process /bin
				$LPPROC
				echo -n ''
			} <$j
		}
	}
}