<> <> <> <> <> DIRECTORY BasicTime USING [GMT], FS USING [InfoProc, NameProc], FSBackdoor USING [Version], IO USING [STREAM], Rope USING [ROPE]; FSRemoteFile: CEDAR DEFINITIONS = BEGIN ConfirmProc: TYPE = PROC [FSBackdoor.Version] RETURNS [BOOLEAN]; <> Delete: PROCEDURE [server, file: Rope.ROPE, wantedCreatedTime: BasicTime.GMT, proc: ConfirmProc ]; <> EnumerateForInfo: PROCEDURE [server, pattern: Rope.ROPE, proc: FS.InfoProc]; EnumerateForNames: PROCEDURE [server, pattern: Rope.ROPE, proc: FS.NameProc]; Info: PROCEDURE [server, file: Rope.ROPE, wantedCreatedTime: BasicTime.GMT] RETURNS [version: FSBackdoor.Version, bytes: INT, created: BasicTime.GMT]; Rename: PROCEDURE [server, fromFile: Rope.ROPE, fromCreated: BasicTime.GMT, toFile: Rope.ROPE, proc: ConfirmProc ]; <> Retrieve: PROCEDURE [server, file: Rope.ROPE, wantedCreatedTime: BasicTime.GMT, proc: PROC[fullGName: Rope.ROPE, bytes: INT, created: BasicTime.GMT] RETURNS [IO.STREAM]]; <> Store: PROCEDURE [server, file: Rope.ROPE, str: IO.STREAM, created: BasicTime.GMT, proc: ConfirmProc]; <> <> FTPTimeToGMT: PROCEDURE [t: Rope.ROPE] RETURNS [BasicTime.GMT]; <> LookupResult: TYPE = {noResponse, noSuchPort, noSuchServer, noSuchFile, ok}; Lookup: PROCEDURE [server, file: Rope.ROPE] RETURNS [result: LookupResult, version: FSBackdoor.Version, create: BasicTime.GMT, count: INT]; <> <> <> <> GetServerPupName: PROC [server: Rope.ROPE] RETURNS [pupServer: Rope.ROPE]; <> END. <> <> <> <> <<>>