DIRECTORYRopeReader,Rope;RopeEditingAlloc: CEDAR DEFINITIONS =BEGINCharsArray: TYPE = RopeReader.CharsArray;Chars: TYPE = REF CharsArray;ROPE: TYPE = Rope.ROPE;AllocChars: PROC [len: NAT]RETURNS [chars: Chars, start: NAT, base: ROPE];AllocWords: PROC [nwords: NAT]RETURNS [chars: Chars, start: NAT, base: ROPE];TryAllocAdjacent: PROC [base: ROPE, start: NAT, len: NAT]RETURNS [ok: BOOLEAN, chars: Chars];GetBlock: PROC RETURNS [blk: REF TEXT];FreeBlock: PROC [blk: REF TEXT];Start: PROC; -- for initialization onlyEND.  à  -- RopeEditingAlloc.mesa-- written by Bill Paxton,  March 1981-- last edit by McGregor, June 10, 1982 2:31 pm-- for use by routines in RopeFrom.  not for general use.-- allocates room for len characters-- chars is the array to hold them starting at start-- base is rope pointing to the entire chars array-- for use by routines in RopeFrom.  not for general use.-- ensures that start is even, i.e., start on word boundary-- for use by routines in RopeFrom.  not for general use.-- if base is current CharsArray-- and start is current next free loc in base-- and there are at least len free chars remaining-- then allocates those chars and returns true-- these provide a cache of text buffers-- ***** Initialization Ê°  ˜ JšÏc™Jš&™&Jš/™/J˜ JšÏk	˜	J˜J˜J˜ Jšœžœ˜%Jšž˜J˜ Jšœžœ˜)Jšœžœžœ˜Jšžœžœžœ˜J˜ šÏn
œžœžœ˜Jšžœžœžœ˜/—Jš9™9Jš$™$Jš4™4Jš2™2J˜ šŸ
œžœ
žœ˜Jšžœžœžœ˜/—Jš9™9Jš;™;J˜ š
Ÿœžœžœ	žœžœ˜9Jšžœžœ˜$—Jš9™9Jš ™ Jš-™-Jš2™2Jš.™.J˜ Jš(™(J˜ Jš
Ÿœžœžœžœžœ˜'JšŸ	œžœžœžœ˜ J˜ Jš™J˜ JšŸœžœ˜'J˜ Jšžœ˜J˜ J˜ — …—    &  ¶  