FeedbackConcreteTypes.mesa
Copyright Ó 1988, 1990 by Xerox Corporation. All rights reserved.
Bier, August 23, 1989 10:24:44 am PDT
Last tweaked by Mike Spreitzer on May 1, 1990 7:13:07 am PDT
Contents: The actual value of MsgRouterObj and MsgHandlerObj (defined in FeedbackTypes.mesa).
DIRECTORY IO, RefTab, Rope, SimpleFeedback;
FeedbackConcreteTypes: CEDAR DEFINITIONS = BEGIN OPEN SimpleFeedback;
MsgRouter: TYPE = REF MsgRouterObj;
MsgRouterObj:
TYPE =
RECORD [
c2h: RefTab.Ref--MsgClass -> MsgHandler-- ← NIL,
defaultHandler: MsgHandler,
on: BOOL ← TRUE
];
MsgHandler: TYPE ~ REF MsgHandlerObj;
MsgHandlerObj:
TYPE ~
RECORD [
PutF: PROC [mh: MsgHandler, msgType: MsgType, msgClass: MsgClass, format: Rope.ROPE, v1, v2, v3, v4, v5: IO.Value ← [null[]] ],
ClearHerald: PROC [mh: MsgHandler, msgClass: MsgClass],
Blink: PROC [mh: MsgHandler, msgClass: MsgClass],
data: REF ANY ← NIL];
END.