indexing
	description: "socket event handler"
	library: "elogger"
	copyright: "Copyright (c) 2006, AXA Rosenberg, and others (see copyright.txt)"
	author: "Ulrich Weiss, and others"
	license: "Eiffel Forum License v2 (see forum.txt)"
	date: "$Date: $"
	revision: "$Revision: $"
	archive: "$Archive: $"

class ELOG_SOCKET_EVENT_HANDLER

inherit

	POLL_COMMAND
		rename
			make as command_make
		export
			{NONE} command_make
		end

creation

	make

feature -- Initialization

	make (s: like active_medium; callback: like event_callback) is
			-- create new command to process socket events by calling
			-- 'callback'
		require
			s_not_void: s /= Void
			callback_not_void: callback /= Void
		do
			command_make (s)
			event_callback := callback
		end

feature -- Access

	event_callback: PROCEDURE [ANY, TUPLE[like active_medium]]
			-- Agent to call on an event

feature -- Basic operation

	execute (arg: ANY) is
			-- Process the new connection
		do
			event_callback.call ([active_medium])
		end

end -- class L4E_SOCKET_EVENT_HANDLER