home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
037.lha
/
DU
/
MyVolName.def
< prev
next >
Wrap
Text File
|
1987-05-16
|
488b
|
20 lines
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.