/*
 * Copyright (C) 2015, 2016 "IoT.bzh"
 * Author "Romain Forlot" <romain.forlot@iot.bzh>
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *	 http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

#pragma once

/********************************************************************************
*
*		CanBus method implementation
*
*********************************************************************************/

can_bus_t::can_bus_t(afb_binding_interface *itf, const std:string &dev_name)
    : interface{itf}, deviceName{dev_name}
{
}

int can_bus_t::open()
{
	const int canfd_on = 1;
	struct ifreq ifr;
	struct timeval timeout = {1, 0};

	DEBUG(interface_, "open_can_dev: CAN Handler socket : %d", can_socket_);
	if (can_socket_ >= 0)
		return 0;

	can_socket_ = ::socket(PF_CAN, SOCK_RAW, CAN_RAW);
	if (socket < 0)
	{
		ERROR(interface_, "open_can_dev: socket could not be created");
	}
	else
	{
		/* Set timeout for read */
		::setsockopt(can_socket_, SOL_SOCKET, SO_RCVTIMEO, (char *)&timeout, sizeof(timeout));
		/* try to switch the socket into CAN_FD mode */
		if (::setsockopt(can_socket_, SOL_CAN_RAW, CAN_RAW_FD_FRAMES, &canfd_on, sizeof(canfd_on)) < 0)
		{
			NOTICE(interface_, "open_can_dev: Can not switch into CAN Extended frame format.");
			is_fdmode_on_ = false;
		} else {
			is_fdmode_on_ = true;
		}

		/* Attempts to open a socket to CAN bus */
		::strcpy(ifr.ifr_name, device);
		if(ioctl(can_socket_, SIOCGIFINDEX, &ifr) < 0)
			ERROR(interface_, "open_can_dev: ioctl failed");
		else
		{
			txAddress.can_family = AF_CAN;
			txAddress.can_ifindex = ifr.ifr_ifindex;

			/* And bind it to txAddress */
			if (::bind(can_socket_, (struct sockaddr *)&txAddress_, sizeof(txAddress_)) < 0)
			{
				ERROR(interface_, "open_can_dev: bind failed");
			}
			else
			{
				::fcntl(can_socket_, F_SETFL, O_NONBLOCK);
				return 0;
			}
		}
		close();
	}
	return -1;
}

int can_bus_t::close()
{
	::close(can_socket_);
	can_socket_ = -1;
}


canfd_frame can_bus_t::can_read()
{
	ssize_t nbytes;
	//int maxdlen;
	canfd_frame canfd_frame;

	/* Test that socket is really opened */
	if (can_socket_ < 0)
	{
		ERROR(interface_, "read_can: Socket unavailable. Closing thread.");
		is_running_ = false;
	}

	nbytes = ::read(can_socket_, &canfd_frame, CANFD_MTU);

	switch(nbytes)
	{
		case CANFD_MTU:
			DEBUG(interface_, "read_can: Got an CAN FD frame with length %d", canfd_frame.len);
			//maxdlen = CANFD_MAX_DLEN;
			break;
		case CAN_MTU:
			DEBUG(interface_, "read_can: Got a legacy CAN frame with length %d", canfd_frame.len);
			//maxdlen = CAN_MAX_DLEN;
			break;
		default:
			if (errno == ENETDOWN)
					ERROR(interface_, "read_can: %s interface down", device);
			ERROR(interface_, "read_can: Error reading CAN bus");
			::memset(&canfd_frame, 0, sizeof(canfd_frame));
			break;
	}
	
	return canfd_frame;
}

void can_bus_t::start_threads()
{
	th_reading_ = std::thread(can_reader, interface, socket, can_message_q_);
	is_running_ = true;

	th_decoding_ = std::thread(can_decoder, interface, can_message_q, can_message_q_);
	th_pushing_ = std::thread(can_event_push, interface, can_message_q_);
}

/*
 * Return is_running_ bool
 */
bool can_bus_t::is_running()
{
	return is_running_;
}

/*
 * Send a can message from a can_message_t object.
 */
int can_bus_t::send_can_message(can_message_t &can_msg)
{
	int nbytes;
	canfd_frame *f;

	f = can_msg.convert_to_canfd_frame();

	if(can_socket_ >= 0)
	{
		nbytes = ::sendto(can_socket_, &f, sizeof(struct canfd_frame), 0,
				(struct sockaddr*)&txAddress, sizeof(txAddress));
				
		if (nbytes == -1)
		{
			ERROR(interface_, "send_can_message: Sending CAN frame failed.");
			return -1;
		}
		return nbytes;
	}
	else
	{
		ERROR(interface_, "send_can_message: socket not initialized. Attempt to reopen can device socket.");
		open();
	}
	return 0;
}

/*
 * Get a CanMessage from can_message_q and return it
 * then point to the next CanMessage in queue.
 * 
 * Return the next queue element or NULL if queue is empty.
 */
can_message_t* can_bus_t::next_can_message()
{
	if(! can_message_q_.empty())
	{
		can_message_t can_msg = can_message_q_.front();
		can_message_q_.pop()
		return &can_msg;
	}

	return nullptr;
}

void can_bus_t::insert_new_can_message(can_message_t &can_msg)
{
	can_message_q_.push(can_msg);
}

/*
 * Get a VehicleMessage from vehicle_message_q and return it
 * then point to the next VehicleMessage in queue.
 * 
 * Return the next queue element or NULL if queue is empty.
 */
openxc_VehicleMessage* can_bus_t::next_vehicle_message()
{
	if(! vehicle_message_q_.empty())
	{
		openxc_VehicleMessage v_msg = vehicle_message_q_.front();
		vehicle_message_q_.pop();
		return &v_msg;
	}

	return nullptr;
}

void can_bus_t::insert_new_vehicle_message(openxc_VehicleMessage *v_msg)
{
	vehicle_message_q_.push(v_msg);
}
/********************************************************************************
*
*		CanMessage method implementation
*
*********************************************************************************/

can_message_t::can_message_t(afb_binding_interface *itf)
	: interface_{itf}
{}

uint32_t can_message_t::get_id() const
{
	(id_ != 0) ? return id_ : return 0;
}

int can_message_t::get_format() const
{
	(format_ != CanMessageFormat::SIMPLE || format_ != CanMessageFormat::EXTENDED) return -1 : return format_;
}

uint8_t can_message_t::get_data() const
{
	return data_;
}
uint8_t can_message_t::get_lenght() const
{
	return lenght_;
}

void can_message_t::set_id(uint32_t &new_id)
{
	switch(format):
		case CanMessageFormat::SIMPLE:
			id = new_id & CAN_SFF_MASK;
		case CanMessageFormat::EXTENDED:
			id = new_id & CAN_EFF_MASK;
		default:
			ERROR(interface_, "ERROR: Can set id, not a compatible format or format not set prior to set id.");
}

void can_message_t::set_format(CanMessageFormat &new_format)
{
	if(new_format == CanMessageFormat::SIMPLE || new_format == CanMessageFormat::EXTENDED)
		format = new_format;
	else
		ERROR(interface_, "ERROR: Can set format, wrong format chosen");
}

void can_message_t::set_data(uint8_t &new_data)
{
	::memcpy(data_, new_data, new_data.size());
	lenght_ = new_data(size);
}

/*
 * This is the preferred way to initialize a CanMessage object 
 * from a read canfd_frame message.
 * 
 * params: canfd_frame pointer
 */
void can_message_t::convert_from_canfd_frame(canfd_frame &frame)
{
	lenght_ = (frame.len > CAN_MAX_DLEN) ? CAN_MAX_DLEN : frame.len;
	lenght_ = (frame.len > CANFD_MAX_DLEN) ? CANFD_MAX_DLEN : frame.len;

	switch (frame.can_id): 
		case (frame.can_id & CAN_ERR_FLAG):
			id_ = frame.can_id & (CAN_ERR_MASK|CAN_ERR_FLAG);
			break;
		case (frame.can_id & CAN_EFF_FLAG):
			id_ = frame.can_id & CAN_EFF_MASK;
			format_ = CanMessageFormat::EXTENDED;
			break;
		default:
			format_ = CanMessageFormat::STANDARD;
			id_ = frame.can_id & CAN_SFF_MASK;
			break;

	if (sizeof(frame.data) <= data_.size())
	{
		::memcpy(data_, canfd_frame.data, lenght_);
		return 0;
	} else if (sizeof(frame.data) >= CAN_MAX_DLEN)
		ERROR(interface_, "can_message_t: canfd_frame data too long to be stored into CanMessage object");
}

canfd_frame convert_to_canfd_frame()
{
	canfd_frame frame;

	frame.can_id = get_id();
	frame.len = get_lenght();
	::memcpy(frame.data, get_data(), lenght_);

	return frame;
}