shithub: riscv

ref: 918cb7604039601fecd70379b8bc2fee5b26a514
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