You are viewing a plain text version of this content. The canonical link for it is here.
Posted to rivet-dev@tcl.apache.org by da...@apache.org on 2004/08/07 23:15:30 UTC
cvs commit: tcl-rivet/rivet/packages/dtcl dtcl.tcl
davidw 2004/08/07 14:15:30
Modified: . ChangeLog
rivet/packages/dtcl dtcl.tcl
Log:
* rivet/packages/dtcl/dtcl.tcl (hgetvars): Added code from Arnulf
Wiedemann <ar...@wiedemann-pri.de> to set up VARS array.
Revision Changes Path
1.189 +5 -0 tcl-rivet/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /home/cvs/tcl-rivet/ChangeLog,v
retrieving revision 1.188
retrieving revision 1.189
diff -u -r1.188 -r1.189
--- ChangeLog 3 Aug 2004 00:04:47 -0000 1.188
+++ ChangeLog 7 Aug 2004 21:15:30 -0000 1.189
@@ -1,3 +1,8 @@
+2004-08-07 David N. Welton <da...@dedasys.com>
+
+ * rivet/packages/dtcl/dtcl.tcl (hgetvars): Added code from Arnulf
+ Wiedemann <ar...@wiedemann-pri.de> to set up VARS array.
+
2004-08-03 Pat Thoyts <pa...@users.sourceforge.net>
* win/Rivet.nsi: Added a NSIS script. This is used with the
1.4 +6 -0 tcl-rivet/rivet/packages/dtcl/dtcl.tcl
Index: dtcl.tcl
===================================================================
RCS file: /home/cvs/tcl-rivet/rivet/packages/dtcl/dtcl.tcl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- dtcl.tcl 24 Feb 2004 10:24:32 -0000 1.3
+++ dtcl.tcl 7 Aug 2004 21:15:30 -0000 1.4
@@ -23,9 +23,15 @@
proc hgetvars {} {
uplevel {
+ catch {unset VARS}
load_env ENVS
load_cookies COOKIES
}
+ set vars [var all]
+ foreach {name val} $vars {
+ uplevel [list set VARS($name) "$val"]
+ }
+ unset vars
}
proc hputs {args} {
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-cvs-help@tcl.apache.org