YggMIGServerProcsImpl.mesa
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Bob Hagmann October 17, 1988 2:25:49 pm PDT
This module implements the calling of the server procedures from Camelot generated via MIG.
DIRECTORY
Camelot,
Mach,
YggdrasilInit;
YggMIGServerProcsImpl: CEDAR PROGRAM
EXPORTS YggdrasilInit
~ BEGIN
Exported procedures
STServer: PUBLIC PROC [inMsg: REF Camelot.camlibSysReqMsgT, outMsg: REF Camelot.camlibSysRepMsgT] RETURNS [messageUnderstood: BOOL ← FALSE] ~ {
Call the st←server code in src/lib/camlib/sys/stServer.c (MIG generated)
innerSTServert: PROC [InHeadP: POINTER TO Camelot.camlibSysReqMsgT, OutHeadP: POINTER TO Camelot.camlibSysReqMsgT] RETURNS [ok: BOOL] ~ TRUSTED MACHINE CODE {
"<st.h>.st←server"
};
messageUnderstood ← innerSTServert[LOOPHOLE[inMsg], LOOPHOLE[outMsg]];
};
SRServer: PUBLIC PROC [inMsg: REF Camelot.camlibSysReqMsgT, outMsg: REF Camelot.camlibSysRepMsgT] RETURNS [messageUnderstood: BOOL ← FALSE]~ {
Call the sr←server code in src/lib/camlib/sys/stServer.c (MIG generated)
innerSRServert: PROC [InHeadP: POINTER TO Camelot.camlibSysReqMsgT, OutHeadP: POINTER TO Camelot.camlibSysReqMsgT] RETURNS [ok: BOOL]~ TRUSTED MACHINE CODE {
"<sr.h>.sr←server"
};
messageUnderstood ← innerSRServert[LOOPHOLE[inMsg], LOOPHOLE[outMsg]];
};
ATServer: PUBLIC PROC [inMsg: REF Camelot.camlibSysReqMsgT, outMsg: REF Camelot.camlibSysRepMsgT] RETURNS [messageUnderstood: BOOL ← FALSE] ~ {
Call the st←server code in src/lib/camlib/sys/atServer.c (MIG generated)
innerSTServert: PROC [InHeadP: POINTER TO Camelot.camlibSysReqMsgT, OutHeadP: POINTER TO Camelot.camlibSysReqMsgT] RETURNS [ok: BOOL] ~ TRUSTED MACHINE CODE {
"<at.h>.at←server"
};
messageUnderstood ← innerSTServert[LOOPHOLE[inMsg], LOOPHOLE[outMsg]];
};
Initialization
END.