
  TYPE
    clt$token = record
      text_index: ost$string_index,
      text_size: ost$string_size,
      descriptor: string (osc$max_name_size),
      case kind: clt$lexical_kinds of
      = clc$unknown_token .. clc$string_token =
        str: ost$string,
      = clc$name_token =
        name: clt$name,
      = clc$integer_token =
        int: clt$integer,
      = clc$real_token =
        rnum: clt$real,
      casend,
    recend;

*copyc clt$integer
*copyc clt$lexical_kinds
*copyc clt$name
*copyc clt$real
*copyc ost$string
