home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1169 / cat.tcl next >
Encoding:
Text File  |  1990-12-28  |  153 b   |  10 lines
  1. proc cat args {
  2.     foreach file $args {
  3.     set f [stream open $file r]
  4.     for {} { [stream gets $f line] } {} {
  5.         echo $line
  6.     }
  7.     stream close $f
  8.     }
  9. }
  10.