Method installRHS

Tests/Prototype-UnitTesting/kernel/FunctionalTestHarness.cpp:181–205

* Set up the agent with RHS functions common to these * FunctionalTests. */

 * FunctionalTests.
 */
void FunctionalTestHarness::installRHS(sml::Agent* agent)
{
	// set up the agent with common RHS functions
	::rhs_function* halt_function = lookup_rhs_function(internal_agent, make_str_constant(internal_agent, "halt"));
	halt_routine = halt_function->f;
	
	auto call_routine = [](::agent* thisAgent, ::list* args, void* user_data) -> Symbol* {
		return static_cast<user_data_struct*>(user_data)->function();
	};
	
	halt_function->user_data = &haltData;
	halt_function->f = call_routine;
	
	add_rhs_function(internal_agent,
					 make_str_constant(internal_agent, "failed"),
					 call_routine,
					 0, false, true,
					 &failedData);
	
	add_rhs_function(internal_agent,
					 make_str_constant(internal_agent, "succeeded"),
					 call_routine,
					 0, false, true,
					 &succeededData);
}