shithub: riscv

ref: 692023ee08786ad834e03f5f271c20ce50feee3a
dir: /rc/bin/spell/

View raw version 
#!/bin/rc

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

deroff -w $deroffargs | sort -u | aux/sprog $spellflags