1219b2ee8SDavid du Colombier#!/bin/rc 2219b2ee8SDavid du Colombier 3219b2ee8SDavid du Colombierspellflags=() 4219b2ee8SDavid du Colombierfflag='' 5219b2ee8SDavid du Colombierfor(x){ 6219b2ee8SDavid du Colombier switch($x){ 7219b2ee8SDavid du Colombier case -[bcvx] 8219b2ee8SDavid du Colombier spellflags=($spellflags $x) 9219b2ee8SDavid du Colombier case -f 10219b2ee8SDavid du Colombier fflag=$x 11219b2ee8SDavid du Colombier case * 12219b2ee8SDavid du Colombier if(~ $fflag -f) { 13219b2ee8SDavid du Colombier spellflags=($spellflags -f $x) 14219b2ee8SDavid du Colombier fflag='' 15219b2ee8SDavid du Colombier } 16219b2ee8SDavid du Colombier if not args = ($args $x) 17219b2ee8SDavid du Colombier } 18219b2ee8SDavid du Colombier} 19219b2ee8SDavid du Colombier 20*7dd7cddfSDavid du Colombierdir = /mnt/wsys 21219b2ee8SDavid du Colombierif(! test -f $dir/cons) 22219b2ee8SDavid du Colombier dir = /mnt/term/$dir 23219b2ee8SDavid du Colombierid=`{cat $dir/new/ctl} 24219b2ee8SDavid du Colombierid=$id(1) 25219b2ee8SDavid du Colombier 26219b2ee8SDavid du Colombierif(~ $#args 1 && ~ $args /*){ 27219b2ee8SDavid du Colombier adir = `{basename -d $args} 28219b2ee8SDavid du Colombier args = `{basename $args} 29219b2ee8SDavid du Colombier echo 'name '^$adir^/-spell > $dir/$id/ctl 30219b2ee8SDavid du Colombier cd $adir 31219b2ee8SDavid du Colombier} 32219b2ee8SDavid du Colombierif not { 33219b2ee8SDavid du Colombier echo 'name '^`{pwd}^/-spell > $dir/$id/ctl 34219b2ee8SDavid du Colombier} 35219b2ee8SDavid du Colombier 36219b2ee8SDavid du Colombier{ 37219b2ee8SDavid du Colombier echo noscroll 38219b2ee8SDavid du Colombier if(~ $#args 0) 39219b2ee8SDavid du Colombier /acme/bin/$cputype/spout | sort -t: -u +2 | sort -t: +1.1n | aux/sprog -a $spellflags > $dir/$id/body 40219b2ee8SDavid du Colombier if not for(i in $args) 41219b2ee8SDavid du Colombier /acme/bin/$cputype/spout $i | sort -t: -u +2 | sort -t: +1.1n | aux/sprog -a $spellflags > $dir/$id/body 42219b2ee8SDavid du Colombier echo clean 43219b2ee8SDavid du Colombier}> $dir/$id/ctl 44