<> <> <> <> DIRECTORY TextNode USING [Ref], TEditDocument USING [Selection, TEditDocumentData], UndoEvent USING [Ref], ViewerClasses USING [Viewer]; TEditInput: CEDAR DEFINITIONS = BEGIN interpreterNesting: INTEGER; currentEvent: UndoEvent.Ref; <> 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]; <> UnRegister: PROC [name: ATOM, proc: CommandProc]; <> IsRegistered: PROC [name: ATOM, proc: CommandProc] RETURNS [BOOL]; RecordInt: PROC [i: LONG INTEGER]; RecordChar: PROC [c: CHAR]; 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]; <> ResetInputStuff: PROC; SaveCoords: PROC [x,y: INTEGER]; ReadTipTables: PROC; CheckSelection: PROC [sel: TEditDocument.Selection] RETURNS [BOOL]; FreeTree: PROC [root: TextNode.Ref]; AllLevels: CommandProc; FirstLevelOnly: CommandProc; MoreLevels: CommandProc; FewerLevels: CommandProc; MaxLevelShown: PROC [tdd: TEditDocument.TEditDocumentData] RETURNS [level: INTEGER]; MakePointSelection: CommandProc; Normalize: CommandProc; Cancel: CommandProc; Repeat: CommandProc; RestoreSelectionA: CommandProc; SaveSelectionA: CommandProc; RestoreSelectionB: CommandProc; SaveSelectionB: CommandProc; END.