-- AlpObjectImpls.config
-- Note: this config does not include PublicErrorImpl.
-- Last edited by
--   MBrown on June 16, 1983 12:46 pm
--   Kolling on June 21, 1983 12:41 pm

AlpObjectImpls: CONFIG
  IMPORTS
    -- Alpine
    AlpineFile, AlpineOwner, AlpineTransaction, AlpineVolume, ClientMap,
    -- Cedar
    CedarSnapshot, ConvertUnsafe, Heap, LupineRuntime, MesaRPC, RefText, Rope,
    RopeInline, RPC, RPCLupine, RTTypesBasic, SafeStorage, UnsafeStorage, 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.