//
// Copyright (C) 2012 Telldus Technologies AB. All rights reserved.
//
// Copyright: See COPYING file that comes with this distribution
//
//
#include "service/ProtocolIkea.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <string>
#include "common/Strings.h"
#ifdef _WINDOWS
#define strtok_r(s, d, p) strtok_s(s, d, p)
#endif

int ProtocolIkea::methods() const {
	if (TelldusCore::comparei(model(), L"selflearning-switch")) {
		return TELLSTICK_TURNON | TELLSTICK_TURNOFF;
	}
	return TELLSTICK_TURNON | TELLSTICK_TURNOFF | TELLSTICK_DIM;
}

std::string ProtocolIkea::getStringForMethod(int method, unsigned char level, Controller *) {
	const char B1[] = {84, 84, 0};
	const unsigned char B0[] = {170, 0};

	int intSystem = this->getIntParameter(L"system", 1, 16)-1;
	int intFadeStyle = TelldusCore::comparei(this->getStringParameter(L"fade", L"true"), L"true");
	std::wstring wstrUnits = this->getStringParameter(L"units", L"");

	if (method == TELLSTICK_TURNON) {
		level = 255;
	} else if (method == TELLSTICK_TURNOFF) {
		level = 0;
	} else if (method == TELLSTICK_DIM) {
	} else {
		return "";
	}

	if (wstrUnits == L"") {
		return "";
	}

	std::string strUnits(TelldusCore::wideToString(wstrUnits));
	int 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
	snprintf(tempUnits, strUnits.size()+1, "%s", strUnits.c_str());
#endif

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

	delete[] tempUnits;

	std::string strReturn;
	strReturn.append(1, 'S');
	strReturn.append(1, 84);
	strReturn.append(1, 84);
	strReturn.append(1, 84);
	strReturn.append(1, 84);
	strReturn.append(1, 84);
	strReturn.append(1, 84);
	strReturn.append(1, 170);

	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(B1);
			if (i % 2 == 0)
				checksum2++;
			else
				checksum1++;
		} else {
			strChannels.append(reinterpret_cast<const char *>(B0));
		}
	}
	strReturn.append(strChannels);  // System + Units

	strReturn.append(checksum1 %2 == 0 ? B1 : reinterpret_cast<const char *>(B0));  // 1st checksum
	strReturn.append(checksum2 %2 == 0 ? B1 : reinterpret_cast<const char *>(B0));  // 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(B1);
			if (i % 2 == 0)
				checksum1++;
			else
				checksum2++;
		} else {
			strReturn.append(reinterpret_cast<const char *>(B0));
		}
	}

	strReturn += checksum1 %2 == 0 ? B1 : reinterpret_cast<const char *>(B0);  // 1st checksum
	strReturn += checksum2 %2 == 0 ? B1 : reinterpret_cast<const char *>(B0);  // 2nd checksum

	strReturn.append("+");

	return strReturn;
}