// STL includes
#include <cstring>
#include <csignal>

// QT includes
#include <QFile>

// Local LedDevice includes
#include "LedDevicePiBlaster.h"

LedDevicePiBlaster::LedDevicePiBlaster(const QJsonObject &deviceConfig)
	: _fid(nullptr)
{
	_devConfig = deviceConfig;
	_deviceReady = false;

	signal(SIGPIPE,  SIG_IGN);

	// initialise the mapping tables
	// -1 is invalid
	// z is also meaningless
	// { "gpio" : 4, "ledindex" : 0, "ledcolor" : "r" },
	#define TABLE_SZ sizeof(_gpio_to_led)/sizeof(_gpio_to_led[0])

	for (unsigned i=0; i <  TABLE_SZ; i++ )
	{
		_gpio_to_led[i] = -1;
		_gpio_to_color[i] = 'z';
	}
}

LedDevicePiBlaster::~LedDevicePiBlaster()
{

}


bool LedDevicePiBlaster::init(const QJsonObject &deviceConfig)
{
	bool isInitOK = LedDevice::init(deviceConfig);

	_deviceName    = deviceConfig["output"].toString("/dev/pi-blaster");

	if ( isInitOK )
	{
		QJsonArray gpioMapping = deviceConfig["gpiomap"].toArray();

		if (gpioMapping.isEmpty())
		{
			this->setInError("PiBlaster: no gpiomap defined.");
			return false;
		}

		// walk through the json config and populate the mapping tables
		for(QJsonArray::const_iterator gpioArray = gpioMapping.begin(); gpioArray != gpioMapping.end(); ++gpioArray)
		{
			const QJsonObject value = (*gpioArray).toObject();
			const int gpio = value["gpio"].toInt(-1);
			const int ledindex = value["ledindex"].toInt(-1);
			const std::string ledcolor = value["ledcolor"].toString("z").toStdString();

			// ignore missing/invalid settings
			if ( (gpio >= 0) && (gpio < signed(TABLE_SZ)) && (ledindex >= 0) ){
				_gpio_to_led[gpio] = ledindex;
				_gpio_to_color[gpio] = ledcolor[0]; // 1st char of string
			} else {
				Warning( _log, "IGNORING gpio %d ledindex %d color %c", gpio,ledindex, ledcolor[0]);
			}
		}
	}
	return isInitOK;
}

LedDevice* LedDevicePiBlaster::construct(const QJsonObject &deviceConfig)
{
	return new LedDevicePiBlaster(deviceConfig);
}

int LedDevicePiBlaster::open()
{
	int retval = -1;
	QString errortext;
	_deviceReady = false;

	if ( init(_devConfig) )
	{
		if (_fid != nullptr)
		{
			// The file pointer is already open
			errortext = QString ("Device (%1) is already open.").arg(_deviceName);
		}
		else
		{
			if (!QFile::exists(_deviceName))
			{
				errortext = QString ("The device (%1) does not yet exist.").arg(_deviceName);

			}
			else
			{
				_fid = fopen(QSTRING_CSTR(_deviceName), "w");
				if (_fid == nullptr)
				{
					errortext = QString ("Failed to open device (%1). Error message: %2").arg(_deviceName, strerror(errno));
				}
				else
				{
					Info( _log, "Connected to device(%s)", QSTRING_CSTR(_deviceName));
					retval = 0;
					setEnable(true);
				}
			}
		}

		if ( retval < 0 )
		{
			this->setInError( errortext );

		}
	}
	return retval;
}

void LedDevicePiBlaster::close()
{
	LedDevice::close();

	// LedDevice specific closing activites
	// Close the device (if it is opened)
	if (_fid != nullptr)
	{
		fclose(_fid);
		_fid = nullptr;
	}}


int LedDevicePiBlaster::write(const std::vector<ColorRgb> & ledValues)
{
	// Attempt to open if not yet opened
	if (_fid == nullptr && open() < 0)
	{
		return -1;
	}

	for (unsigned int i=0; i < TABLE_SZ; i++ )
	{
		int valueIdx = _gpio_to_led[ i ];
		if ( (valueIdx >= 0) && (valueIdx < static_cast<int>( _ledCount)) )
		{
			double pwmDutyCycle = 0.0;
			switch (_gpio_to_color[ i ]) 
			{
			case 'r':
				pwmDutyCycle = ledValues[valueIdx].red / 255.0;
				break;
			case 'g':
				pwmDutyCycle = ledValues[valueIdx].green / 255.0;
				break;
			case 'b':
				pwmDutyCycle = ledValues[valueIdx].blue / 255.0;
				break;
			case 'w':
				pwmDutyCycle = ledValues[valueIdx].red;
				pwmDutyCycle += ledValues[valueIdx].green;
				pwmDutyCycle += ledValues[valueIdx].blue;
				pwmDutyCycle /= (3.0*255.0);
				break;
			default:
				continue;
			}

//			fprintf(_fid, "%i=%f\n", iPins[iPin], pwmDutyCycle);

			if ( (fprintf(_fid, "%i=%f\n", i, pwmDutyCycle) < 0) 
			  || (fflush(_fid) < 0)) {
				if (_fid != nullptr)
				{
					fclose(_fid);
					_fid = nullptr;
					return -1;
				}
			}
		}
	}

	return 0;
}