0 ordali_StrucObj.tcl
0 ordali_admin.tcl
0 ordali_affiche.tcl
0 ordali_agents.tcl
0 ordali_aligne.tcl
0 ordali_annotation.tcl
0 ordali_arc2.tcl
0 ordali_arcball.tcl
0 ordali_barcode.tcl
0 ordali_calculs.tcl
0 ordali_ccode.tcl
0 ordali_cluster.tcl
0 ordali_conservation.tcl
0 ordali_crc.tcl
0 ordali_data.tcl
0 ordali_db.tcl
0 ordali_doc.tcl
0 ordali_domia.tcl
0 ordali_fballs.tcl
0 ordali_features.tcl
0 ordali_graphic3d.tcl
0 ordali_html.tcl
0 ordali_image.tcl
0 ordali_math.tcl
0 ordali_misc.tcl
0 ordali_misynpat.tcl
0 ordali_mode.tcl
0 ordali_montre.tcl
0 ordali_ms2ph.tcl
0 ordali_o.tcl
0 ordali_ordali.tcl
0 ordali_outils.tcl
0 ordali_pdb.tcl
0 ordali_preferences.tcl
0 ordali_print.tcl
0 ordali_profile.tcl
0 ordali_projet.tcl
0 ordali_pymol.tcl
0 ordali_rasmol.tcl
0 ordali_residu.tcl
0 ordali_saga.tcl
0 ordali_secours.tcl
0 ordali_selection.tcl
0 ordali_seqlab.tcl
0 ordali_sequence.tcl
0 ordali_services.tcl
0 ordali_setup.tcl
0 ordali_source.tcl
0 ordali_superposition.tcl
0 ordali_surface.tcl
0 ordali_talk.tcl
0 ordali_test1.tcl
0 ordali_thr.tcl
0 ordali_tlog.tcl
0 ordali_tooltip.tcl
0 ordali_trackball.tcl
0 ordali_tree.tcl
0 ordali_triblast.tcl
0 ordali_triblastOld.tcl
0 ordali_triblastluc.tcl
0 ordali_viandox.tcl
0 ordali_visu3d.tcl
0 ordali_vmd.tcl
0 ordali_vrp.tcl
0 ordali_wave.tcl
0 ordali_web.tcl
0 ordali_win.tcl
0 ordali_xml.tcl
0 ordali_xo.tcl
<pre>wrong # args: should be "exit code"
    while executing
"exit"
    (in namespace eval "::request" script line 29)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)<hr/><p>OUTPUT BUFFER:</p>#!/usr/local/bin/tclsh

proc Contenu {f} {
    set foo [open $f r]
    set l [read -nonewline $foo]
    close $foo
    return $l
}
proc LesLignesDuFichier {f} {
    return [split [Contenu $f] "\n"]
}

set Lf [glob ordali_*.tcl]
foreach f [lsort $Lf] {
    set Ll [LesLignesDuFichier $f]
    set Lnl [list]
    set n 0
    foreach l $Ll {
	incr n [regsub -all -- "LesNomsDesSequencesDuGroupe" $l "SDG" nl]	
	incr n [regsub -all -- "ListeDesNomsDeGroupes" $nl "LNDG" nl]
	lappend Lnl $nl
    }
    puts "$n $f"
    set foo [open $f w]
    puts $foo [join $Lnl "\n"]
    close $foo
}

exit


</pre>