note
	description: "API interface to statistics services."
	author: "Patrick Ruckstuhl <patrick@tario.org>"
	date: "$Date$"
	revision: "$Revision$"

class
	INTERNAL_STATISTICS_SERVICE

inherit
	API_SERVICE

	O_CONSTANTS

create
	make

feature -- Basic operations

	update: BOOLEAN_REF
			-- Update statistics.
		local
			l_msg: O_STATISTICS_UPDATE_MESSAGE
		do
				-- generate and send message
			create l_msg.make
			node.send_message (l_msg, origo_statistics_queue)
			create Result
			Result.set_item (True)
		end

feature -- Creation

	new_tuple (a_name: STRING): TUPLE
			-- Tuple of default-valued arguments to pass to call `a_name'.
		do
			if a_name.is_equal (update_name) then
				create {TUPLE}Result
			end
		end

feature -- Initialisation

	self_register
			-- Register all actions for this service
		do
			register_with_help (agent update, update_name, "Update statistics.")
		end

feature {NONE} -- Implementation

	update_name: STRING = "update"

end