renamed WSF_(.*)_VALUE as WSF_$1

library/server/wsf/src/request/value/wsf_table.e

@@ -0,0 +1,131 @@
+note
+	description: "[
+			Table which can contain value indexed by a key
+		]"
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	WSF_TABLE
+
+inherit
+	WSF_VALUE
+
+	ITERABLE [WSF_VALUE]
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_name: READABLE_STRING_8)
+		do
+			name := url_decoded_string (a_name)
+			create values.make (5)
+		end
+
+feature -- Access
+
+	name: READABLE_STRING_32
+
+	first_value: detachable WSF_VALUE
+			-- First value if any.
+		do
+			across
+				values as c
+			until
+				Result /= Void
+			loop
+				Result := c.item
+			end
+		end
+
+	first_key: detachable READABLE_STRING_32
+		do
+			across
+				values as c
+			until
+				Result /= Void
+			loop
+				Result := c.key
+			end
+		end
+
+	values: HASH_TABLE [WSF_VALUE, READABLE_STRING_32]
+
+	value (k: READABLE_STRING_32): detachable WSF_VALUE
+		do
+			Result := values.item (k)
+		end
+
+	count: INTEGER
+		do
+			Result := values.count
+		end
+
+feature -- Element change
+
+	add_value (a_value: WSF_VALUE; k: READABLE_STRING_32)
+		require
+			same_name: a_value.name.same_string (name)
+		do
+			values.force (a_value, k)
+		end
+
+feature -- Traversing
+
+	new_cursor: ITERATION_CURSOR [WSF_VALUE]
+		do
+			Result := values.new_cursor
+		end
+
+feature -- Helper
+
+	same_string (a_other: READABLE_STRING_GENERAL): BOOLEAN
+			-- Does `a_other' represent the same string as `Current'?
+		do
+			if values.count = 1 and then attached first_value as f then
+				Result := f.same_string (a_other)
+			end
+		end
+
+	is_case_insensitive_equal (a_other: READABLE_STRING_8): BOOLEAN
+			-- Does `a_other' represent the same case insensitive string as `Current'?	
+		do
+			if values.count = 1 and then attached first_value as f then
+				Result := f.is_case_insensitive_equal (a_other)
+			end
+		end
+
+	as_string: STRING_32
+		do
+			create Result.make_from_string ("{")
+			if values.count = 1 and then attached first_key as fk then
+				Result.append (fk + ": ")
+				if attached value (fk) as fv then
+					Result.append (fv.as_string)
+				else
+					Result.append ("???")
+				end
+			else
+				across
+					values as c
+				loop
+					if Result.count > 1 then
+						Result.append_character (',')
+					end
+					Result.append (c.key + ": ")
+					Result.append (c.item.as_string)
+				end
+			end
+			Result.append_character ('}')
+		end
+
+feature -- Visitor
+
+	process (vis: WSF_VALUE_VISITOR)
+		do
+			vis.process_table (Current)
+		end
+
+end