DIRECTORY OldAlpineDebug, OldAlpineEnvironment USING [LockFailure, NeededAccess, OperationFailure, UnknownType], OldAlpineFile, OldAlpineOwner, OldAlpineTransaction, OldAlpineVolume; PublicErrorImpl: 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. PublicErrorImpl.mesa Copyright c 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 Hauser, March 8, 1985 11:05:41 am PST Nodified, added copyright. Κ(˜šœ™Icodešœ Οmœ1™<—šœ™Jšœ™K™%K™,—˜šΟk ˜ J˜˜Jšžœ<˜A—J˜J˜J˜J˜J˜——šœž˜šžœE˜LJ˜J˜—Jšž˜J˜Jšœžœžœ6žœ˜UJšœ žœžœ+žœ˜HJšœžœžœ0žœ˜RJšœžœžœžœ˜'Jšœ žœžœ,žœ˜FJšœžœžœžœ˜&J˜J˜Jšžœ˜J˜J˜—™%K™—K™—…—Μ