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. }

Add a comment

Please note that this site uses the meta tags nofollow,noindex for all pages that contain comments.
Items are closed for new comments after 1 week