OldPublicErrorImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last edited by
Kolling on May 10, 1983 4:41 pm
Hauser, March 8, 1985 11:05:56 am PST
Carl Hauser, January 7, 1987 10:04:14 am PST
DIRECTORY
OldAlpineDebug,
OldAlpineEnvironment
USING [LockFailure, NeededAccess, OperationFailure, UnknownType],
OldAlpineFile,
OldAlpineOwner,
OldAlpineTransaction,
OldAlpineVolume;
OldPublicErrorImpl: PROGRAM
EXPORTS OldAlpineDebug, OldAlpineFile, OldAlpineOwner, OldAlpineTransaction,
OldAlpineVolume =
BEGIN
AccessFailed: PUBLIC ERROR [missingAccess: OldAlpineEnvironment.NeededAccess] = CODE;
LockFailed: PUBLIC ERROR [why: OldAlpineEnvironment.LockFailure] = CODE;
OperationFailed: PUBLIC ERROR [why: OldAlpineEnvironment.OperationFailure] = CODE;
StaticallyInvalid: PUBLIC ERROR = CODE;
Unknown: PUBLIC ERROR [what: OldAlpineEnvironment.UnknownType] = CODE;
PossiblyDamaged: PUBLIC SIGNAL = CODE;
END.
Hauser, March 8, 1985 11:05:41 am PST
Nodified, added copyright.