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 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. À-- FileReader.Mesa -- written by Paxton. March 1981 -- last written by Paxton. August 20, 1982 1:51 pm This is a silly hack to reduce the size of the return records to keep them SAFE. Ên˜JšÏc™Jš!™!Jš2™2J˜JšÏk ˜ J˜J˜Jšžœ˜Jšžœ˜J˜ Jšœ˜J˜Jšœ žœ˜Jšž˜J˜Jšžœžœžœ˜Jšœžœžœ˜J˜šœ žœžœ˜:J™P—J˜šÏnœžœ žœ#žœ˜Ešžœ5žœ˜AJšœžœ1˜9J˜——šŸœžœ:žœ˜Mšžœ5žœ˜AJšœ&˜&—J˜—šŸœžœžœ˜/Jšžœ5žœ˜BJ˜—šŸ œžœ žœ˜1Jšžœ5žœ˜BJ˜—JšŸœžœ˜'J˜Jšžœ˜J˜—…—\Š