DIRECTORY Rope, RopeReader; RopeEditingBLT: CEDAR DEFINITIONS = BEGIN CharsArray: TYPE = RopeReader.CharsArray; Text: TYPE = Rope.Text; String: TYPE = REF TEXT; ArrayToArrayBlt: PROC [ from: REF READONLY CharsArray, fromLoc: NAT, to: REF CharsArray, toLoc: NAT, nChars: NAT]; ArrayToTextBlt: PROC [ from: REF READONLY CharsArray, fromLoc: NAT, to: Text, toLoc: NAT, nChars: NAT]; ArrayToStringBlt: PROC [ from: REF READONLY CharsArray, fromLoc: NAT, to: String, toLoc: NAT, nChars: NAT]; TextToArrayBlt: PROC [ from: Text, fromLoc: NAT, to: REF CharsArray, toLoc: NAT, nChars: NAT]; TextToTextBlt: PROC [ from: Text, fromLoc: NAT, to: Text, toLoc: NAT, nChars: NAT]; TextToStringBlt: PROC [ from: Text, fromLoc: NAT, to: String, toLoc: NAT, nChars: NAT]; StringToArrayBlt: PROC [ from: REF READONLY TEXT, fromLoc: NAT, to: REF CharsArray, toLoc: NAT, nChars: NAT]; StringToStringBlt: PROC [ from: REF READONLY TEXT, fromLoc: NAT, to: String, toLoc: NAT, nChars: NAT]; Start: PROC; -- for initialization only END. Š-- RopeEditingBLT.mesa -- written by Bill Paxton, March 1981 -- last edit by Bill Paxton, 3-Jun-81 14:33:04 -- ***** Initialization Ęz˜JšĪc™Jš%™%Jš.™.J˜šĪk ˜ J˜J˜ J˜—Jšœžœ˜#Jšž˜J˜Jšœ žœ˜)Jšœžœ ˜Jšœžœžœžœ˜J˜šĪnœžœ˜Jšœžœžœžœ˜,Jšœžœžœ˜Jšœžœ˜ J˜—šŸœžœ˜Jšœžœžœžœ˜,Jšœžœ˜Jšœžœ˜ J˜—šŸœžœ˜Jšœžœžœžœ˜,Jšœžœ˜Jšœžœ˜ J˜—šŸœžœ˜Jšœžœ˜Jšœžœžœ˜Jšœžœ˜ J˜—šŸ œžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜ J˜—šŸœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜ J˜—šŸœžœ˜Jš œžœžœžœ žœ˜&Jšœžœžœ˜Jšœžœ˜ J˜—šŸœžœ˜Jš œžœžœžœ žœ˜&Jšœžœ˜Jšœžœ˜ J˜—Jš™J˜JšŸœžœ˜'J˜Jšžœ˜J˜—…—