home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xco212p.zip / CDEF / dirent.def < prev    next >
Text File  |  1995-08-31  |  1KB  |  43 lines
  1. (* Copyright (c) xTech 19995.  All Rights Reserved *)
  2. <*+ M2EXTENSIONS *>
  3. <*+ NOHEADER *>
  4. <*+ NOCODE *>
  5. <*+ CSTDLIB *>
  6. DEFINITION MODULE [2] dirent;
  7.  
  8. FROM SYSTEM IMPORT INT32, CARD16, ADDRESS, int;
  9. FROM xmRTS IMPORT X2C_pCHAR;
  10.  
  11. TYPE
  12. <*+ GENTYPEDEF *>
  13.   DIR = RECORD
  14.     d_fd: int;          (* file descriptor *)
  15.     d_loc: int;          (* offset in block *)
  16.     d_size: int;      (* amount of valid data *)
  17.     d_buf: X2C_pCHAR; (* directory block *)
  18.   END;
  19.  
  20. (*
  21.  * File-system independent directory entry.
  22.  *)
  23. <*- GENTYPEDEF *>
  24.   dirent = RECORD
  25.     d_ino: CARD16;       (* "inode number" of entry *)
  26.     d_off: INT32;       (* offset of disk directory entry *)
  27.     d_reclen: CARD16;       (* length of this record *)
  28.     d_name: ARRAY [0..0] OF CHAR; (* name of file *)
  29.   END;
  30.  
  31.   dirent_t = dirent;
  32.  
  33. PROCEDURE opendir(s: ARRAY OF CHAR): ADDRESS (* DIR* *);
  34. PROCEDURE readdir(VAR d: DIR): ADDRESS (* dirent* *);
  35. PROCEDURE readdir_r(VAR d: DIR; VAR e: dirent): ADDRESS (* dirent* *);
  36.  
  37. PROCEDURE telldir(VAR d: DIR): INT32;
  38. PROCEDURE seekdir(VAR d: DIR; x: INT32);
  39. PROCEDURE rewinddir(VAR d: DIR);
  40. PROCEDURE closedir(VAR d: DIR): int;
  41.  
  42. END dirent.
  43.