indexing
	description: "Class used to store commands."
	id: "$Id$"
	date: "$Date$"
	revision: "$Revision$"

class GROUP_STORER 

inherit
	STORABLE_HDL

	SHARED_CONTEXT

	SHARED_STORAGE_INFO

feature {GROUP_STORER}

	stored_data: LINKED_LIST [GROUP]

feature -- Access

	retrieved_data: LINKED_LIST [GROUP]

	file_name: STRING is
		do
			Result := Environment.groups_file_name
		end

	tmp_store (dir_name: STRING) is
		require
			valid_dir_name: dir_name /= Void
		do
			stored_data := Shared_group_list
			tmp_store_by_name (dir_name)
			stored_data := Void
		end

	retrieve (dir_name: STRING) is
		do
			retrieve_by_name (dir_name)
			retrieved_data := retrieved.stored_data
			from
				retrieved_data.start
			until
				retrieved_data.after
			loop
				retrieved_data.item.reset_counter
				retrieved_data.forth
			end
			stored_data := Void
		end

end -- class GROUP_STORER