Commit 58065ac8 authored by luc.moulinier's avatar luc.moulinier

pkgconf/tclfastme

parent 4dc66bc9
......@@ -2,6 +2,11 @@
##!/home/moumou/tcl8.6.4/luinst/bin/tclsh
###!/home/moumou/tmp/tcl8.6.0/install/bin/tclsh8.6
#set ::auto_path "o:/pkgconf/"
#update
#puts [package require tls]
#set ::auto_path [list "c:/TclTk64-8.6.7/lib" "o:/ordali/Build/win32-x86_64/lib"]
# Test if we are in a starpack or not
set InStarPack [regexp {app-ordalie} [info script]]
......@@ -11,6 +16,7 @@ if {! $InStarPack} {
} else {
set OrdaliDir [file join {*}[lrange [file split [file normalize [info script]]] 0 end-2]]
}
if {[info exists env(GSCOPEDIR)]} {
set GscopeDir $env(GSCOPEDIR)
#set RepertoireDuGenome $env(REPERTOIREDUGENOME)
......@@ -20,17 +26,13 @@ if {! $InStarPack} {
}
} else {
# in starpack
set OrdaliDir [file normalize [file join [file dirname [info script]] .. .. ..]]
set OrdaliDir [file normalize [file join [file dirname [file normalize [info script]]] .. .. ..]]
set RepertoireDuGenome ""
}
set OrdLibDir [file join $OrdaliDir lib]
set OrdEtcDir [file join $OrdaliDir etc]
set OrdSrcDir [file join $OrdaliDir src]
package require platform
if {[string first "win" [::platform::generic]] > -1} {
set OrdLibDir [file join O:/ ordali Build win32-x86_64 lib]
}
puts "OrdaliDir $OrdaliDir"
puts "OrdLibDir $OrdLibDir"
set auto_path [linsert $auto_path 0 $OrdLibDir]
......
......@@ -117,6 +117,7 @@ proc LoadTkAndPackages {} {
if {[string first "instead" $Msg] > -1} {
set vertcl3d [lindex [split [string trim $Msg]] end-2]
} else {
puts "Msg : $Msg"
set vertcl3d "None"
}
} else {
......
......@@ -11843,5 +11843,18 @@ proc lesh {} {
exit
}
proc pkp {} {
set Lf [glob */pkgIndex.tcl]
foreach f $Lf {
puts "\n$f"
set o [open $f r]
set l [read -nonewline $o]
close $o
if {[string first "vsati" $l] > -1} {
puts "$l"
}
}
exit
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment