RosemaryVector.mesa
Copyright © 1985, 1986 by Xerox Corporation. All rights reserved.
Barth, February 2, 1987 3:06:47 pm PST
DIRECTORY
IO, Ports, Rope;
RosemaryVector: CEDAR DEFINITIONS = BEGIN
OpenVectorFile:
PROC [fileName: Rope.
ROPE, port: Ports.Port, read:
BOOL ←
TRUE]
RETURNS [vectorFile: VectorFile];
CloseVectorFile:
PROC [vectorFile: VectorFile];
WriteVector:
PROC [vectorFile: VectorFile, neverSayExpect:
BOOL ←
FALSE];
ReadVector:
PROC [vectorFile: VectorFile];
VectorFile: TYPE = REF VectorFileRec;
VectorFileRec:
TYPE =
RECORD [
port: Ports.Port,
stream: IO.STREAM];
END.