class
	EL_COMMA_SEPARATED_WORDS_LIST

inherit
	ECD_RECOVERABLE_CHAIN [EL_COMMA_SEPARATED_WORDS]
		rename
			make_chain_implementation as make_list
		redefine
			make_from_file
		select
			remove, extend, replace
		end

	EL_ARRAYED_LIST [EL_COMMA_SEPARATED_WORDS]
		rename
			make as make_list,
			remove as chain_remove,
			extend as chain_extend,
			replace as chain_replace
		export
			{ECD_CHAIN} set_area
		end

	STRING_HANDLER
		undefine
			copy, is_equal
		end

	EL_EVENT_LISTENER
		rename
			notify as on_table_update
		undefine
			copy, is_equal
		end

	EL_MODULE_BUILD_INFO

create
	make, make_encrypted

feature {NONE} -- Initialization

	make (a_table: EL_WORD_TOKEN_TABLE; a_file_path: FILE_PATH)
		do
			set_table (a_table)
			make_from_file (a_file_path)
		end

	make_encrypted (a_table: EL_WORD_TOKEN_TABLE; a_file_path: FILE_PATH; a_encrypter: EL_AES_ENCRYPTER)
			--
		do
			set_table (a_table)
			make_from_encrypted_file (a_file_path, a_encrypter)
		end

	make_from_file (a_file_path: FILE_PATH)
		do
			is_restored := a_file_path.exists
			Precursor (a_file_path)

			if editions.has_checksum_mismatch then
				is_restored := False
			end
			if is_restored then
				from start until after loop
					item.word_list.do_all (agent table.put)
					forth
				end
				table.set_restored
				last_table_count := table.count
			else
				wipe_out
				safe_store
				editions.close_and_delete
				editions.reopen
			end
		end

feature -- Status query

	is_restored: BOOLEAN

feature -- Measurement

	set_table (a_table: like table)
		do
			table := a_table
			table.on_new_token_list.add_listener (Current)
		end

feature {NONE} -- Implementation

	software_version: NATURAL
		do
			Result := Build_info.version_number
		end

feature {NONE} -- Event handler

	on_delete
		do
		end

	on_table_update
		-- extend any new words from `table' of word tokens.
		local
			new_words: EL_ZSTRING_LIST; delta_count: INTEGER
		do
			if table.count > last_table_count then
				delta_count := table.count - last_table_count
				last_table_count := table.count
				new_words := table.word_list.sub_list (last_table_count - delta_count + 1, last_table_count)
				extend (new_words)
			end
		end

feature {NONE} -- Internal attributes

	last_table_count: INTEGER

	table: EL_WORD_TOKEN_TABLE
end