Sisyph.TIP
Copyright © 1985 by Xerox Corporation. All rights reserved.
Created by: Pradeep Sindhu, December 16, 1985 10:11:04 pm PST
Pradeep Sindhu, April 18, 1986 2:42:08 pm PST
Bertrand Serlet June 2, 1986 1:18:14 am PDT
[DEF,CTRL,(Spare3 Down | Ctrl Down)]
[DEF,SHIFT,(LeftShift Down | RightShift Down)]
[DEF,LeftDown,(Red Down)]
[DEF,LeftUp,(Red Up)]
[DEF,MiddleDown,(Yellow Down)]
[DEF,MiddleUp,(Yellow Up)]
[DEF,RightDown,(Blue Down)]
[DEF,RightUp,(Blue Up)]
[
DEF,Menu,
(~1 Down
WHILE Space Down
WHILE [RightUp] WHILE [LeftUp] WHILE [MiddleUp] => Coords, ~2;
Space Down
WHILE ~1 Down
WHILE [RightUp] WHILE [LeftUp] WHILE [MiddleUp] => Coords, ~2)]
~1 represent's key; ~2 represent's Menu atom to call
SELECT
TRIGGER
FROM
[LeftUp] WHILE L Down WHILE I Down => SisyphShowInstExpressions;
[MiddleDown] WHILE L Down WHILE I Down => SisyphAddInstExpression;
[RightUp] WHILE L Down WHILE I Down => SisyphEditInstExpressions;
[LeftUp] WHILE L Down WHILE O Down => SisyphShowObjExpressions;
[MiddleDown] WHILE L Down WHILE O Down => SisyphAddObjExpression;
[RightUp] WHILE L Down WHILE O Down => SisyphEditObjExpressions;
[LeftUp] WHILE SemiColon Down WHILE P Down => SisyphShowParmNames;
[MiddleDown] WHILE SemiColon Down WHILE P Down => SisyphAddParmName;
[RightUp] WHILE SemiColon Down WHILE P Down => SisyphEditParmNames;
ENDCASE...