- ds_rtrim (&getl_buf, ss_cstr (CC_SPACES));
- dot = ds_chomp (&getl_buf, get_endcmd ());
- if (recognize_do_repeat (ds_cstr (&getl_buf)))
- nesting_level++;
- else if (recognize_end_repeat (ds_cstr (&getl_buf), &block->print))
+ /* Create a line structure. */
+ line = pool_alloc (block->pool, sizeof *line);
+ line->file_name = previous_file_name;
+ line->line_number = getl_source_location (lex_get_source_stream (lexer));
+ ss_alloc_substring_pool (&line->text, ds_ss (&text), block->pool);
+
+
+ /* Check whether the line contains a DO REPEAT or END
+ REPEAT command. */
+ lex_preprocess_line (&text,
+ lex_current_syntax_mode (lexer),
+ &command_ends_before_line,
+ &command_ends_after_line);
+ if (recognize_do_repeat (ds_ss (&text)))