
  TYPE
    clt$value_kind_specifier = record
      keyword_values: ^array [1 .. * ] of ost$name,
      case kind: clt$value_kinds of
      = clc$keyword_value, clc$any_value =
        ,
      = clc$variable_reference =
        array_allowed: (clc$array_not_allowed, clc$array_allowed),
        variable_kind: clc$string_value .. clc$any_value,
      = clc$application_value =
        value_name: clt$application_value_name,
        scanner: record
          case kind: clt$av_scanner_kind of
          = clc$unspecified_av_scanner =
            ,
          = clc$linked_av_scanner =
            proc: ^clt$application_value_scanner,
          = clc$unlinked_av_scanner =
            name: pmt$program_name,
          casend,
        recend,
      = clc$file_value =
        ,
      = clc$name_value =
        min_name_size: ost$name_size,
        max_name_size: ost$name_size,
      = clc$string_value =
        min_string_size: ost$string_size,
        max_string_size: ost$string_size,
      = clc$integer_value =
        min_integer_value: integer,
        max_integer_value: integer,
      = clc$real_value, clc$boolean_value, clc$status_value =
        ,
      casend,
    recend;

*copyc clc$max_integer
*copyc clc$min_integer
*copyc clt$application_value_scanner
*copyc clt$application_value
*copyc clt$value_kinds
*copyc ost$name
*copyc ost$string
*copyc pmt$program_name
