-- 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.