shithub: riscv

ref: 79ff9d28bd2c3d447dfb1a7b3fb6ee5634145a7a
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
		}
	}
}