Richard Suchenwirth 2002-11-15 - I still remember how Cameron Laird groaned at me when I showed how to simulate arrays of function pointers. After re-reading man Tcl last night (always recommended, even after years in the business ;-), it dawned on me this morning that we don't have to simulate that - using Tcl's substitution rules, we just have it. Consider:
#--------------------------------- dummy procs as playing material
proc eat x {puts "eating $x"}
proc drink x {puts "drinking $x"}
proc inhale x {puts "inhaling $x"}
#---------------------------------- building the mapping table
array set fp {
liquid drink
solid eat
gaseous inhale
}
#---------------------------------- testing:
foreach {state matter} {solid bread liquid wine gaseous perfume} {
$fp($state) $matter
}
#------------------- results in:
eating bread
drinking wine
inhaling perfume