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. ( 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). Κ+™codešœ™KšœB™BKšœ%™%K™<—K˜Kšœ^™^K™KšΟk œœ˜+K˜Kš Οnœœ œœœ˜EK˜Kšœ œœ˜#šœœœ˜KšœΟcœœ˜0K˜Kšœœ˜Kšœ˜K˜—Kšœ œœ˜%šœœœ˜KšžœœEœœ˜Kšž œœ&˜7Kšžœœ&˜1Kšœœœœ˜—K˜Kšœ˜K˜—…—d·