YggATProcsImpl.mesa
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Bob Hagmann September 26, 1988 10:29:10 am PDT
This module implements the "AT" procedures from Camelot. Camelot will make MIG style RPC's for AT←TransactionHasDied. The messages for this RPC have already been fielded and the message has been unmarshalled. See the defs in src/lib/camlib/sys/at.defs and the generated at.h for the calling sequences.
WARNING: The top level "AT" procedure in this module is made public to the loader via the "-r" switch during compilation.
YggATProcsImpl: CEDAR PROGRAM
~ BEGIN
Global (but not exported!) procedures
ATTransactionHasDied:
PROC [atPort: Mach.portT, tid: Camelot.tidT, status:
INT] ~ {
Global name is AT←TransactionHasDied.
The application is informed that a transaction has been aborted.
ERROR;
};
END.