AttachedFileReader_t Derived Type

private function construct_AttachedFileReader_t(file_id, echo_lines, file_name, current_line) result(res)

Construct an AttachedFileReader_t

If the argument echo_lines is present, then the read lines are echoed to the unit echo_lines. If the argument is not present, the echoing is switched off.

Arguments

Return Value type(AttachedFileReader_t)

private impure elemental subroutine my_close(this, delete)

Close the file.

Arguments

private function nextline(this, tokenized_line, skip_empty) result(can_still_read)

Return if the next line can be read. It is written to the out-argument.

Note that it reads the next logical line, so if there are two lines connected by a line-continuation symbol, the two lines will be read.

If skip_empty is true, then lines that have no tokens are automatically skipped and the next logical line is tested. Note that empty lines includes lines that are not blank, but contain only comments.

Arguments

Return Value logical

private subroutine my_rewind(this)

Rewind the file

Arguments

private subroutine set_echo_lines(this, echo_lines)

Set the unit where to echo lines.

If the argument is present, then the read lines are echoed to the unit echo_lines. If the argument is not present, the echoing is switched off.

Arguments

private elemental function get_current_line(this) result(res)

Return the current line (if defined)

This is the line that would be returned, when calling this%raw_nextline().

Arguments

Return Value integer

private pure function get_file_name(this) result(res)

Return the file name (if defined)

Arguments

Return Value character(len=:), allocatable