DIRECTORY
InputFocus USING [SetInputFocus],
MessageWindow USING [Append, Blink],
TEditDisplay USING [EstablishLine],
TEditDocument USING [maxClip, Selection, SpinAndLock, TEditDocumentData, Unlock],
TEditImpl USING [ReloadTipTable, ReloadReadonlyTipTable, ReloadTypeScriptTipTable],
TEditInput,
TEditInputOps, -- USING Lots
TEditProfile USING [ReadProfile],
TEditSelection USING [CancelPrimary, CancelSecondary, CaretAfterSelection, CaretBeforeSelection, GrowSelection, GrowSelectionToBlanks, LockSel, MakePointSelection, MakePrimary, MakeSecondary, pSel, PendingDeleteSelection, NotPendingDeleteSelection, SelectEverything, UnlockSel],
TEditTouchup USING [LockAfterRefresh, UnlockAfterRefresh],
TextNode USING [ForwardClipped, Location, Level, Parent, Ref, Root],
TreeCheck USING [Verify],
UserProfile USING [CallWhenProfileChanges, ProfileChangedProc],
ViewerClasses USING [Viewer, ViewerRec],
ViewerForkers USING [ForkPaint],
WindowManager USING [UnWaitCursor, WaitCursor];

TEditInput2Impl: CEDAR PROGRAM
IMPORTS InputFocus, TEditImpl, TEditDisplay, MessageWindow, TEditDocument, TEditInput, TEditInputOps, TEditProfile, TEditSelection, TEditTouchup, TextNode, TreeCheck, UserProfile, ViewerForkers, WindowManager
EXPORTS TEditInput = BEGIN OPEN TEditInput, TEditSelection;

Break: CommandProc = { TEditInputOps.Break[] };

Join: CommandProc = { TEditInputOps.Join[] };

Nest: CommandProc = { TEditInputOps.Nest[] };

Paste: CommandProc = { TEditInputOps.Paste[] };

SaveForPaste: CommandProc = { TEditInputOps.SaveForPaste[] };

SetFormat: CommandProc = { TEditInputOps.SetFormat[] };

GetFormat: CommandProc = { TEditInputOps.GetFormat[] };

UnNest: CommandProc = { TEditInputOps.UnNest[] };

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

AllLower: CommandProc = { TEditInputOps.Capitalise[allLower] };

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

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

ForkPaint: PROC [viewer: ViewerClasses.Viewer] = TRUSTED {
ViewerForkers.ForkPaint[viewer: viewer, hint: client, tryShortCuts: TRUE];
};

AllLevels: PUBLIC CommandProc = {
WITH viewer.data SELECT FROM
tdd: TEditDocument.TEditDocumentData => {
IF tdd.clipLevel # TEditDocument.maxClip THEN {
[] _ TEditDocument.SpinAndLock[tdd, "AllLevels", TRUE];
tdd.clipLevel _ TEditDocument.maxClip;
ForkPaint[viewer];
TEditDocument.Unlock[tdd];
};
};
ENDCASE;
RETURN [FALSE];
};

FirstLevelOnly: PUBLIC CommandProc = {
WITH viewer.data SELECT FROM
tdd: TEditDocument.TEditDocumentData => {
IF tdd.clipLevel # 1 THEN {
[] _ TEditDocument.SpinAndLock[tdd, "FirstLevelOnly", TRUE];
tdd.clipLevel _ 1;
CheckFirstLevel[tdd];
ForkPaint[viewer];
TEditDocument.Unlock[tdd];
};
};
ENDCASE;
RETURN [FALSE];
};

CheckFirstLevel: PROC [tdd: TEditDocument.TEditDocumentData] = {
node: TextNode.Ref;
delta: INTEGER;
pos: TextNode.Location;
[] _ TEditDocument.SpinAndLock[tdd, "CheckFirstLevel", TRUE]; -- ok to interrupt repaint
pos _ tdd.lineTable.lines[0].pos; -- the start of the first line
delta _ TextNode.Level[pos.node]-tdd.clipLevel; -- how much too deep it is, if any
IF delta > 0 THEN {
FOR i:INTEGER IN [0..delta) DO -- only do this if pos is too deep
pos _ [TextNode.Parent[pos.node],0];
ENDLOOP;
IF (node _ TextNode.ForwardClipped[pos.node,].nx) # NIL THEN pos _ [node,0];
TEditDisplay.EstablishLine[tdd, pos] };
TEditDocument.Unlock[tdd];
};

MaxLevelShown: PUBLIC PROC [tdd: TEditDocument.TEditDocumentData] RETURNS [level: INTEGER] = {
node, n: TextNode.Ref;
max: INTEGER _ 0;
IF tdd = NIL THEN RETURN [0];
FOR l: INTEGER IN [0..tdd.lineTable.lastLine] DO
IF (n _ tdd.lineTable.lines[l].pos.node) # node THEN {
node _ n;
max _ MAX[TextNode.Level[node],max] };
ENDLOOP;
level _ max;
};

MoreLevels: PUBLIC CommandProc = {
WITH viewer.data SELECT FROM
tdd: TEditDocument.TEditDocumentData => {
IF tdd.clipLevel < TEditDocument.maxClip THEN {
ENABLE UNWIND => TEditTouchup.UnlockAfterRefresh[tdd];
[] _ TEditDocument.SpinAndLock[tdd, "MoreLevels", TRUE];
tdd.clipLevel _ MaxLevelShown[tdd]+1;
ForkPaint[viewer];
TEditDocument.Unlock[tdd];
};
};
ENDCASE;
};

FewerLevels: PUBLIC CommandProc = {
WITH viewer.data SELECT FROM
tdd: TEditDocument.TEditDocumentData =>
IF tdd.clipLevel # 1 THEN {
IF TEditTouchup.LockAfterRefresh[tdd, "FewerLevels"] THEN {
ENABLE UNWIND => TEditTouchup.UnlockAfterRefresh[tdd];
level: INTEGER _ tdd.clipLevel;
IF level = TEditDocument.maxClip THEN level _ MaxLevelShown[tdd];
IF level # 1 THEN {
tdd.clipLevel _ level-1;
CheckFirstLevel[tdd];
ForkPaint[viewer];
};
TEditTouchup.UnlockAfterRefresh[tdd];
};
};
ENDCASE;
RETURN [FALSE];
};

CaretAfter: CommandProc = { CaretAfterSelection[] };

CaretBefore: CommandProc = { CaretBeforeSelection[] };

Everything: CommandProc = { SelectEverything[] };

GrowSel: CommandProc = { GrowSelection[] };

GrowSelToBlanks: CommandProc = { GrowSelectionToBlanks[] };

InsertLineBreak: CommandProc = { TEditInputOps.InsertLineBreak[] };

MakeNotPendingDelete: CommandProc = { NotPendingDeleteSelection[] };

MakePendingDelete: CommandProc = { PendingDeleteSelection[] };

MakePointSelection: PUBLIC CommandProc = {
TEditSelection.LockSel[primary, "MakePointSelection"];
IF pSel.viewer#NIL THEN
TEditSelection.MakePointSelection[pSel,
IF pSel.insertion=before THEN pSel.start.pos
ELSE [pSel.end.pos.node,pSel.end.pos.where+1]];
TEditSelection.UnlockSel[primary];
};

MakeControlCharacter: CommandProc = { TEditInputOps.MakeControlCharacter[] };

MakeOctalCharacter: CommandProc = { TEditInputOps.MakeOctalCharacter[] };

UnMakeControlCharacter: CommandProc = { TEditInputOps.UnMakeControlCharacter[] };

UnMakeOctalCharacter: CommandProc = { TEditInputOps.UnMakeOctalCharacter[] };

MakePrimaryOp: CommandProc = { MakePrimary[] };

MakeSecondaryOp: CommandProc = { MakeSecondary[] };

CancelPrimaryOp: CommandProc = { CancelPrimary[] };

CancelSecondaryOp: CommandProc = { CancelSecondary[] };

Paint: CommandProc = { ForkPaint[viewer] };

PlaceholderBrackets: CommandProc = { TEditInputOps.InsertBrackets[1C,2C] };

justRegistered: BOOL _ TRUE;

ProfileChanged: UserProfile.ProfileChangedProc = {
IF NOT justRegistered THEN TEditProfile.ReadProfile[];
justRegistered _ FALSE;
};

ReadTip: CommandProc = { ReadTipTables[] };

ReadTipTables: PUBLIC PROC = {
WindowManager.WaitCursor[];
TEditImpl.ReloadTipTable[];
TEditImpl.ReloadReadonlyTipTable[];
TEditImpl.ReloadTypeScriptTipTable[];
InputFocus.SetInputFocus[];	-- kill selection; force ChangeTIPContext
WindowManager.UnWaitCursor[];
};

ReloadStyle: CommandProc = { TEditInputOps.ReloadStyle[] };

SelectMatchingPlaceholderBrackets: CommandProc = {
TEditInputOps.SelectMatchingBrackets[1C,2C];
};

SelectMatchingSingleQuotes: CommandProc = {
TEditInputOps.SelectMatchingBrackets['\140,''];
};

SelectMatchingDoubleQuotes: CommandProc = { TEditInputOps.SelectMatchingBrackets['",'"] };

SelectMatchingDashBrackets: CommandProc = { TEditInputOps.SelectMatchingBrackets['-,'-] };

PreviousPlaceholder: CommandProc = { TEditInputOps.FindPlaceholders[FALSE] };

PreviousViewer: CommandProc = { TEditInputOps.NextViewer[FALSE] };

NextPlaceholder: CommandProc = { TEditInputOps.FindPlaceholders[TRUE] };

NextViewer: CommandProc = { TEditInputOps.NextViewer[TRUE] };

ReadAbbreviations: CommandProc = { TEditInputOps.LoadAbbreviations["Default"] };

VerifyTree: CommandProc = {
IF pSel.viewer=NIL THEN RETURN;
TreeCheck.Verify[TextNode.Root[pSel.start.pos.node]];
MessageWindow.Append["Verified", TRUE];
MessageWindow.Blink[];
};

SelectMatchingParens: CommandProc = { TEditInputOps.SelectMatchingBrackets['(,')] };

SelectMatchingAngleBrackets: CommandProc = { TEditInputOps.SelectMatchingBrackets['<,'>] };

SelectMatchingCurlyBrackets: CommandProc = { TEditInputOps.SelectMatchingBrackets['{,'}] };

SelectMatchingSquareBrackets: CommandProc = { TEditInputOps.SelectMatchingBrackets['[,']] };

ParenBrackets: CommandProc = { TEditInputOps.InsertBrackets['(,')] };

DashBrackets: CommandProc = { TEditInputOps.InsertBrackets['-,'-] };

DoubleQuoteBrackets: CommandProc = { TEditInputOps.InsertBrackets['",'"] };

AngleBrackets: CommandProc = { TEditInputOps.InsertBrackets['<,'>] };

SingleQuoteBrackets: CommandProc = {
TEditInputOps.InsertBrackets['\140,''];
};

CurlyBrackets: CommandProc = { TEditInputOps.InsertBrackets['{,'}] };

SquareBrackets: CommandProc = { TEditInputOps.InsertBrackets['[,']] };

SetCommand: PUBLIC PROC [num: ComIndex, params: LIST OF REF ANY] = {
coms[num] _ params;
};

GetCommand: PUBLIC PROC [num: ComIndex] RETURNS [params: LIST OF REF ANY] = {
RETURN [coms[num]];
};

DoCommand: PROC [viewer: ViewerClasses.Viewer, num: ComIndex] = {
Interpret[viewer,coms[num]];
};

Command0: CommandProc = { DoCommand[viewer,0] };

Command1: CommandProc = { DoCommand[viewer,1] };

Command2: CommandProc = { DoCommand[viewer,2] };

Command3: CommandProc = { DoCommand[viewer,3] };

Command4: CommandProc = { DoCommand[viewer,4] };

Command5: CommandProc = { DoCommand[viewer,5] };

Command6: CommandProc = { DoCommand[viewer,6] };

Command7: CommandProc = { DoCommand[viewer,7] };

Command8: CommandProc = { DoCommand[viewer,8] };

Command9: CommandProc = { DoCommand[viewer,9] };

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

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

RegisterCommandAtoms: PROC = {
Register[$Break, Break];
Register[$Join, Join];
Register[$Nest, Nest];
Register[$Paste, Paste];
Register[$SaveForPaste, SaveForPaste];
Register[$SetFormat, SetFormat];
Register[$SetType, SetFormat];  -- For compatability
Register[$GetFormat, GetFormat];
Register[$GetType, GetFormat];  -- For compatability
Register[$UnNest, UnNest];
Register[$AllCaps, AllCaps];
Register[$AllLower, AllLower];
Register[$FirstCap, FirstCap];
Register[$InitialCaps, InitialCaps];
Register[$AllLevels, AllLevels];
Register[$FewerLevels, FewerLevels];
Register[$MoreLevels, MoreLevels];
Register[$FirstLevelOnly, FirstLevelOnly];
Register[$CaretAfter, CaretAfter];
Register[$CaretBefore, CaretBefore];
Register[$Everything, Everything];
Register[$GrowSelection, GrowSel];
Register[$GrowSelectionToBlanks, GrowSelToBlanks];
Register[$InsertLineBreak, InsertLineBreak];
Register[$MakeNotPendingDelete, MakeNotPendingDelete];
Register[$MakePendingDelete, MakePendingDelete];
Register[$MakePointSelection, MakePointSelection];
Register[$MakeControlCharacter, MakeControlCharacter];
Register[$MakeOctalCharacter, MakeOctalCharacter];
Register[$UnMakeControlCharacter, UnMakeControlCharacter];
Register[$UnMakeOctalCharacter, UnMakeOctalCharacter];
Register[$MakePrimary, MakePrimaryOp];
Register[$MakeSecondary, MakeSecondaryOp];
Register[$CancelPrimary, CancelPrimaryOp];
Register[$CancelSecondary, CancelSecondaryOp];
Register[$Paint, Paint];
Register[$PlaceholderBrackets, PlaceholderBrackets];
Register[$PreviousPlaceholder, PreviousPlaceholder];
Register[$PreviousViewer, PreviousViewer];
Register[$ReadProfile, ReadTip];
Register[$ReloadStyle, ReloadStyle];
Register[$SelectMatchingPlaceholderBrackets, SelectMatchingPlaceholderBrackets];
Register[$NextPlaceholder, NextPlaceholder];
Register[$NextViewer, NextViewer];
Register[$ReadAbbreviations, ReadAbbreviations];
Register[$VerifyTree, VerifyTree];
Register[$SelectMatchingParens, SelectMatchingParens];
Register[$SelectMatchingAngleBrackets, SelectMatchingAngleBrackets];
Register[$SelectMatchingCurlyBrackets, SelectMatchingCurlyBrackets];
Register[$SelectMatchingSquareBrackets, SelectMatchingSquareBrackets];
Register[$SelectMatchingSingleQuotes, SelectMatchingSingleQuotes];
Register[$SelectMatchingDoubleQuotes, SelectMatchingDoubleQuotes];
Register[$SelectMatchingDashBrackets, SelectMatchingDashBrackets];
Register[$ParenBrackets, ParenBrackets];
Register[$DashBrackets, DashBrackets];
Register[$AngleBrackets, AngleBrackets];
Register[$DoubleQuoteBrackets, DoubleQuoteBrackets];
Register[$SingleQuoteBrackets, SingleQuoteBrackets];
Register[$CurlyBrackets, CurlyBrackets];
Register[$SquareBrackets, SquareBrackets];
Register[$Command0, Command0];
Register[$Command1, Command1];
Register[$Command2, Command2];
Register[$Command3, Command3];
Register[$Command4, Command4];
Register[$Command5, Command5];
Register[$Command6, Command6];
Register[$Command7, Command7];
Register[$Command8, Command8];
Register[$Command9, Command9];
Register[$SetComment, SetComment];
Register[$SetNotComment, SetNotComment];
};

ComArray: TYPE = ARRAY ComIndex OF LIST OF REF ANY;
coms: REF ComArray = NEW [ComArray];

RegisterCommandAtoms[];

UserProfile.CallWhenProfileChanges[ProfileChanged];

END.



TEditInput2Impl.mesa
Copyright c 1985 by Xerox Corporation.  All rights reserved.
Plass, March 18, 1985 5:42:29 pm PST
Russ Atkinson (RRA) June 25, 1985 2:34:52 am PDT
Michael Plass, March 20, 1986 9:52:52 am PST
look for 140C as left single quote
use 140C for left single quote
Κ
Ε˜
codeš
Οc™Kšœ
Οm
œ1™<K™$K™0K™,—K˜š
Οk	˜	KšœŸœ˜!KšœŸœ˜$Kšœ
Ÿœ˜#KšœŸœ>˜QKšœ
ŸœD˜SK˜Kšœ
˜Kšœ
Ÿœ˜!KšœŸœ‚˜–Kšœ
Ÿœ(˜:Kšœ	Ÿœ6˜DKšœ
Ÿœ
˜KšœŸœ.˜?KšœŸœ˜(KšœŸœ
˜ KšœŸœ˜/K˜—šΠlnœŸœ
Ÿ˜KšŸœΙ
˜Π
KšŸœŸœ
Ÿœ˜;K˜—šΟnœ*˜/K˜—š‘œ)˜-K˜—š‘œ)˜-K˜—š‘œ*˜/K˜—š‘œ1˜=K˜—š‘	œ.˜7K˜—š‘	œ.˜7K˜—š‘œ+˜1K˜—š‘œ6˜=K˜—š‘œ7˜?K˜—š‘œ7˜?K˜—š‘œ7˜BK˜—š‘	œŸœ"Ÿœ˜:KšœDŸœ˜JKš
œ˜K˜—š‘	œŸœ˜!šŸœ
Ÿœ
Ÿ˜š
œ)˜)šŸœ'Ÿœ˜/Kšœ1Ÿœ˜7K˜&Kš
œ˜Kš
œ˜K˜—K˜—KšŸœ
˜—KšŸœŸœ˜Kš
œ˜K˜—š‘œŸœ˜&šŸœ
Ÿœ
Ÿ˜š
œ)˜)šŸœŸœ˜Kšœ6Ÿœ˜<K˜J˜Kš
œ˜Kš
œ˜K˜—K˜—KšŸœ
˜—KšŸœŸœ˜Kš
œ˜K˜—š‘œŸœ+˜@K˜KšœŸœ
˜Kš
œ˜Kšœ7Ÿœ˜XKšœ"˜@Kšœ0"˜RšŸœŸœ˜š	ŸœŸœ
ŸœŸœ
"˜AK˜$KšŸœ
˜—KšŸœ2Ÿœ
Ÿœ˜LK˜'—Kš
œ˜Kš
œ˜K˜—š
‘
œŸœ
Ÿœ(Ÿœ	Ÿœ˜^K˜KšœŸœ˜KšŸœŸœ
Ÿœ
Ÿœ˜šŸœŸœ
ŸœŸ˜0šŸœ.Ÿœ˜6K˜	KšœŸœ˜&—KšŸœ
˜—K˜K˜K˜—š‘
œŸœ˜"šŸœ
Ÿœ
Ÿ˜š
œ)˜)šŸœ'Ÿœ˜/KšŸœ
Ÿœ)˜6Kšœ2Ÿœ˜8Kš
œ%˜%Kš
œ˜Kš
œ˜K˜—K˜—KšŸœ
˜—Kš
œ˜K˜—š‘œŸœ˜#šŸœ
Ÿœ
Ÿ˜š
œ'˜'šŸœŸœ˜šŸœ3Ÿœ˜;KšŸœ
Ÿœ)˜6KšœŸœ˜KšŸœŸœ˜AšŸœŸœ˜K˜K˜Kš
œ˜Kš
œ˜—Kš
œ%˜%Kš
œ˜—K˜——KšŸœ
˜—KšŸœŸœ˜Kš
œ˜K˜—š‘
œ*˜4K˜—š‘œ+˜6K˜—š‘
œ'˜1K˜—š‘œ$˜+K˜—š‘œ,˜;K˜—š‘œ4˜CK˜—š‘œ0˜DK˜—š‘œ-˜>K˜—š‘œŸœ˜*Kš
œ6˜6šŸœ
Ÿœ
Ÿ˜š
œ'˜'KšŸœŸœ˜,KšŸœ+˜/——Kš
œ"˜"š
œ˜K˜——š‘œ9˜MK˜—š‘œ7˜IK˜—š‘œ;˜QK˜—š‘œ9˜MK˜—Kš‘
œ"˜/K˜Kš‘œ$˜3K˜Kš‘œ$˜3K˜Kš‘œ&˜7K˜Kš‘œ&˜+K˜š‘œ8˜KK˜—KšœŸœŸœ
˜K˜š‘œ$˜2KšŸœ
ŸœŸœ˜6KšœŸœ
˜K˜K˜—Kš‘œ$˜+K˜š‘
œŸœ
Ÿœ˜K˜K˜K˜#K˜%Kšœ)˜EK˜K˜K˜—š‘œ0˜;K˜—š‘!œ˜2K˜,K˜K˜—š‘œ˜+Kš
œ"™"K˜/K˜K˜—š‘œ@˜ZK˜—š‘œ@˜ZK˜—š‘œ1Ÿœ˜MK˜—š‘œ+Ÿœ˜BK˜—š‘œ1Ÿœ˜HK˜—š‘
œ+Ÿœ˜=K˜—š‘œ?˜PK˜—š‘
œ˜KšŸœ
Ÿœ
Ÿœ
Ÿœ
˜K˜5Kšœ!Ÿœ˜'Kš
œ˜Kš
œ˜K˜—š‘œ@˜TK˜—š‘œ@˜[K˜—š‘œ@˜[K˜—š‘œ@˜\K˜—š‘
œ8˜EK˜—š‘œ8˜DK˜—š‘œ8˜KK˜—š‘
œ8˜EK˜—š‘œ˜$Kš
œ™K˜'K˜K˜—š‘
œ8˜EK˜—š‘œ8˜FK˜—š‘
œŸœ
ŸœŸœ
Ÿœ
Ÿœ
Ÿœ˜DK˜K˜K˜—š‘
œŸœ
ŸœŸœ
Ÿœ
Ÿœ
Ÿœ
Ÿœ˜MKšŸœ
˜Kš
œ˜K˜—š‘	œŸœ2˜AKš
œ˜Kš
œ˜K˜—š‘œ(˜0K˜—š‘œ(˜0K˜—š‘œ(˜0K˜—š‘œ(˜0K˜—š‘œ(˜0K˜—š‘œ(˜0K˜—š‘œ(˜0K˜—š‘œ(˜0K˜—š‘œ(˜0K˜—š‘œ(˜0K˜—š‘
œ/Ÿœ˜AK˜—š‘
œ/Ÿœ˜EK˜—š‘œŸœ˜K˜K˜K˜K˜K˜&K˜ Kšœ ˜4K˜ Kšœ ˜4K˜K˜K˜K˜K˜$K˜ K˜$K˜"K˜*K˜"K˜$K˜"K˜"K˜2K˜,K˜6K˜0K˜2K˜6K˜2K˜:K˜6K˜&K˜*K˜*K˜.K˜K˜4K˜4K˜*K˜ K˜$K˜PK˜,K˜"K˜0K˜"K˜6K˜DK˜DK˜FK˜BK˜BK˜BK˜(K˜&K˜(K˜4K˜4K˜(K˜*K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜K˜"K˜(K˜K˜—Kšœ
ŸœŸœ
Ÿœ
Ÿœ
Ÿœ
Ÿœ
Ÿœ
˜3KšœŸœŸœ˜$K˜K˜K˜K˜3K˜KšŸœ
˜K˜K˜—…—1<ρ