Changeset 8837 for code/branches/output/data/tcl/init.tcl
- Timestamp:
- Aug 13, 2011, 9:41:38 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
code/branches/output/data/tcl/init.tcl
r7914 r8837 169 169 foreach {channel s} $input break 170 170 171 if {$channel == "stdout" || $channel == "stderr"} { 172 execute puts $newline $s 171 if {$channel == "stdout"} { 172 execute log $s 173 } elseif {$channel == "stderr"} { 174 execute error $s 173 175 } else { 174 176 eval [concat ::tcl::puts $args]
Note: See TracChangeset
for help on using the changeset viewer.