-- TEditInput.mesa; Edited by Paxton on October 29, 1982 9:58 am
DIRECTORY
TextNode USING [Ref],
TEditDocument USING [Selection, TEditDocumentData],
UndoEvent USING [Ref],
ViewerClasses USING [Viewer];
TEditInput: CEDAR DEFINITIONS = BEGIN
interpreterNesting: INTEGER;
currentEvent: UndoEvent.Ref; -- used by anyone who needs to save info for Undo/Cancel
EditState:
TYPE = {
reset, -- no edit specified
abort, -- edit aborted
tolimbo, -- delete primary
toprimary, -- copy/move secondary selection to/onto primary
tosecondary, -- copy/move primary to/onto secondary
toboth -- transpose primary and secondary
};
editState: EditState;
repeatList: LIST OF REF ANY;
chars: REF TEXT; -- buffer for typein
charsClosed, charsUsed, closeEvent: BOOL;
CloseEvent: PROC = INLINE { closeEvent ← TRUE };
CurrentEvent: PROC RETURNS [UndoEvent.Ref] = INLINE { RETURN [currentEvent] };
CloseEventNow: PROC;
CommandProc:
TYPE =
PROC [viewer: ViewerClasses.Viewer ←
NIL]
RETURNS [recordAtom: BOOL ← TRUE, quit: BOOL ← FALSE];
Register:
PROC [name:
ATOM, proc: CommandProc, before:
BOOL ←
TRUE];
If before is true, proc goes at front of list. Else goes at end of list.
UnRegister:
PROC [name:
ATOM, proc: CommandProc];
Remove the proc from the list for the atom.
IsRegistered: PROC [name: ATOM, proc: CommandProc] RETURNS [BOOLEAN];
RecordInt: PROC [i: LONG INTEGER];
RecordChar: PROC [c: CHARACTER];
RecordRef: PROC [ref: REF ANY];
GetRepeatSequence: PROC RETURNS [params: LIST OF REF ANY];
ComIndex: TYPE = [0..9];
SetCommand: PROC [num: ComIndex, params: LIST OF REF ANY];
GetCommand: PROC [num: ComIndex] RETURNS [params: LIST OF REF ANY];
InterpInput:
PROC [viewer: ViewerClasses.Viewer, params:
LIST
OF
REF
ANY,
increaseNestingCount: BOOL ← TRUE];
Interpret: PROC [viewer: ViewerClasses.Viewer, params: LIST OF REF ANY];
DontDoIt: SIGNAL; -- raised if user category is too low
BadMouse: SIGNAL; -- raised if mouse "color" is wrong
InterpretAtom:
PROC [viewer: ViewerClasses.Viewer, atom:
ATOM];
-- as if input from TIP
ResetInputStuff: PROC ;
SaveCoords: PROC [x,y: INTEGER];
ReadTipTables: PROC;
CheckSelection: PROC [sel: TEditDocument.Selection] RETURNS [BOOLEAN];
FreeTree: PROC [root: TextNode.Ref];
AllLevels, FirstLevelOnly, MoreLevels, FewerLevels: CommandProc;
AllLines, FirstLineOnly, MoreLines, FewerLines: CommandProc;
MaxLevelShown: PROC [tdd: TEditDocument.TEditDocumentData] RETURNS [level: INTEGER];
MakePointSelection, Normalize: CommandProc;
Cancel, Repeat,
RestoreSelectionA, SaveSelectionA,
RestoreSelectionB, SaveSelectionB: CommandProc;
END.