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 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. BFileReader.mesa Copyright c 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 This is a silly hack to reduce the size of the return records to keep them SAFE. ΚŽ˜codešœ™Kšœ Οmœ1™