FileReader.mesa
Copyright © 1985, 1986 by Xerox Corporation. All rights reserved.
written by Paxton. March 1981
last written by Paxton. August 20, 1982 1:51 pm
Russ Atkinson, July 22, 1983 10:15 am
Doug Wyatt, September 18, 1986 3:46:13 pm PDT
DIRECTORY
BasicTime USING [GMT],
FS USING [OpenFile],
IO USING [STREAM],
Rope USING [ROPE],
RopeReader USING [Ref];
FileReader: CEDAR DEFINITIONS
= BEGIN
ROPE: TYPE = Rope.ROPE;
Open: PROC [fileName: ROPE, start, len: INT]
RETURNS [control, comment, text: RopeReader.Ref,
tiogaFile: BOOL, fh: FS.OpenFile, createDate: BasicTime.GMT];
OpenC: PROC [file: FS.OpenFile, start, len: INT]
RETURNS [control, comment, text: RopeReader.Ref,
tiogaFile: BOOL, createDate: BasicTime.GMT];
FromRope: PROC [rope: ROPE, start, len: INT]
RETURNS
[control, comment, text: RopeReader.Ref, tiogaFile: BOOL];
FromStream: PROC [stream: IO.STREAM, len: INT]
RETURNS
[control, comment, text: RopeReader.Ref, tiogaFile: BOOL];
END.