
  TYPE
    clt$lexical_token = record
      text_index: clt$string_index,
      text_size: clt$string_size,
      descriptor: string (osc$max_name_size),
      case kind: clt$lexical_token_kind of
      = clc$unknown_token .. clc$string_token =
        str: ost$string,
        str_complete: boolean,
      = clc$unsigned_integer_token, clc$signed_integer_token =
        int: clt$integer,
      = clc$unsigned_real_token, clc$signed_real_token =
        rnum: clt$real,
      casend,
    recend;

*copyc clt$integer
*copyc clt$lexical_token_kind
*copyc clt$real
*copyc clt$string_index
*copyc clt$string_size
*copyc ost$name
*copyc ost$string
