home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / scripts / file.tcl < prev    next >
Encoding:
Text File  |  1992-03-10  |  803 b   |  25 lines  |  [TEXT/$Tcl]
  1.  
  2.  
  3. puts stdout [file atime "Fire:DEATH"]
  4. puts stdout [file dirname "Fire:Quill"]
  5. puts stdout [file executable "Fire:Quill"]
  6. puts stdout [file exists "Fire:Quill"]
  7. puts stdout [file extension "Fire:Quill.txt"]
  8. puts stdout [file isdirectory "Fire:Quill"]
  9. puts stdout [file isdirectory "Fire:MPW:"]
  10. puts stdout [file isfile "Fire:Quill"]
  11. file lstat "Fire:Quill" mystat
  12. puts stdout "$mystat(size)"
  13. puts stdout [file mtime "Fire:Quill"]
  14. puts stdout [file owned "Fire:Quill"]
  15. puts stdout [file readable "Fire:Quill"]
  16. puts stdout [file rootname "Fire:Quill"]
  17. puts stdout [file size "Fire:Quill"]
  18. file stat "Fire:Quill" mystat
  19. puts stdout "$mystat(size)"
  20. puts stdout [file tail "Fire:Quill"]
  21. puts stdout [file type "Fire:Quill"]
  22. puts stdout [file writable "Fire:Quill"]
  23.  
  24. puts stdout [file readlink "Fire:Quill"]
  25.