Revision as of 15:23, 7 April 2009 (view source) rosettacode>Glennj m (→‎{{header\|Tcl}}) ← Older edit		Revision as of 15:26, 7 April 2009 (view source) rosettacode>Glennj m (→‎{{header\|Tcl}}) Newer edit →
Line 1,073: <lang tcl>proc push {stackvar value} { upvar 1 $stackvar stack ~~set~~lappend stack ~~[linsert $stack 0~~ $value] } proc pop {stackvar} { Line 1,099: empty Q ;# ==> 0 (false) push Q bar peek Q ;# ==> ~~bar~~foo pop Q ;# ==> ~~bar~~foo peek Q ;# ==> ~~foo~~bar</lang> There is a package in [http://tcllib.sourceforge.net/ tcllib] called <code>struct::queue</code> that presents an object interface:

Queue/Definition: Difference between revisions

Queue/Definition (view source)