RemoteFiles.mesa
A package for producing IO streams on Alpine and FTP remote files, suited for ChipNDale I/O.
written by E. McCreight, November 9, 1983 12:42 pm
Last Edited by: Mccreight, November 9, 1983 2:43 pm
DIRECTORY
FileIO,
IO,
Rope;
RemoteFiles:
CEDAR
DEFINITIONS =
BEGIN
OpenSTP:
PROC [ fileName: Rope.
ROPE, accessOptions: FileIO.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