blob: b0048edd56216bb98c69e7cd79e93200f9048a48 (
plain) (
tree)
|
|
--- installer/support.tcl.orig Wed Feb 2 11:09:16 2000
+++ installer/support.tcl Sat Jul 26 18:54:54 2003
@@ -45,7 +45,7 @@
zinfo Done!!
if {[catch {open install.in w} fd]} {
} {
- foreach x {Type Lib Bin CC SCflag SLDflag CFlags Wish TIDir} {
+ foreach x {Type Lib Bin CC SCflag SLDflag CFlags WishCmd TIDir} {
puts $fd "set $x {[uplevel #0 set $x]}"
}
close $fd
@@ -110,7 +110,7 @@
}
#
proc doGlobals {argv} {
- global Type types Lib Bin CC LD Version Patchlevel Wish types cflags\
+ global Type types Lib Bin CC LD Version Patchlevel WishCmd types cflags\
libs share SCflag GCC SLDflag CFlags TIDir Prefix ExecPrefix SED go \
pseudo
#
@@ -124,7 +124,7 @@
set SCflag {}
set SLDflag {}
set CFlags {}
- set Wish {}
+ set WishCmd {}
set TIDir {}
set go 0
set SED 0
@@ -144,7 +144,7 @@
-p {set pseudo $v}
-s {set SCflag $v}
-t {set Type $v }
- -w {set Wish $v}
+ -w {set WishCmd $v}
-z {set SLDflag $v }
}
set argv [lrange $argv 2 end]
@@ -273,7 +273,7 @@
#
proc makeBinary {} {
zinfo "Making zircon..."
- global Bin Lib Version Patchlevel Wish Xtn
+ global Bin Lib Version Patchlevel WishCmd Xtn
if {![file exists [pWrap [set Bin [fixPath $Bin]]]]} {
if {[catch {dirmake [pWrap $Bin]} msg]} {
fail "Cannot create directory \"$Bin\" - $msg"
@@ -298,7 +298,7 @@
}
return 0
}
- puts $fd "#!$Wish
+ puts $fd "#!$WishCmd
set zircon(lib) [whereLib]
#
proc zVersion {} {
|
