Posted to tcl by cgm at Sat Nov 01 13:23:43 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. }