
  PROCEDURE [INLINE] clp$initialize_parse_state
    (    text: ^clt$string_value;
         units: ^clt$lexical_units;
     VAR parse: clt$parse_state);

?? PUSH (LISTEXT := ON) ??

    parse.text := text;
    parse.index := 1;
    parse.units_array := units;
    parse.units_array_index := 1;
    parse.index_limit := STRLENGTH (text^) + 1;
    parse.unit.kind := clc$lex_beginning_of_line;
    parse.unit.size := 0;
    parse.unit_index := 1;
    parse.unit_is_space := FALSE;
    parse.previous_unit_is_space := FALSE;
    parse.previous_non_space_unit.kind := clc$lex_beginning_of_line;
    parse.previous_non_space_unit.size := 0;
    parse.previous_non_space_unit_index := 1;

  PROCEND clp$initialize_parse_state;

*copyc clt$lexical_units
*copyc clt$parse_state
*copyc clt$string_value
?? POP ??
