Re: (newbie) storing outputs from all lines of procs into a string
Available news archives: comp.lang.tcl - comp.lang.python - comp.security.firewalls - sci.crypt - comp.lang.php - comp.lang.javascript
Google
 
Web news.hping.org


comp.lang.tcl archive

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

From: suchenwi <richard.suchenwirth-bauersachs@siemens.com>
Date: Mon Dec 19 2005 - 17:53:13 CET

First delete your substitute:
   rename puts {}
Then you can get the old one back:
   rename _puts puts
But you should declare OUTPUT as global, and better not use [eval]
(because it will break up $args to multiple words, which make a syntax
error for [_puts]. Better:

   proc puts args {append ::OUTPUT $args \n; _puts $args}
Received on Fri Dec 23 19:02:15 2005