// #include "StdAfx.h" //Needed?
#include "DeviceIkea.h"
#include <algorithm>
#include <bitset>
#include <iostream>
#include <fstream>
#include <string.h>

#ifdef _WINDOWS
#define strcasecmp(x, y) _strcmpi(x, y)
#endif

using namespace TelldusCore;

/*
* Constructor
*/
DeviceIkea::DeviceIkea(int id, const std::string &model, const std::string &name)
	:Device(id, model, name)
{
}

bool DeviceIkea::setSystem(const std::string &strSystem) {
	if (strSystem.length() > 0) {
		intSystem = atoi(strSystem.c_str()) - 1;
	} else {
		intSystem = 0;
	}
	return true;
}

bool DeviceIkea::setUnits(const std::string &strUnits) {
	if (strUnits.length() > 0) {
		intUnits = 0; //Start without any units

		char *tempUnits = new char[strUnits.size()+1];
#ifdef _WINDOWS
		strcpy_s(tempUnits, strUnits.size()+1, strUnits.c_str());
#else
		strcpy(tempUnits, strUnits.c_str());
#endif

		char *strToken = strtok(tempUnits, ",");
		do {
			int intUnit = atoi(strToken);
			if (intUnit == 10) {
				intUnit = 0;
			}
			intUnits = intUnits | ( 1<<(9-intUnit) );
		} while ( (strToken = strtok(NULL, ",")) != NULL );

		free(tempUnits);
	}
	return true;
}

bool DeviceIkea::setFade(const std::string &strFadeStyle) {
	if (strFadeStyle.length() > 0 && strcasecmp(strFadeStyle.c_str(), "true") == 0) {
		intFadeStyle = 1;
	} else {
		intFadeStyle = 0;
	}
	return true;
}

/*
* Destructor
*/
DeviceIkea::~DeviceIkea(void)
{
	intSystem = -1;
	intUnits = -1;
	intFadeStyle = -1;
}

bool DeviceIkea::setDeviceParameter(const std::string &strName, const std::string &strValue) {
	if (strName.compare("system") == 0) {
		return setSystem(strValue);
	} else if (strName.compare("units") == 0) {
		return setUnits(strValue);
	} else if (strName.compare("fade") == 0) {
		return setFade(strValue);
	}
	return false;
}

/*
* Turn on this device
*/
int DeviceIkea::turnOn(void){
	try{
		std::string strMessage = getStringCode(255);

		return Device::send(strMessage);
	}
	catch(...){
		throw;
	}
	return TELLSTICK_ERROR_UNKNOWN;
}

/*
* Turn off this device
*/
int DeviceIkea::turnOff(void){
	try{
		std::string strMessage = getStringCode(0);

		return Device::send(strMessage);
	}
	catch(...){
		throw;
	}
	return TELLSTICK_ERROR_UNKNOWN;
}

/*
* Turn off this device
*/
int DeviceIkea::dim(unsigned char level){
	try{
		std::string strMessage = getStringCode(level);

		return Device::send(strMessage);
	}
	catch(...){
		throw;
	}
	return TELLSTICK_ERROR_UNKNOWN;
}

/*
*	Convert an integer to byte string where 0 is represented by ª and 1 by TT
*/
std::string DeviceIkea::getStringCode(unsigned char level){

	std::string strReturn = "STTTTTTª"; //Startcode, always like this;

	try{
		std::string strChannels = "";
		int intCode = (intSystem << 10) | intUnits;
		int checksum1 = 0;
		int checksum2 = 0;
		for (int i = 13; i >= 0; --i) {
			if ((intCode>>i) & 1) {
				strChannels.append("TT");
				if (i % 2 == 0)
					checksum2++;
				else
					checksum1++;
			} else {
				strChannels.append("ª");
			}
		}
		strReturn.append(strChannels); //System + Units

		strReturn.append(checksum1 %2 == 0 ? "TT" : "ª"); //1st checksum
		strReturn.append(checksum2 %2 == 0 ? "TT" : "ª"); //2nd checksum

		int intLevel = 0;
		if (level <= 12) {
			intLevel = 10; // Level 10 is actually off
		} else if (level <= 37) {
			intLevel = 1;
		} else if (level <= 62) {
			intLevel = 2;
		} else if (level <= 87) {
			intLevel = 3;
		} else if (level <= 112) {
			intLevel = 4;
		} else if (level <= 137) {
			intLevel = 5;
		} else if (level <= 162) {
			intLevel = 6;
		} else if (level <= 187) {
			intLevel = 7;
		} else if (level <= 212) {
			intLevel = 8;
		} else if (level <= 237) {
			intLevel = 9;
		} else {
			intLevel = 0; // Level 0 is actually full on
		}

		int intFade = 0;
		if (intFadeStyle == 1) {
			intFade = 11 << 4; //Smooth
		} else {
			intFade = 1 << 4; //Instant
		}

		intCode = intLevel | intFade; //Concat level and fade

		checksum1 = 0;
		checksum2 = 0;
		for (int i = 0; i < 6; ++i) {
			if ((intCode>>i) & 1) {
				strReturn.append("TT");
				if (i % 2 == 0)
					checksum1++;
				else
					checksum2++;
			} else {
				strReturn.append("ª");
			}
		}

		strReturn.append(checksum1 %2 == 0 ? "TT" : "ª"); //1st checksum
		strReturn.append(checksum2 %2 == 0 ? "TT" : "ª"); //2nd checksum

		strReturn.append("+");
	}
	catch(...){
		throw;
	}
	return strReturn;

}

bool DeviceIkea::parameterMatches( const std::string &name, const std::string &value ) const {
	return false;
}

/*
* Has the device got the method?
*/
int DeviceIkea::methods(){
	return (TELLSTICK_TURNON | TELLSTICK_TURNOFF | TELLSTICK_DIM);
}

std::string DeviceIkea::getProtocol() const {
	return "ikea";
}