Re: (newbie) storing outputs from all lines of procs into a string

* just80n@gmail.com
| proc ex {COMMAND} {
| set OUTPUT ""
| rename puts _puts
| proc puts {args} { append OUTPUT $args "\n"; eval _puts $args }
| eval $COMMAND

Better catch that in case of errors, otherwise you lose the original
'puts' command.

  set err [catch $COMMAND msg]
  rename puts {}
  rename _puts puts
  if {$err} {error $msg}

  return $::OUTPUT

R'
Received on Fri Dec 23 19:02:27 2005