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