1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
|
while {[file type $tmplink] eq "link"} {
set tmplink [file readlink $tmplink]
set tmplink [file normalize [file join $::eskil(thisDir) $tmplink]]
set ::eskil(thisDir) [file dirname $tmplink]
}
set libDir [file join $::eskil(thisDir) .. lib]
if {![file isdirectory $libDir]} {
# Try the local file from devel
set libDir [file join $::eskil(thisDir) .. eskil.vfs lib]
}
::tcl::tm::path add $libDir
package require pstools
namespace import -force pstools::*
|
|
|
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
|
while {[file type $tmplink] eq "link"} {
set tmplink [file readlink $tmplink]
set tmplink [file normalize [file join $::eskil(thisDir) $tmplink]]
set ::eskil(thisDir) [file dirname $tmplink]
}
set libDir [file join $::eskil(thisDir) .. lib]
if { ! [file isdirectory $libDir]} {
# Try the local file from devel
set libDir [file join $::eskil(thisDir) .. eskil.vfs lib]
}
::tcl::tm::path add $libDir
package require pstools
namespace import -force pstools::*
|