deferred class
	EL_SERVER_COMMAND_HANDLER

feature {NONE} -- Initialization

	make (a_socket: like socket)
		do
			socket := a_socket
			response := Response_ok
			command_table := new_command_table
		end

feature -- Access

	response: STRING

feature -- Basic operations

	execute (command, a_arguments: STRING)
		do
			if command_table.has_key (command) then
				command_table.found_item (a_arguments)
			end
		end

feature {NONE} -- Implementation

	command_table: EL_HASH_TABLE [PROCEDURE [STRING], STRING]

	new_command_table: like command_table
		deferred
		end

feature {NONE} -- Internal attributes

	socket: EL_STREAM_SOCKET

feature {EL_SIMPLE_SERVER} -- Constants

	Response_ok: STRING = "ok"

end