-- PublicErrorImpl.mesa
-- Last edited by
--   Kolling on April 27, 1983 12:18 pm

  DIRECTORY
    AlpDebug,
    AlpFile,
    AlpineDebug,
    AlpineEnvironment
       USING [LockFailure, NeededAccess, OperationFailure, UnknownType],
    AlpineFile,
    AlpineOwner,
    AlpineTransaction,
    AlpineVolume,
    AlpInstance,
    AlpTransaction;

PublicErrorImpl: PROGRAM
  EXPORTS AlpineDebug, AlpineFile, AlpineOwner, AlpineTransaction, AlpineVolume,
     AlpInstance, AlpTransaction, AlpFile, AlpDebug =
  
  BEGIN
  
  AccessFailed: PUBLIC ERROR [missingAccess: AlpineEnvironment.NeededAccess] = CODE;
  LockFailed: PUBLIC ERROR [why: AlpineEnvironment.LockFailure] = CODE;
  OperationFailed: PUBLIC ERROR [why: AlpineEnvironment.OperationFailure] = CODE;
  StaticallyInvalid: PUBLIC ERROR = CODE;
  Unknown: PUBLIC ERROR [what: AlpineEnvironment.UnknownType] = CODE;
  PossiblyDamaged: PUBLIC SIGNAL = CODE;

  
  END.