AMEventsBackdoor.mesa: backdoor interactions with client
Copyright © 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
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.