Posted to tcl by jsuntheimer72 at Sun Feb 11 17:21:14 GMT 2018view raw
- # 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
- }