note
	description: "Backend listener for profiling"
	author: "Comerge AG, DR"
	date: "$Date$"
	revision: "$Revision$"

class
	AP_BACKEND_LISTENER

inherit
	A_BACKEND_LISTENER
		redefine
			message_converted,
			message_received
		end

	PROFILING_UTILS

create
	make

feature -- creation

	make (a_node: AP_PROFILING_NODE) is
			--
		require
			not_void: a_node /= Void
		do
			node := a_node
		end


feature -- events

	message_received is
			-- measure time
		do
			node.ems_timestamps.force_last (compute_timestamp_now)
		end

	message_converted is
			-- measure time
		do
			node.ems_timestamps.force_last (compute_timestamp_now)
		end

feature {NONE} -- Implementation

	node: AP_PROFILING_NODE

end