DIRECTORY Camelot, Mach, YggdrasilInit; YggMIGServerProcsImpl: CEDAR PROGRAM EXPORTS YggdrasilInit ~ BEGIN STServer: PUBLIC PROC [inMsg: REF Camelot.camlibSysReqMsgT, outMsg: REF Camelot.camlibSysRepMsgT] RETURNS [messageUnderstood: BOOL _ FALSE] ~ { innerSTServert: PROC [InHeadP: POINTER TO Camelot.camlibSysReqMsgT, OutHeadP: POINTER TO Camelot.camlibSysReqMsgT] RETURNS [ok: BOOL] ~ TRUSTED MACHINE CODE { ".st_server" }; messageUnderstood _ innerSTServert[LOOPHOLE[inMsg], LOOPHOLE[outMsg]]; }; SRServer: PUBLIC PROC [inMsg: REF Camelot.camlibSysReqMsgT, outMsg: REF Camelot.camlibSysRepMsgT] RETURNS [messageUnderstood: BOOL _ FALSE]~ { innerSRServert: PROC [InHeadP: POINTER TO Camelot.camlibSysReqMsgT, OutHeadP: POINTER TO Camelot.camlibSysReqMsgT] RETURNS [ok: BOOL]~ TRUSTED MACHINE CODE { ".sr_server" }; messageUnderstood _ innerSRServert[LOOPHOLE[inMsg], LOOPHOLE[outMsg]]; }; ATServer: PUBLIC PROC [inMsg: REF Camelot.camlibSysReqMsgT, outMsg: REF Camelot.camlibSysRepMsgT] RETURNS [messageUnderstood: BOOL _ FALSE] ~ { innerSTServert: PROC [InHeadP: POINTER TO Camelot.camlibSysReqMsgT, OutHeadP: POINTER TO Camelot.camlibSysReqMsgT] RETURNS [ok: BOOL] ~ TRUSTED MACHINE CODE { ".at_server" }; messageUnderstood _ innerSTServert[LOOPHOLE[inMsg], LOOPHOLE[outMsg]]; }; END. μ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. Exported procedures Call the st_server code in src/lib/camlib/sys/stServer.c (MIG generated) Call the sr_server code in src/lib/camlib/sys/stServer.c (MIG generated) Call the st_server code in src/lib/camlib/sys/atServer.c (MIG generated) Initialization Κ*˜code•Mark outsideHeaderšœ™Kšœ<™