note
	description: "EMS with profiling instrumentation"
	author: "Comerge AG, DR"
	date: "$Date$"
	revision: "$Revision$"

class
	AP_PROFILING_EMS

inherit
	A_EMS
		redefine
			send_to_destination
		end

	PROFILING_UTILS

create
	make

feature -- Message sending

	send_to_destination (a_message: A_MESSAGE; a_correlation_id: STRING; a_destination: DESTINATION) is
		local
			l_timestamp: INTEGER_64
			l_node: AP_PROFILING_NODE
		do
			Precursor {A_EMS} (a_message, a_correlation_id, a_destination)

				-- TODO maybe this should be measured INSIDE send_to_destination after a MESSAGE object has been created,
				-- to exclude any network activity (to make it symetric to the receiver side). If so, how to do this?
			l_timestamp := compute_timestamp_now
			l_node ?= node
			l_node.ems_timestamps.force_last (l_timestamp)
		end

end