OUTPUT BUFFER:
####### gscope_source.tcl source TOUS les fichiers .tcl pour avoir acces a tout Gscope ###### ####### On source, dans l'ordre : ####### SetupPerso Setup Contrib GscopeXxxx GscopeSpecifique Ordali Correlator Perso ##### ####### Chacun peut avoir son gscoperso/gscope_setup_perso.tcl global FichierGscopeTopographe ; set FichierGscopeTopographe "$GscopeDir/gscope_topographe.tcl" global FichierGscopeUcsc ; set FichierGscopeUcsc "$GscopeDir/gscope_ucsc.tcl" global FichierGscopeSetup ; set FichierGscopeSetup "$GscopeDir/gscope_setup.tcl" global FichierGscopeBasic ; set FichierGscopeBasic "$GscopeDir/gscope_basic.tcl" global FichierGscopeOutils ; set FichierGscopeOutils "$GscopeDir/gscope_outils.tcl" global FichierGscopeExport ; set FichierGscopeExport "$GscopeDir/gscope_export.tcl" global FichierGscopeTcl3d ; set FichierGscopeTcl3d "$GscopeDir/gscope_tcl3d.tcl" global FichierGscopeSql ; set FichierGscopeSql "$GscopeDir/gscope_sql.tcl" global FichierGscopeMacsimsql ; set FichierGscopeMacsimsql "$GscopeDir/gscope_macsimsql.tcl" global FichierGscopeLego ; set FichierGscopeLego "$GscopeDir/gscope_lego.tcl" global FichierGscopeRetchip ; set FichierGscopeRetchip "$GscopeDir/gscope_retchip.tcl" global FichierGscopeSelect ; set FichierGscopeSelect "$GscopeDir/gscope_select.tcl" global FichierGscopeBalibase ; set FichierGscopeBalibase "$GscopeDir/gscope_balibase.tcl" global FichierGscopeSpine ; set FichierGscopeSpine "$GscopeDir/gscope_spine.tcl" global FichierGscopeXbgs ; set FichierGscopeXbgs "$GscopeDir/gscope_xbgs.tcl" global FichierGscopeSecator ; set FichierGscopeSecator "$GscopeDir/gscope_secator.tcl" global FichierGscopeDaedalus ; set FichierGscopeDaedalus "$GscopeDir/gscope_daedalus.tcl" global FichierGscopeTaxo ; set FichierGscopeTaxo "$GscopeDir/gscope_taxo.tcl" global FichierGscopeHtml ; set FichierGscopeHtml "$GscopeDir/gscope_html.tcl" global FichierGscopeHDA ; set FichierGscopeHDA "$GscopeDir/gscope_hda.tcl" global FichierGscopeClonage ; set FichierGscopeClonage "$GscopeDir/gscope_clonage.tcl" global FichierGscopeClosig ; set FichierGscopeClosig "$GscopeDir/gscope_closig.tcl" global FichierGscopeOrfs ; set FichierGscopeOrfs "$GscopeDir/gscope_orfs.tcl" global FichierGscopeAligne ; set FichierGscopeAligne "$GscopeDir/gscope_aligne.tcl" global FichierGscopeAliWeb ; set FichierGscopeAliWeb "$GscopeDir/gscope_aliweb.tcl" global FichierGscopeAtelier ; set FichierGscopeAtelier "$GscopeDir/gscope_atelier.tcl" global FichierGscopeSpecific ; set FichierGscopeSpecific "$GscopeDir/gscope_specific.tcl" global FichierGscopeListe ; set FichierGscopeListe "$GscopeDir/gscope_liste.tcl" global FichierGscopeTree ; set FichierGscopeTree "$GscopeDir/gscope_tree.tcl" global FichierGscopeDessins ; set FichierGscopeDessins "$GscopeDir/gscope_dessins.tcl" global FichierGscopeOrdres ; set FichierGscopeOrdres "$GscopeDir/gscope_ordres.tcl" global FichierGscopeHomolog ; set FichierGscopeHomolog "$GscopeDir/gscope_homolog.tcl" global FichierGscopeAffiche ; set FichierGscopeAffiche "$GscopeDir/gscope_affiche.tcl" global FichierGscopeMisc ; set FichierGscopeMisc "$GscopeDir/gscope_misc.tcl" global FichierGscopeCollection ; set FichierGscopeCollection "$GscopeDir/gscope_collection.tcl" global FichierGscopeAful ; set FichierGscopeAful "$GscopeDir/gscope_aful.tcl" global FichierGscopeSequence ; set FichierGscopeSequence "$GscopeDir/gscope_sequence.tcl" global FichierGscopePsy ; set FichierGscopePsy "$GscopeDir/gscope_psy.tcl" global FichierGscopeBigBang ; set FichierGscopeBigBang "$GscopeDir/gscope_bigbang.tcl" set GscopeBin "$GscopeDir/bin" set GscopeEtc "$GscopeDir/etc" global FichierGscopeImage ; set FichierGscopeImage "$GscopeEtc/gscope_image.gif" global FichierGscopeImage2 ; set FichierGscopeImage2 "$GscopeEtc/gscope_image2.gif" global FichierGscopeLogoBInG ; set FichierGscopeLogoBInG "$GscopeEtc/gscope_sigleBInG_25.gif" global FichierGscopeExitGscope ; set FichierGscopeExitGscope "$GscopeEtc/gscope_exitGscope.gif" global FichierGscopeVRP ; set FichierGscopeVRP "$GscopeEtc/gscope_vrp.vec" global FichierTranslate ; set FichierTranslate "$GscopeEtc/gscope_translate.txt" global FichierTranslateStop ; set FichierTranslateStop "$GscopeEtc/gscope_translate_stop_en_x.txt" global FichierGlossaire ; set FichierGlossaire "$GscopeEtc/gscope_glossaire" global FichierMiniConfigSansGenome ; set FichierMiniConfigSansGenome "$GscopeEtc/gscope_miniconfig" global FichierGscopeHublot ; set FichierGscopeHublot "$GscopeEtc/gscope_hublot.gif" global FichierGscopeHelp ; set FichierGscopeHelp "$GscopeDir/help/gscope_help.txt" source $FichierGscopeSetup if { [WithPackage "GscopeContrib"]} { global GscopeContrib ; set GscopeContrib "$GscopeDir/gscope_contrib" global FichierGscopePoidevin ; set FichierGscopePoidevin "$GscopeContrib/poidevin/gscope_poidevin.tcl" global FichierGscopeBrelivet ; set FichierGscopeBrelivet "$GscopeContrib/brelivet/gscope_brelivet.tcl" global FichierGscopeGagniere ; set FichierGscopeGagniere "$GscopeContrib/gagniere/gscope_gagniere.tcl" global FichierGscopeRavi ; set FichierGscopeRavi "$GscopeContrib/ravi/gscope_ravi.tcl" global FichierGscopeWraff ; set FichierGscopeWraff "$GscopeContrib/wraff/gscope_wraff.tcl" global FichierGscopeUhring ; set FichierGscopeUhring "$GscopeContrib/uhring/gscope_uhring.tcl" global FichierGscopeBey ; set FichierGscopeBey "$GscopeContrib/bey/gscope_bey.tcl" global FichierGscopeJulie ; set FichierGscopeJulie "$GscopeContrib/julie/gscope_julie.tcl" global FichierGscopeLardenoi ; set FichierGscopeLardenoi "$GscopeContrib/lardenoi/gscope_lardenoi.tcl" global FichierGscopeCarles ; set FichierGscopeCarles "$GscopeContrib/carles/gscope_carles.tcl" global FichierGscopeJMuller ; set FichierGscopeJMuller "$GscopeContrib/jmuller/gscope_jmuller.tcl" global FichierGscopeChalmel ; set FichierGscopeChalmel "$GscopeContrib/chalmel/gscope_chalmel.tcl" global FichierGscopePrigent ; set FichierGscopePrigent "$GscopeContrib/prigent/gscope_prigent.tcl" global FichierGscopeLecompte ; set FichierGscopeLecompte "$GscopeContrib/lecompte/gscope_lecompte.tcl" global FichierGscopePerrodou ; set FichierGscopePerrodou "$GscopeContrib/perrodou/gscope_perrodou.tcl" global FichierGscopeMoumou ; set FichierGscopeMoumou "$GscopeContrib/moumou/gscope_moumou.tcl" } if {[info exists FichierGscopePoidevin] && [file exists $FichierGscopePoidevin]} { source $FichierGscopePoidevin } VCombo $FichierGscopePoidevin if {[info exists FichierGscopeBrelivet] && [file exists $FichierGscopeBrelivet]} { source $FichierGscopeBrelivet } VCombo $FichierGscopeBrelivet if {[info exists FichierGscopeGagniere] && [file exists $FichierGscopeGagniere]} { source $FichierGscopeGagniere } VCombo $FichierGscopeGagniere if {[info exists FichierGscopeRavi] && [file exists $FichierGscopeRavi]} { source $FichierGscopeRavi } VCombo $FichierGscopeRavi if {[info exists FichierGscopeWraff] && [file exists $FichierGscopeWraff]} { source $FichierGscopeWraff } VCombo $FichierGscopeWraff if {[info exists FichierGscopeUhring] && [file exists $FichierGscopeUhring]} { source $FichierGscopeUhring } VCombo $FichierGscopeUhring if {[info exists FichierGscopeBey] && [file exists $FichierGscopeBey]} { source $FichierGscopeBey } VCombo $FichierGscopeBey if {[info exists FichierGscopeJulie] && [file exists $FichierGscopeJulie]} { source $FichierGscopeJulie } VCombo $FichierGscopeJulie if {[info exists FichierGscopeLardenoi] && [file exists $FichierGscopeLardenoi]} { source $FichierGscopeLardenoi } VCombo $FichierGscopeLardenoi if {[info exists FichierGscopeCarles] && [file exists $FichierGscopeCarles]} { source $FichierGscopeCarles } VCombo $FichierGscopeCarles if {[info exists FichierGscopeJMuller] && [file exists $FichierGscopeJMuller]} { source $FichierGscopeJMuller } VCombo $FichierGscopeJMuller if {[info exists FichierGscopeChalmel] && [file exists $FichierGscopeChalmel]} { source $FichierGscopeChalmel } VCombo $FichierGscopeChalmel if {[info exists FichierGscopePrigent] && [file exists $FichierGscopePrigent]} { source $FichierGscopePrigent } VCombo $FichierGscopePrigent if {[info exists FichierGscopePerrodou] && [file exists $FichierGscopePerrodou]} { source $FichierGscopePerrodou } VCombo $FichierGscopePerrodou if {[info exists FichierGscopeLecompte] && [file exists $FichierGscopeLecompte]} { source $FichierGscopeLecompte } VCombo $FichierGscopeLecompte if {[info exists FichierGscopeMoumou] && [file exists $FichierGscopeMoumou]} { source $FichierGscopeMoumou } VCombo $FichierGscopeMoumou if {[info exists FichierCorrelator] && [file exists $FichierCorrelator]} { source $FichierCorrelator } source $FichierGscopeOutils source $FichierGscopeBasic source $FichierGscopeExport source $FichierGscopeTopographe source $FichierGscopeUcsc source $FichierGscopeAtelier source $FichierGscopeSpecific source $FichierGscopeListe source $FichierGscopeTree source $FichierGscopeSequence source $FichierGscopeAffiche source $FichierGscopeMisc source $FichierGscopeCollection source $FichierGscopeDessins source $FichierGscopeAligne source $FichierGscopeOrfs source $FichierGscopeBigBang source $FichierGscopeAliWeb if { [WithPackage "GscopeSpecifique"]} { source $FichierGscopeSql source $FichierGscopeMacsimsql source $FichierGscopeTaxo source $FichierGscopeLego source $FichierGscopeRetchip source $FichierGscopeSelect source $FichierGscopeBalibase source $FichierGscopeSpine source $FichierGscopeXbgs source $FichierGscopeSecator source $FichierGscopeDaedalus source $FichierGscopeHtml source $FichierGscopeHDA source $FichierGscopeHomolog source $FichierGscopeAful source $FichierGscopeClonage source $FichierGscopeClosig source $FichierGscopeOrdres } if { [WithPackage "Tcl3d"]} { source $FichierGscopeTcl3d } if { [WithPackage "Correlator"]} { global FichierCorrelator if {[info exists env(CORRELATORHOME)]} { set FichierCorrelator "$env(CORRELATORHOME)/src/correlator_show.tcl" } else { set FichierCorrelator "$GscopeDir/correlator/src/correlator_show.tcl" } } if {[WithPackage "CafeDesSciences"]} { global CafeDesSciencesDir if {[info exists env(CAFEDESSCIENCESDIR)]} { set CafeDesSciencesDir $env(CAFEDESSCIENCESDIR) } else { set CafeDesSciencesDir "$GscopeDir/wscope/cafedessciences" } global FichierGscopeCafeCafe ; set FichierGscopeCafeCafe "$CafeDesSciencesDir/cafe_des_sciences_proc.tcl" global FichierGscopeCafeQues ; set FichierGscopeCafeQues "$CafeDesSciencesDir/question_de_science_proc.tcl" if {[info exists FichierGscopeCafeCafe] && [file exists $FichierGscopeCafeCafe]} { source $FichierGscopeCafeCafe } if {[info exists FichierGscopeCafeQues] && [file exists $FichierGscopeCafeQues]} { source $FichierGscopeCafeQues } } if { [WithPackage "Ordali"]} { global OrdaliDir if { ! [info exists OrdaliDir]} { if {[info exists env(ORDALIDIR)]} { set OrdaliDir $env(ORDALIDIR) } else { set OrdaliDir "$GscopeDir/ordali" } } global OrdEtcDir ; if { ! [info exists OrdEtcDir]} { set OrdEtcDir "$OrdaliDir/etc" } global OrdHlpDir ; if { ! [info exists OrdHlpDir]} { set OrdHlpDir "$OrdaliDir/help" } global OrdTmpDir ; if { ! [info exists OrdTmpDir]} { if {[info exists env(HOME)]} { set OrdTmpDir "$env(HOME)/junkdir" } else { set OrdTmpDir "/usr/tmp/junkdir[pid]" } } global FichierOrdaliSource ; set FichierOrdaliSource "$OrdaliDir/ordali_source.tcl" if {[info exists FichierOrdaliSource] && [file exists $FichierOrdaliSource]} { source $FichierOrdaliSource } } if {[OnTraiteRetGene]} { WithPackage "Genoret" 1 } if { [WithPackage "Genoret"]} { proc GenoretDir {} { global GenoretDir if { ! [info exists GenoretDir]} { set GenoretDir "[GscopeDir]/../genoret/" } return $GenoretDir } set FichierGenoretDatabase "[GenoretDir]/genoret_database.tcl" if {[file exists $FichierGenoretDatabase]} { source $FichierGenoretDatabase } set FichierGscopeLca "[GscopeDir]/gscope_lca.tcl" if {[file exists $FichierGscopeLca]} { source $FichierGscopeLca } } global FichierGscopePerso ; set FichierGscopePerso "gscoperso_non_defini" if {[info exists env(HOME)] && [file exists "$env(HOME)/gscoperso/gscope_source.tcl"]} { set FichierGscopePerso "$env(HOME)/gscoperso/gscope_source.tcl" if {[file exists $FichierGscopePerso]} { source $FichierGscopePerso } }