Better support for unicode path and values.

Added WSF_REQUEST.percent_encoded_path_info: READABLE_STRING_8
    to keep url encoded path info, as it is useful for specific component

The router is now using WSF_REQUEST.percent_encoded_path_info
    since URI_TEMPLATE are handling URI (and not IRI)
    this fixes an issue with unicode path parameters.

This should not break existing code, and this fixes various unicode related issues related
   to PATH parameter and path info
   but also any component using file names.

(required EiffelStudio >= 7.2)

library/text/encoder/src/utf8_url_encoder.e

@@ -15,23 +15,24 @@ class
 inherit
 	URL_ENCODER
 		redefine
-			default_create,
 			name,
 			general_encoded_string,
 			encoded_string, partial_encoded_string,
 			decoded_string
+		select
+			encoded_string,
+			decoded_string,
+			has_error
 		end
 
-	UTF8_ENCODER_HELPER
+	UTF8_ENCODER
+		rename
+			general_encoded_string as utf8_general_encoded_string,
+			encoded_string as utf8_encoded_string,
+			decoded_string as utf8_decoded_string,
+			has_error as utf8_has_error
 		redefine
-			default_create
-		end
-
-feature {NONE} -- Initialization
-
-	default_create
-		do
-			Precursor {UTF8_ENCODER_HELPER}
+			name
 		end
 
 feature -- Access
@@ -46,27 +47,22 @@ feature -- Encoder
 	encoded_string (s: READABLE_STRING_32): STRING_8
 			-- URL-encoded value of `s'.
 		do
-			Result := utf32_to_utf8 (s)
-			Result := Precursor (Result)
+			Result := general_encoded_string (s)
 		end
 
 	general_encoded_string (s: READABLE_STRING_GENERAL): STRING_8
 		do
-			if attached {READABLE_STRING_32} s as s32 then
-				Result := utf32_to_utf8 (s32)
-			else
-				Result := s.as_string_8
-			end
-			Result := Precursor (Result)
+			Result := utf8_general_encoded_string (s)
+			Result := Precursor {URL_ENCODER} (Result)
+			has_error := has_error or utf8_has_error
 		end
 
 	partial_encoded_string (s: READABLE_STRING_GENERAL; a_ignore: ARRAY [CHARACTER]): STRING_8
 			-- URL-encoded value of `s'.
 		do
-			Result := Precursor (s, a_ignore)
-			if not has_error then
-				Result := utf32_to_utf8 (Result)
-			end
+			Result := utf8_general_encoded_string (s)
+			Result := Precursor {URL_ENCODER} (Result, a_ignore)
+			has_error := has_error or utf8_has_error
 		end
 
 feature -- Decoder
@@ -74,17 +70,15 @@ feature -- Decoder
 	decoded_string (v: READABLE_STRING_8): STRING_32
 			-- The URL-encoded equivalent of the given string
 		do
-			Result := Precursor (v)
+			Result := Precursor {URL_ENCODER} (v)
 			if not has_error then
-				if is_valid_utf8 (Result) then
-					Result := utf8_to_utf32 (Result)
-					has_error := not last_conversion_successful
-				end
+				Result := utf8_decoded_string (Result)
+				has_error := utf8_has_error
 			end
 		end
 
 note
-	copyright: "2011-2012, Eiffel Software and others"
+	copyright: "2011-2013, Eiffel Software and others"
 	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
 	source: "[
 			Eiffel Software