/*
* Title:	Control.cpp
* Author:	M.Thomas BEAM Ltd
* Date:		2007-02-13
*
* Contents:	Tms Client control. All Server request are routed through here.
*
* Mod Rec:
*
*/


#include <Control.h>
#include <iostream>
#include <Debug.h>

using namespace std;
using namespace Tms;

Control::Control() {
	ohostName = "localhost";
};

Control::~Control(){};
	
BError		Control::init() {					///< Initialise the system
	BError	err;
	err = connect();
	return err;
}

void	Control::setHost(BString host) {				///< Set host
	ohostName = host;
}

BError	Control::connect() {
	BError	err;

	dprintf(DBG_CONTROL,"Connecting to server - Disconnecting services\n");

	otmsControl.disconnectService();
	otmsProcess.disconnectService();
	dprintf(DBG_CONTROL,"Connecting to server - Services Disconnected\n");
	dprintf(DBG_CONTROL,"Connecting to boap object - (%s/tmsControl)\n",ohostName.retStr());
	
	if(err = otmsControl.connectService(BString("//") + ohostName + "/tmsControl")){
		cerr << "Error: cannot connect to tmsControl: " << err.getString() << "\n";
		return err;
	}
	dprintf(DBG_CONTROL,"Connecting to boap object - (%s/tmsProcess)\n",ohostName.retStr());
	if(err = otmsProcess.connectService(BString("//") + ohostName + "/tmsProcess")){
		cerr << "Error: cannot connect to tmsProcess: " << err.getString() << "\n";
		return err;
	}
	dprintf(DBG_CONTROL,"Connected to server objects\n");
	emit newConnection();
	return err;
}

BError	Control::reconfigure(Tms::ConfigInfo info) {			///< Reconfigure the system
	dprintf(DBG_CONTROL,"configure\n");
	return otmsControl.configure(info);
}

BError	Control::getConfiguration(Tms::ConfigInfo& info) {		
	dprintf(DBG_CONTROL,"getConfiguration\n");
	return otmsControl.getConfiguration(info);
}

BError	Control::setPupeConfig(Tms::PuChannel puChannel,Tms::PupeConfig pupeConfig) {
	dprintf(DBG_CONTROL,"setPupeConfig\n");
	return otmsControl.setPupeConfig(puChannel,pupeConfig);
}

BError	Control::getPupeConfig(Tms::PuChannel puChannel,Tms::PupeConfig& pupeConfig) {
	dprintf(DBG_CONTROL,"getPupeConfig\n");
	return otmsControl.getPupeConfig(puChannel,pupeConfig);
}


BError	Control::runTest(BList<BError>& l) {				///< Start the system running
	dprintf(DBG_CONTROL,"runTest\n");
	return otmsControl.test(l);
}


BError	Control::getTestData(PuChannel puPhysChannel, TestCaptureInfo captureInfo, BArray< UInt64 > &data) {
	dprintf(DBG_CONTROL,"getTestData\n");
	return otmsControl.captureTestData(puPhysChannel,captureInfo,data);
}

BError	Control::getPuChannel (UInt32 puChannel, PuChannel &puPhysChannel){
	dprintf(DBG_CONTROL,"getPuChannel\n");
	return otmsControl.getPuChannel(puChannel,puPhysChannel);
}

BError	Control::setTestData(PuChannel puChannel,Int32 on, BArray<UInt32> data) {
	dprintf(DBG_CONTROL,"setTestData\n");
	return otmsControl.setTestData(puChannel,on,data);
}

BError	Control::getStatus(BList<Tms::NameValue>& l) {			///< Get Status
	dprintf(DBG_CONTROL,"getStatus\n");
	return otmsControl.getStatus(l);
}

BError	Control::getStatistics(BList<Tms::NameValue>& l) {		///< Get Statistics
	dprintf(DBG_CONTROL,"getStatistics\n");
	return otmsControl.getStatistics(l);
}

BError	Control::initialiseServer() {
	dprintf(DBG_CONTROL,"init\n");
	return otmsControl.init();
}


BError	Control::getData(Tms::DataInfo info,Tms::Data& data) {				///< Get Data
	dprintf(DBG_CONTROL,"getData\n");
	return otmsProcess.getData(info,data);
}

BError	Control::setControlInfo(Tms::CycleParam	params) {				///< Setup cycle parameters
	dprintf(DBG_CONTROL,"setControlInfo\n");
	return otmsProcess.setControlInfo(params);
}

BError  Control::getControlInfo(BString cycleType, UInt32 puChannel, Tms::CycleParam& params) {	///< Gets the control information for the cycle type and puChannel number given. The call will return an error object indicating success or an error
	dprintf(DBG_CONTROL,"getControlInfo\n");
	return otmsProcess.getControlInfo(cycleType, puChannel,params);
}


BError	Control::getCycleInfo(UInt32& cycleNumber,BString& cycleType ) {
	dprintf(DBG_CONTROL,"getCycleInfo\n");
	return otmsProcess.getCycleInfo(cycleNumber,cycleType);
}


BError Control::getControlList(BList<CycleParamItem>& itemList) {	///< Gets the list of Cycle Parameters present in the system
	dprintf(DBG_CONTROL,"getControlList\n");
	return otmsProcess.getControlList(itemList);
}


BError	Control::setNextCycle(UInt32 cycleNumber,BString cycleType) {
	dprintf(DBG_CONTROL,"setNextCycle (%d) (%s)\n",cycleNumber,cycleType.retStr());
	return otmsProcess.setNextCycle(cycleNumber,cycleType);
}