-- 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.