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