ManagingFileReader_t Derived Type

public function construct_ManagingFileReader_t(file_name, echo_lines, err) result(res)

Construct a ManagingFileReader_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.

If err is not present, all errors will lead to a stop of the program. Otherwise this argument contains the error code.

Arguments

Return Value type(ManagingFileReader_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

private elemental function is_open(this)

Return if a file is open.

Arguments

Return Value logical