FileStreamTestInterface.mesa
Last Edited by: Hagmann, November 22, 1983 4:31 pm
Last Edited by: Taft, December 1, 1983 5:09 pm
DIRECTORY
FS,
IO,
Rope USING [ROPE] ;
FileStreamTestInterface:
CEDAR
DEFINITIONS =
BEGIN
ROPE: TYPE = Rope.ROPE;
STREAM: TYPE = IO.STREAM;
dpy: STREAM ;
OneTest: PROC [file: ROPE];
StreamOpen:
PROC [fileName:
ROPE, accessOptions:
FS.AccessOptions ← $read, createByteCount:
FS.ByteCount ← 2560, streamBufferParms:
FS.StreamBufferParms ←
FS.defaultStreamBufferParms, extendFileProc:
FS.ExtendFileProc ←
NIL]
RETURNS [
STREAM];
END.