DIRECTORYEditNotify,EditSpan,TiogaLooks,TiogaNode,TiogaTreeOps,TreeSlice,UndoEvent;EditSpanSupport: CEDAR DEFINITIONS IMPORTS TiogaLooks =BEGINOPEN EditSpan;Ref: TYPE = TiogaNode.Ref;Offset: TYPE = TiogaNode.Offset;MaxLen: Offset = LAST[Offset];TreeLoc: TYPE = TiogaTreeOps.TreeLoc;TreeSpan: TYPE = TiogaTreeOps.TreeSpan;BranchLoc: TYPE = TiogaTreeOps.BranchLoc;BranchSpan: TYPE = TiogaTreeOps.BranchSpan;Event: TYPE = UndoEvent.Ref;NodeItself: Offset = TiogaNode.NodeItself;Slice: TYPE = TreeSlice.Slice;Splice: PROC [before, after: Slice, beforeStart, afterStart: NAT _ 0];ReplaceBand: PROC [before, after, top, bottom: Slice, nesting: INTEGER, event: Event];BadBand: ERROR;DescribeBand: PROC [first, last: RefBranchNode]RETURNS [before, after, top, bottom: Slice, nesting: INTEGER, depth: NAT];DestSlices: PUBLIC PROC [dest: RefBranchNode, where: Place]RETURNS [before, after: Slice, nesting: INTEGER];CreateDest: PROC [depth: NAT] RETURNS [dest: BranchLoc];CopySpan: PROC [span: TreeSpan] RETURNS [result: TreeSpan];CheckBeforeMove: PROC [dest: BranchLoc, source: BranchSpan, where: Place] RETURNS [ok: BOOLEAN];NeedNestingChange: PROC [before, after, top, bottom: Slice,nesting: INTEGER, depth: NAT] RETURNS [NeededNestingChange];NeededNestingChange: TYPE = { needNest, needUnNest, ok };DoSplits: PROC [alpha, beta: TreeSpan, event: Event] RETURNS [newalpha, newbeta: BranchSpan];DoSplitsForMove: PROC [dest: TreeLoc, source: TreeSpan, where: Place, event: Event]RETURNS [newdest: BranchLoc, newsource: BranchSpan];UndoSplits: PROC [alpha, beta: BranchSpan, event: Event];UndoSplitsForMove: PUBLIC PROC [dest: BranchLoc, source: BranchSpan, where: Place, event: Event];ReMerge: PROC [alpha, beta: BranchSpan, merge: RefBranchNode, event: Event, tail: BOOLEAN _ FALSE]RETURNS [BranchSpan, BranchSpan];END.    к  EditSpanSupport.mesa; written by Bill Paxton, June 1981edited by McGregor, February 7, 1983 9:44 amedited by Bill Paxton, July 25, 1983 12:14 pm***** OperationsЭ╩r  Ш JЪЬ7Щ7JЪЬ,Щ,JЪЬ-Щ-JШ Ъ╧k	Ш	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Ш Ъ╧nЬЭЬ1ЭЬШFJШ ЧЪЮЬЭЬ.ЭЬШVJШ ЧЪЬ	ЭЬШJШ ЧЪЮЬЭЬШ/JЪЭЬ.ЭЬ	ЭЬШJJШ ЧЪЮ
ЬЭЬЭЬ$Ш;JЪЭЬ!ЭЬШ1JШ ЧЪЮ
ЬЭЬ	ЭЬЭЬШ8JШ ЧЪЮЬЭЬЭЬШ;JШ ЧЪЮЬЭЬ5ЭЬЭЬШ`JШ ЧЪЮЬЭЬ$Ш;JЪЬ	ЭЬ	ЭЬЭЬШ<JЪЬЭЬ Ш9JШ ЧЪЮЬЭЬ'ЭЬ!Ш]JШ ЧЪЮЬЭЬ>ШSJЪЭЬ-Ш4JШ ЧЪЮ
ЬЭЬ)Ш9JШ ЧЪЮЬЭЬЭЬCШaJШ ЧЪЮЬЭЬEЭЬЭЬШbJЪЭЬШ!JШ ЧJЪЭЬШJШ JШ JШ Ч ЕЧ    T  
p  