Commit 2e4d1e1f authored by luc.moulinier's avatar luc.moulinier

ordali_admin

parent 29256453
This diff is collapsed.
......@@ -19,18 +19,17 @@ if {! $InStarPack} {
if {[info exists env(GSCOPEDIR)]} {
set GscopeDir $env(GSCOPEDIR)
#set RepertoireDuGenome $env(REPERTOIREDUGENOME)
} elseif {! [info exists GscopeDir]} {
set GscopeDir [file join /home ripp gscope]
#set RepertoireDuGenome Zero
}
} else {
# in starpack
set OrdaliDir [file normalize [file join [file dirname [file normalize [info script]]] .. .. ..]]
set RepertoireDuGenome ""
}
package require platform
puts "$GscopeDir"
if {[info exists GscopeDir]} {
puts "GscopeDir $GscopeDir"
} else {
puts "Pas de GscopeDir"
}
set OrdLibDir [file join $OrdaliDir Build [::platform::generic] lib]
set OrdEtcDir [file join $OrdaliDir etc]
set OrdSrcDir [file join $OrdaliDir src]
......@@ -59,22 +58,25 @@ if {[lindex $argv 0] eq "-OProfiling"} {
set GlobalsAuDepart [info globals]
set ProcsAuDepart [info procs]
if {! $InStarPack} {
if {! [file exists [file join $GscopeDir gscope_source.tcl]]} {
source [file join $OrdaliDir src LesProcsDeGscope.tcl]
if {! [info exists GscopeDir]} {
source [file join $OrdSrcDir LesProcsDeGscope.tcl]
set GscopeDir $OrdaliDir
} else {
set OrdaliDejaSource 1
source [file join $GscopeDir gscope_source.tcl]
}
set OrdaliDejaSource 0
source [file join $OrdaliDir src ordali_source.tcl]
source [file join $OrdSrcDir ordali_source.tcl]
}
puts "auto_path : $auto_path"
#######################
# procs utilitaires
set VariablesAuDepart [info globals]
if {[lindex $argv 0] == "ToutesLesProcs"} {
EtVoilaToutesLesProcs
ToutesLesProcsDeGscope toto
exit
}
......
......@@ -145,7 +145,6 @@ proc LoadTkAndPackages {} {
proc ToutesLesProcsDeGscope {{file ""}} {
global ProcsAuDepart
#LoadTkAndPackages
set PAll [list]
set ListeProc [lsort [info procs]]
foreach e $ListeProc {
......
......@@ -11857,3 +11857,11 @@ proc pkp {} {
}
proc dfast {} {
set Lcou [glob /home/moumou/pkgconf/tclfastme0.1/generic/*.c]
set Lnew [glob /home/moumou/fastme-2.1.5/src/*.c]
puts "Lcou [llength $Lcou]"
puts "Lnew [llength $Lnew]"
puts "and [llength [land $Lcou $Lnew]]"
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