
  PROCEDURE [INLINE] clp$get_return_file_vals_as_str
    (VAR return_file_values_as_strings: boolean);

?? PUSH (LISTEXT := ON) ??

    VAR
      block: ^clt$block;


    clp$find_current_block (block);
    IF (block^.kind = clc$input_block) AND
          (block^.input.kind = clc$file_input) AND
          block^.input.interactive_device THEN
      block := block^.previous_block;
    IFEND;

    IF (block^.kind <> clc$command_block) OR block^.pvt.built THEN
      return_file_values_as_strings := FALSE;
    ELSE
      return_file_values_as_strings := block^.return_file_values_as_strings;
    IFEND;

  PROCEND clp$get_return_file_vals_as_str;

*copyc clt$block
?? POP ??
*copyc clp$find_current_block
