DIRECTORY Rope, UnixDirEnt, UnixSysCalls, UnixTypes; UnixDirectory: CEDAR DEFINITIONS ~ 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]; END. 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. Κ›–(cedarcode) style•NewlineDelimiter ˜™Icodešœ Οeœ=™HK™:K™%K™K™K—K˜K˜šΟk ˜ K˜K˜ Kšœ ˜ Kšœ ˜ K˜—KšΠln œžœž ˜ šœž˜K˜Kšžœžœžœ˜Kšžœžœ žœ˜Kšœ žœ˜"Kšœžœ˜!K˜Kšœ žœž œ˜$Kšœžœžœžœ˜(K˜KšΟnœžœžœ˜9Kš œžœžœ ž˜1Kš œžœžœžœ˜+Kš œžœžœ˜'Kš  œžœ˜Kš œžœžœžœ˜,K˜Kš œžœžœžœ˜;—K˜šžœ˜J™——…—|)