ExplicitExportImpl.mesa
Last modified by D. Swinehart, March 5, 1985 5:23:06 pm PST
DIRECTORY
ExplicitExport,
Log,
NamesGV,
Rope,
RPC,
RPCBinding,
RPCLupine
;
ExplicitExportImpl: CEDAR PROGRAM
IMPORTS
Log,
NamesGV,
RPCBinding
EXPORTS ExplicitExport
SHARES RPCBinding
= {
ExportExplicitly: PUBLIC PROC[interfaceType: Rope.ROPE, instance: Rope.ROPE, versionRange: RPC.VersionRange, stubRange: RPC.VersionRange, dispatcher: RPCLupine.Dispatcher] = TRUSTED {
explicitInstance: Rope.ROPE ← NamesGV.GVGetAttribute[
rName: instance, attribute: $connect, default: NIL];
IF explicitInstance=NIL THEN {
[]←Log.Problem["Trouble in ExportExplicitly",$System]; RETURN; };
[]←RPCBinding.AddToExportTable[[interfaceType, explicitInstance, versionRange], dispatcher, stubRange];
};
}.