Posted to tcl by jsuntheimer72 at Sun Feb 11 17:21:14 GMT 2018view pretty
# Create stdout/stderr interception mechanism. namespace eval ::sdx::Intercept { proc initialize {chan mode} {info procs} proc finalize {chan} {} proc clear {chan} {} proc flush {chan} {} proc write {chan data} {append ::sdx::Intercept::Output $data; return} namespace export * namespace ensemble create }