-- 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, Basics, BasicTime, Booting, BTree, Convert, IO, LupineRuntime, Process, RefText, Rope, RPC,
RPCLupine, SafeStorage, UserCredentials, VM
EXPORTS
AlpFile, AlpInstance, AlpPrivate, AlpTransaction, AlpineDirectory, AlpDirectory,
AlpineInterimDirectory
CONTROL
AlpInstanceImpl, AlpTransactionImpl, AlpFileImpl,
AlpineOwnerRpcClientImpl, AlpineOwnerRpcBinderImpl,
AlpineVolumeRpcClientImpl, AlpineVolumeRpcBinderImpl,
AlpineFileRpcClientImpl, AlpineFileRpcBinderImpl,
AlpineTransactionRpcClientImpl, AlpineTransactionRpcBinderImpl,
AlpineInterimDirectoryImpl,
AlpineDirectoryImpl, AlpDirectoryImpl, AlpineDirectoryBTreeImpl, BTreeAlpineVMImpl =
BEGIN

AlpInstanceImpl;
AlpTransactionImpl;
AlpFileImpl;
AlpDirectoryImpl;
AlpineDirectoryImpl;
AlpineDirectoryBTreeImpl;
BTreeAlpineVMImpl;
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.