DIRECTORYFile,RopeEdit,IO,TextNode;PutGet: CEDAR DEFINITIONS =BEGINRef: TYPE = TextNode.Ref;ROPE: TYPE = RopeEdit.ROPE;Offset: TYPE = TextNode.Offset;MaxLen: Offset = LAST[Offset];ToFile: PROC [fileName: ROPE, node: Ref, start: Offset _ 0, flatten, textOnly: BOOLEAN _ FALSE]RETURNS [dataLen, count: Offset];ToFileC: PROC [file: File.Capability, node: Ref,start: Offset _ 0, flatten, textOnly: BOOLEAN _ FALSE]RETURNS [dataLen, count: Offset];FromFile: PROC [fileName: ROPE, start: Offset _ 0, len: Offset _ MaxLen,okToMapFile: BOOLEAN _ FALSE] RETURNS [Ref];FromFileC: PROC [file: File.Capability, start: Offset _ 0, len: Offset _ MaxLen,okToMapFile: BOOLEAN _ FALSE] RETURNS [Ref];FromFileError: ERROR;WriteMesaFilePlain: PROC [fileName: ROPE, root: Ref];WriteFilePlain: PROC [fileName: ROPE, root: Ref];WriteFileCPlain: PROC [file: File.Capability, root: Ref];ToRope: PROC [node: Ref, flatten, textOnly: BOOLEAN _ FALSE]RETURNS [dataLen, count: Offset, output: ROPE];FromRope: PROC [rope: ROPE, start: Offset _ 0, len: Offset _ MaxLen] RETURNS [Ref];WriteRopePlain: PROC [root: Ref] RETURNS [output: ROPE];ToStream: PROC [stream: IO.Handle, node: Ref, flatten, textOnly: BOOLEAN _ FALSE]RETURNS [dataLen, count: Offset];FromStream: PROC [stream: IO.Handle, len: Offset _ MaxLen] RETURNS [Ref];END.    -- PutGet.mesa-- written by Bill Paxton, May 1981-- last edit by Paxton. October 21, 1982 1:55 pm-- **** File Input/Output-- write the node on the specified file-- starts writing at given address in file-- returns dataLen = number of data bytes at start of file,-- and count = the total number of bytes written-- create node from the contents of a file-- starts reading at given start address in file-- pretends that start+len is the end of the file-- if file was not created by ToFile (i.e., password not correct)-- then returns a single node containing contents of the file-- set okToMapFile to TRUE if you will not want to overwrite the contents laterThis is like WriteFilePlain, but adds initial dashes to comments if necessary.-- gives text of file with CR after each node and TABs before according to nesting-- **** Input/Output using ropes instead of files-- resulting rope contains same representation of node as would be put on file-- reads rope to construct node-- **** IO Operations ****-- does a series of IO.PutBlock's-- returns number of bytes written-- reads up to len chars from stream (via GetBlock's) to construct a node Êº  ˜ JšÏc™Jš#™#Jš0™0J˜ J˜ JšÏk	˜	J˜J˜	Jšžœ˜J˜	J˜ Jšœžœ˜Jšž˜J˜ Jšœžœ˜Jšžœžœžœ˜Jšœžœ˜Jšœžœ	˜J˜ J˜ Jš™J˜ š
Ïnœžœžœ3žœžœ˜_Jšžœ˜!—šŸœžœ#˜0Jšœ&žœžœ˜6Jšžœ˜!Jš'™'Jš*™*š;™;Jš0™0J˜ ——šŸœžœžœ*˜HJšœžœžœžœ˜,—šŸ	œžœA˜PJšœžœžœžœ˜,Jš*™*Jš0™0Jš1™1šA™AJš=™=—JšO™OJ˜ —Jšœžœ˜J˜ šŸœžœžœ˜5JšœŸœ3™N—JšŸœžœžœ˜1šŸœžœ$˜9JšR™RJ˜ —Jš1™1J˜ šŸœžœ žœžœ˜<Jšžœ"žœ˜/JšN™NJ˜ —šŸœžœžœ+žœ˜SJš™J˜ —JšŸœžœžœ
žœ˜8J˜ J˜ Jš™J˜ š
Ÿœžœ
žœ'žœžœ˜QJšžœ˜!Jš!™!Jš"™"J˜ —šŸ
œžœ
žœžœ˜IJšI™IJ˜ J˜ —Jšžœ˜J˜ — …—    J  ”  