Major renaming, adopt the WSF_ prefix for all classes under "wsf", and simplify some class names

Removed in WGI_INPUT_STREAM, the assertion "same_last_string_reference" Copyright updates
2012-03-16 09:49:41 +01:00
parent 25218996e0
commit 46eb92ac37
109 changed files with 517 additions and 236 deletions
--- a/library/server/wsf/router/misc/wsf_format_utility.e
+++ b/library/server/wsf/router/misc/wsf_format_utility.e
@@ -0,0 +1,87 @@
+note
+	description: "Summary description for {WSF_FORMAT_UTILITY }."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	WSF_FORMAT_UTILITY
+
+feature -- Access
+
+	accepted_content_types (req: WSF_REQUEST): detachable ARRAYED_LIST [READABLE_STRING_8]
+		local
+			s: STRING_8
+			q: READABLE_STRING_8
+			p: INTEGER
+			lst: LIST [READABLE_STRING_8]
+			qs: QUICK_SORTER [READABLE_STRING_8]
+		do
+--TEST		if attached ("text/html,application/xhtml+xml;q=0.6,application/xml;q=0.2,text/plain;q=0.5,*/*;q=0.8") as l_accept then
+			if attached req.http_accept as l_accept then
+				lst := l_accept.as_string_8.split (',')
+				create Result.make (lst.count)
+				from
+					lst.start
+				until
+					lst.after
+				loop
+					s := lst.item
+					p := s.substring_index (";q=", 1)
+					if p > 0 then
+						q := s.substring (p + 3, s.count)
+						s := s.substring (1, p - 1)
+					else
+						q := "1.0"
+					end
+					Result.force (q + ":" + s)
+
+					lst.forth
+				end
+				create qs.make (create {COMPARABLE_COMPARATOR [READABLE_STRING_8]})
+				qs.reverse_sort (Result)
+				from
+					Result.start
+				until
+					Result.after
+				loop
+					s := Result.item
+					p := s.index_of (':', 1)
+					if p > 0 then
+						s.remove_head (p)
+					else
+						check should_have_colon: False end
+					end
+					Result.forth
+				end
+			end
+		end
+
+feature {NONE} -- Implementation
+
+	string_in_array (arr: ARRAY [STRING]; s: STRING): BOOLEAN
+		local
+			i,n: INTEGER
+		do
+			from
+				i := arr.lower
+				n := arr.upper
+			until
+				i > n or Result
+			loop
+				Result := s.same_string (arr[i])
+				i := i + 1
+			end
+		end
+
+note
+	copyright: "2011-2012, Jocelyn Fiat, Javier Velilla, 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