DIRECTORY AMEvents USING[ Event ], PrincOps USING[ FrameHandle, StateVector ]; AMEventsBackdoor: DEFINITIONS = BEGIN GuestProcsRec: TYPE = RECORD [ IsGuestProcess: PROC [] RETURNS [isGuest: BOOL], disableGuest: PROC [BOOL _ TRUE], guestLocalEvent: GuestLocalEventProc ]; GuestLocalEventProc: TYPE = PROC [ event: AMEvents.Event, f: PrincOps.FrameHandle, stack: POINTER TO PrincOps.StateVector, return: BOOL _ FALSE] RETURNS [debugLocally: BOOL _ FALSE]; RegisterGuestProcs: PROC [newProcs: REF GuestProcsRec]; END. ΰAMEventsBackdoor.mesa: backdoor interactions with client Copyright c 1985 by Xerox Corporation. All rights reserved. Bob Hagmann, February 6, 1985 6:50:17 am PST Russ Atkinson (RRA) February 11, 1985 11:38:19 pm PST Κ2˜codešœ8™8Kšœ Οmœ1™