17 lines
365 B
Tcl
17 lines
365 B
Tcl
proc load_setup {fpath} {
|
|
# restore ../log/default_status.tcl
|
|
if {[file exists $fpath] == 0} {
|
|
clientput "WARNING: Environment configuration file $fpath doesn't exist"
|
|
return
|
|
}
|
|
set ch [open $fpath r]
|
|
set setup [read $ch]
|
|
foreach {s f} $setup {
|
|
if {$f} {
|
|
set fn config/setup/${s}_setup.tcl
|
|
fileeval $fn
|
|
}
|
|
}
|
|
}
|
|
|