UnixDirectory.mesa
Copyright Ó 1988, 1989, 1991 by Xerox Corporation. All rights reserved.
Eduardo Pelegri-Llopart, November 29, 1988 12:16:11 pm PST
Willie-s, August 13, 1991 1:23 pm PDT
An implementation of some Unix (tm) directory functions using UnixSysCalls.
~
BEGIN
ROPE: TYPE ~ Rope.ROPE;
RES: TYPE ~ UnixTypes.RES;
CHARPtr: TYPE ~ UnixTypes.CHARPtr;
DirEnt: TYPE ~ UnixDirEnt.DirEnt;
DirEntPtr: TYPE ~ POINTER TO DirEnt;
DirPtr: TYPE ~ REF DirRep; DirRep: TYPE;
OpenDir: PROC [fileName: CHARPtr] RETURNS [dirp: DirPtr];
ReadDir: PROC [dirp: DirPtr] RETURNS [DirEntPtr];
TellDir: PROC [dirp: DirPtr] RETURNS [INT];
SeekDir: PROC [dirp: DirPtr, loc: INT];
RewindDir: PROC [dirp: DirPtr];
CloseDir: PROC [dirp: DirPtr] RETURNS [RES];
NameFromDirEntP: PROC [dp: DirEntPtr] RETURNS [name: ROPE];