FileReader.Mesa
written by Paxton. March 1981
last written by Paxton. August 20, 1982 1:51 pm
Russ Atkinson, July 22, 1983 10:15 am
DIRECTORY
BasicTime,
FS,
Rope,
IO,
RopeReader;
FileReader: CEDAR DEFINITIONS = BEGIN
ROPE: TYPE = Rope.ROPE;
Offset: TYPE = INT;
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: Offset]
RETURNS [control, comment, text: RopeReader.Ref, tiogaFile:
BOOL, fh:
FS.OpenFile, createDate: BasicTime.
GMT];
OpenC:
PROC
[file: FS.OpenFile, start, len: Offset]
RETURNS [control, comment, text: RopeReader.Ref, tiogaFile: BOOL, createDate: BasicTime.GMT];
FromRope:
PROC
[rope: ROPE, start, len: Offset]
RETURNS [control, comment, text: RopeReader.Ref, tiogaFile: BOOL];
FromStream:
PROC
[stream: IO.STREAM, len: Offset]
RETURNS [control, comment, text: RopeReader.Ref, tiogaFile: BOOL];
Start: PROC; -- for initialization only
END.