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