{
{ The type OST$MESSAGE_MODULE_SEVERITY is used to represent status and
{ diagnostic severities associated with a condition code in a message module
{ on an object library.  This type is not intended to be used outside of this
{ context.  The types OST$STATUS_SEVERITY and OST$DIAGNOSTIC_SEVERITY should
{ be used instead.  OST$STATUS_SEVERITY is used to represent the severity of
{ status conditions (i.e. in the context of the OST$STATUS record.
{ OST$DIAGNOSTIC_SEVERITY is used to represent the severity of diagnostics
{ produced by programs such as compilers.
{
{ The following table shows the mapping between the severity types.
{
{      MESSAGE MODULE        STATUS                DIAGNOSTIC
{
{      informative           informative           informative
{      warning               warning               warning
{      error                 error                 error
{      fatal                 fatal                 fatal
{      catastrophic          catastrophic          catastrophic
{      non_standard          informative           non_standard
{      dependent             informative           dependent
{

  TYPE
    ost$message_module_severity = (osc$mm_informative_severity,
          osc$mm_warning_severity, osc$mm_error_severity,
          osc$mm_fatal_severity, osc$mm_catastrophic_severity,
          osc$mm_non_standard_severity, osc$mm_dependent_severity);

