Subversion Repositories planix.SVN

#!/bin/rc

spellflags=()
fflag=''
for(x){
        switch($x){
        case -[bcvx]
                spellflags=($spellflags $x)
        case -f
                fflag=$x
        case *
                if(~ $fflag -f) {
                        spellflags=($spellflags -f $x)
                        fflag=''
                }
                if not args = ($args $x)
        }
}

dir = /mnt/wsys
if(! test -f $dir/cons)
        dir = /mnt/term/$dir
id=`{cat $dir/new/ctl}
id=$id(1)

if(~ $#args 1 && ~ $args /*){
        adir = `{basename -d $args}
        args = `{basename $args}
        echo 'name '^$adir^/-spell > $dir/$id/ctl
        cd $adir
}
if not {
        echo 'name '^`{pwd}^/-spell > $dir/$id/ctl
}

{
        echo noscroll
        if(~ $#args 0)
                /acme/bin/$cputype/spout | sort  -t: -u +2 | sort  -t: +1.1n | aux/sprog -a $spellflags > $dir/$id/body
        if not for(i in $args)
                /acme/bin/$cputype/spout $i | sort  -t: -u +2 | sort  -t: +1.1n | aux/sprog -a $spellflags > $dir/$id/body
        echo clean
}> $dir/$id/ctl