orig/tradinstall.csh
author Axel Jacobs <axel@jaloxa.eu>
Mon, 14 Apr 2014 22:21:17 +0100
changeset 73 87fa3132a136
parent 0 0aa115157c9c
permissions -rw-r--r--
New IES test file with spaces in file name
     1 #!/bin/csh -fe
     2 # RCSid: $Id: tradinstall.csh,v 2.7 2003/02/22 02:07:30 greg Exp $
     3 # Install correct version of trad for wish or wish4.0
     4 #
     5 set instdir = $1
     6 set libdir = $2
     7 
     8 set TLIBFILES = ( *[a-z].tcl *.hlp trad.icon tclIndex )
     9 
    10 set TDIFFS = (`ls | sed -n 's/3\.6\.tcl$//p'`)
    11 
    12 set WISHCOMS = ( wish4.{3,2,1,0} wish8.0 wish )
    13 
    14 foreach w ( $WISHCOMS )
    15 	foreach d ($path)
    16 		if (-x $d/$w) then
    17 			set wishcom = $d/$w
    18 			break
    19 		endif
    20 	end
    21 	if ( $?wishcom ) break
    22 end
    23 if (! $?wishcom) then
    24 	echo "Cannot find wish executable in current path -- trad not installed."
    25 	exit 1
    26 endif
    27 # if ( $wishcom:t == wish ) then
    28 #	set wishcom="$wishcom -f"
    29 #	set oldwish
    30 # endif
    31 
    32 echo "Installing trad using $wishcom"
    33 
    34 sed -e "1s|/usr/local/bin/wish4\.0|$wishcom|" \
    35 	-e "s|^set radlib .*|set radlib $libdir|" trad.wsh > $instdir/trad
    36 chmod 755 $instdir/trad
    37 if (! -d $libdir) then
    38 	mkdir $libdir
    39 endif
    40 (cd $libdir ; rm -f $TLIBFILES)
    41 cp $TLIBFILES $libdir
    42 if ($?oldwish) then
    43 	foreach i ($TDIFFS)
    44 		rm -f $libdir/$i.tcl
    45 		cp ${i}3.6.tcl $libdir/$i.tcl
    46 	end
    47 endif