home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Practical Programming in Tcl & Tk (4th Edition)
/
TCLBOOK4.BIN
/
pc
/
exsource.old
/
5_10.tcl
< prev
next >
Wrap
Text File
|
2003-04-15
|
205b
|
17 lines
#
# Example 5-10
# Implementing join in Tcl.
#
proc join {list sep} {
set s {} ;# s is the current separator
set result {}
foreach x $list {
append result $s $x
set s $sep
}
return $result
}