--- ray/src/util/tradinstall.csh	1995/09/13 16:14:12	2.1
+++ ray/src/util/tradinstall.csh	1998/09/15 11:17:34	2.6
@@ -1,45 +1,47 @@
-#!/bin/csh -f
+#!/bin/csh -fe
 # SCCSid "$SunId$ LBL"
 # Install correct version of trad for wish or wish4.0
 #
 set instdir = $1
 set libdir = $2
 
-set TLIBFILES = ( *.tcl *.hlp trad.icon tclIndex )
+set TLIBFILES = ( *[a-z].tcl *.hlp trad.icon tclIndex )
 
 set TDIFFS = (`ls | sed -n 's/3\.6\.tcl$//p'`)
 
-foreach d ($path)
-	if (-x $d/wish4.0) then
-		set wishcom = $d/wish4.0
-		break
-	endif
-end
-if (! $?wishcom) then
+set WISHCOMS = ( wish4.{3,2,1,0} wish8.0 wish )
+
+foreach w ( $WISHCOMS )
 	foreach d ($path)
-		if (-x $d/wish) then
-			set wishcom = $d/wish
+		if (-x $d/$w) then
+			set wishcom = $d/$w
 			break
 		endif
 	end
-	if (! $?wishcom) then
-		echo "Cannot find wish executable in current path -- trad not installed."
-		exit 1
-	endif
+	if ( $?wishcom ) break
+end
+if (! $?wishcom) then
+	echo "Cannot find wish executable in current path -- trad not installed."
+	exit 1
+endif
+if ( $wishcom:t == wish ) then
+	set wishcom="$wishcom -f"
 	set oldwish
 endif
 
 echo "Installing trad using $wishcom"
 
-sed -e "1s|/usr/local/bin/wish|$wishcom|" \
+sed -e "1s|/usr/local/bin/wish4\.0|$wishcom|" \
 	-e "s|^set radlib .*|set radlib $libdir|" trad.wsh > $instdir/trad
-if ($status) exit 1
 chmod 755 $instdir/trad
+if (! -d $libdir) then
+	mkdir $libdir
+endif
 (cd $libdir ; rm -f $TLIBFILES)
 cp $TLIBFILES $libdir
 if ($?oldwish) then
 	foreach i ($TDIFFS)
-		(cd $libdir ; rm -f $i.tcl)
+		rm -f $libdir/$i.tcl
 		cp ${i}3.6.tcl $libdir/$i.tcl
 	end
 endif