blob: ebf83a54c8f549c6268b1653a61c16fc9448c99f (
plain)
1
2
3
4
5
6
7
8
9
|
proc cat {file} {
set f [open $file rb]
while {[gets $f buf] >= 0} { puts $buf }
close $f
}
fconfigure stdout -buffering full -translation binary
foreach file $argv {
cat $file
}
|