Posted to tcl by cgm at Sat Nov 01 12:53:12 GMT 2025view pretty
proc = args {
set ex [join $args]
set exp [regsub -all {(::)?[[:alpha:]][[:alnum:]_:]*([^[:alnum:]_(]|$)} $ex {$&}]
#puts $exp
uplevel expr $exp
}
proc = args {
set ex [join $args]
set exp [regsub -all {(::)?[[:alpha:]][[:alnum:]_:]*([^[:alnum:]_(]|$)} $ex {$&}]
#puts $exp
uplevel expr $exp
}