Posted to tcl by jeremy_c at Mon Dec 21 16:51:41 GMT 2009view raw

  1. switch $openingChar \{ {
  2. set closingChar \}
  3. } \" {
  4. set closingChar \"
  5. } \[ {
  6. set closingChar \]
  7. } default {
  8. return 0
  9. }