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, August 28, 1986 4:10:38 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, interdoc:
ROPE];
OpenC:
PROC [file:
FS.OpenFile, start, len:
INT]
RETURNS [control, comment, text: RopeReader.Ref,
tiogaFile:
BOOL, createDate: BasicTime.
GMT, interdoc:
ROPE];
FromRope:
PROC [rope:
ROPE, start, len:
INT]
RETURNS [control, comment, text: RopeReader.Ref, tiogaFile:
BOOL, interdoc:
ROPE];
FromStream:
PROC [stream:
IO.
STREAM, len:
INT]
RETURNS [control, comment, text: RopeReader.Ref, tiogaFile:
BOOL, interdoc:
ROPE];
END.