ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/tradinstall.csh
Revision: 2.5
Committed: Tue Oct 29 14:25:18 1996 UTC (27 years, 5 months ago) by greg
Content type: application/x-csh
Branch: MAIN
Changes since 2.4: +4 -1 lines
Log Message:
fix in last fix for wish3.0

File Contents

# User Rev Content
1 greg 2.3 #!/bin/csh -fe
2 greg 2.1 # SCCSid "$SunId$ LBL"
3     # Install correct version of trad for wish or wish4.0
4     #
5     set instdir = $1
6     set libdir = $2
7    
8 greg 2.2 set TLIBFILES = ( *[a-z].tcl *.hlp trad.icon tclIndex )
9 greg 2.1
10     set TDIFFS = (`ls | sed -n 's/3\.6\.tcl$//p'`)
11    
12 greg 2.4 set WISHCOMS = ( wish4.{3,2,1,0} wish )
13    
14     foreach w ( $WISHCOMS )
15 greg 2.1 foreach d ($path)
16 greg 2.4 if (-x $d/$w) then
17     set wishcom = $d/$w
18 greg 2.1 break
19     endif
20     end
21 greg 2.4 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 greg 2.1 endif
27 greg 2.5 if ( $wishcom:t == wish ) then
28     set wishcom="$wishcom -f"
29     set oldwish
30     endif
31 greg 2.1
32     echo "Installing trad using $wishcom"
33    
34 greg 2.2 sed -e "1s|/usr/local/bin/wish4\.0|$wishcom|" \
35 greg 2.1 -e "s|^set radlib .*|set radlib $libdir|" trad.wsh > $instdir/trad
36     chmod 755 $instdir/trad
37 greg 2.3 if (! -d $libdir) then
38     mkdir $libdir
39     endif
40 greg 2.1 (cd $libdir ; rm -f $TLIBFILES)
41     cp $TLIBFILES $libdir
42     if ($?oldwish) then
43     foreach i ($TDIFFS)
44 greg 2.3 rm -f $libdir/$i.tcl
45 greg 2.1 cp ${i}3.6.tcl $libdir/$i.tcl
46     end
47     endif