home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 8_11.tcl < prev    next >
Text File  |  2003-04-15  |  325b  |  20 lines
  1. #
  2. # Example 8-11
  3. # A list of arrays.
  4. #
  5.  
  6. proc RecordInsert {recName afterThis} {
  7.     upvar $recName record $afterThis after
  8.     set record(next) $after(next)
  9.     set after(next) $recName
  10. }
  11. proc RecordIterate {firstRecord body} {
  12.     upvar #0 $firstRecord data
  13.     while {[info exists data]} {
  14.         eval $body
  15.         upvar #0 $data(next) data
  16.     }
  17. }
  18.  
  19.  
  20.