DIRECTORY BasicTime USING [GMT], FS USING [OpenFile], IO USING [STREAM], Rope USING [ROPE], RopeReader USING [Ref]; FileReader: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; Offset: TYPE = INT; InterDoc: SIGNAL [doc: ROPE]; -- raised by following procs 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. 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 Doug Wyatt, January 17, 1984 5:36:01 pm PST This is a silly hack to reduce the size of the return records to keep them SAFE. Ê´˜šœ™Jšœ™Jšœ/™/Jšœ%™%Jšœ+™+—J˜šÏk ˜ Jšœ œœ˜Jšœœ ˜Jšœœœ˜Jšœœœ˜Jšœ œ˜J˜—Jšœ œ ˜Jšœ˜J˜Jšœœœ˜Jšœœœ˜J˜šœ œœÏc˜:J™P—J˜šÏnœ˜ Jšœ œ˜$šœ5œœ!œ˜nJ˜——šŸœ˜ Jšœœ˜'Jšœ5œœ˜]J˜—šŸœ˜Jšœœ˜ Jšœ5œ˜BJ˜—šŸ œ˜Jšœ œœ˜ Jšœ5œ˜BJ˜—JšŸœœž˜'J˜Jšœ˜J˜—…—T