-- FileReader.Mesa
-- written by Paxton. March 1981
-- last written by Paxton. August 20, 1982 1:51 pm
DIRECTORY
File,
Rope,
IO,
CIFS,
RopeReader,
System;
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, okToMapFile:
BOOLEAN]
RETURNS [control, comment, text: RopeReader.Ref, tiogaFile:
BOOL,
fh: CIFS.OpenFile, createDate: System.GreenwichMeanTime];
OpenC:
PROC [file: File.Capability, start, len: Offset, okToMapFile:
BOOLEAN]
RETURNS [control, comment, text: RopeReader.Ref, tiogaFile:
BOOL,
createDate: System.GreenwichMeanTime];
FromRope:
PROC [rope:
ROPE, start, len: Offset]
RETURNS [control, comment, text: RopeReader.Ref, tiogaFile: BOOL];
FromStream:
PROC [stream:
IO.Handle, len: Offset]
RETURNS [control, comment, text: RopeReader.Ref, tiogaFile: BOOL];
Start: PROC; -- for initialization only
END.