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 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 This is a silly hack to reduce the size of the return records to keep them SAFE. Ê€˜šœ™Jšœ™Jšœ/™/Jšœ%™%—J˜šÏk ˜ 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˜—…—j