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