Posted to tcl by tcleval at Wed Aug 22 19:20:03 GMT 2007view pretty
proc hello {cmd msg} {
switch -exact $cmd {
dog {puts "the dog says: $msg"}
cat {puts "the cat says: $msg"}
}
}
proc hello {cmd msg} {
switch -exact $cmd {
dog {puts "the dog says: $msg"}
cat {puts "the cat says: $msg"}
}
}