Posted to tcl by frerich at Wed May 21 07:44:18 GMT 2014view raw

  1. proc my_handler {record} {
  2. puts "Street: [$record street]"
  3. }
  4.  
  5. proc invoke_handler {handler street town} {
  6. proc record {field} "
  7. switch \$field {
  8. street { return {$street} }
  9. town { return {$town} }
  10. default { error \"unknown field '\$field'\" }
  11. }
  12. "
  13.  
  14. $handler record
  15. }
  16.  
  17. invoke_handler my_handler "sample street" "sample town"