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.