home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 5_10.tcl < prev    next >
Text File  |  2003-04-15  |  205b  |  17 lines

  1. #
  2. # Example 5-10
  3. # Implementing join in Tcl.
  4. #
  5.  
  6. proc join {list sep} {
  7.     set s {}            ;# s is the current separator
  8.     set result {}
  9.     foreach x $list {
  10.         append result $s $x
  11.         set s $sep
  12.     }
  13.     return $result
  14. }
  15.  
  16.  
  17.