home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / scripts / filetest.tcl < prev    next >
Encoding:
Text File  |  1993-10-26  |  1.2 KB  |  45 lines  |  [TEXT/$Tcl]
  1.  
  2. set env(test) TEST
  3.  
  4. puts stdout [array names env]
  5. puts stdout $env
  6. puts stdout "PWD=[pwd]"
  7.  
  8. set myfiles [ glob * ]
  9.  
  10. puts stdout [glob -d9 *]
  11. puts stdout "array length $errCode"
  12.  
  13. puts stdout [ctime [file mtime "Fire:bin:word"]]
  14. Wed Aug 16 11:13:27 1989
  15. Wed Feb 19 22:43:36 1992
  16. mv BugTracker Fire:BugTrack
  17. cp Fire:BugTrack Fire:MPW:src:tickle:BugTracker
  18. mv Fire:BugTrack Fire:MPW:src:tickle:BugTracker
  19. rm Fire:MPW:src:tickle:BugTracker
  20. cd Fire:
  21. cp Fire:BugTrack Fire:BugTracker
  22. rm Fire:BugTrack
  23. mv beta BugTracker force
  24. cp BugTracker BugTracker.back force
  25.  
  26. puts stdout "[listpick -p "Pick a file:" [glob *]]"
  27.  
  28. foreach filename "[ glob * ]" { puts -nonewline stdout "$filename\n" }
  29.  
  30. foreach filename "[ glob :space\ folder:* ]" { puts stdout "$filename" }
  31. set mydir [ get_directory ]
  32. puts stdout "mydir=$mydir\n"
  33.  
  34. foreach filename "[ glob $mydir:* ]" { puts stdout "$filename" }
  35. puts stdout [history]
  36.      1  foreach filename "[ glob :space\ folder:* ]" { puts stdout "$filename" }
  37.      2  set mydir [ get_directory ]
  38.      3  puts stdout "mydir=$mydir\n"
  39.      4  foreach filename "[ glob $mydir:* ]" { puts stdout "$filename" }
  40.      5  history
  41.      6  print history
  42.      7  puts stdout history
  43.      8  puts stdout [history]
  44.      9  puts stdout [history]
  45.