/*
    PIP - Platform Independent Primitives
    Ethernet, UDP
    Copyright (C) 2013  Ivan Pelipenko peri4ko@gmail.com

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

#ifndef PIETHERNET_H
#define PIETHERNET_H

#include "pitimer.h"
#include "piiodevice.h"
#include "piprocess.h"

class PIEthernet: public PIIODevice
{
	friend class PIPeer;
public:
	// slot is any function format "bool <func>(void*, uchar*, int)"
	PIEthernet(void * data, ReadRetFunc slot);

	enum Type {UDP, TCP_Client, TCP_Server, TCP_SingleTCP};
	enum Parameters {ReuseAddress = 0x1, Broadcast = 0x2};

	PIEthernet(Type type = UDP, void * data = 0, ReadRetFunc slot = 0);
	~PIEthernet();

	void setReadAddress(const PIString & ip, int port) {path_ = ip + ":" + PIString::fromNumber(port);}
	void setReadAddress(const PIString & ip_port) {path_ = ip_port;}
	void setReadIP(const PIString & ip) {parseAddress(path_, &ip_, &port_); path_ = ip + ":" + PIString::fromNumber(port_);}
	void setReadPort(int port) {parseAddress(path_, &ip_, &port_); path_ = ip_ + ":" + PIString::fromNumber(port);}
	void setSendAddress(const PIString & ip, int port) {ip_s = ip; port_s = port;}
	void setSendAddress(const PIString & ip_port) {parseAddress(ip_port, &ip_s, &port_s);}
	void setSendIP(const PIString & ip) {ip_s = ip;}
	void setSendPort(int port) {port_s = port;}
	PIString readIP() {parseAddress(path_, &ip_, &port_); return ip_;}
	int readPort() {parseAddress(path_, &ip_, &port_); return port_;}
	PIString sendIP() {return ip_s;}
	int sendPort() {return port_s;}

	void setParameters(PIFlags<PIEthernet::Parameters> parameters_) {params = parameters_;}
	void setParameter(PIEthernet::Parameters parameter, bool on = true) {params.setFlag(parameter, on);}
	bool isParameterSet(PIEthernet::Parameters parameter) const {return params[parameter];}
	PIFlags<PIEthernet::Parameters> parameters() const {return params;}

	//PIByteArray macAddress() {if (!init_) init(); struct ifreq ifr; memset(&ifr, 0, sizeof(ifr)); memcpy(ifr.ifr_name, "eth0", 5); ioctl(sock, SIOCSIFHWADDR, &ifr); return PIByteArray(&ifr.ifr_hwaddr.sa_data, 6);}
	Type type() const {return type_;}

	bool joinMulticastGroup(const PIString & group);
	bool leaveMulticastGroup(const PIString & group);

	bool connect(const PIString & ip, int port);
	bool connect(const PIString & ip_port) {parseAddress(ip_port, &ip_c, &port_c); return connect(ip_c, port_c);}
	bool isConnected() const {return connected_;}

	bool listen();
	bool listen(const PIString & ip, int port) {setReadAddress(ip, port); return listen();}
	bool listen(const PIString & ip_port) {setReadAddress(ip_port); return listen();}

	PIEthernet * client(int index) {return clients_[index];}
	int clientsCount() const {return clients_.size_s();}
	PIVector<PIEthernet * > clients() {return clients_;}

	bool send(const PIString & ip, int port, const void * data, int size) {ip_s = ip; port_s = port; return send(data, size);}
	bool send(const PIString & ip_port, const void * data, int size) {parseAddress(ip_port, &ip_s, &port_s); return send(data, size);}
	bool send(const void * data, int size) {return (write(data, size) == size);}

	int read(void * read_to, int max_size);
	int write(const void * data, int max_size);
	int write(const PIByteArray & data) {return write(data.data(), data.size_s());}

	static PIStringList interfaces();
	static PIString interfaceAddress(const PIString & interface_);
	static PIStringList allAddresses();

protected:
	PIEthernet(int sock, PIString ip_port);

	virtual void received(void * data, int size) {;}

	bool init();
	bool openDevice();
	bool closeDevice();
#ifdef WINDOWS
	void closeSocket(int & sd) {if (sd != -1) closesocket(sd); sd = -1;}
#else
	void closeSocket(int & sd) {if (sd != -1) ::close(sd); sd = -1;}
#endif
	void parseAddress(const PIString & ipp, PIString * ip, int * port);

	int sock, sock_s, port_, port_s, port_c, wrote;
	bool connected_;
	sockaddr_in addr_, saddr_;
	PIString ip_, ip_s, ip_c;
	PIThread server_thread_;
	PIVector<PIEthernet * > clients_;
#ifdef WINDOWS
	PIMap<PIString, SOCKET> leafs;
#endif
	PIFlags<PIEthernet::Parameters> params;
	Type type_;

private:
	static void server_func(void * eth);

	static std::string EthErrorString() {
#ifdef WINDOWS
	char * msg;
	int err = WSAGetLastError();
	FormatMessageA(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS, NULL, err, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), (LPSTR)&msg, 0, NULL);
	return "code " + itos(err) + " - " + string(msg);
#else
		return errorString();
#endif
	}

};

#endif // PIETHERNET_H