2011-06-07 13:26:45 +00:00
|
|
|
|
2012-01-13 21:23:03 +00:00
|
|
|
if {![exists -proc cat]} {
|
2011-06-07 13:26:45 +00:00
|
|
|
proc cat {file} {
|
2011-12-09 10:11:41 +00:00
|
|
|
if {[catch {set fp [open $file r}]} { return }
|
2011-06-07 13:26:45 +00:00
|
|
|
puts [read $fp]
|
|
|
|
|
close $fp
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
