#rR gscope_canalsql.tcl 

#rR d'abord les ConnInfo puis les CanalSql
#rR le vrai CanalSql est dans gscope_sql.tcl

proc ConnInfoForDatabase {{Database ""} {CreateIfNotExists ""}} {

    set CreateIfNotExists [string equal -nocase "CreateIfNotExists" $CreateIfNotExists]

    set database [string tolower $Database]
   
    #attention tout en minuscule
    switch $database {
	"puzz"           { return [ConnInfoPuzz] } 
	"interaction"    { return [ConnInfoInteraction] } 
	"ucschuman18"    { return [ConnInfoUcsc "human18"] } 
	"ucschuman19"    { return [ConnInfoUcsc "human19"] } 
	"ucschuman"      { return [ConnInfoUcsc "human"] } 
	"ucscmouse"      { return [ConnInfoUcsc "mouse"] } 
	"ucscdroso"      { return [ConnInfoUcsc "droso"] } 
	"ucscworm"       { return [ConnInfoUcsc "worm"] } 
	"ucscrat"        { return [ConnInfoUcsc "rat"] } 
	"ucscdog"        { return [ConnInfoUcsc "dog"] } 
	"geneontology"   { return [ConnInfoGeneOntology] } 
	"genoret"        { return [ConnInfoGenoret] } 
	"fedlord"        { return [ConnInfoFedlord] } 
	"dbgs"           { return [ConnInfoDbgs] } 
	"cstb"           { return [ConnInfoCstb] } 
	"gx"             { return [ConnInfoGx] } 
	"gxdb"           { return [ConnInfoGxDb] } 
	"gxdbcil"        { return [ConnInfoGxDbCil] } 
	"macsims"        { return [ConnInfoMacsims] } 
	"retinobase"     { return [ConnInfoRetinoBase] } 
	"bioarraybase"   { return [ConnInfoBioArrayBase] } 
	"orthoinspector" { return [ConnInfoOrthoInspector] }
	"gecodb"         { return [ConnInfoGecoDB] }
	"patterndb"      { return [ConnInfoPatternDB] }
	"patterndb18"    { return [ConnInfoPatternDB18] }
	"patterndb19"    { return [ConnInfoPatternDB19] }
	"sanger"         { return [ConnInfoSanger] }
	"sanger18"       { return [ConnInfoSanger18] }
	"sanger19"       { return [ConnInfoSanger19] }
	"encode"         { return [ConnInfoEncode] }
	"domine"         { return [ConnInfoDomine] }
	"syscilia"       { return [ConnInfoSysCilia] }
	"misynpat"       { return [ConnInfoMiSynPat] }
	"string"         { return [ConnInfoString] }
	"default"      {
	    if {[regexp {.(db|sql)$} $Database] && ($CreateIfNotExists || [file exists $Database])} {
		set Host     $Database
		set DbName   [file tail $Host] ; regsub ".(db|sql)$" $DbName "" DbName
		set User     "" 
		set Password "" 
		set Sgbd     "sqlite"
		return [ConnInfo $Host $DbName $User $Password $Sgbd]
	    }
	    return [ConnInfo "" $database]
	}
    }
}

proc ConnInfo {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""} {Port ""}} {
    #rR a modifier !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! trop dangereux
    if {$Host==""}     { set Host     "ena" }
    if {$DbName==""}   { set DbName   "genoret" }
    if {$User==""}     { set User     "ripp" }
    if {$Password==""} { set Password "postgres" ; append Password [string toupper $User]}
    if {$Sgbd==""}     { set Sgbd     "postgresql" }
    set ConnInfo "host=$Host dbname=$DbName user=$User password=$Password sgbd=$Sgbd"
    
    if {$Port!=""} { append ConnInfo " port=$Port" }    ;#rR rajouté 2015/12/30 
    return $ConnInfo
}

proc ConnInfoPuzz {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "" }
    if {$DbName==""}   { set DbName   "puzz" }
    if {$User==""}     { set User     "ripp" }
    if {$Password==""} { set Password "alphaRR" }
    if {$Sgbd==""}     { set Sgbd     "mysql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoInteraction {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "" }
    if {$DbName==""}   { set DbName   "interaction" }
    if {$User==""}     { set User     "ripp" }
    if {$Password==""} { set Password "postgres" ; append Password [string toupper $User]}
    if {$Sgbd==""}     { set Sgbd     "postgresql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoUcsc {{DbName ""} {User ""} {Password ""} {Sgbd ""}} {
#    set DbName [string tolower $DbName]
    if {[string tolower $DbName]=="human"      } { set DbName "ucschuman_hg18" }
    if {[string tolower $DbName]=="human18"    } { set DbName "ucschuman_hg18" }
    if {[string tolower $DbName]=="human19"    } { set DbName "ucschuman_hg19" }
    if {[string tolower $DbName]=="ucschuman"  } { set DbName "ucschuman_hg18" }
    if {[string tolower $DbName]=="ucschuman18"} { set DbName "ucschuman_hg18" }
    if {[string tolower $DbName]=="ucschuman19"} { set DbName "ucschuman_hg19" }
    if { ! [regexp "^ucsc" $DbName]} { set DbName "ucsc$DbName" }
    set Host ""
    if {$Host==""}     { set Host     "" }
    if {$DbName==""}   { set DbName   "ucscmouse" }
    if {$User==""}     { set User     "lbgi" }
    if {$Password==""} { set Password "jaimelesfrites" }
    if {$Sgbd==""}     { set Sgbd     "mysql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoUcscMouse {} {
    return [ConnInfoUcsc "mouse"]
}

proc ConnInfoUcscHuman {} {
    return [ConnInfoUcsc "human"]
}

proc ConnInfoUcscDroso {} {
    return [ConnInfoUcsc "dros"]
}

proc ConnInfoUcscWorm {} {
    return [ConnInfoUcsc "worm"]
}

proc ConnInfoUcscDog {} {
    return [ConnInfoUcsc "dog"]
}

proc ConnInfoUcscRat {} {
    return [ConnInfoUcsc "rat"]
}

proc ConnInfoOrthoInspector {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "moby" }
    if {$DbName==""}   { set DbName   "orthoinspector_eukaryota__2011_12" }
    if {$User==""}     { set User     "linard" }
    if {$Password==""} { set Password "mononokee2803" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoSysCilia {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "studio" }
    if {$DbName==""}   { set DbName   "syscilia" }
    if {$User==""}     { set User     "ripp" }
    if {$Password==""} { set Password "alphaRR" }
    if {$Sgbd==""}     { set Sgbd     "mysql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoGoMiner {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "moby" }
    if {$DbName==""}   { set DbName   "GoMiner" }
    if {$User==""}     { set User     "anno" }
    if {$Password==""} { set Password "ceji387." }
    if {$Sgbd==""}     { set Sgbd     "mysql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoGeneOntology {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {[Science]=="ProGS"} { return [ConnInfoGoMiner $Host $DbName $User $Password $Sgbd] }
    if {$Host==""}     { set Host     "" }
    if {$DbName==""}   { set DbName   "geneontology" }
    if {$User==""}     { set User     "public" }
    if {$Password==""} { set Password "public" }
    if {$Sgbd==""}     { set Sgbd     "mysql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoGenoret {{Host ""} {DbName ""} {User ""} {Password ""}} {
    if {$Host==""}     { set Host "" }
    if {$DbName==""}   { set DbName "genoret" }
    return [ConnInfo $Host $DbName $User $Password]
}

proc ConnInfoFedlord {{Host ""} {DbName ""} {User ""} {Password ""}} {
    if {$Host==""}     { set Host "" }
    if {$DbName==""}   { set DbName "fedlord" }
    return [ConnInfo $Host $DbName $User $Password]
}

proc ConnInfoDbgs {{Host ""} {DbName ""} {User ""} {Password ""}} {
    if {$Host==""}     { set Host "" }
    if {$DbName==""}   { set DbName "dbgs" }
    return [ConnInfo $Host $DbName $User $Password]
}

proc ConnInfoCstb {{Host ""} {DbName ""} {User ""} {Password ""}} {
    if {$Host==""}     { set Host "" }
    if {$DbName==""}   { set DbName "cstb" }
    if {$User==""}     { set User "ripp" }
    if {$Password==""} { set Password "postgres" ; append Password [string toupper $User]}
    return [ConnInfo $Host $DbName $User $Password]
}

proc ConnInfoGx {{Host ""} {DbName ""} {User ""} {Password ""}} {
    if {$Host==""}     { set Host "" }
    if {$DbName==""}   { set DbName "gx" }
    if {$User==""}     { set User "ripp" }
    if {$Password==""} { set Password "postgres" ; append Password [string toupper $User]}
    return [ConnInfo $Host $DbName $User $Password]
}

proc ConnInfoGxDbCil {{Host ""} {DbName ""} {User ""} {Password ""}} {
    if {$Host==""}     { set Host "" }
    if {$DbName==""}   { set DbName "gxdbcil" }
    if {$User==""}     { set User "ripp" }
    if {$Password==""} { set Password "postgres" ; append Password [string toupper $User]}
    return [ConnInfo $Host $DbName $User $Password]
}

proc ConnInfoGxDb {{Host ""} {DbName ""} {User ""} {Password ""}} {
    if {$Host==""}     { set Host "" }
    if {$DbName==""}   { set DbName "gxdb" }
    if {$User==""}     { set User "ripp" }
    if {$Password==""} { set Password "postgres" ; append Password [string toupper $User]}
    return [ConnInfo $Host $DbName $User $Password]
}

proc ConnInfoRetinoBase {{Host ""} {DbName ""} {User ""} {Password ""}} {
    if {$Host==""}     { set Host "" }
    if {$DbName==""}   { set DbName "BioArrayBase" }
    return [ConnInfo $Host $DbName $User $Password]
}

proc ConnInfoBioArrayBase {{Host ""} {DbName ""} {User ""} {Password ""}} {
    if {$Host==""}     { set Host "" }
    if {$DbName==""}   { set DbName "BioArrayBase" }
    return [ConnInfo $Host $DbName $User $Password]
}

proc ConnInfoMacsims {{Host ""} {DbName ""} {User ""} {Password ""}} {
    if {$Host==""}     { set Host "" }
    if {$DbName==""}   { set DbName "macsims" }
    if {$User==""}     { set User "ripp" }
    if {$Password==""} { set Password "postgres" ; append Password [string toupper $User]}
    return [ConnInfo $Host $DbName $User $Password]
}

proc ConnInfoGecoDB {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "" }
    if {$DbName==""}   { set DbName   "gecoDB" }
    if {$User==""}     { set User     "lbgi" }
    if {$Password==""} { set Password "jaimelesfrites" }
    if {$Sgbd==""}     { set Sgbd     "mysql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoPatternDB {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    return [ConnInfoPatternDB18 $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoPatternDB18 {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "" }
    if {$DbName==""}   { set DbName   "patternDB_hg18" }
    if {$User==""}     { set User     "lbgi" }
    if {$Password==""} { set Password "jaimelesfrites" }
    if {$Sgbd==""}     { set Sgbd     "mysql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoPatternDB19 {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "" }
    if {$DbName==""}   { set DbName   "patternDB_hg19" }
    if {$User==""}     { set User     "lbgi" }
    if {$Password==""} { set Password "jaimelesfrites" }
    if {$Sgbd==""}     { set Sgbd     "mysql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoSanger {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    return [ConnInfoSanger18 $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoSanger18 {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "" }
    if {$DbName==""}   { set DbName   "sanger_hg18" }
    if {$User==""}     { set User     "lbgi" }
    if {$Password==""} { set Password "jaimelesfrites" }
    if {$Sgbd==""}     { set Sgbd     "mysql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoSanger19 {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "" }
    if {$DbName==""}   { set DbName   "sanger_hg19" }
    if {$User==""}     { set User     "lbgi" }
    if {$Password==""} { set Password "jaimelesfrites" }
    if {$Sgbd==""}     { set Sgbd     "mysql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoEncode {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "" }
    if {$DbName==""}   { set DbName   "Encode" }
    if {$User==""}     { set User     "lbgi" }
    if {$Password==""} { set Password "jaimelesfrites" }
    if {$Sgbd==""}     { set Sgbd     "mysql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoDomine {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "" }
    if {$DbName==""}   { set DbName   "domine" }
    if {$User==""}     { set User     "brochetx" }
    if {$Password==""} { set Password "dominex" }
    if {$Sgbd==""}     { set Sgbd     "mysql" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoString {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""} {Port ""}} {
    global ConnInfoStringDefaultDbName
    if {$Host=="DefaultDbName"} { set ConnInfoStringDefaultDbName $DbName }
    if { ! [info exists ConnInfoStringDefaultDbName]} { set ConnInfoStringDefaultDbName "string11" }
    #if {$Host==""}     { set Host     "furi" } ; #rR et port 5431 pour String 9.1 pour Postgresql 9.1
    if {$Host==""}     { set Host     "ena" }
    if {$DbName==""}   { set DbName   $ConnInfoStringDefaultDbName }
    if {$User==""}     { set User     "string" }
    if {$Password==""} { set Password "string" }
    if {$Sgbd==""}     { set Sgbd     "postgresql" }
    if {$Port==""}     { set Port     "5432" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd $Port] ;#rR a rajouté l'option port 2015/12/30
}

proc ConnInfoCilioCarta {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "/home/nevers/StageJuin/Database/CilioCarta.db" }
    if {$DbName==""}   { set DbName   "CilioCarta" }
    if {$User==""}     { set User     "" }
    if {$Password==""} { set Password "" }
    if {$Sgbd==""}     { set Sgbd     "sqlite" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

proc ConnInfoMiSynPat {{Host ""} {DbName ""} {User ""} {Password ""} {Sgbd ""}} {
    if {$Host==""}     { set Host     "[MiSynPatDir]/misynpat.sql" }
    if {$DbName==""}   { set DbName   "MiSynPat" }
    if {$User==""}     { set User     "" }
    if {$Password==""} { set Password "" }
    if {$Sgbd==""}     { set Sgbd     "sqlite" }
    return [ConnInfo $Host $DbName $User $Password $Sgbd]
}

#rR et maintenant les CanalSql

proc CanalSqlPampas {} {
    return [CanalSql [ConnInfoForDatabase [PampasDb]]]
}

proc CanalSqlUcsc {{DbName ""}} {
    set CanalSql [CanalSql [ConnInfoUcsc $DbName]]
}

proc CanalSqlUcscHuman {} {
    set CanalSql [CanalSql [ConnInfoUcsc "Human"]]
}

proc CanalSqlUcscHuman18 {} {
    set CanalSql [CanalSql [ConnInfoUcsc "Human18"]]
}

proc CanalSqlUcscHuman19 {} {
    set CanalSql [CanalSql [ConnInfoUcsc "Human19"]]
}

proc CanalSqlUcscMouse {} {
    set CanalSql [CanalSql [ConnInfoUcscMouse]]
}

proc CanalSqlUcscRat {} {
    set CanalSql [CanalSql [ConnInfoUcscRat]]
}

proc CanalSqlUcscDog {} {
    set CanalSql [CanalSql [ConnInfoUcscDog]]
}

proc CanalSqlUcscDroso {} {
    set CanalSql [CanalSql [ConnInfoUcscDroso]]
}

proc CanalSqlUcscWorm {} {
    set CanalSql [CanalSql [ConnInfoUcscWorm]]
}

proc CanalSqlGeneOntology {} {
    set CanalSql [CanalSql [ConnInfoGeneOntology]]
}

proc CanalSqlMacsims {} {
    set CanalSql [CanalSql [ConnInfoMacsims]]
    return $CanalSql
}

proc CanalSqlOrthoInspector {} {
    set CanalSql [CanalSql [ConnInfoOrthoInspector]]
    return $CanalSql
}

proc CanalSqlGenoret {} {
    set CanalSql [CanalSql [ConnInfoGenoret]]
    return $CanalSql
}

proc CanalSqlRetinoBase {} {
    set CanalSql [CanalSql [ConnInfoRetinoBase]]
    return $CanalSql
}

proc CanalSqlDbgs {} {
    set CanalSql [CanalSql [ConnInfoDbgs]]
    return $CanalSql
}

proc CanalSqlCstb {} {
    set CanalSql [CanalSql [ConnInfoCstb]]
    return $CanalSql
}

proc CanalSqlGx {} {
    set CanalSql [CanalSql [ConnInfoGx]]
    return $CanalSql
}

proc CanalSqlGxDb {} {
    set CanalSql [CanalSql [ConnInfoGxDb]]
    return $CanalSql
}

proc CanalSqlGxDbCil {} {
    set CanalSql [CanalSql [ConnInfoGxDbCil]]
    return $CanalSql
}

proc CanalSqlFedlord {} {
    set CanalSql [CanalSql [ConnInfoGenoret]]
    return $CanalSql
}

proc CanalSqlGecoDB {} {
    set CanalSql [CanalSql [ConnInfoGecoDB]]
    return $CanalSql
}

proc CanalSqlPatternDB {} {
    set CanalSql [CanalSql [ConnInfoPatternDB]]
    return $CanalSql
}

proc CanalSqlPatternDB18 {} {
    set CanalSql [CanalSql [ConnInfoPatternDB18]]
    return $CanalSql
}

proc CanalSqlPatternDB19 {} {
    set CanalSql [CanalSql [ConnInfoPatternDB19]]
    return $CanalSql
}

proc CanalSqlSanger {} {
    set CanalSql [CanalSql [ConnInfoSanger]]
    return $CanalSql
}

proc CanalSqlSanger18 {} {
    set CanalSql [CanalSql [ConnInfoSanger18]]
    return $CanalSql
}

proc CanalSqlSanger19 {} {
    set CanalSql [CanalSql [ConnInfoSanger19]]
    return $CanalSql
}

proc CanalSqlEncode {} {
    set CanalSql [CanalSql [ConnInfoEncode]]
    return $CanalSql
}

proc CanalSqlDomine {} {
    set CanalSql [CanalSql [ConnInfoDomine]]
    return $CanalSql
}

proc CanalSqlString {} {
    set CanalSql [CanalSql [ConnInfoString]]
    return $CanalSql
}

proc CanalSqlPuzz {} {
    set CanalSql [CanalSql [ConnInfoPuzz]]
    return $CanalSql
}

proc CanalSqlInteraction {} {
    set CanalSql [CanalSql [ConnInfoInteraction]]
    return $CanalSql
}

proc CanalSqlCilioCarta {} {
    set CanalSql [CanalSql [ConnInfoCilioCarta]]
    return $CanalSql
}

proc CanalSqlMiSynPat {} {
    set CanalSql [CanalSql [ConnInfoMiSynPat]]
    return $CanalSql
}

proc TestSqlCilioCarta {{Quoi ""}} {
    CanalSqlCilioCarta
#    set R [SqlExec "select name from sqlite_master" $Quoi]
    set R [SqlExec "select * from prot where genename is not null limit 3" $Quoi]
    return $R
}