class SYS_ERROR
****
This system class reports exceptional conditions detected in
___the_Required_Library_either_by_raising_the_object_concerned_or_by_raising
___an_informative_string_message.


Flattened version is here



Public


Features
blind_error(object : $OB,val : STR,lib : LIBCHARS)
**** This routine raises a string exception for cultural initialising
___errors_-_where_the_val_is_some_string_offering_a_clue_as_to_the_fault.
create : SAME
**** This routine creates a new object which either reports the error
___by_raising_the_object_concerned_if_the_argument_is_true,_otherwise
___a_string_exception_is_raised.
error(object : $OB, reason : SYS_EXCEPT,val : STR)
**** This routine raises an exception in accordance with the state of
___raise_object.__If_a_string_exception_is_to_be_raised_then_this_is_composed
___from_the_arguments_given.
file_error(object : $OB,fyle : $FILES)
**** This routine raises an exception in accordance with the state of
___raise_object.__If_a_string_exception_is_to_be_raised_then_this_is_composed
___from_the_arguments_given.
to_object
**** This routine channes the raise state to raise the object rather
___than_a_text_string_indication.


Private

attr raise_object : BOOL ;
attr raise_object : BOOL ;
separator(lib : LIBCHARS) : STR
**** This routine defines a global message separator for blind error.

The Sather Home Page