home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 21_5.tcl < prev    next >
Text File  |  2003-04-15  |  469b  |  27 lines
  1. #
  2. # Example 21-5
  3. # A Starkit that examines its Virtual File System.
  4. #
  5.  
  6. package require starkit
  7. starkit::startup
  8.  
  9. puts "Contents of VFS before"
  10. foreach f [glob $starkit::topdir/*] {
  11.     puts "[file size $f] $f"
  12. }
  13. puts "Reading data file"
  14. set in [open $starkit::topdir/data]
  15. set X [read $in]
  16. puts $X
  17. close $in
  18. set out [open $starkit::topdir/data.new w]
  19. puts $out $X
  20. close $out
  21. puts "Contents of VFS after"
  22. foreach f [glob $starkit::topdir/*] {
  23.     puts "[file size $f] $f"
  24. }
  25.  
  26.  
  27.