Posted to tcl by cgm at Sat Nov 01 12:53:12 GMT 2025view raw

  1. proc = args {
  2. set ex [join $args]
  3. set exp [regsub -all {(::)?[[:alpha:]][[:alnum:]_:]*([^[:alnum:]_(]|$)} $ex {$&}]
  4. #puts $exp
  5. uplevel expr $exp
  6. }