DIRECTORY
EditSpan USING [CompareNodeOrder],
NameSymbolTable USING [MakeName, Name, nullName, RopeFromName],
NodeAddrs USING [GetTextAddr, MapTextAddrs, PutTextAddr, RemTextAddr, TextAddrNotFound],
NodeStyle USING [StyleNameForNode],
Rope USING [Flatten, ROPE, Size],
TEditDocument USING [Selection, SelectionGrain, SelectionId, TEditDocumentData],
TEditInput USING [Cancel, CurrentEvent, MakePointSelection, Repeat, RestoreSelectionA, RestoreSelectionB, SaveSelectionA, SaveSelectionB],
TEditInputOps USING [BackSpace, BackWord, Break, Capitalise, ChangeCaretLooks, ChangeLooks, Copy, CopyLooks, CopyType, Delete, DeleteNextChar, DeleteNextWord, ExpandAbbreviation, GetType, GoToNextChar, GoToNextNode, GoToNextWord, GoToPreviousChar, GoToPreviousNode, GoToPreviousWord, InsertBrackets, InsertChar, InsertLineBreak, InsertRope, InsertTime, Join, MakeControlCharacter, MakeOctalCharacter, Nest, Paste, RegisterAbbrevFailedProc, SaveForPaste, SaveSpanForPaste, SetCommentProp, SetStyleName, SetType, SetTypeName, Transpose, UnMakeControlCharacter, UnMakeOctalCharacter, UnNest],
TEditLocks USING [Lock, Unlock],
TEditMesaOps USING [SetMesaLooksOp],
TEditOps USING [CaretLoc, GetSelContents, RegisterFileNameProc],
TEditSelection USING [Alloc, CaretAfterSelection, CaretBeforeSelection, Deselect, DoFind, FindWhere, Free, fSel, GrowSelection, GrowSelectionToBlanks, GrowSelectionToSomething, LockSel, MakeSelection, pSel, SelectionRoot, SetSelLooks, sSel, UnlockSel],
TextEdit USING [ChangeStyle, ChangeType, FetchLooks, PutProp, Size],
TextLooks USING [allLooks, Looks, LooksToRope, noLooks, RopeToLooks],
TextNode USING [BadArgs, Body, Location, LocOffset, LocRelative, NarrowToTextNode, NodeItself, nullTypeName, Ref, RefTextNode, Root, StepForward, TypeName],
TiogaExtraOps USING [],
TiogaOps USING [FirstChild, GetRope, LastChild, LastWithin, SearchDir, SelectionErrorCode, ViewerDoc, WhichLooks],
TiogaOpsDefs USING [Location, NodeBody, Offset, Ref, SelectionGrain, Viewer, WhichNodes, WhichSelection];

TiogaOpsImpl: CEDAR MONITOR
IMPORTS EditSpan, NodeAddrs, NameSymbolTable, NodeStyle, Rope, TEditInput, TEditInputOps, TEditLocks, TEditMesaOps, TEditOps, TEditSelection, TextEdit, TextLooks, TextNode, TiogaOps
EXPORTS TiogaOpsDefs, TiogaOps, TiogaExtraOps =
BEGIN OPEN TiogaOps, TiogaOpsDefs;

ROPE: TYPE = Rope.ROPE;
Ref: TYPE = REF NodeBody; -- points to a Tioga node
NodeBody: PUBLIC TYPE = TextNode.Body;


CallWithLocks: PUBLIC PROC [proc: PROC [root: Ref], root: Ref _ NIL] = {
lockedSel, lockedDoc: BOOL _ FALSE;
Cleanup: PROC = {
IF lockedSel THEN { UnlockSel; lockedSel _ FALSE };
IF lockedDoc THEN { Unlock[root]; lockedDoc _ FALSE };
};
{ ENABLE UNWIND => Cleanup;
LockSel; lockedSel _ TRUE;
IF root=NIL AND (root _ SelectionRoot[])=NIL THEN {
Cleanup; ERROR NoSelection };
Lock[root]; lockedDoc _ TRUE;
proc[root] };
Cleanup };

NoSelection: PUBLIC ERROR = CODE; -- raised by CallWithLocks when there is no selection

Lock: PUBLIC PROC [root: Ref] = { [] _ TEditLocks.Lock[root, "TiogaOpsClient"] };

Unlock: PUBLIC PROC [root: Ref] = { TEditLocks.Unlock[root] };

GetSelectionId: PROC [which: WhichSelection] RETURNS [TEditDocument.SelectionId] = {
RETURN [SELECT which FROM
primary => primary,
secondary => secondary,
feedback => feedback,
ENDCASE => ERROR ] };

LockSel: PUBLIC PROC [which: WhichSelection _ primary] = {
TEditSelection.LockSel[GetSelectionId[which], "TiogaOpsClient"] };

UnlockSel: PUBLIC PROC [which: WhichSelection _ primary] = {
TEditSelection.UnlockSel[GetSelectionId[which]] };


DocGran: PROC [granularity: SelectionGrain] RETURNS [TEditDocument.SelectionGrain] = {
RETURN [SELECT granularity FROM
point => point, char => char, word => word, node => node, branch => branch,
ENDCASE => ERROR] };

MyGran: PROC [granularity: TEditDocument.SelectionGrain] RETURNS [SelectionGrain] = {
RETURN [SELECT granularity FROM
point => point, char => char, word => word, node => node, branch => branch,
ENDCASE => ERROR] };

DocLoc: PROC [loc: Location] RETURNS [TextNode.Location] = INLINE {
RETURN [[loc.node, loc.where]] };

MyLoc: PROC [loc: TextNode.Location] RETURNS [Location] = INLINE {
RETURN [[loc.node, loc.where]] };

GetSelection: PUBLIC PROC [which: WhichSelection _ primary] RETURNS [
viewer: Viewer,
start, end: Location,
level: SelectionGrain,
caretBefore: BOOL,
pendingDelete: BOOL] = {
sel: TEditDocument.Selection = SELECT which FROM
primary => TEditSelection.pSel,
secondary => TEditSelection.sSel,
feedback => TEditSelection.fSel,
ENDCASE => ERROR;
RETURN [sel.viewer, MyLoc[sel.start.pos], MyLoc[sel.end.pos], MyGran[sel.granularity],
sel.insertion=before, sel.pendingDelete] };

SelectionRoot: PUBLIC PROC [which: WhichSelection _ primary] RETURNS [root: Ref] = {
RETURN [TextNode.NarrowToTextNode[
TEditSelection.SelectionRoot[
SELECT which FROM
primary => TEditSelection.pSel,
secondary => TEditSelection.sSel,
feedback => TEditSelection.fSel,
ENDCASE => ERROR]]] };

SelectionError: PUBLIC ERROR [ec: SelectionErrorCode] = CODE;

CheckSelection: PROC [sel: TEditDocument.Selection] = {
root, first, last: TextNode.Ref;
t1, t2: TextNode.RefTextNode;
tdd: TEditDocument.TEditDocumentData;
IF sel.viewer=NIL OR sel.viewer.destroyed OR (tdd _ NARROW[sel.viewer.data])=NIL OR (root _ tdd.text)=NIL
THEN ERROR SelectionError[IllegalViewer];
IF (first _ sel.start.pos.node)=NIL OR (last _ sel.end.pos.node)=NIL
THEN ERROR SelectionError[IllegalNode];
IF TextNode.Root[first] # root THEN ERROR SelectionError[WrongDoc];
IF first # last THEN -- make sure nodes in same tree and right order
IF EditSpan.CompareNodeOrder[first,last] # before
THEN ERROR SelectionError[WrongOrder];
IF sel.start.pos.where # TextNode.NodeItself THEN -- make sure start index is ok
IF (t1 _ TextNode.NarrowToTextNode[first])=NIL OR
sel.start.pos.where NOT IN [0..TextEdit.Size[t1]]
THEN ERROR SelectionError[BadStartOffset];
IF sel.end.pos.where # TextNode.NodeItself THEN -- make sure end index is ok
IF (t2 _ TextNode.NarrowToTextNode[last])=NIL OR
sel.end.pos.where NOT IN [0..TextEdit.Size[t2]]
THEN ERROR SelectionError[BadEndOffset];
IF t1 # NIL AND t1 = t2 THEN -- make sure start is not after end
IF sel.start.pos.where > sel.end.pos.where
THEN ERROR SelectionError[BadEndOffset];
};

SetSelection: PUBLIC PROC [
viewer: Viewer,
start, end: Location,
level: SelectionGrain _ char,
caretBefore: BOOL _ TRUE,
pendingDelete: BOOL _ FALSE,
which: WhichSelection _ primary] = {
ENABLE UNWIND => NULL;
tempSel: TEditDocument.Selection _ TEditSelection.Alloc[];
tempSel^ _ SELECT which FROM
primary => TEditSelection.pSel^,
secondary => TEditSelection.sSel^,
feedback => TEditSelection.fSel^,
ENDCASE => ERROR;
tempSel.viewer _ viewer;
tempSel.data _ NARROW[viewer.data];
tempSel.start.pos _ DocLoc[start];
tempSel.end.pos _ DocLoc[end];
tempSel.granularity _ DocGran[level];
tempSel.insertion _ IF caretBefore OR tempSel.granularity=point THEN before ELSE after;
tempSel.pendingDelete _ pendingDelete;
CheckSelection[tempSel];
TEditSelection.MakeSelection[tempSel, SELECT which FROM
primary => primary,
secondary => secondary,
feedback => feedback,
ENDCASE => ERROR];
TEditSelection.Free[tempSel] };

SelectNodes: PUBLIC PROC [
viewer: Viewer,
start, end: Ref,
level: SelectionGrain _ node,
caretBefore: BOOL _ TRUE,
pendingDelete: BOOL _ FALSE,
which: WhichSelection _ primary] = {
SetSelection[viewer, [start,0], [end, MAX[Rope.Size[GetRope[end]],1]-1],
level, caretBefore, pendingDelete, which] };

SelectBranches: PUBLIC PROC [
viewer: Viewer,
start, end: Ref,
level: SelectionGrain _ node,
caretBefore: BOOL _ TRUE,
pendingDelete: BOOL _ FALSE,
which: WhichSelection _ primary] = {
SelectNodes[viewer, start, LastWithin[end],
level, caretBefore, pendingDelete, which] };

SelectDocument: PUBLIC PROC [
viewer: Viewer,
level: SelectionGrain _ node,
caretBefore: BOOL _ TRUE,
pendingDelete: BOOL _ FALSE,
which: WhichSelection _ primary] = {
tdd: TEditDocument.TEditDocumentData _ NARROW[viewer.data];
root: Ref _ ViewerDoc[viewer];
SelectBranches[viewer, FirstChild[root], LastChild[root],
level, caretBefore, pendingDelete, which] };

CancelSelection: PUBLIC PROC [which: WhichSelection _ primary] = {
TEditSelection.Deselect[GetSelectionId[which]] };

SaveSelA: PUBLIC PROC = { [] _ TEditInput.SaveSelectionA[] };

RestoreSelA: PUBLIC PROC = { [] _ TEditInput.RestoreSelectionA[] };

SaveSelB: PUBLIC PROC = { [] _ TEditInput.SaveSelectionB[] };

RestoreSelB: PUBLIC PROC = { [] _ TEditInput.RestoreSelectionB[] };

GrowSelection: PUBLIC PROC = { TEditSelection.GrowSelection[] };

GrowSelectionToBlanks: PUBLIC PROC = { TEditSelection.GrowSelectionToBlanks[] };

GrowSelectionToSomething: PUBLIC PROC [left, right: PROC [CHAR]
RETURNS [BOOLEAN]] = { TEditSelection.GrowSelectionToSomething[left, right] };


SearchWhere: PROC [whichDir: SearchDir] RETURNS [TEditSelection.FindWhere] = INLINE {
RETURN [SELECT whichDir FROM
forwards => forwards,
backwards => backwards,
anywhere => anywhere,
ENDCASE => ERROR] };

FindText: PUBLIC PROC [viewer: Viewer, rope: ROPE _ NIL, whichDir: SearchDir _ forwards,
which: WhichSelection _ primary,
case: BOOL _ TRUE -- case => case of characters is significant -- ]
RETURNS [found: BOOL] = {
IF rope=NIL THEN rope _ TEditOps.GetSelContents[];
RETURN [TEditSelection.DoFind[
viewer: viewer, rope: rope, id: GetSelectionId[which],
case: case, findWhere: SearchWhere[whichDir]]] }; 

FindWord: PUBLIC PROC [viewer: Viewer, rope: ROPE _ NIL, whichDir: SearchDir _ forwards,
which: WhichSelection _ primary,
case: BOOL _ TRUE -- case => case of characters is significant -- ]
RETURNS [found: BOOL] = {
IF rope=NIL THEN rope _ TEditOps.GetSelContents[];
RETURN [TEditSelection.DoFind[viewer: viewer,
rope: rope, case: case, id: GetSelectionId[which],
findWhere: SearchWhere[whichDir], word: TRUE]] };

FindDef: PUBLIC PROC [viewer: Viewer, rope: ROPE _ NIL, whichDir: SearchDir _ forwards,
which: WhichSelection _ primary,
case: BOOL _ TRUE -- case => case of characters is significant -- ]
RETURNS [found: BOOL] = {
IF rope=NIL THEN rope _ TEditOps.GetSelContents[];
RETURN [TEditSelection.DoFind[viewer: viewer,
rope: rope, case: case, id: GetSelectionId[which],
findWhere: SearchWhere[whichDir], word: TRUE, def: TRUE]] };


LocRelative: PUBLIC PROC [
location: Location, count: Offset, break: NAT _ 1, skipCommentNodes: BOOL _ FALSE]
RETURNS [Location] = { RETURN [
MyLoc[TextNode.LocRelative[DocLoc[location], count, break, skipCommentNodes]]] };

LocOffset: PUBLIC PROC [loc1, loc2: Location,
break: NAT _ 1, skipCommentNodes: BOOL _ FALSE] RETURNS [count: Offset] = {
count _ TextNode.LocOffset[DocLoc[loc1], DocLoc[loc2], break, skipCommentNodes !
TextNode.BadArgs => ERROR BadArgs] };

BadArgs: PUBLIC ERROR=CODE;


GetCaret: PUBLIC PROC RETURNS [loc: Location] = { RETURN [MyLoc[TEditOps.CaretLoc[]]] };

CaretBefore: PUBLIC PROC = { TEditSelection.CaretBeforeSelection[] };

CaretAfter: PUBLIC PROC = { TEditSelection.CaretAfterSelection[] };

CaretOnly: PUBLIC PROC = { [] _ TEditInput.MakePointSelection[] };

GoToNextCharacter: PUBLIC PROC [n: INT _ 1] = { TEditInputOps.GoToNextChar[n] };

GoToNextWord: PUBLIC PROC [n: INT _ 1] = { TEditInputOps.GoToNextWord[n] };

GoToNextNode: PUBLIC PROC [n: INT _ 1] = { TEditInputOps.GoToNextNode[n] };

GoToPreviousCharacter: PUBLIC PROC [n: INT _ 1] = { TEditInputOps.GoToPreviousChar[n] };

GoToPreviousWord: PUBLIC PROC [n: INT _ 1] = { TEditInputOps.GoToPreviousWord[n] };

GoToPreviousNode: PUBLIC PROC [n: INT _ 1] = { TEditInputOps.GoToPreviousNode[n] };


ToPrimary: PUBLIC PROC = { TEditInputOps.Copy[primary] };

ToSecondary: PUBLIC PROC = { TEditInputOps.Copy[secondary] };

Transpose: PUBLIC PROC = { TEditInputOps.Transpose[] };


InsertRope: PUBLIC PROC [rope: ROPE] = { TEditInputOps.InsertRope[rope] };

InsertChar: PUBLIC PROC [char: CHAR] = { TEditInputOps.InsertChar[char] };

InsertLineBreak: PUBLIC PROC = { TEditInputOps.InsertLineBreak[] };

BackSpace: PUBLIC PROC [n: INT _ 1] = { TEditInputOps.BackSpace[n] };

BackWord: PUBLIC PROC [n: INT _ 1] = { TEditInputOps.BackWord[n] };

DeleteNextCharacter: PUBLIC PROC [n: INT _ 1] = { TEditInputOps.DeleteNextChar[n] };

DeleteNextWord: PUBLIC PROC [n: INT _ 1] = { TEditInputOps.DeleteNextWord[n] };

InsertTime: PUBLIC PROC = { TEditInputOps.InsertTime[] };

InsertBrackets: PUBLIC PROC [left, right: CHAR] = {
TEditInputOps.InsertBrackets[left, right] };

MakeControlCharacter: PUBLIC PROC = { TEditInputOps.MakeControlCharacter[] };

UnMakeControlCharacter: PUBLIC PROC = { TEditInputOps.UnMakeControlCharacter[] };

MakeOctalCharacter: PUBLIC PROC = { TEditInputOps.MakeOctalCharacter[] };

UnMakeOctalCharacter: PUBLIC PROC = { TEditInputOps.UnMakeOctalCharacter[] };

ExpandAbbreviation: PUBLIC PROC = { TEditInputOps.ExpandAbbreviation[] };

Delete: PUBLIC PROC = { TEditInputOps.Delete[] };

Paste: PUBLIC PROC = { TEditInputOps.Paste[] };

SaveForPaste: PUBLIC PROC = { TEditInputOps.SaveForPaste[] };

SaveSpanForPaste: PUBLIC PROC [startLoc, endLoc: Location, grain: SelectionGrain _ char] = {
TEditInputOps.SaveSpanForPaste[DocLoc[startLoc], DocLoc[endLoc], DocGran[grain]] };
AllLower: PUBLIC PROC = { TEditInputOps.Capitalise[allLower] };

AllCaps: PUBLIC PROC = { TEditInputOps.Capitalise[allCaps] };

InitialCaps: PUBLIC PROC = { TEditInputOps.Capitalise[initCaps] };

FirstCap: PUBLIC PROC = { TEditInputOps.Capitalise[firstCap] };

MesaFormatting: PUBLIC PROC = { [] _ TEditMesaOps.SetMesaLooksOp[] };

Repeat: PUBLIC PROC = { [] _ TEditInput.Repeat[] };

Undo: PUBLIC PROC = { [] _ TEditInput.Cancel[] };


Break: PUBLIC PROC = { TEditInputOps.Break[] };

Join: PUBLIC PROC = { TEditInputOps.Join[] };

Nest: PUBLIC PROC = { TEditInputOps.Nest[] };

UnNest: PUBLIC PROC = { TEditInputOps.UnNest[] };


SetSelectionLooks: PUBLIC PROC [which: WhichSelection _ primary] = {
TEditSelection.SetSelLooks[SELECT which FROM
primary => TEditSelection.pSel,
secondary => TEditSelection.sSel,
feedback => TEditSelection.fSel,
ENDCASE => ERROR] };
FetchLooks: PUBLIC PROC [node: Ref, index: Offset] RETURNS [ROPE] = {
RETURN [TextLooks.LooksToRope[TextEdit.FetchLooks[TextNode.NarrowToTextNode[node],index]]] };

SetLooks: PUBLIC PROC [looks: ROPE, which: WhichLooks _ selection] = {
lks: TextLooks.Looks = TextLooks.RopeToLooks[looks];
IF which=selection THEN
TEditInputOps.ChangeLooks[add: lks, remove: TextLooks.allLooks]
ELSE TEditInputOps.ChangeCaretLooks[add: lks, remove: TextLooks.allLooks] };

AddLooks: PUBLIC PROC [looks: ROPE, which: WhichLooks _ selection] = {
lks: TextLooks.Looks = TextLooks.RopeToLooks[looks];
IF which=selection THEN
TEditInputOps.ChangeLooks[add: lks, remove: TextLooks.noLooks]
ELSE TEditInputOps.ChangeCaretLooks[add: lks, remove: TextLooks.noLooks] };

SubtractLooks: PUBLIC PROC [looks: ROPE, which: WhichLooks _ selection] = {
lks: TextLooks.Looks = TextLooks.RopeToLooks[looks];
IF which=selection THEN
TEditInputOps.ChangeLooks[add: TextLooks.noLooks, remove: lks]
ELSE TEditInputOps.ChangeCaretLooks[add: TextLooks.noLooks, remove: lks] };

ClearLooks: PUBLIC PROC [which: WhichLooks _ selection] = {
IF which=selection THEN
TEditInputOps.ChangeLooks[add: TextLooks.noLooks, remove: TextLooks.allLooks]
ELSE
TEditInputOps.ChangeCaretLooks[add: TextLooks.noLooks, remove: TextLooks.allLooks] };

CopyLooks: PUBLIC PROC = { TEditInputOps.CopyLooks[] };


GetFormat: PUBLIC PROC [node: Ref] RETURNS [ROPE] = {
name: NameSymbolTable.Name = node.typename;
RETURN [IF name=NameSymbolTable.nullName THEN "default" ELSE
NameSymbolTable.RopeFromName[name]] };

ForEachNode: PROC [which: WhichNodes, proc: PROC [TextNode.Ref]] = {
pSel: TEditDocument.Selection = TEditSelection.pSel;
SELECT which FROM
root => proc[TextNode.Root[pSel.start.pos.node]];
selection =>
FOR node: TextNode.Ref _ pSel.start.pos.node, TextNode.StepForward[node] DO
proc[node];
IF node = pSel.end.pos.node THEN EXIT;
ENDLOOP;
ENDCASE => ERROR };

SetFormat: PUBLIC PROC [format: ROPE, which: WhichNodes _ selection] = {
Set: PROC [ref: TextNode.Ref] = { TEditInputOps.SetTypeName[format, ref] };
ForEachNode[which, Set] };

SetNodeFormat: PUBLIC PROC [format: ROPE, node: Ref] = TRUSTED {
root: TextNode.Ref;
type: TextNode.TypeName _ IF format=NIL THEN TextNode.nullTypeName
ELSE NameSymbolTable.MakeName[LOOPHOLE[Rope.Flatten[format]]];
root _ TextNode.Root[node];
[] _ TEditLocks.Lock[root, "TiogaOpsSetNodeFormat"];
TextEdit.ChangeType[node, type, NIL, root];
TEditLocks.Unlock[root] };

SetNodeStyle: PUBLIC PROC [style: ROPE, node: Ref] = {
root: TextNode.Ref _ TextNode.Root[node];
[] _ TEditLocks.Lock[root, "TiogaOpsSetNodeStyle"];
TextEdit.ChangeStyle[node, style, NIL, root];
TEditLocks.Unlock[root] };

CaretNodeFormat: PUBLIC PROC = { TEditInputOps.SetType[] };

InsertFormat: PUBLIC PROC = { TEditInputOps.GetType[] };

CopyFormat: PUBLIC PROC = { TEditInputOps.CopyType[] };


GetStyle: PUBLIC PROC [node: Ref] RETURNS [ROPE] = {
name: NameSymbolTable.Name = NodeStyle.StyleNameForNode[node];
RETURN [IF name=NameSymbolTable.nullName THEN "default" ELSE
NameSymbolTable.RopeFromName[name]] };

SetStyle: PUBLIC PROC [style: ROPE, which: WhichNodes _ selection] = {
Set: PROC [ref: TextNode.Ref] = { TEditInputOps.SetStyleName[style, ref] };
ForEachNode[which, Set] };


IsComment: PUBLIC PROC [node: Ref] RETURNS [BOOL] = {
txt: TextNode.RefTextNode = TextNode.NarrowToTextNode[node];
RETURN [txt # NIL AND txt.comment] };

SetComment: PUBLIC PROC = { TEditInputOps.SetCommentProp[TRUE] };

SetNotComment: PUBLIC PROC = { TEditInputOps.SetCommentProp[FALSE] }; 


SetProp: PUBLIC PROC [name: ROPE, value: REF, which: WhichNodes _ selection] = {
Put: PROC [node: TextNode.Ref] = {
TextEdit.PutProp[node, name, value, TEditInput.CurrentEvent[]] };
ForEachNode[which, Put] };


RegisterAbbrevFailedProc: PUBLIC PROC [proc: PROC RETURNS [BOOL]] = {
TEditInputOps.RegisterAbbrevFailedProc[proc] };
RegisterFileNameProc: PUBLIC PROC [
proc: PROC [ROPE, Viewer] RETURNS [fileName: ROPE, search: ROPE]] = {
TEditOps.RegisterFileNameProc[proc] };

PutTextKey: PUBLIC PROC [node: Ref, where: Offset, key: REF] = {
NodeAddrs.PutTextAddr[TextNode.NarrowToTextNode[node], key, where] };

GetTextKey: PUBLIC PROC [node: Ref, key: REF] RETURNS [loc: Location] = {
where: Offset;
n: TextNode.RefTextNode;
[n, where] _ NodeAddrs.GetTextAddr[TextNode.NarrowToTextNode[node], key !
NodeAddrs.TextAddrNotFound => GOTO Error];
RETURN [[n, where]];
EXITS Error => ERROR TextKeyNotFound };

TextKeyNotFound: PUBLIC ERROR = CODE;

RemoveTextKey: PUBLIC PROC [node: Ref, key: REF] = {
NodeAddrs.RemTextAddr[TextNode.NarrowToTextNode[node], key] };

MapTextKeys: PUBLIC PROC [
node: Ref,
proc: PROC [key: REF, where: Offset] RETURNS [BOOLEAN]]
RETURNS [BOOLEAN] = {
Do: PROC [addr: REF, location: Offset] RETURNS [BOOLEAN] = {
RETURN [proc[addr, location]] };
RETURN [NodeAddrs.MapTextAddrs[TextNode.NarrowToTextNode[node], Do]] };


END.


 
ÒTiogaOpsImpl.Mesa
written by Bill Paxton. June 1982
last written by Paxton. December 28, 1982 12:38 pm
Last Edited by: Paxton, January 10, 1983 4:14 pm
Last Edited by: Maxwell, January 19, 1983 12:31 pm
Last Edited by: Plass, April 15, 1983 4:01 pm
Doug Wyatt, February 3, 1984 10:35:33 am PST

Document Locks
Selections
Find
Location procedures
Caret (for primary selection)
Edits requiring secondary selections
Editing applying to primary selection

Node Editing
Looks
sets the selection looks from the looks of the character next to the caret

Formats
Styles
Comment Property
Node Property Lists
Miscellaneous call-back procedures 



Text keys: persistent "addresses" for characters in text nodes

Associates the key with the given offset in the text node.  Key moves with the text as edits take place in the node.  Key doesn't move to new node.  May use same key with different nodes without interference.
Tells you where the key is in the node at the current time.
�Ê4˜š
Ïc™Jš
�!™!Jš
�2™2Jšœ�œ™0J™2J™-J™,—J™š
Ïk	˜	Jšœ	žœ˜"Jšœžœ*˜?Jšœ
žœI˜XJšœ
žœ˜#Jšœžœžœ˜!Jšœžœ=˜PJšœžœz˜Š
Jšœžœº˜ÍJšœžœ˜ Jšœ
žœ˜$Jšœ	žœ2˜@Jšœžœè
˜ü
Jšœ	žœ6˜DJšœ
žœ6˜EJšœ	žœŽ
˜œ
Jšœžœ˜Jšœ	žœd˜rJšœ
žœW˜iJ˜—Jšœž
˜Jšžœ®
˜µ
Jšžœ(˜/Jšžœ
žœ˜"J˜Jšžœžœžœ
˜Jšœžœžœ�˜3Jšœ
žœ
žœ˜&J˜Jš
�™˜š
Ïn
œžœ
žœžœžœ˜HJšœžœžœ
˜#šŸœžœ˜Jšžœžœžœ˜3Jšžœžœžœ˜6Jš
œ˜—šœžœ
žœ˜Jšœžœ
˜š
žœžœ
žœžœ
žœ˜3Jšœ	žœ˜—Jšœžœ
˜J˜
—J˜
—J˜Jšœ
žœ
žœžœ�5˜WJ˜JšŸœžœ
žœ@˜QJ˜JšŸœžœ
žœ+˜>J˜šŸœžœžœ ˜Tšžœžœž˜Jš
œ˜Jš
œ˜Jš
œ˜Jšžœžœ˜——J˜šŸœžœ
žœ&˜:Jš
œB˜B—J˜šŸ	œžœ
žœ&˜<Jš
œ2˜2—J˜—Jš
�
™
˜
procšŸœžœžœ#˜Všžœžœ
ž˜š
œK˜KKšžœžœ˜——K˜—šŸœžœ-žœ˜Ušžœžœ
ž˜š
œK˜KKšžœžœ˜——K˜—šŸœžœžœžœ˜CKšžœ˜!K˜—šŸœžœžœžœ˜BKšžœ˜!K˜—šŸœžœ
žœ#žœ˜EJ˜J˜J˜Jšœ
žœ
˜Jšœžœ˜šœžœž˜0Kš
œ˜Kš
œ!˜!Kš
œ ˜ Kšžœžœ
˜—šžœP˜VJš
œ+˜+—J˜—šŸ
œžœ
žœ#žœ˜Tšžœ˜"š
œ˜šžœž˜Kš
œ˜Kš
œ!˜!Kš
œ ˜ Kšžœžœ˜————K˜Jšœžœ
žœžœ
˜=J˜šŸœžœ#˜7J˜ J˜Jš
œ%˜%šžœžœ
žœžœžœžœ
žœž˜iJšžœ
žœ˜)—šžœžœ
žœž˜DJšžœ
žœ˜'—Jšžœžœ
žœ˜Cšžœžœ
�/˜Dšžœ/˜1Jšžœ
žœ˜&——šžœ+žœ
�˜Pšžœ)žœ
ž˜1šœžœ
žœ˜1Jšžœ
žœ ˜*———šžœ)žœ
�˜Lšžœ(žœ
ž˜0šœžœ
žœ˜/Jšžœ
žœ˜(———š	žœžœ
žœ	žœ
�#˜@šžœ(˜*Jšžœ
žœ˜(——J˜J˜—šŸœžœ
žœ˜J˜J˜J˜Jšœ
žœžœ
˜Jšœžœžœ
˜J˜$Jšžœ
žœžœ
˜Jš
œ:˜:šœžœž˜Kš
œ ˜ Kš
œ"˜"Kš
œ!˜!Kšžœžœ
˜—J˜Jšœžœ˜#J˜"J˜J˜%Jš	œžœ
žœžœžœ˜WJ˜&J˜šœ&žœž˜7Kš
œ˜Kš
œ˜Kš
œ˜Kšžœžœ˜—Jš
œ˜J˜—šŸœžœ
žœ˜J˜J˜J˜Jšœ
žœžœ
˜Jšœžœžœ
˜J˜$šœ&žœ˜HJ˜,J˜——šŸœžœ
žœ˜J˜J˜J˜Jšœ
žœžœ
˜Jšœžœžœ
˜J˜$˜+J˜,J˜——šŸœžœ
žœ˜J˜J˜Jšœ
žœžœ
˜Jšœžœžœ
˜J˜$Jšœ'žœ˜;J˜˜9J˜,——K˜šŸœžœ
žœ&˜BJš
œ1˜1J˜—KšŸœžœ
žœ(˜=J˜KšŸœžœ
žœ+˜CJ˜KšŸœžœ
žœ(˜=J˜KšŸœžœ
žœ+˜CK˜KšŸ
œžœ
žœ&˜@K˜KšŸœžœ
žœ.˜PJ˜š
Ÿœžœ
žœžœžœ
˜?Kšžœžœ>˜N—J˜—š
�™K˜šŸœžœžœžœ˜Ušžœžœ
ž˜Kš
œ˜Kš
œ˜Kš
œ˜Kšžœžœ˜K˜——šŸœžœ
žœžœžœ ž
˜XJš
œ ˜ Jšœžœžœ
�,œ˜CJšžœ	žœ˜Jšžœžœ
žœ"˜2šžœ˜Jš
œ6˜6Jš
œ2˜2—J˜—šŸœžœ
žœžœžœ ž
˜XJš
œ ˜ Jšœžœžœ
�,œ˜CJšžœ	žœ˜Jšžœžœ
žœ"˜2šžœ'˜-Jš
œ2˜2Jšœ(žœ˜1J˜——šŸœžœ
žœžœžœ ž
˜WJš
œ ˜ Jšœžœžœ
�,œ˜CJšžœ	žœ˜Jšžœžœ
žœ"˜2šžœ'˜-Jš
œ2˜2Jšœ(žœžœ˜<J˜———Jš
œ™˜šŸœžœ˜Jšœ*žœžœžœ
˜Ršžœžœ˜Jš
œQ˜Q—J˜—šŸ	œžœ˜-š	œžœžœžœžœ˜Kš
œP˜PJšœžœ˜%——J˜—Jšœ	žœ
žœ
žœ
˜J˜—Jš
�™˜Kš
Ÿœžœ
žœ
žœžœ ˜XJ˜KšŸœžœ
žœ-˜EJ˜KšŸ
œžœ
žœ,˜CJ˜KšŸ	œžœ
žœ,˜BJ˜KšŸœžœ
žœžœ*˜PJ˜KšŸœžœ
žœžœ*˜KJ˜KšŸœžœ
žœžœ*˜KJ˜KšŸœžœ
žœžœ.˜XJ˜KšŸœžœ
žœžœ.˜SJ˜KšŸœžœ
žœžœ.˜SJ˜—Jš
�$™$˜KšŸ	œžœ
žœ#˜9J˜KšŸœžœ
žœ%˜=J˜KšŸ	œžœ
žœ!˜7J˜—Jš
�%™%˜KšŸ
œžœ
žœžœ'˜JJ˜KšŸ
œžœ
žœžœ'˜JJ˜KšŸœžœ
žœ'˜CJ˜KšŸ	œžœ
žœžœ'˜EJ˜KšŸœžœ
žœžœ&˜CJ˜KšŸœžœ
žœžœ,˜TJ˜KšŸœžœ
žœžœ,˜OJ˜KšŸ
œžœ
žœ"˜9J˜šŸœžœ
žœžœ˜3J˜,J˜—KšŸœžœ
žœ,˜MJ˜KšŸœžœ
žœ.˜QJ˜KšŸœžœ
žœ*˜IJ˜KšŸœžœ
žœ,˜MJ˜KšŸœžœ
žœ*˜IJ˜KšŸœžœ
žœ˜1J˜KšŸœžœ
žœ˜/J˜KšŸœžœ
žœ$˜=J˜šŸœžœ
žœ?˜\J˜SJ™—KšŸœžœ
žœ*˜?J˜KšŸœžœ
žœ)˜=J˜KšŸœžœ
žœ*˜BJ˜KšŸœžœ
žœ*˜?J˜KšŸœžœ
žœ*˜EJ˜KšŸœžœ
žœ ˜3J˜KšŸœžœ
žœ ˜1J˜—Jš
œ™˜KšŸœžœ
žœ˜/J˜KšŸœžœ
žœ˜-J˜KšŸœžœ
žœ˜-J˜KšŸœžœ
žœ˜1J˜—Jš
�™˜šŸœžœ
žœ&˜DJš
œJ™Jšœžœž˜,Jš
œ˜Kš
œ!˜!Kš
œ ˜ Kšžœžœ˜—J™—š
Ÿ
œžœ
žœžœžœ˜EJšžœW˜]J˜—šŸœžœ
žœ	žœ$˜FJš
œ4˜4šžœž˜J˜?—JšžœH˜LJ˜—šŸœžœ
žœ	žœ$˜FJš
œ4˜4šžœž˜J˜>—JšžœG˜KJ˜—šŸ
œžœ
žœ	žœ$˜KJš
œ4˜4šžœž˜J˜>—JšžœG˜KJ˜—šŸ
œžœ
žœ$˜;šžœž˜J˜M—š
ž˜J˜UJ˜——KšŸ	œžœ
žœ!˜7J˜—Jš
�™˜š
Ÿ	œžœ
žœ
žœžœ˜5J˜+šžœžœžœž˜<J˜&J˜——šŸœžœžœ˜DJ˜4šžœž˜J˜1˜šžœFž˜KJ˜Jšžœžœ
žœ
˜&Jšžœ
˜——Jšžœžœ˜J˜——šŸ	œžœ
žœ
žœ$˜HKšŸœžœB˜KJ˜J˜—š
Ÿ
œžœ
žœ
žœžœ˜@J˜šœžœžœ
žœ˜BJšžœžœ˜>—J˜K˜4Jšœ žœ˜+Jš
œ˜—K˜šŸœžœ
žœ	žœ˜6J˜)K˜3Jšœ"žœ˜-Jš
œ˜—K˜KšŸœžœ
žœ˜;J˜KšŸœžœ
žœ˜8J˜KšŸ
œžœ
žœ ˜7J˜—Jš
�™˜š
Ÿœžœ
žœ
žœžœ˜4J˜>šžœžœžœž˜<J˜&J˜——šŸœžœ
žœ	žœ$˜FKšŸœžœB˜KJ˜J˜——Jš
�™˜š
Ÿ	œžœ
žœ
žœžœ˜5J˜<Jšžœžœ
žœ˜%J˜—KšŸ
œžœ
žœ"žœ˜AJ˜KšŸ
œžœ
žœ"žœ˜FJ˜—Jš
�™˜š
Ÿœžœ
žœžœ	žœ$˜PšŸœžœ˜"J˜A—J˜J˜J˜——š
�#™#J™š
Ÿœžœžœ
žœžœ˜EJš
œ/˜/—J™šŸœžœ˜#šœžœžœ	žœžœ
žœ˜EJš
œ&˜&—J™——J˜š
�>™>J™šŸ
œžœ!žœ˜@Jš
œÐ
™Ð
Jš
œE˜E—J˜šŸ
œžœžœžœ˜IJ™;J˜J˜˜IJšœžœ˜*—Jšžœ˜Jšžœ
žœ˜'—J˜Jšœžœ
žœžœ
˜%J˜šŸ
œžœžœ˜4Jš
œ>˜>—J˜šŸœžœ˜Jš
œ
˜
Jš	œžœžœžœžœ˜7Jšžœžœ˜š	œžœžœžœžœ˜<Jšžœ˜ —JšžœA˜G—J˜—J˜Jšžœ
˜J˜J˜J˜
—…—Iža¤