home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 037.lha / DU / MyVolName.def < prev    next >
Encoding:
Modula Definition  |  1987-05-17  |  488 b   |  20 lines
  1. DEFINITION MODULE MyVolName;
  2.  
  3. (*
  4.    Part of DirUtil  - HOWEVER can be used in any program to return
  5.                       the volume name in a string.  This stinker
  6.                       goes through a BPTR to a BPTR to a BPTR which
  7.                       is part of a Filelock (BPTR). Geez whatta mess!
  8. *)
  9.  
  10. FROM DOSFiles       IMPORT  FileLock;
  11.  
  12.  
  13. PROCEDURE VolumeName(VAR a:ARRAY OF CHAR;l:FileLock);
  14. (*
  15.   makes a string in 'a' of volume name associated with lock 'l'
  16. *)
  17.  
  18.  
  19. END MyVolName.
  20.