*** /usr/bin/spell	Mon Sep 15 21:41:35 1986
--- s-spell.sh	Tue Dec 29 00:30:40 1987
***************
*** 5,10 ****
--- 5,11 ----
  : V data for -v, B flags, D dictionary, S stop, H history, F files, T temp
  V=/dev/null		B=			F= 
  S=/usr/dict/hstop	H=/dev/null		T=/tmp/spell.$$
+ deform=deroff@-w
  next="F=$F@"
  trap "rm -f $T ${T}a ; exit" 0
  for A in $*
***************
*** 18,23 ****
--- 19,29 ----
  	-d)	next="D=" ;;
  	-s)	next="S=" ;;
  	-h)	next="H=" ;;
+ 	-r)	deform=deroff@-w ;;
+ 	-t)	deform=detex ;;
+ 	-l)	deform=delatex ;;
+ 	-st)	deform=destex ;;
+ 	-sl)	deform=deslatex ;;
  	-*)	echo "Bad flag for spell: $A"
  		echo "Usage:  spell [ -v ] [ -b ] [ -d hlist ] [ -s hstop ] [ -h spellhist ]"
  		exit ;;
***************
*** 27,36 ****
  done
  IFS=@
  case $H in
! /dev/null)	deroff -w $F | sort -u | /usr/lib/spell $S $T |
  		/usr/lib/spell ${D-/usr/dict/hlista} $V $B |
  		sort -u +0f +0 - $T ;;
! *)		deroff -w $F | sort -u | /usr/lib/spell $S $T |
  		/usr/lib/spell ${D-/usr/dict/hlista} $V $B |
  		sort -u +0f +0 - $T | tee -a $H
  		who am i >> $H 2> /dev/null ;;
--- 33,42 ----
  done
  IFS=@
  case $H in
! /dev/null)	$deform $F | funiq | /usr/lib/spell $S $T |
  		/usr/lib/spell ${D-/usr/dict/hlista} $V $B |
  		sort -u +0f +0 - $T ;;
! *)		$deform $F | funiq | /usr/lib/spell $S $T |
  		/usr/lib/spell ${D-/usr/dict/hlista} $V $B |
  		sort -u +0f +0 - $T | tee -a $H
  		who am i >> $H 2> /dev/null ;;