-- AlpObjectImpls.config
-- Last edited by
-- MBrown on February 2, 1984 11:08:17 am PST
-- Kolling on October 27, 1983 3:09 pm

AlpObjectImpls: CONFIG
IMPORTS
-- Alpine, for public errors and possibly for local server instance.
AlpineFile, AlpineOwner, AlpineTransaction, AlpineVolume, ClientMap,
-- Cedar
Ascii, Booting, LupineRuntime, RefText, Rope, RPC,
RPCLupine, SafeStorage, UserCredentials
EXPORTS
AlpFile, AlpInstance, AlpPrivate, AlpTransaction, AlpineInterimDirectory
CONTROL
AlpInstanceImpl, AlpTransactionImpl, AlpFileImpl, AlpineInterimDirectoryImpl,
AlpineOwnerRpcClientImpl, AlpineOwnerRpcBinderImpl,
AlpineVolumeRpcClientImpl, AlpineVolumeRpcBinderImpl,
AlpineFileRpcClientImpl, AlpineFileRpcBinderImpl,
AlpineTransactionRpcClientImpl, AlpineTransactionRpcBinderImpl =
BEGIN

AlpInstanceImpl;
AlpTransactionImpl;
AlpFileImpl;
AlpineInterimDirectoryImpl;

-- discard the instances of AlpineOwner, AlpineVolume, AlpineFile,
-- and AlpineTransaction exported by the server stubs.
[alpineFile: AlpineFile, AlpineFileRpcControl: AlpineFileRpcControl] ←
AlpineFileRpcClientImpl[];
AlpineFileRpcBinderImpl;
[alpineOwner: AlpineOwner, AlpineOwnerRpcControl: AlpineOwnerRpcControl] ←
AlpineOwnerRpcClientImpl[];
AlpineOwnerRpcBinderImpl;
[alpineTransaction: AlpineTransaction, AlpineTransactionRpcControl:
AlpineTransactionRpcControl] ← AlpineTransactionRpcClientImpl[];
AlpineTransactionRpcBinderImpl;
[alpineVolume: AlpineVolume, AlpineVolumeRpcControl: AlpineVolumeRpcControl] ←
AlpineVolumeRpcClientImpl[];
AlpineVolumeRpcBinderImpl;

END.