file ordali_StrucObj.tcl ordali _CombleSSParCoil _NextResDuPdb _PreviousResDuPdb Tag2MolObjAtm RescaleNormale DebugRib BonObjName ObjectAlreadyExists LoadObjFromDB CreatePDBFromDB InfosDesPDB tlyx tmem file ordali_admin.tcl BuildDistrib CreeOrdalieTclGlobal LoadTclPackages LoadTkAndPackages ProcsPerso ListeNamespaces ToutesLesProcsDeGscope PackLibrairies CreeOrdalieStarpack MakeAll InstallEnv BasculeLibs PackExtension CompilePackages CreateRmathLibrary MyProc DoMacPack UpdateTclLib file ordali_affiche.tcl DemarrageOrdali MetAJourFenetreOrdali LoadingAlignement DecortiqueEtAfficheUnMSF SequencesSelectionnees FenetreAjoutePDB DetruitUnPDB AjoutePDB FinAfficheAskAddSeq AfficheAskAddSeq AskAddSeqs InsertionSequencesDansGroupes InsertionSequencesAPosition AjouteSeqs DetruitLogConsole AuLogText TraiteLogTampon AuLogWindow AuLogOld MontreInfoSeq DismissInfoSeq AcceptInfoSeq enleve {*}[info InfosDeLaSeq enleve {*}[info EditInfoSeq LongInfoSeq Nuancier AppliqueCouleurs TailleFonte SwitchWindows OrdaliDefaultTags ResizeApp2 FromMenu BindMenuItems BindModeColors BindModeNormal BindModeSelection BindModeSeqlab BindingsOrdali bufferNTimes MoveToPos AjouteSpaceSeq EnleveSpaceSeq FlagFeatureScore EstCeUnPoint SauveLeLog TotalWSize FenetreAuCentre KillParLaCroix NYI FaireAttendre FaireLaSuite EnfonceBtnFeature ReleveBtnFeature EtatSeqsOut EtatBouton ResetDesBoutons BtnDeLaFeature LesBoutonsEnfonces ListeDesFeaturesUtilisees LesFeaturesUtilisees EtatDuBouton AutresNomsAff ChangeEtatBouton FromScrollYBiotext2Names CoupleY CoupleX ChangeFeatAffOrder ShowFeature ShowLongInfoSeq ShowDescription AffichePosGenSeq AffichePosGenSeqSL MontreCacheMessageSurSeq MontreCacheLeDescriptif MontreCacheLongInfoSeq FinPCI SummaryPCI ComputeIdentity CherchePCI ChercheMotif PeintHitsCherche ChercheMotifSuivant FinCherche FinAfficheDownloadPDB AfficheDownloadPDB ChoixUnSeulPDB SelectionneTousLesPDB FinChoixPlusieursPDB ChoixPlusieursPDB DefinitStructuresAVoir FinChoixPDBReference ChoixPDBReference AfficheSnapshotAnnotations AfficheZonesClustering AfficheZonesSelectionneesSuper AfficheZonesSelectionneesCluster AfficheZonesSelectionnees TraceStrSec MetAJourCanvasSecStr InitEtAfficheNomSeqSecStr MontreLesStrSecDetaillees EnvoieDump DumpOrdali EnleveLesPoints AfficheLesPoints GammeDeCouleursRVB GammeDeCouleursDeGris CouleursOrdali ChangeOrdre NettoieAffichage InitWRegle AfficheRegle UpdateRegle MarqueSequencesInactives LockSequencesOut DetectUnselectedSeqs RepeintNomsEtSeqs RepeintNoms RepeintSeqs RafraichitAffichage InitAffichage AfficheNomsEtSeqs EffaceWNomsWSeqs MetAJourNomsEtSeqsPourMisynpat MetAJourNomsEtSeqs ColorieNomsSelonGroupes ColorieNomsSelonPhylum ColorieStructureSelonFeature ColorieSelonFeature AppliqueFeature DemandeEtSauveFichier DemandeEtOuvreFichier AdieuOrdali AfficheFenetreSeqlab DetruitBoutonsOrdali AjouteBoutonFeature PrintOverview PrintCanvas PrintCanvasToGif2 InitCentreOverview CentreOverview CheckImageOverview CalculeOverview DessineFeatureSurOverview ChangeEchelleOverview DetruitOverview MetAJourOverviewNo MetAJourOverview MetAJourDessinOverview MetAJourFeaturesOverview VisiblePartOfAlignment AfficheFenetreOverview AfficheOverview DetruitLaFeature EnleveConservation DeFaitText ReFaitText ClearSelections GardeClustering NouveauClustering ChangeFeature EditeClusterEntry LanceCalculConservation ChangeConservation ExporteScoreConservation SauveConservation QuitteModeConservation QuitteModeClusters InfosSurOrdali MesCouleurs ToggleAuLog TagLaFenetre ToggleCouleursResidues ToggleToolbar AfficheBarreBoutons UpdateNoms ChangeNomsAff ChangeEtatMenus ResizeApplication AfficheBarreMenus MiseAJourMac MetAJourWMacs QuitteInfosMac FinDemandeTitre DemandeTitreEtDescDuMac InfosDuMac AfficheBarreMac ChercheNom AfficheFrameSequences ReDessineLesScores DessineLesScores PrendPDBDansPilier ToggleScores AfficheFrameScores ToggleSecStr MontreStrSecDansAlignement CacheStrSecDansAlignement ToggleFeature AfficheFrameFeatures AfficheFrameDebug ToggleShowSeqFrame ToggleFullScreen InitSeqsOut AfficheFenetreOrdali LanceOrdali InitialiseFenetreOrdali SaveClustersNames NamesOfClusters CreateAndDisplayMacsims accelerateMenu UpdateInfosDesSeqs enleve {*}[info LogChangesDuringInfoUpdate LogChangesInInfosSeqs CheckInfosSeqs enleve {*}[info LogChangesInSeqsInfos enleve {*}[info FetchInfosSeqs ReplaceSeq vq CommandLineClustering taud tsm BoutonParDefaut ttagt posemsg tstm tinfs RealignSequencesThatChange DebNomsWdg tsttlb cpltst file ordali_agents.tcl InitMatrix DecortiqueXmlAgent SequencesPourAgent ClearSpy SpyAgent InitWg InitSeuils GrapheScore ShowPairGUIAgent GUIAgents LesDefsAlA AlA StartStop DoOneStep StopAgents RunAgents UpdateGUI InitAgentsAnaBal InitAgents CreateAgents UpdateAgentsOfSeq AlignAgent chooseCouple FindAgentFriend InitTypeScore ::ScoreMotifAgents ScoreAgentsPair ShouldMoveAgents SlideAgent VanishIsolatedAgents AgentsRemoveColsGaps DebugAgents ScoreAlignmentAgents SumOfPairs ShowAlignmentAgent AlACommandLineOptions tstag stambl pseq van tup PrepareSequencesAgents extm ToggleStepMode SeeTag MemorisePair Pos2Abs AbsRef2Seq Seq2AbsRef Seq2Abs tatito NettoyageAgents ComputeScoreAllPairsAgents ComputeScorePairsDuBlockAgents BruteForceAgents2 BruteForceAgents IsRealAgent ConnexionsAgents ArbreAgent LiensAgents FilsDe CheminsAgentAA TestChemin CheminsAgent DoLoop Next Looping Tche2 Che2 TreeDeLeaf DoArbre LesFichiersDeBalibase AnalyseBalibaseAgent StatsAgents CoreBlocksDuXML dblock AnalyseCoreBlocksAgent AgentsDuBlock DumpCbl RankBlockAllConnectes2 RankBlockAllConnectes RankBlockChaines tnora AnalyseFichierBalibase tbal ThrBal ResAnaBalAgents SetupAnaBali tpoolagents PostProc ttaa getResAgents tutu DoSbatch PrepGrillade fillResAgentsDB tb11 t11 anal anaa anab bb12044 atmp bb12044 tscr scoreNormAgents tjm killjid BlocksCommunsARank0 AnaBalAgent ResParMotifLen ListeDesPkBlocksCommuns ListeDesDatasets ListeDesMotiflen ListeDesMatrices ListeDesScores nblocks console pchart EASEAWeight EASEAMatrix ConfigureEASEA TraiteEASEA ScorePosTcl EASEATcl InitEASEA PrepEASEA NbBlocksParLen badlog ResOfFile anaf anaf2 Foire vals file ordali_aligne.tcl AligntSeulContreTous CalculeAligntContreGlobal CalculeAlignt BlastallExe BallastExe FastacmdExe ClustalwExe RascalExe LeonExe NorMDExe MacsimsExe BatchClustalw BatchClustalwProfile file ordali_annotation.tcl CreateNewAnnotationWindow PositionAnnotation NouvelleAnnotation QuitAnnotation LoadSnapAnnotations ManageAnnotation FindTagPatch topo ShowAnnotation EditAnnotation Annotations2Features RemoveAnnotationFeatures Features2Annotations file ordali_arc2.tcl bgerror_togl PrintInfo SetFullScreenMode_paul SetWindowMode_paul ToggleWindowMode_paul ResetRotations InitArcBall DragArcBall ReshapeCallback CreateCallback DisplayCallback Cleanup ExitProg CreateWindow ArcStart file ordali_arcball.tcl mapToSphere Arcball Click Drag LClick LDrag Quat2Mat Mat32Mat4 MatMul Transpose file ordali_barcode.tcl BarcodeClose BarcodeFrame BarcodeBackFigure BarcodeTraceAliFig BarcodeTracePilierFig BarcodeTraceFeatureFig BarcodeTracageFeature BarcodeView BarcodeTraitePfam BarcodeExtractPfam TrieZonesPfam BarcodeEntetePfam BarcodeDrawPfam BarcodeTriePfam PfamDansGroupe_AEffacer file ordali_calculs.tcl PreCalculs NettoieZones MacsimDeOrdalie ComputeBlocks SequenceWeight LesBlocks get_blocks calc_normd_global calc_normd_for_subgroup Profile1DuBlock Profile2DuBlock BlockOverlap ScoreSequence ScoreBlockVsBlock CreeLesPiliersPourBlocks OrphanSeqs PCIPourBlocks LesFeuillesDuSousArbre SeqErrors ScoreMediane PropagateFeatures AddNewFeatEntry PCISegment PropagateFeatWithinGroup PropaSiteWithinGroup PropaShortWithinGroup PropaDomainWithinGroup PropagateFeatBetweenSimilarSeq PropagateFeatBetweenGroup PropaSiteBetweenGroups PropagateShortBetweenGroups PropagateDomainBetweenGroups CheckSiteFeat PropagateFeat file ordali_ccode.tcl UtiliseCCode Init_C_Boot Init_C_Pairwise C_DoBootstrap C_DoBootstrap2 Init_C_Random C_Random file ordali_cluster.tcl 
couldn't open "ordali_cluster.tcl": no such file or directory
    while executing
"open $f r"
    (procedure "Traite" line 2)
    invoked from within
"Traite $f"
    ("foreach" body line 3)
    invoked from within
"foreach f [lsort [glob ordali_*.tcl]] {
    puts "file $f"
    Traite $f
    puts ""
}"
    (in namespace eval "::request" script line 111)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/home/moumou/tcl8.6b1/lubin/bin/tclsh8.6

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

proc Traite {f} {
    set foo [open $f r]
    set Ll [split [read -nonewline $foo] \n]
    close $foo

    set o [open $f w]
    set P 0
    set Lv [list]
    set buf [list]

    foreach l $Ll {
	lappend buf $l
	set nl $l

	switch -regexp -- [string trim $nl] {
	    {^proc } {
		if {! $P} {
		    set P 1
		} else {
		    # traitement
		    puts [lindex [split [lindex $buf 0] " "] 1]
		    foreach m [lrange $buf 0 end-1] {
			set wout 1
			if {[regexp {^global } [string trim $m]]} {
			    foreach e [array names Pris] {
				if {$Pris($e)} {continue}
				if {$e in [split $m " "]} {
				    puts "\tenleve $e"
				    set i [lsearch [split $m " "] $e]
				    set m [join [lreplace [split $m " "] $i $i] " "]
				}
			    }
			    if {[string trim $m] eq "global"} {set wout 0}
			}
			if {$wout} {puts $o $m}
		    }
		    # Remet a jour
		    set Lv {}
		    catch {unset Pris}
		    set buf [list]
		    lappend buf "$l"
		}
	    }	    
	    {^#} {
		continue
	    }
	    {^global} {
		regsub -all { +} [string trim $nl] " " nl
		set nl [split [string trim $nl] " "]
		set ip -1
		set ix 1
		foreach e [lrange $nl 1 end] {
		    if {[regexp {^PDB_} $e]} {
			set ip [expr {$ix+1}]
			incr ix
			continue
		    }
		    if {$ip != $ix} {
			set Pris($e) 0
			lappend Lv $e
		    }
		    incr ix
		}
	    }
	    default {
		regsub -all {\"|\$|\]|\:|\(|\.|\}|\{} $nl " " nl
		set lnl [split $nl " "]
		foreach v $Lv {
		    #puts "[expr {$v in $lnl}] $v $nl"
		    if {$v in $lnl} {set Pris($v) 1}
		}
	    }
	}
    }

    # Derniere proc 
    # traitement
    puts [lindex [split [lindex $buf 0] " "] 1]
    foreach m $buf {
	set wout 1
	if {[regexp {^global } [string trim $m]]} {
	    foreach e [array names Pris] {
		if {$Pris($e)} {continue}
		if {$e in [split $m " "]} {
		    puts "\tenleve $e"
		    set i [lsearch [split $m " "] $e]
		    set m [join [lreplace [split $m " "] $i $i] " "]
		}
	    }
	    if {[string trim $m] eq "global"} {set wout 0}
	}
	if {$wout} {puts $o $m}
    }

    puts $o ""
    close $o

    return
}


foreach f [lsort [glob ordali_*.tcl]] {
    puts "file $f"
    Traite $f
    puts ""
}

exit