DEFINITION MODULE MyVolName;

(*
   Part of DirUtil  - HOWEVER can be used in any program to return
                      the volume name in a string.  This stinker
                      goes through a BPTR to a BPTR to a BPTR which
                      is part of a Filelock (BPTR). Geez whatta mess!
*)

FROM DOSFiles       IMPORT  FileLock;


PROCEDURE VolumeName(VAR a:ARRAY OF CHAR;l:FileLock);
(*
  makes a string in 'a' of volume name associated with lock 'l'
*)


END MyVolName.