home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 8_8.tcl < prev    next >
Text File  |  2003-04-16  |  267b  |  18 lines
  1. #
  2. # Example 8-8
  3. # Using a list to implement a stack.
  4. #
  5.  
  6. proc Push { stack value } {
  7.     upvar $stack list
  8.     lappend list $value
  9. }
  10. proc Pop { stack } {
  11.     upvar $stack list
  12.     set value [lindex $list end]
  13.     set list [lrange $list 0 [expr [llength $list]-2]]
  14.     return $value
  15. }
  16.  
  17.  
  18.