DIRECTORY
Rope USING [ROPE, Concat, Substr],
SoundList USING [ExtractSoundList, ReplaceSoundList, SoundChars],
TEditDocument USING [SelectionId],
TextEdit USING [Size],
TiogaButtons USING [TextNodeRef],
TiogaOps USING [GetSelection, Location, GetRope, SelectPoint, CancelSelection],
TiogaOpsDefs USING [Ref, WhichSelection, SelectionGrain],
IO USING [PutFR, rope],
MessageWindow USING [Append, Blink],
ViewerClasses USING [Viewer],
ViewerOps USING [FetchProp, DestroyViewer],
VoiceAging USING [EditAges],
VoiceInText USING [thrushHandle, DebugRope],
VoiceMarkers USING [ExtractCharMarks, EditCharMarks, ExtractTextMarks, EditTextMarks],
VoicePlayBack USING [RedrawViewer],
VoiceViewers USING [VoiceViewerInfo, SoundList, soundRopeCharLength, Selection, SelectionRec, SoundInterval, SoundIntervalRec, GetVoiceLock],
VoiceRope USING [Replace, VoiceRopeInterval],
VoiceEditOps;

VoiceEditOpsImpl: CEDAR PROGRAM IMPORTS IO, MessageWindow, Rope, SoundList, TextEdit, TiogaButtons, TiogaOps, ViewerOps, VoiceAging, VoiceInText, VoiceMarkers, VoicePlayBack, VoiceRope, VoiceViewers EXPORTS VoiceEditOps = BEGIN

BadVoiceViewerDisplay: ERROR [viewer: ViewerClasses.Viewer];

Mumble: PUBLIC PROC [opAttempted: Rope.ROPE, viewerTypes: Rope.ROPE] = {
MessageWindow.Append[IO.PutFR["%g is not a valid operation between %g viewers", IO.rope[opAttempted], IO.rope[viewerTypes]], TRUE];
MessageWindow.Blink[]
};

DescribeSelection: PUBLIC PROC [which: TiogaOpsDefs.WhichSelection, forceDelete: BOOLEAN, returnSoundInterval: BOOLEAN, viewerAlreadyLocked: ViewerClasses.Viewer _ NIL] RETURNS [failed: BOOLEAN _ FALSE, selection: VoiceViewers.Selection, soundInterval: VoiceViewers.SoundInterval _ NIL] = {
selStart, selEnd: TiogaOps.Location;
caretBefore, pendingDelete: BOOL;
level: TiogaOpsDefs.SelectionGrain;
selection _ NEW[VoiceViewers.SelectionRec];


[viewer: selection.viewer, start: selStart, end: selEnd, level: level, caretBefore: caretBefore, pendingDelete: pendingDelete] _ TiogaOps.GetSelection[which];
selection.voiceViewerInfo _ NARROW[ViewerOps.FetchProp[selection.viewer, $voiceViewerInfo], VoiceViewers.VoiceViewerInfo];
IF ~( viewerAlreadyLocked = selection.viewer OR VoiceViewers.GetVoiceLock[selection.voiceViewerInfo] ) THEN {failed _ TRUE; RETURN}; 
IF selStart.node # selEnd.node THEN ERROR BadVoiceViewerDisplay[selection.viewer];
selection.displayNode _ selStart.node;

 
selection.ropeInterval _ [selection.voiceViewerInfo.ropeInterval.ropeID, selStart.where*VoiceViewers.soundRopeCharLength, (selEnd.where+(IF level=point THEN 0 ELSE 1))*VoiceViewers.soundRopeCharLength -selStart.where*VoiceViewers.soundRopeCharLength];

IF selection.ropeInterval.start + selection.ropeInterval.length > selection.voiceViewerInfo.ropeInterval.length THEN ERROR BadVoiceViewerDisplay[selection.viewer];

IF returnSoundInterval THEN 
{  soundInterval _ NEW [VoiceViewers.SoundIntervalRec _ [ropeInterval: selection.ropeInterval]];
SoundList.ExtractSoundList[selection.voiceViewerInfo, soundInterval];
VoiceMarkers.ExtractCharMarks[selection.voiceViewerInfo, soundInterval];
VoiceMarkers.ExtractTextMarks[selection.voiceViewerInfo, soundInterval] -- the width/displayChars fields in this will not necessarily be valid at the end of the list
};

IF ~(pendingDelete OR forceDelete) 
THEN 
{  
IF ~caretBefore THEN selection.ropeInterval.start _ selection.ropeInterval.start + selection.ropeInterval.length;
selection.ropeInterval.length _ 0
}
};

ReplaceSelectionWithSavedInterval: PUBLIC PROC [selection: VoiceViewers.Selection, soundInterval: VoiceViewers.SoundInterval, leaveSelected: BOOLEAN] RETURNS [viewerDeleted: BOOLEAN, insertChars, positionAfterInsert: INT] = {
newViewerContents: Rope.ROPE;
displayCutPoint, deleteChars: INT;

IF selection.ropeInterval.length = 0 AND soundInterval = NIL THEN RETURN;

SoundList.ReplaceSoundList[voiceViewerInfo: selection.voiceViewerInfo, cutStart: selection.ropeInterval.start, cutLength: selection.ropeInterval.length, replacement: IF soundInterval = NIL THEN NIL ELSE soundInterval.soundList];

displayCutPoint _ selection.ropeInterval.start/VoiceViewers.soundRopeCharLength;
deleteChars _ selection.ropeInterval.length/VoiceViewers.soundRopeCharLength;
insertChars _ IF soundInterval = NIL THEN 0 ELSE soundInterval.ropeInterval.length/VoiceViewers.soundRopeCharLength;
positionAfterInsert _ displayCutPoint + insertChars + 1; 

VoiceMarkers.EditCharMarks[selection.voiceViewerInfo, displayCutPoint, deleteChars, insertChars, soundInterval];
VoiceMarkers.EditTextMarks[selection.voiceViewerInfo, displayCutPoint, deleteChars, insertChars, soundInterval];
VoiceAging.EditAges[selection.voiceViewerInfo, displayCutPoint, deleteChars, insertChars];

[newViewerContents, selection.voiceViewerInfo.remnant] _ SoundList.SoundChars[selection.voiceViewerInfo, displayCutPoint];
newViewerContents _ Rope.Concat[(TiogaOps.GetRope[selection.displayNode]).Substr[0, displayCutPoint], newViewerContents];
selection.displayNode _ VoicePlayBack.RedrawViewer[selection.viewer, newViewerContents, displayCutPoint, deleteChars, insertChars, selection.voiceViewerInfo.remnant, TRUE, IF leaveSelected THEN primaryOnInsert ELSE deSelected];
viewerDeleted _ TextEdit.Size[TiogaButtons.TextNodeRef[selection.displayNode]] = 0; 
IF viewerDeleted THEN ViewerOps.DestroyViewer[selection.viewer]

ELSE
{  
selection.voiceViewerInfo.ropeInterval _ VoiceRope.Replace[handle: VoiceInText.thrushHandle, vr: NEW [VoiceRope.VoiceRopeInterval _ selection.voiceViewerInfo.ropeInterval], start: selection.ropeInterval.start, len: selection.ropeInterval.length, with: IF soundInterval = NIL THEN NIL ELSE NEW [VoiceRope.VoiceRopeInterval _ soundInterval.ropeInterval]]^
}
};
Delete: PUBLIC PROC = {
charAfterDelete: INT;
viewerDeleted: BOOLEAN;
selectionLocked: BOOLEAN; 
selection: VoiceViewers.Selection;
[selection: selection, failed: selectionLocked] _ DescribeSelection[which: primary, forceDelete: TRUE, returnSoundInterval: FALSE];
IF selectionLocked THEN RETURN;

selection.voiceViewerInfo.edited _ TRUE;
[positionAfterInsert: charAfterDelete, viewerDeleted: viewerDeleted] _ ReplaceSelectionWithSavedInterval[selection: selection, soundInterval: NIL, leaveSelected: TRUE];
IF ~viewerDeleted THEN 
{  
TiogaOps.SelectPoint[viewer: selection.viewer, caret: [selection.displayNode, MIN [charAfterDelete, TextEdit.Size[TiogaButtons.TextNodeRef[selection.displayNode]]-1]], which: primary];
selection.voiceViewerInfo.editInProgress _ FALSE
} 
};

Copy: PUBLIC PROC [target: TEditDocument.SelectionId _ primary] = {
sourceSelection, destSelection: VoiceViewers.Selection;
sourceInterval: VoiceViewers.SoundInterval;
selectionLocked: BOOLEAN;

destMovesForward: INT _ 0;

[selection: sourceSelection, soundInterval: sourceInterval, failed: selectionLocked] _ DescribeSelection[which: (IF target=primary THEN secondary ELSE primary), forceDelete: FALSE, returnSoundInterval: TRUE];
IF ~selectionLocked THEN
{
[selection: destSelection, failed: selectionLocked] _ DescribeSelection[which: (IF target=primary THEN primary ELSE secondary), forceDelete: FALSE, returnSoundInterval: FALSE, viewerAlreadyLocked: sourceSelection.viewer];
IF selectionLocked THEN sourceSelection.voiceViewerInfo.editInProgress _ FALSE
};
TiogaOps.CancelSelection[primary];
TiogaOps.CancelSelection[secondary];
IF selectionLocked THEN RETURN;
destSelection.voiceViewerInfo.edited _ TRUE;

IF sourceSelection.ropeInterval.length # 0
THEN
{  sourceSelection.voiceViewerInfo.edited _ TRUE;
IF sourceSelection.viewer = destSelection.viewer -- special case of same viewer
THEN
{  
IF (sourceSelection.ropeInterval.start< destSelection.ropeInterval.start+destSelection.ropeInterval.length) = (destSelection.ropeInterval.start< sourceSelection.ropeInterval.start+sourceSelection.ropeInterval.length)
THEN
{  firstStart: INT _ destSelection.ropeInterval.start;
firstLength: INT _ MAX [sourceSelection.ropeInterval.start -destSelection.ropeInterval.start, 0];
secondStart: INT _ sourceSelection.ropeInterval.start + sourceSelection.ropeInterval.length; 
secondLength: INT _ MAX [(destSelection.ropeInterval.start+destSelection.ropeInterval.length) - (sourceSelection.ropeInterval.start+sourceSelection.ropeInterval.length), 0];

sourceSelection.ropeInterval.start _ firstStart;
sourceSelection.ropeInterval.length _ firstLength;
destSelection.ropeInterval.start _ secondStart;
destSelection.ropeInterval.length _ secondLength;
sourceInterval _ NIL
};

IF sourceSelection.ropeInterval.start<destSelection.ropeInterval.start THEN destMovesForward _ sourceSelection.ropeInterval.length
};

IF ~ReplaceSelectionWithSavedInterval[sourceSelection, NIL, FALSE].viewerDeleted THEN
{ IF sourceSelection.viewer # destSelection.viewer THEN sourceSelection.voiceViewerInfo.editInProgress _ FALSE }
}
ELSE 
{  IF sourceSelection.viewer # destSelection.viewer THEN sourceSelection.voiceViewerInfo.editInProgress _ FALSE
};

destSelection.ropeInterval.start _ destSelection.ropeInterval.start - destMovesForward;
[] _ ReplaceSelectionWithSavedInterval[destSelection, sourceInterval, TRUE];
destSelection.voiceViewerInfo.editInProgress _ FALSE
};

Transpose: PUBLIC PROC [target: TEditDocument.SelectionId _ primary] = {
IF target = feedback THEN ERROR;
VoiceInText.DebugRope["Voice transpose:\n"];
SelectionStates[];
VoiceInText.DebugRope["not yet implemented.\n"];
};

SelectionStates: PROC = {
VoiceInText.DebugRope[" Primary selection is"];
IF ~TiogaOps.GetSelection[primary].pendingDelete THEN VoiceInText.DebugRope[" not"];
VoiceInText.DebugRope[" pending delete,\n secondary selection is"]; 
IF ~TiogaOps.GetSelection[secondary].pendingDelete THEN VoiceInText.DebugRope[" not"];
VoiceInText.DebugRope[" pending delete\n"]
};


END.

Š VoiceEditOpsImpl.mesa:
routines to edit voice viewers, plus some routines to intercept operations deemed inapplicable for voice or voice/text viewer combinations
Ades, May 1, 1986 10:23:19 am PDT 

this routine will characterise the voice corresponding to a selection: if the selection is pendingDelete [or if forceDelete] then the selection.ropeInterval will have non-zero length; if returnSoundInterval then the sound interval corresponding to the whole selection will be characterised - to be saved and inserted somewhere else
selections can only be described if the voiceLock can be taken out on them: this routine returns failed if it cannot get the lock; otherwise it returns with the lock still held. However the caller may pass a viewer in viewerAlreadyLocked to say that he already has that one locked and if this
selection is in the same viewer then we may proceed
work out the VoiceRopeInterval corresponding to the whole selection
it is here that policy about trimming the sound selection e.g. to silence/sound boundaries could be implemented
this routine actually does all the editing work for voice: it is passed a selection specification and a sound specification: if the selection is of non-zero length it is deleted; then if the sound is non-nil it is inserted
this routine (i) works out what the updated voice viewer sound list and contents will be (ii) calls VoicePlayBack to redraw the viewer [done there since the viewer may be somewhere in the queue of sounds to be played back] (iii) interacts with the voice rope data base to update the rope specification corresponding to the viewer
it may turn out that there is nothing left in the viewer at the end of this action, in which case the viewer will simply be deleted. However this is not done until after VoicePlayBack. RedrawViewer has been called since a viewer cannot be destroyed whilst the playback caret is in it: after a call to RedrawViewer the playback caret cannot be in it!!
there is no way to stop this destruction in this implementation: in a Copy/Transpose both selections could be in the same viewer but if so the result of the first call to this procedure cannot be an empty viewer

those three need only be [and are only] approximate
done for efficiency - no need to recalculate the first characters again

redrawing isdone in VoicePlayBack for sync with any playback cues
the last but one parameter governs whether this edit will cause all previous edits to age [only if insertChars # 0]. It is simply set TRUE here: if there were any use for such a facility a parameter could be passed by caller of ReplaceSelectionWithSavedInterval to pass on here

this will cause the event proc which clears down the voiceViewerInfo etc. to be called
  
delete the primary selection
if source selection is pending delete and ahead of the destination selection in the same viewer, then after the first action of deleting source the destination will be nearer the start of the sound 

we drop the selections here because after a ReplaceSelectionWithSavedInterval call a viewer may not exist! If a selection above failed we should also drop the selections here as well - if selections are left around after an aborted tioga editing operation unpleasant thing tend to happen

if true then source is pending delete: this means two edit operations
that is the test for overlapping selections: if source is pending delete the copy operation then reduces to "delete the region(s) lying in the destination but not in the source selection" - done here as a special case
done by substituting first and second regions for source and destination selections
and setting soundInterval to NIL: note that either of these regions may now have zero length
�Ê:˜š
œ™™Š
Jš
œ"™"—J™—š
Ïk	˜	Jšœ�œ�œ˜"Jšœ
�œ2˜AJšœ�œ˜"Jšœ	�œ˜Jšœ
�œ˜!Jšœ	�œA˜OJšœ
�œ'˜9Jš�œ
�œ˜Jšœ�œ˜$Jšœ�œ
˜Jšœ
�œ˜+Jšœ�œ˜Jšœ�œ˜,Jšœ
�œD˜VJšœ�œ˜#Jšœ
�œ{˜�
Jšœ
�œ˜-Jš
œ
˜
J˜—Jš
Ïnœ�œ
�œ
�œ
�œ�
�œ�˜ã
J˜Jšžœ�œ ˜<J˜š
žœ�œ
�œ�œ�œ˜HJš	œ�œ9�œ�œ�œ˜ƒ
Jš
œ˜—J˜J˜Jšžœ�œ
�œ3�œ�œ3�œ
�œY�œ˜¢Jš
œË™Ë™ØJš
œ$˜$Jšœ�œ
˜!Jš
œ#˜#Jšœ�œ˜+J˜J˜Jš
œž
˜ž
Jšœ�œX˜zJš
œ…
˜…
Jš�œ�œ
�œ)˜RJš
œ&˜&J˜Jš
œC™CJ™oJ˜
Jšœ‰
�œ
�œ�œX˜û
J˜Jš�œn�œ
�œ)˜£
J˜Jš�œ�œ
˜šœ�œJ˜`Jš
œE˜EJš
œH˜HJšœHÏc]˜¥
—J˜J˜Jš�œ�œ˜#Jš�œ
˜š
œ˜Jš�œ�œ]˜qJš
œ!˜!—J˜
—Jš
œ˜J˜Jšž!œ�œ
�œ_�œ�œ�œ$�œ˜á
J™Þ
J™ÉJš
œÞ™ÞJ™Ó
™Jšœ�œ
˜Jšœ�œ
˜"J˜Jš
�œ#�œ�œ
�œ
�œ
˜IJ˜Jšœ¦
�œ�œ
�œ
�œ
�œ˜ä
J˜Jš
œP˜PJš
œM˜MJš	œ�œ�œ
�œ�œD˜tJš
œ3™3Jš
œ9˜9J˜Jš
œp˜pJš
œp˜pJš
œZ˜ZJ˜Jš
œz˜zJš
œy˜yJ™GJ™Jš	œ¦
�œ�œ�œ�œ
˜ã
Jš
œA™AJšœä
ž!œ™•J™Jš
œT˜TJš�œ�œ*˜?J™VJ˜Jš
�˜š
œ˜Jšœa�œ˜
�œ�œ
�œ
�œ
�œ
�œ=˜á—J˜
—˜Jš
œ™—Jšžœ�œ
�œ˜™Jšœ�œ
˜Jšœ�œ
˜Jšœ�œ˜Jš
œ"˜"Jšœa�œ�œ˜ƒ
Jš
œ˜J˜Jšœ#�œ
˜(JšœŽ
�œ�œ˜¨
Jš�œ�œ
˜š
œ˜JšœN�œg˜¸
Jš
œ0˜0—Jš
œ˜—J˜J˜šžœ�œ
�œ2˜CJš
œ7˜7Jš
œ+˜+J˜J˜Jšœ�œ˜J™Æ
J˜Jšœq�œ�œ�œ�œ�œ˜Ð
J˜˜
JšœP�œ�œ	�œ�œ�œ/˜Ý
Jš
œN˜N—J˜J™Jš
œ"˜"Jš
œ$˜$Jš
œŸ™ŸJ™J˜Jšœ'�œ
˜,J˜Jš�œ(˜*J™EJš
�˜šœ,�œ
˜1Jš�œ/Ÿ˜OJš
�˜š
œ˜Jš�œÖ
˜Ø
J™Ù
Jš
ϡ
™°
Jš
�˜šœ�œ$˜6Jšœ
�œ�œK˜aJšœ
�œM˜]Jšœ�œ�œ–
˜­
J˜Jš
œ0˜0Jš
œ2˜2Jš
œ/˜/Jš
œ1˜1Jšœ�˜—J˜J˜Jš�œE�œ7˜‚
—Jš
œ˜J˜Jšœ7�œ�œ…
˜Æ
—J˜
Jš
œ˜Jš
œo˜oJ˜J˜Jš
œW˜WJšœF�œ˜LJš
œ4˜4—J˜J˜šž	œ�œ
�œ2˜HJš�œ�œ
�œ
˜ Jš
œ,˜,J˜Jš
œ0˜0—J˜J˜šžœ�œ˜Jš
œ/˜/Jš�œ/�œ˜TJš
œD˜DJš�œ1�œ˜VJš
œ*˜*—J˜J˜J˜Jš�œ˜—…—%â;¦