<> <> <> <> DIRECTORY FS, IO, Rope; RemoteFiles: CEDAR DEFINITIONS = BEGIN OpenSTP: PROC [ fileName: Rope.ROPE, accessOptions: FS.AccessOptions _ read, host, connect, directory: Rope.ROPE _ NIL ] RETURNS [ self: IO.STREAM, greetings: Rope.ROPE ]; OpenAlpineForWrite: PROC [ fileName: Rope.ROPE, expectedLength: INT _ 6D6 ] RETURNS [ self: IO.STREAM ]; <<>> END. -- of RemoteFiles