Finally SCOOP supported.
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user