diff --git a/examples/websocket/application.e b/examples/websocket/application.e
new file mode 100644
index 00000000..72f4f627
--- /dev/null
+++ b/examples/websocket/application.e
@@ -0,0 +1,29 @@
+note
+ description : "simple application root class"
+ date : "$Date$"
+ revision : "$Revision$"
+
+class
+ APPLICATION
+
+create
+ make_and_launch
+
+feature {NONE} -- Initialization
+
+ make_and_launch
+ local
+ l_launcher: WSF_STANDALONE_WEBSOCKET_SERVICE_LAUNCHER [APPLICATION_EXECUTION]
+ opts: WSF_SERVICE_LAUNCHER_OPTIONS
+ do
+ create {WSF_SERVICE_LAUNCHER_OPTIONS_FROM_INI} opts.make_from_file ("ws.ini")
+ create l_launcher.make_and_launch (options)
+ end
+
+ options: WSF_SERVICE_LAUNCHER_OPTIONS
+ -- Initialize current service.
+ do
+ create {WSF_SERVICE_LAUNCHER_OPTIONS_FROM_INI} Result.make_from_file ("ws.ini")
+ end
+
+end
diff --git a/examples/websocket/application_execution.e b/examples/websocket/application_execution.e
new file mode 100644
index 00000000..5ebd702e
--- /dev/null
+++ b/examples/websocket/application_execution.e
@@ -0,0 +1,176 @@
+note
+ description : "simple application execution"
+ date : "$Date$"
+ revision : "$Revision$"
+
+class
+ APPLICATION_EXECUTION
+
+inherit
+ WSF_WEBSOCKET_EXECUTION
+
+ WEB_SOCKET_EVENT_I
+
+create
+ make
+
+feature -- Basic operations
+
+ execute
+ local
+ s: STRING
+ dt: HTTP_DATE
+ do
+ -- To send a response we need to setup, the status code and
+ -- the response headers.
+ if request.path_info.same_string_general ("/app") then
+ s := websocket_app_html (9090)
+ else
+ s := "Hello World!"
+ create dt.make_now_utc
+ s.append (" (UTC time is " + dt.rfc850_string + ").")
+ s.append ("Websocket demo
")
+ end
+ response.put_header ({HTTP_STATUS_CODE}.ok, <<["Content-Type", "text/html"], ["Content-Length", s.count.out]>>)
+ response.set_status_code ({HTTP_STATUS_CODE}.ok)
+ response.header.put_content_type_text_html
+ response.header.put_content_length (s.count)
+ if attached request.http_connection as l_connection and then l_connection.is_case_insensitive_equal_general ("keep-alive") then
+ response.header.put_header_key_value ("Connection", "keep-alive")
+ end
+ response.put_string (s)
+ end
+
+feature -- Websocket execution
+
+ new_websocket_handler (ws: WEB_SOCKET): WEB_SOCKET_HANDLER
+ do
+ create Result.make (ws, Current)
+ end
+
+feature -- Websocket execution
+
+ on_open (ws: WEB_SOCKET)
+ do
+ ws.put_error ("Connecting")
+ end
+
+ on_binary (ws: WEB_SOCKET; a_message: READABLE_STRING_8)
+ do
+ ws.send (Binary_frame, a_message)
+ end
+
+ on_text (ws: WEB_SOCKET; a_message: READABLE_STRING_8)
+ do
+ -- Echo the message for testing.
+ ws.send (Text_frame, a_message)
+ end
+
+ on_close (ws: WEB_SOCKET)
+ -- Called after the WebSocket connection is closed.
+ do
+ ws.put_error ("Connection closed")
+ end
+
+feature -- HTML Resource
+
+ websocket_app_html (a_port: INTEGER): STRING
+ do
+ Result := "[
+
+
+
+
+
+
+
+WebSockets Client
+
+
+
+
+
WebSockets Client
+
+
+
+
+