Copyright (C) 1994, Digital Equipment Corp. UNSAFE INTERFACE** <dir.h> **Udir ;
IMPORT Ctypes; CONST MAXNAMLEN = 255; (* maximum length of component of file path name *) MAXPATHLEN = 1024; (* maximum length of file path name *) (* file types *) DT_UNKNOWN = 0; DT_FIFO = 1; DT_CHR = 2; DT_DIR = 4; DT_BLK = 6; DT_REG = 8; DT_LNK = 10; DT_SOCK = 12;
* The dirent structure defines the format of directory entries returned by * the getdirentries(2) system call. * * A directory entry has a struct dirent at the front of it, containing its * inode number, the length of the entry, and the length of the name * contained in the entry. These are followed by the name padded to a 4 * byte boundary with null bytes. All names are guaranteed null terminated. * The maximum length of a name in a directory is MAXNAMLEN.
TYPE
dirent = RECORD (* describes directory entry *)
d_fileno: Ctypes.long; (* inode number of entry *)
d_reclen: Ctypes.unsigned_char; (* record length in bytes *)
d_type: Ctypes.unsigned_char; (* file types, see above *)
d_namelen: Ctypes.unsigned_short; (* name length in bytes *)
d_name: ARRAY [0..MAXNAMLEN] OF Ctypes.char; (* name *)
END;
direct = dirent; (* backwards compatibility *)
DIR = RECORD
dd_fd: Ctypes.int; (* file descriptor associated with directory *)
dd_loc: Ctypes.long; (* offset in current buffer *)
dd_size: Ctypes.long; (* amount of data returned by getdirentries *)
dd_buf: UNTRACED REF Ctypes.char; (* data buffer *)
dd_len: Ctypes.int; (* size of data buffer *)
dd_seek: Ctypes.long; (* magic cookie returned by getdirentries *)
dd_ddloc: Ctypes.void_star; (* Linked list of ddloc structs for telldir/seekdir *)
END;
DIR_star = UNTRACED REF DIR;
direct_star = UNTRACED REF direct;
<*EXTERNAL*> PROCEDURE opendir (filename: Ctypes.char_star): DIR_star;
<*EXTERNAL*> PROCEDURE readdir (dirp: DIR_star): direct_star;
<*EXTERNAL*> PROCEDURE telldir (dirp: DIR_star): Ctypes.long;
<*EXTERNAL*> PROCEDURE seekdir (dirp: DIR_star; loc: Ctypes.long);
<*EXTERNAL*> PROCEDURE rewinddir (dirp: DIR_star);
<*EXTERNAL*> PROCEDURE closedir(dirp: DIR_star): Ctypes.int;
<*EXTERNAL*> PROCEDURE getdirentries(fd : Ctypes.int;
buf : UNTRACED REF Ctypes.char;
nbytes : Ctypes.int;
basep : UNTRACED REF Ctypes.long): Ctypes.int;
END Udir.