10 lines
141 B
Plaintext
10 lines
141 B
Plaintext
|
|
||
|
|
if {[expr ! [exists -proc cat ]]} {
|
||
|
|
proc cat {file} {
|
||
|
|
if {[catch {set fp [open $file r]]} { return }
|
||
|
|
puts [read $fp]
|
||
|
|
close $fp
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|