
  TYPE
    nat$title_attributes = array [1 .. * ] of nat$title_attribute,

    nat$title_attribute_kind = (nac$title_priority, nac$title_data),

    nat$title_attribute = record
{
{ This record must be initialized such that the value of the SELECTOR field
{ identifies the attribute whose value is being specified and the corresponding
{ variant field contains (or points to) the desired attribute value.
{
      case selector: nat$title_attribute_kind of
      = nac$title_priority =
        priority: nat$directory_priority,
      = nac$title_data =
        data: ^nat$directory_data,
      casend,
    recend;

*copyc nat$directory_priority
*copyc nat$directory_data
