ExplicitExportImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last modified by D. Swinehart, August 7, 1985 12:22:53 pm PDT
DIRECTORY
ExplicitExport,
Log,
NamesGV,
Rope,
RPC,
RPCInternalExtras,
RPCLupine
;
ExplicitExportImpl: CEDAR PROGRAM
IMPORTS
Log,
NamesGV,
RPCInternalExtras
EXPORTS ExplicitExport
= {
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; };
[]←RPCInternalExtras.AddToExportTable[[interfaceType, explicitInstance, versionRange], dispatcher, stubRange];
};
}.