File: cat.tcl

package info (click to toggle)
pfm 2.0.8-4
  • links: PTS
  • area: main
  • in suites: sid
  • size: 1,036 kB
  • sloc: tcl: 5,486; sql: 4,835; makefile: 4; sh: 1
file content (9 lines) | stat: -rw-r--r-- 185 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
 
# cat.tcl
# to be used in a pipe to catch stdout or stderr from an external program
package require Tcl

while {![chan eof stdin]} {
	catch {chan puts stdout [chan gets stdin]}
}
exit