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 2002/03/11 23:54:42 UTC
cvs commit: tcl-rivet/rivet/rivet-tcl lassign.tcl load_response.tcl tclIndex
damonc 02/03/11 14:54:42
Modified: rivet/rivet-tcl load_response.tcl tclIndex
Added: rivet/rivet-tcl lassign.tcl
Log:
Fixed a bug in load_response.
Added lassign command.
Revision Changes Path
1.2 +5 -1 tcl-rivet/rivet/rivet-tcl/load_response.tcl
Index: load_response.tcl
===================================================================
RCS file: /home/cvs/tcl-rivet/rivet/rivet-tcl/load_response.tcl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- load_response.tcl 8 Jan 2002 09:35:16 -0000 1.1
+++ load_response.tcl 11 Mar 2002 22:54:42 -0000 1.2
@@ -9,6 +9,10 @@
upvar 1 $arrayName response
foreach {var elem} [var all] {
- lappend response($var) $elem
+ if {[info exists response($var)]} {
+ lappend response($var) $elem
+ } else {
+ set response($var) $elem
+ }
}
}
1.6 +1 -0 tcl-rivet/rivet/rivet-tcl/tclIndex
Index: tclIndex
===================================================================
RCS file: /home/cvs/tcl-rivet/rivet/rivet-tcl/tclIndex,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- tclIndex 11 Mar 2002 00:31:10 -0000 1.5
+++ tclIndex 11 Mar 2002 22:54:42 -0000 1.6
@@ -15,6 +15,7 @@
set auto_index(wrapline) [list source [file join $dir wrap.tcl]]
set auto_index(debug) [list source [file join $dir debug.tcl]]
set auto_index(lempty) [list source [file join $dir lempty.tcl]]
+set auto_index(lassign) [list source [file join $dir lassign.tcl]]
set auto_index(load_cookies) [list source [file join $dir load_cookies.tcl]]
set auto_index(clock_to_rfc850_gmt) [list source [file join $dir make_cookie.tcl]]
set auto_index(make_cookie_attributes) [list source [file join $dir make_cookie.tcl]]
1.1 tcl-rivet/rivet/rivet-tcl/lassign.tcl
Index: lassign.tcl
===================================================================
proc lassign {list args} {
foreach elem $list varName $args {
upvar 1 $varName var
set var $elem
}
}
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-dev-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-dev-help@tcl.apache.org