home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 037.lha / DU / MyVolName.mod < prev    next >
Encoding:
Modula Implementation  |  1987-05-17  |  867 b   |  41 lines
  1. IMPLEMENTATION MODULE MyVolName;
  2.  
  3.  
  4. FROM SYSTEM         IMPORT  ADDRESS;
  5. FROM DOSFiles       IMPORT  FileLock;
  6. FROM DOSExtensions  IMPORT  FileLockBlock,DeviceList;
  7.  
  8. TYPE
  9.   CharPtr   = POINTER TO CHAR;
  10.   LockPtr   = POINTER TO FileLockBlock;
  11.   DevPtr    = POINTER TO DeviceList;
  12.  
  13.  
  14. PROCEDURE VolumeName(VAR a:ARRAY OF CHAR;l:FileLock);
  15. (*
  16.   makes string in 'a' of volume name associated with lock 'l'
  17.    IN FORM      VolName:   (colon added here) and null terminated
  18.  
  19.   NOTE THAT I DID NOT USE AmigaUtils conversions since they are
  20.   so simple to do directly.
  21. *)
  22.  
  23.  
  24. VAR i,k:CARDINAL;loc:LockPtr;dev:DevPtr;n:CharPtr;
  25. BEGIN
  26.   loc := LockPtr(l * 4);
  27.   dev := DevPtr(loc^.flVolume * 4);
  28.   n := CharPtr(ADDRESS(dev^.dlName) * 4);
  29.   i := ORD(n^);
  30.   FOR k := 0 TO i-1 DO
  31.     INC(n);
  32.     a[k] := n^;
  33.   END;
  34.   a[i] := ":";
  35.   a[i+1] := 0C;
  36.  
  37. END VolumeName;
  38.  
  39. BEGIN
  40. END MyVolName.
  41.