note
	description: "Summary description for {COMMON_RESULTS}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	COMMON_RESULTS
inherit
	ANY
		redefine
			out
		end

	DEBUG_OUTPUT
		redefine
			out
		end

create
	make

feature -- Initialization

	make
		do
			create params.make (2)
		end

feature -- Access

	field: detachable STRING


	item (a_key: STRING): detachable STRING
			-- Item associated with `a_key', if present
			-- otherwise default value of type `STRING'
		do
			Result := params.item (a_key)
		end

	keys: LIST [STRING]
			-- arrays of currents keys
		local
			res: ARRAYED_LIST [STRING]
		do
			create res.make_from_array (params.current_keys)
			Result := res
		end

	has_key (a_key: STRING): BOOLEAN
			-- Is there an item in the table with key `a_key'?
		do
			Result := params.has_key (a_key)
		end

feature -- Element change

	set_field (a_field: STRING)
			-- Set type with `a_charset'	
		do
			field := a_field
		ensure
			field_assigned: field ~ field
		end


    put (new: STRING; key: STRING)
			-- Insert `new' with `key' if there is no other item
			-- associated with the same key. If present, replace
			-- the old value with `new'
		do
			if params.has_key (key) then
				params.replace (new, key)
			else
				params.force (new, key)
			end
		ensure
			has_key: params.has_key (key)
			has_item: params.has_item (new)
		end

feature -- Status Report

	out: STRING
			-- Representation of the current object
		do
			create Result.make_from_string ("(")
			if attached field as t then
				Result.append_string ("'" + t + "',")
			end
			Result.append_string (" {")

			from
				params.start
			until
				params.after
			loop
				Result.append ("'" + params.key_for_iteration + "':'" + params.item_for_iteration + "',");
				params.forth
			end
			Result.append ("})")
		end

	debug_output: STRING
			-- String that should be displayed in debugger to represent `Current'.
		do
			Result := out
		end

feature {NONE} -- Implementation

	params: HASH_TABLE [STRING, STRING]
			--dictionary of all the parameters for the media range

;note
	copyright: "2011-2011, Javier Velilla, Jocelyn Fiat and others"
	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
end