(* Copyright 1992 Digital Equipment Corporation. *) (* Distributed only by permission. *) (* Last modified on Wed Jul 29 21:24:54 PDT 1992 by johnh*) (********************************************************************* |* NOTE: This file is generated automatically from the event |* definition file #(_ALGNAME_).evt. *********************************************************************) INTERFACE #(_ALGNAME_)IE; #(_IMPORTS_) IMPORT Algorithm, Thread, View; <* PRAGMA LL *> (* call the following to generate an event: *) #{_OUTPUT PROCEDURE #(_EVENT_) ( initiator: Algorithm.T; #(_ARGSTR_) ) RAISES {Thread.Alerted}; <* LL = {} *> #} #{_FEEDBACK PROCEDURE #(_EVENT_) ( initiator: View.T; #(_ARGSTR_) ) RAISES {Thread.Alerted}; <* LL = VBT.mu *> #} #{_UPDATE PROCEDURE #(_EVENT_) ( initiator: Algorithm.T; #(_ARGSTR_) ) RAISES {Thread.Alerted}; <* LL = VBT.mu *> #} END #(_ALGNAME_)IE.