Added visitor patterns to WSF_VALUE

Handling UTF-8 unencoding for WSF_VALUE ... Added WSF_TABLE_VALUE to handle list[]=a&list[]=b ... Library encoder: added UTF8 facilities
2011-10-24 17:23:36 +02:00
parent 663a39d2ec
commit fb7854fbcc
27 changed files with 781 additions and 52 deletions
--- a/library/text/encoder/src/utf8_url_encoder.e
+++ b/library/text/encoder/src/utf8_url_encoder.e
@@ -0,0 +1,94 @@
+note
+	description: "[
+			Summary description for {URL_ENCODER}.
+			
+			See: http://www.faqs.org/rfcs/rfc3986.html
+		]"
+	legal: "See notice at end of class."
+	status: "See notice at end of class."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	UTF8_URL_ENCODER
+
+inherit
+	URL_ENCODER
+		redefine
+			default_create,
+			name,
+			encoded_string, partial_encoded_string,
+			decoded_string
+		end
+
+	UNICODE_CONVERSION
+		export
+			{NONE} all
+			{ANY} is_valid_utf8
+		undefine
+			is_little_endian
+		redefine
+			default_create
+		end
+
+feature {NONE} -- Initialization
+
+	default_create
+		do
+			Precursor {UNICODE_CONVERSION}
+		end
+
+feature -- Access
+
+	name: READABLE_STRING_8
+		do
+			create {IMMUTABLE_STRING_8} Result.make_from_string ("UTF8-URL-encoded")
+		end
+
+feature -- Encoder
+
+	encoded_string (s: READABLE_STRING_32): READABLE_STRING_8
+			-- URL-encoded value of `s'.
+		do
+			Result := Precursor (s)
+			if not has_error then
+				Result := utf32_to_utf8 (Result)
+				has_error := not last_conversion_successful
+			end
+		end
+
+	partial_encoded_string (s: READABLE_STRING_32; a_ignore: ARRAY [CHARACTER]): READABLE_STRING_8
+			-- URL-encoded value of `s'.
+		do
+			Result := Precursor (s, a_ignore)
+			if not has_error then
+				Result := utf32_to_utf8 (Result)
+				has_error := not last_conversion_successful
+			end
+		end
+
+feature -- Decoder
+
+	decoded_string (v: READABLE_STRING_8): READABLE_STRING_32
+			-- The URL-encoded equivalent of the given string
+		do
+			Result := Precursor (v)
+			if not has_error then
+				if is_valid_utf8 (Result) then
+					Result := utf8_to_utf32 (Result)
+					has_error := not last_conversion_successful
+				end
+			end
+		end
+
+note
+	copyright: "2011-2011, Eiffel Software and others"
+	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
+	source: "[
+			Eiffel Software
+			5949 Hollister Ave., Goleta, CA 93117 USA
+			Telephone 805-685-1006, Fax 805-685-6869
+			Website http://www.eiffel.com
+			Customer support http://support.eiffel.com
+		]"
+end