class EL_PLAIN_TEXT_FILE_STATE_MACHINE

(source code)

Client examples: FTP_TEST_SET

description

Line state machine for STRING_8 lines read from PLAIN_TEXT_FILE

note
	description: "Line state machine for ${STRING_8} lines read from ${PLAIN_TEXT_FILE}"

	author: "Finnian Reilly"
	copyright: "Copyright (c) 2001-2022 Finnian Reilly"
	contact: "finnian at eiffel hyphen loop dot com"

	license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
	date: "2024-01-20 19:18:25 GMT (Saturday 20th January 2024)"
	revision: "4"


class
	EL_PLAIN_TEXT_FILE_STATE_MACHINE

inherit
	EL_STATE_MACHINE [STRING]

feature {NONE} -- Implementation

	do_with_lines (initial: like final; file_path: FILE_PATH)
		local
			file: PLAIN_TEXT_FILE; l_final: like final
		do
			item_number := 0; l_final := final
			create file.make_open_read (file_path)
			if file.count > 0 then
				from state := initial until state = l_final loop
					file.read_line
					if file.end_of_file then
						state := final
					else
						item_number := item_number + 1
						call (file.last_string)
					end
				end
			end
			file.close
		end

end