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