Finally SCOOP supported.

This commit is contained in:
2015-03-20 13:37:54 +01:00
parent 0970de5dc6
commit 3da80fce0d
12 changed files with 143 additions and 107 deletions

View File

@@ -10,6 +10,8 @@ class
inherit
WSF_EXECUTION
SHARED_EXECUTION_ENVIRONMENT
create
make
@@ -18,12 +20,22 @@ feature -- Execution
execute
local
s: STRING
i64: INTEGER_64
do
s := "Hello Concurrent EWF"
s.append (" (counter=")
s.append_integer (next_cell_counter_item (counter_cell))
s.append (")%N")
if attached {WSF_STRING} request.query_parameter ("sleep") as p_sleep then
if attached p_sleep.value.is_integer then
s.append ("sleep for ")
i64 := p_sleep.value.to_integer_64 * {INTEGER_64} 1_000_000_000
s.append_integer_64 (i64)
execution_environment.sleep (i64)
end
end
response.set_status_code (200)
response.put_header_line ("X-EWF-Dev: v1.0")
response.header.put_content_type_text_plain

View File

@@ -17,12 +17,17 @@ feature {NONE} -- Initialization
make
-- Initialize `Current'.
local
server: HTTPD_SERVER
server: separate HTTPD_SERVER
fac: separate WSF_HTTPD_REQUEST_HANDLER_FACTORY [APP_WSF_EXECUTION]
do
print ("Hello%N")
create fac
create server.make (fac)
launch_server (server)
end
launch_server (server: separate HTTPD_SERVER)
do
server.configuration.set_max_concurrent_connections (100)
server.configuration.set_http_server_port (9090)
server.launch