added hello_routed_world example

few changes on new `router' library (still in-progress)
2011-07-29 15:13:08 +02:00
parent 1b49445077
commit 801caa4e69
9 changed files with 558 additions and 20 deletions
@@ -0,0 +1,89 @@
+note
+	description: "Summary description for {REQUEST_FORMAT_UTILITY}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	REQUEST_FORMAT_UTILITY
+
+feature -- Access
+
+	accepted_content_types (req: EWSGI_REQUEST): detachable ARRAYED_LIST [STRING]
+		local
+			l_accept: detachable STRING
+			s,q: STRING
+			p: INTEGER
+			lst: LIST [STRING]
+			qs: QUICK_SORTER [STRING]
+		do
+			l_accept := req.environment.http_accept
+--TEST		l_accept := "text/html,application/xhtml+xml;q=0.6,application/xml;q=0.2,text/plain;q=0.5,*/*;q=0.8"
+
+			if l_accept /= Void then
+				lst := l_accept.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 [STRING]})
+				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-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