18 lines
457 B
Tcl
Executable File
18 lines
457 B
Tcl
Executable File
# This file checks that the directory where TclCurl is going to be
|
|
# installed is actually in the auto_path variable, if it isn't it
|
|
# modifies 'init.tcl'.
|
|
|
|
set tclCurlDir [lindex $argv 0]
|
|
set initTclDir [lindex $argv 1]
|
|
set initFile [file join $tcl_library init.tcl]
|
|
if {[file writable $initFile]==0} exit
|
|
|
|
|
|
if {[lsearch $auto_path $tclCurlDir]==-1} {
|
|
set handle [open "$initFile" a]
|
|
puts $handle "\nlappend auto_path $tclCurlDir\n"
|
|
}
|
|
|
|
exit
|
|
|