/* Copyright (c) 2015, Arduino LLC
**
** Original code (pre-library): Copyright (c) 2011, Peter Barrett
**
** Permission to use, copy, modify, and/or distribute this software for  
** any purpose with or without fee is hereby granted, provided that the  
** above copyright notice and this permission notice appear in all copies.  
** 
** THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL  
** WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED  
** WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR  
** BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES  
** OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,  
** WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,  
** ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS  
** SOFTWARE.  
*/

#include "PluggableUSB.h"
#include "HID.h"

#if defined(USBCON)

HID_ HID;

int HID_::getInterface(uint8_t* interfaceNum)
{
	interfaceNum[0] += 1;	// uses 1
	hidInterface =
	{
		D_INTERFACE(interface(), 1, 3, 0, 0),
		D_HIDREPORT(sizeof_hidReportDescriptor),
		D_ENDPOINT(USB_ENDPOINT_IN(endpoint()), USB_ENDPOINT_TYPE_INTERRUPT, USB_EP_SIZE, 0x01)
	};
	return USB_SendControl(0, &hidInterface, sizeof(hidInterface));
}

int HID_::getDescriptor(int8_t t)
{
	if (HID_REPORT_DESCRIPTOR_TYPE == t) {
		HIDDescriptorListNode* current = rootNode;
		int total = 0;
		while(current != NULL) {
			total += USB_SendControl(TRANSFER_PGM,current->data,current->length);
			current = current->next;
		}
		return total;
	} else {
		return 0;
	}
}

void HID_::AppendDescriptor(HIDDescriptorListNode *node)
{
	if (modules_count == 0) {
		rootNode = node;
	} else {
		HIDDescriptorListNode *current = rootNode;
		while(current->next != NULL) {
			current = current->next;
		}
		current->next = node;
	}
	modules_count++;
	sizeof_hidReportDescriptor += (uint16_t)node->length;
}

void HID_::SendReport(uint8_t id, const void* data, int len)
{
	USB_Send(endpoint(), &id, 1);
	USB_Send(endpoint() | TRANSFER_RELEASE,data,len);
}

bool HID_::setup(USBSetup& setup, uint8_t i)
{
	if (interface() != i) {
		return false;
	} else {
		uint8_t r = setup.bRequest;
		uint8_t requestType = setup.bmRequestType;
		if (REQUEST_DEVICETOHOST_CLASS_INTERFACE == requestType)
		{
			if (HID_GET_REPORT == r)
			{
				//HID_GetReport();
				return true;
			}
			if (HID_GET_PROTOCOL == r)
			{
				//Send8(protocol);	// TODO
				return true;
			}
		}
		
		if (REQUEST_HOSTTODEVICE_CLASS_INTERFACE == requestType)
		{
			if (HID_SET_PROTOCOL == r)
			{
				protocol = setup.wValueL;
				return true;
			}

			if (HID_SET_IDLE == r)
			{
				idle = setup.wValueL;
				return true;
			}
		}
		return false;
	}
}

// XXX: I've found no way to pass literal value directly in
//      the PUSBListNode constructor
static uint8_t epTypeDef[] = { EP_TYPE_INTERRUPT_IN };

HID_::HID_(void) : PUSBListNode(1, 1, epTypeDef),
                   rootNode(NULL), sizeof_hidReportDescriptor(0),
                   modules_count(0), protocol(1), idle(1)
{
	// XXX: Shall this be done in PUSBListNode(...) constructor?
	PluggableUSB.plug(this);
}

int HID_::begin(void)
{
	return 0;
}

#endif /* if defined(USBCON) */