IPErrors.mesa
Errors and Signals known throughout the Interpress interpreter
Last edited by:
Doug Wyatt, April 29, 1983 2:15 pm
DIRECTORY
Rope
USING [
ROPE];
IPErrors:
CEDAR
DEFINITIONS
=
BEGIN
MasterErrorType:
TYPE = {
BoundsFault,
InvalidArgs,
LimitExceeded,
MalformedSkeleton,
MarkMismatch,
MissingBody,
NarrowFailed,
StackOverflow,
StackUnderflow,
UndefinedProperty,
Unimplemented,
WrongType
};
MasterWarningType:
TYPE = {
InvalidArgs,
NullValue,
Unimplemented
};
AppearanceErrorType:
TYPE = {
Unimplemented
};
AppearanceWarningType:
TYPE = {
Unimplemented
};
MasterError:
ERROR[type: MasterErrorType];
MasterWarning:
SIGNAL[type: MasterWarningType];
AppearanceError:
SIGNAL[type: AppearanceErrorType];
AppearanceWarning:
SIGNAL[type: AppearanceWarningType];
Bug:
ERROR;
Error:
TYPE =
RECORD[
SELECT class: *
FROM
Me => [type: MasterErrorType],
Mw => [type: MasterWarningType],
Ae => [type: AppearanceErrorType],
Aw => [type: AppearanceWarningType],
ENDCASE
];
RopeFromError:
PROC[error: Error]
RETURNS[Rope.
ROPE];
END.