projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Towards 1.4.
[ir-tcl-moved-to-github.git]
/
setup.tcl
diff --git
a/setup.tcl
b/setup.tcl
index
3d6e060
..
8f44647
100644
(file)
--- a/
setup.tcl
+++ b/
setup.tcl
@@
-6,7
+6,13
@@
# Configuration Driver
#
# $Log: setup.tcl,v $
# Configuration Driver
#
# $Log: setup.tcl,v $
-# Revision 1.4 1998-02-12 13:32:42 adam
+# Revision 1.6 1999-12-12 00:25:59 adam
+# Updated list of preconfigure targets.
+#
+# Revision 1.5 1998/04/02 14:32:01 adam
+# Minor changes to EXPLAIN driver.
+#
+# Revision 1.4 1998/02/12 13:32:42 adam
# Updated configuration system.
#
# Revision 1.3 1998/01/30 13:30:50 adam
# Updated configuration system.
#
# Revision 1.3 1998/01/30 13:30:50 adam
@@
-63,7
+69,7
@@
proc protocol-setup-action {target} {
set timedef $profileS($target,timeDefine)
if {![string length $timedef]} {
set timedef $profileS($target,timeDefine)
if {![string length $timedef]} {
- set timedef [clock seconds]
+ set profileS($target,timeDefine) [clock seconds]
}
foreach n [array names profileS $target,*] {
}
foreach n [array names profileS $target,*] {
@@
-411,7
+417,6
@@
proc target-setup-db-remove {target wp} {
target-setup-dblist-update $target $wp
if {![llength $profileS($target,databases)]} {
unset profileS($target,databases)
target-setup-dblist-update $target $wp
if {![llength $profileS($target,databases)]} {
unset profileS($target,databases)
- puts removed
}
}
}
}
}
}