File: checkAutoPath.tcl

package info (click to toggle)
tclcurl 7.22.0%2Bhg20160822-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 1,328 kB
  • ctags: 331
  • sloc: ansic: 4,264; tcl: 860; sh: 155; makefile: 30
file content (17 lines) | stat: -rwxr-xr-x 457 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
# 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