Implemented support for base url in httpd connector.

library/server/wsf/src/wsf_execution.e

@@ -15,7 +15,8 @@ inherit
 		redefine
 			make,
 			execute,
-			clean
+			clean,
+			is_valid_end_of_execution
 		end
 
 --create
@@ -47,8 +48,24 @@ feature {NONE} -- Access
 	response: WSF_RESPONSE
 			-- Access to output stream, back to the client.
 
+feature -- Execution
+
+	execute
+			-- Execute Current `request',
+			-- getting data from `request'
+			-- and response to client via `response'.
+		deferred
+		end
+
 feature -- Status report
 
+	is_valid_end_of_execution: BOOLEAN
+			-- <Precursor>
+		do
+				--| Note: overwrite precursor implementation
+			Result := Precursor and response.status_is_set
+		end
+
 	message_writable: BOOLEAN
 		do
 			Result := response.message_writable
@@ -77,16 +94,6 @@ feature -- Helpers
 			response.put_error (err)
 		end
 
-feature -- Execution
-
-	execute
-			-- Execute Current `request',
-			-- getting data from `request'
-			-- and response to client via `response'.
-		deferred
-		ensure then
-			status_is_set: response.status_is_set
-		end
 
 feature -- Cleaning
 
@@ -97,6 +104,11 @@ feature -- Cleaning
 			request.destroy
 		end
 
+invariant
+
+	wsf_request_set: request /= Void
+	wsf_response_set: response /= Void
+
 note
 	copyright: "2011-2015, Jocelyn Fiat, Javier Velilla, Olivier Ligot, Colin Adams, Eiffel Software and others"
 	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"