couldn't read file "/home/moumou/ordali/ordali_startup.tcl": no such file or directory
    while executing
"source $OrdaliDir/ordali_startup.tcl"
    (in namespace eval "::request" script line 8)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/wish


#package require profile

global OrdaliDir ; set OrdaliDir "/home/moumou/ordali"

source $OrdaliDir/ordali_startup.tcl
source $GscopeDir/gscope_source.tcl
source $OrdaliDir/ordali_outils.tcl
source $OrdaliDir/ordali_affiche.tcl
source $OrdaliDir/ordali_secours.tcl
source $OrdaliDir/ordali_farve.tcl

if {$tcl_platform(platform) == "windows"} {
    package require dde 1.1
}

global VariablesAuDepart
set VariablesAuDepart [info globals]

LesDefauts
global FichierMSF ; set FichierMSF ""


# Procedure pour ecrire les TFA

proc CreeLeTfa {FilOut tab} {

    array set seq $tab

    set f [open $FilOut w]

    foreach Nm [array names seq] {
	set LongueurTotale [string length [set seq($Nm)]]
	puts $f ">$Nm"
	set D 0
	while {$D < $LongueurTotale} {
	    set F [expr $D + 59]
	    set L [string range [set seq($Nm)] $D $F]
	    puts $f "$L"
	    incr D 60
	}
    }

    close $f

    return
}

# Lecture fichier MSF de depart

set listef "H01 H02 H03 H04 H05 H06 H07 H08 H09 H10 H11 H12 H13 H14 H15"

foreach f $listef {
    set tmp [DecortiqueUnMSF $f LesNoms$f Seq$f]
}

# Boucle sur les fichiers.
# supprime sequence a la fin

foreach f $listef {
    set elts [llength [set LesNoms$f]]
    set nvire 0
    foreach s [set LesNoms$f] {
	set yacop 0
	foreach c $listef {
	    if {$f == $c} {continue}
	    if {[lsearch [set LesNoms$c] $s] != -1} {
		puts "trouve $s de $f , dans fichier $c"
		set yacop 1
	    }
	}
	if { $yacop } {
	    set idx [lsearch [set LesNoms$f] $s]
	    set LesNoms$f [lreplace [set LesNoms$f] $idx $idx]
	    unset Seq${f}($s)
	    incr nvire
	}
    }
    lappend vire "Elimine $nvire sequences sur $elts dans $f"
}

puts " "
puts " "
EspionneL $vire

# Ecrit les TFA

foreach f $listef {
    set fic "${f}_clean.tfa"
    set tablo [array get Seq${f}]
    CreeLeTfa $fic $tablo
}

puts " "
puts " "

# fait Clustalw mode profile pour reunir tout le monde

set In1 "H01_clean.tfa"
set rh1 "H01"
foreach n {H02 H03 H04 H05 H06 H07 H08 H09 H10 H11 H12 H13 H14 H15} {    
    set In2 "${n}_clean.tfa"
    set Out "$rh1-$n"
    set Log "log$Out"

    puts "Clustalw avec in1= $In1 ,in2= $In2 ,out= $Out"

    BatchClustalwProfile $In1 $In2 $Out $Log -sequences -nopgap -nohgap -outorder=input
    exec mv "[file rootname $In2].msf" $Out

    set In1 $Out
    set rh1 $In1
}


exit


################################################################### Ca finit ici