
  TYPE
    clt$parse_state = record
      text: ^clt$string_value,
      index: clt$string_index,
      units_array: ^clt$lexical_units,
      units_array_index: clt$lexical_units_index,
      index_limit: clt$string_index,
      unit: clt$lexical_unit,
      unit_index: clt$string_index,
      unit_is_space: boolean,
      previous_unit_is_space: boolean,
      previous_non_space_unit: clt$lexical_unit,
      previous_non_space_unit_index: clt$string_index,
    recend;

*copyc clt$lexical_unit
*copyc clt$lexical_units
*copyc clt$lexical_units_index
*copyc clt$string_index
*copyc clt$string_value
