ExplicitExportImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last modified by D. Swinehart, October 24, 1985 4:02:28 pm PDT
DIRECTORY
ExplicitExport,
NamesGV,
Rope,
RPC,
RPCInternalExtras,
RPCLupine,
VoiceUtils
;
ExplicitExportImpl: CEDAR PROGRAM
IMPORTS
NamesGV,
RPCInternalExtras,
VoiceUtils
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 {
[]←VoiceUtils.Problem["Trouble in ExportExplicitly",$System]; RETURN; };
[]←RPCInternalExtras.AddToExportTable[[interfaceType, explicitInstance, versionRange], dispatcher, stubRange];
};
}.