home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / testfiles / TestSetComment < prev    next >
Encoding:
Text File  |  2004-01-31  |  627 b   |  27 lines
  1. dos <- SafeDOS new
  2.  
  3. dos setCommentFieldOf: 'AmigaTalk:AmigaTalk.info' to: 'Testing SafeDos'
  4.  
  5. mask <- dos stringToProtectionMask: '+HPRW-EDSA'
  6.  
  7. dos setProtectionOf: 'AmigaTalk:AmigaTalk.info' to: mask
  8.  
  9. path <- dos getRealPathPart: 'AmigaTalk:Help/ados.guide'
  10.  
  11. ('Real Path name is:  ', path ) print
  12.  
  13. path <- dos getPathPart: 'AmigaTalk:Help/ados.guide'
  14.  
  15. ('AmigaDOS PathPart returns:  ', path ) print
  16.  
  17. name <- dos getFilePart: 'AmigaTalk:Help/ados.guide'
  18.  
  19. ('File part is:  ', name ) print
  20.  
  21. oldErr <- dos setIoErrTo: 121
  22.  
  23. str <- dos translateIoErrToString: (dos getIoErr)
  24.  
  25. ('121 is:  ', str ) print
  26.  
  27. ('oldErr # is: ' oldErr ) print