DIRECTORY File, Rope, IO, CIFS, RopeReader, System; FileReader: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; Offset: TYPE = INT; FileType: TYPE = {Tioga1, Tioga2, Simple}; Reply: TYPE = REF ReplyRec; ReplyRec: TYPE = RECORD [ control, comment, text: RopeReader.Ref, -- used by tioga 1 mechanism fileType: FileType, -- Tioga1 / Tioga2 fileRope: ROPE, -- the internal rope version: CHAR, -- Tioga2 version stamp flags: CHAR, -- byte of flags textStart, textLen, controlStart, controlLen: Offset]; -- offsets used by Tioga1 Open: PROC [fileName: ROPE, start, len: Offset] RETURNS [reply: Reply, fh: CIFS.OpenFile, createDate: System.GreenwichMeanTime]; OpenC: PROC [file: File.Capability, start, len: Offset] RETURNS [reply: Reply, createDate: System.GreenwichMeanTime]; FromRope: PROC [rope: ROPE, start, len: Offset] RETURNS [reply: Reply]; FromStream: PROC [stream: IO.Handle, len: Offset] RETURNS [reply: Reply]; FreeReply: PROC [reply: Reply]; END. œ-- FileReader.Mesa -- written by Paxton. March 1981 -- last written by Paxton. August 20, 1982 1:51 pm Last Edited by: Lamming, May 4, 1983 5:07 pm ʘJšÏc™Jš!™!Jš2™2J™,JšÏk ˜ J˜J˜Jšžœ˜Jšžœ˜J˜ Jšœ˜J˜Jšœ žœ˜Jšž˜J˜Jšžœžœžœ˜Jšœžœžœ˜Jšœ žœ˜*Jšœžœžœ ˜šœ žœžœ˜Jšœ)˜EJšœ˜-Jšœ žœ ˜,Jšœžœ ˜.Jšœžœ ˜&Jšœ7˜Q—J˜šÏnœžœ žœ˜/šžœžœ1˜PJ˜——šŸœžœ,˜7Jšžœ6˜=J˜—šŸœžœžœžœ˜GJ˜—šŸ œžœ žœžœ˜IJ˜—šŸ œžœ˜J˜—Jšžœ˜J˜—…—è