Posted to tcl by patthoyts at Wed Apr 19 11:21:45 GMT 2006view pretty
# see http://wiki.tcl.tk/1965 proc lvarpop {var {ndx 0}} { upvar $var args set r [lindex $args $ndx] set args [lreplace $args $ndx $ndx] return $r } # see http://wiki.tcl.tk/2028 proc lvarpush {var val {ndx end}} { upvar $var args set args [linsert $args $ndx $val] }
Comments
Posted by LucMove at Wed Apr 19 11:35:31 GMT 2006 [text] [code]
Thanks for that
Posted by LucMove at Wed Apr 19 11:56:06 GMT 2006 [text] [code]
Thanks for that