note description: "Base class for all profiling nodes" author: "Comerge AG, DR" date: "$Date$" revision: "$Revision$" deferred class AP_PROFILING_NODE inherit A_NODE redefine ems_connection, aranea_prefix, config_parser, create_backend_listener, log_level end PROFILING_CONSTANTS --create -- make_profiling_node feature -- Creation make_profiling_node -- Create the node do create app_timestamps.make_default create ems_timestamps.make_default create backend_listener.make (Current) -- we don't want to use any config file therefore we create a test node make_test_node end feature -- Access Name: attached STRING once Result := "Aranea Profiling Node" end Version: attached STRING once Result := "$Revision$" end ems_connection: STRING -- EMS connection string. once Result := default_ems_connection Result := Result.twin end aranea_prefix: STRING -- Aranea queue prefix once Result := aranea_queue_name_prefix Result := Result.twin end config_parser: A_CONF_PARSER -- Access to the configuration values once Result := create {A_TEST_CONF_PARSER}.make_test end clean_results -- additional cleanup operations before the results are being computed do -- empty default implementation, redefine if needed end log_level: L4E_PRIORITY do Result := warn_p end feature -- Measurement app_timestamps: DS_ARRAYED_LIST [INTEGER_64] -- timestamps taken in the application layer ems_timestamps: DS_ARRAYED_LIST [INTEGER_64] -- timestamps taken in the ems layer feature {NONE} -- Implementation backend_listener: AP_BACKEND_LISTENER create_msg_factory: A_MESSAGE_FACTORY -- Create the message factory local l_factory: AP_MESSAGE_FACTORY do create l_factory.make -- l_factory.set_node (Current) -- create {AP_PROFILING_MESSAGE_FACTORY}Result.make Result := l_factory end create_backend_listener: A_BACKEND_LISTENER -- Creates a backend listener. do Result := backend_listener end end