FileReader.mesa
Copyright © 1985 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, March 2, 1985 4:27:44 pm PST
DIRECTORY
BasicTime USING [GMT],
FS USING [OpenFile],
IO USING [STREAM],
Rope USING [ROPE],
RopeReader USING [Ref];
FileReader: CEDAR DEFINITIONS
= BEGIN
ROPE: TYPE = Rope.ROPE;
InterDoc:
SIGNAL [doc:
ROPE];
-- raised by following procs
This is a silly hack to reduce the size of the return records to keep them SAFE.
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.