/** General Socket Wrapper
*   Created By Kiritow. (https://github.com/kiritow)
*   Licensed under MIT
*/

/** See VERSION for version information */

#include "gsock.h"

#ifdef GSOCK_DEBUG
#pragma message("GSock Debug mode compiled in")
#include <cstdio>
#define myliblog(fmt,...) printf("GSock: " fmt,__VA_ARGS__)
#else
#define myliblog(fmt,...)
#endif

#ifdef _WIN32
/// Using Win8.1
#define _WIN32_WINNT 0x0603

#include <winsock2.h>
#include <ws2tcpip.h>
#else
#include <arpa/inet.h>
#include <netinet/in.h>
#include <netinet/tcp.h>
#include <netdb.h>
#include <errno.h>
#include <sys/epoll.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <unistd.h>
#include <fcntl.h>
#define closesocket close
using BYTE = unsigned char;
#endif

#include <cstring> /// memset
#include <string>
#include <stdexcept>

class _init_winsock2_2_class
{
public:
    _init_winsock2_2_class()
    {
        /// Windows Platform need WinSock2.DLL initialization.
#ifdef _WIN32
        WORD wd;
        WSAData wdt;
        wd=MAKEWORD(2,2);
        int ret=WSAStartup(wd,&wdt);

        myliblog("WSAStartup() Returns: %d\n",ret);

        if(ret<0)
        {
            myliblog("WSAGetLastError: %d\n",WSAGetLastError());
            throw std::runtime_error("Unable to load winsock2.dll. ");
        }
#endif
    }
    ~_init_winsock2_2_class()
    {
        /// Windows Platform need WinSock2.DLL clean up.
#ifdef _WIN32
        WSACleanup();
        myliblog("WSACleanup() called.");
#endif
    }
} _init_winsock2_2_obj;


struct sock::_impl
{
    int sfd;
    sockaddr_in saddr;
    bool created;
};

sock::sock() : _pp(new _impl)
{
	myliblog("sock::sock() %p", this);

    _pp->created=false;
}

//private
sock::sock(int SocketValue) : _pp(new _impl)
{
    myliblog("sock::sock(int) %p\n",this);

    _pp->created=true;
    _pp->sfd=SocketValue;
}

sock::sock(sock&& tmp)
{
    myliblog("sock::sock(sock&&) %p <- %p \n",this,&tmp);

    _pp=tmp._pp;
    tmp._pp=nullptr;
}

sock& sock::operator = (sock&& tmp)
{
    myliblog("sock::operator = (sock&&) %p <= %p\n",this,&tmp);

    if(_pp)
    {
        if(_pp->created)
        {
            myliblog("Socket closed: [%d] in %p\n",_pp->sfd,this);
            closesocket(_pp->sfd);
        }

        delete _pp;
    }

    _pp=tmp._pp;
    tmp._pp=nullptr;
    return *this;
}

sock::~sock()
{
    myliblog("sock::~sock() %p\n",this);

    if(_pp)
    {
        if(_pp->created)
        {
            myliblog("Socket closed: [%d] in %p\n",_pp->sfd,this);
            closesocket(_pp->sfd);
        }

        delete _pp;
    }
}

int sock::connect(const std::string& IPStr,int Port)
{
    myliblog("sock::connect() %p\n",this);

    if(_pp->created)
    {
        return -2;
    }
    _pp->sfd=socket(AF_INET,SOCK_STREAM,0);
    if(_pp->sfd<0)
    {
        myliblog("socket() returns %d. WSAGetLastError: %d\n",_pp->sfd,WSAGetLastError());
        return -3;
    }
    myliblog("Socket created: [%d] in %p\n",_pp->sfd,this);
    _pp->created=true;

    // refs
    int& sfd=_pp->sfd;
    sockaddr_in& saddr=_pp->saddr;

    memset(&saddr,0,sizeof(saddr));
    saddr.sin_addr.s_addr=inet_addr(IPStr.c_str());
    saddr.sin_port=htons(Port);
    saddr.sin_family=AF_INET;

    return ::connect(sfd,(sockaddr*)&saddr,sizeof(saddr));
}

int sock::send(const void* Buffer,int Length)
{
    return ::send(_pp->sfd,(const char*)Buffer,Length,0);
}

int sock::recv(void* Buffer,int MaxToRecv)
{
    return ::recv(_pp->sfd,(char*)Buffer,MaxToRecv,0);
}

int sock::getsendtime(int& _out_Second, int& _out_uSecond)
{
    // refs
    int& sfd=_pp->sfd;

    struct timeval outtime;
    socklen_t _not_used_t;
    int ret=getsockopt(sfd,SOL_SOCKET,SO_SNDTIMEO,(char*)&outtime,&_not_used_t);
    if(ret<0) return ret;
    /// We don't know why, but on Windows, 1 Second means 1000.
#ifdef _WIN32
    _out_Second=outtime.tv_sec/1000;
    _out_uSecond=outtime.tv_usec;
#else
    _out_Second=outtime.tv_sec;
    _out_uSecond=outtime.tv_usec;
#endif

    return ret;
}

int sock::getrecvtime(int& _out_Second, int& _out_uSecond)
{
    // refs
    int& sfd=_pp->sfd;

    struct timeval outtime;
    socklen_t _not_used_t;
    int ret=getsockopt(sfd,SOL_SOCKET,SO_RCVTIMEO,(char*)&outtime,&_not_used_t);
    if(ret<0) return ret;
    /// We don't know why, but on Windows, 1 Second means 1000.
#ifdef _WIN32
    _out_Second=outtime.tv_sec/1000;
    _out_uSecond=outtime.tv_usec;
#else
    _out_Second=outtime.tv_sec;
    _out_uSecond=outtime.tv_usec;
#endif

    return ret;
}

int sock::setsendtime(int Second)
{
    // refs
    int& sfd=_pp->sfd;

    struct timeval outtime;
    /// We don't know why, but on Windows, 1 Second means 1000.
#ifdef _WIN32
    outtime.tv_sec=Second*1000;
    outtime.tv_usec=0;
#else
    outtime.tv_sec=Second;
    outtime.tv_usec=0;
#endif

    return setsockopt(sfd,SOL_SOCKET,SO_SNDTIMEO,(const char*)&outtime,sizeof(outtime));
}

int sock::setrecvtime(int Second)
{
    // refs
    int& sfd=_pp->sfd;

    struct timeval outtime;
    /// We don't know why, but on Windows, 1 Second means 1000.
#ifdef _WIN32
    outtime.tv_sec=Second*1000;
    outtime.tv_usec=0;
#else
    outtime.tv_sec=Second;
    outtime.tv_usec=0;
#endif

    return setsockopt(sfd,SOL_SOCKET,SO_RCVTIMEO,(const char*)&outtime,sizeof(outtime));
}

//forgive me, but writing code in hospital is really not a good experience.
int sock::getlocal(std::string& IPStr,int& Port)
{
	struct sockaddr_in saddr;
	socklen_t saddrlen=sizeof(saddr);
	memset(&saddr,0,saddrlen);
	int ret=getsockname(_pp->sfd,(sockaddr*)&saddr,&saddrlen);
	IPStr=inet_ntoa(saddr.sin_addr);
	Port=ntohs(saddr.sin_port);
	return ret;
}

int sock::getpeer(std::string& IPStr,int& Port)
{
	struct sockaddr_in saddr;
	socklen_t saddrlen=sizeof(saddr);
	memset(&saddr,0,saddrlen);
	int ret=getpeername(_pp->sfd,(sockaddr*)&saddr,&saddrlen);
	IPStr=inet_ntoa(saddr.sin_addr);
	Port=ntohs(saddr.sin_port);
	return ret;
}

struct serversock::_impl
{
    int sfd;
    sockaddr_in saddr;
    bool created;
};

serversock::serversock() : _pp(new _impl)
{
    myliblog("serversock::serversock() %p\n",this);

    _pp->created=false;
}

serversock::~serversock()
{
    myliblog("serversock::~serversock() %p\n",this);

    if(_pp)
    {
        if(_pp->created)
        {
            myliblog("Server-Socket closed: [%d] in %p\n",_pp->sfd,this);
            closesocket(_pp->sfd);
        }

        delete _pp;
    }
}

int serversock::bind(int Port)
{
    myliblog("serversock::bind() %p\n",this);

    if(_pp->created)
    {
        return -2;
    }
    _pp->sfd=socket(AF_INET,SOCK_STREAM,0);
    if(_pp->sfd<0)
    {
        myliblog("socket() returns %d. WSAGetLastError: %d\n",_pp->sfd,WSAGetLastError());
        return -3;
    }
    myliblog("Socket created: [%d] in %p\n",_pp->sfd,this);
    _pp->created=true;

    // refs
    int& sfd=_pp->sfd;
    sockaddr_in& saddr=_pp->saddr;

    memset(&saddr,0,sizeof(saddr));
    saddr.sin_addr.s_addr=INADDR_ANY;
    saddr.sin_port=htons(Port);
    saddr.sin_family=AF_INET;
    return ::bind(sfd,(sockaddr*)&saddr,sizeof(saddr));
}

int serversock::set_reuse()
{
    // refs
    int& sfd=_pp->sfd;

    int opt=1;
    return setsockopt(sfd,SOL_SOCKET,SO_REUSEADDR,(const char*)&opt,sizeof(opt));
}

int serversock::listen(int MaxCount)
{
    // refs
    int& sfd=_pp->sfd;

    return ::listen(sfd,MaxCount);
}

int serversock::accept(sock& _out_s)
{
    if(_out_s._pp->created)
    {
        /// _out_s has been connected.
        return -2;
    }

    sock s;
    socklen_t tmp=sizeof(s._pp->saddr);
    int ret=::accept(_pp->sfd,(sockaddr*)&(s._pp->saddr),&tmp);
    if(ret<0)
    {
        /// accept() call failed.
        myliblog("accept() returns %d. WSAGetLastError: %d\n",ret,WSAGetLastError());
        return -1;
    }
    else
    {
        s._pp->sfd=ret;
        s._pp->created=true;

        myliblog("Socket opened: [%d] in %p by serversock %p\n",s._pp->sfd,&s,this);

        /// Move resource.
        _out_s=std::move(s);
        return 0;
    }
}



struct udpsock::_impl
{
	int sfd;
	int lastErr;
};

udpsock::udpsock() : _pp(new _impl)
{
	_pp->sfd = socket(AF_INET, SOCK_DGRAM, 0);
	_pp->lastErr = 0;
}

udpsock::udpsock(udpsock&& x)
{
	_pp = x._pp;
	x._pp = nullptr;
}

udpsock& udpsock::operator=(udpsock&& x)
{
	if (_pp)
	{
		// Clean up itself.
		this->~udpsock();
	}
	_pp = x._pp;
	x._pp = nullptr;
	return *this;
}

udpsock::~udpsock()
{
	closesocket(_pp->sfd);
	delete _pp;
}

int udpsock::bind(int Port)
{
	sockaddr_in saddr;
	memset(&saddr, 0, sizeof(saddr));
	saddr.sin_family = AF_INET;
	saddr.sin_port = htons(Port);
	saddr.sin_addr.s_addr = INADDR_ANY;
	return ::bind(_pp->sfd, (const sockaddr*)&saddr, sizeof(saddr));
}

int udpsock::sendto(const std::string& IPStr, int Port, const void* buffer, int length)
{
	sockaddr_in saddr;
	memset(&saddr, 0, sizeof(saddr));
	saddr.sin_family = AF_INET;
	saddr.sin_port = htons(Port);
	saddr.sin_addr.s_addr = inet_addr(IPStr.c_str());
	return ::sendto(_pp->sfd, (const char*)buffer, length, 0, (const sockaddr*)&saddr, sizeof(saddr));
}

int udpsock::recvfrom(std::string& fromIP, void* buffer, int bufferLength)
{
	sockaddr_in saddr;
	socklen_t saddrlen = sizeof(saddr);
	int ret = ::recvfrom(_pp->sfd, (char*)buffer, bufferLength, 0, (sockaddr*)&saddr, &saddrlen);
	
	if (ret < 0)
	{
#ifdef _WIN32
		_pp->lastErr = WSAGetLastError();
#else
		_pp->lastErr = errno;
#endif
	}

	fromIP = inet_ntoa(saddr.sin_addr);
	return ret;
}

int udpsock::getlasterror()
{
	return _pp->lastErr;
}

int DNSResolve(const std::string& HostName, std::string& _out_IPStr)
{
	/// Use getaddrinfo instead
	struct addrinfo hints;
	memset(&hints, 0, sizeof(hints));
	hints.ai_family = AF_UNSPEC;
	hints.ai_socktype = SOCK_STREAM;
	hints.ai_protocol = IPPROTO_TCP;

	struct addrinfo* result = nullptr;

	int ret = getaddrinfo(HostName.c_str(), NULL, &hints, &result);
	if (ret != 0)
	{
		return -1;/// API Call Failed.
	}
	for (struct addrinfo* ptr = result; ptr != nullptr; ptr = ptr->ai_next)
	{
		switch (ptr->ai_family)
		{
		case AF_INET:
			sockaddr_in * addr = (struct sockaddr_in*) (ptr->ai_addr);
			_out_IPStr = inet_ntoa(addr->sin_addr);
			freeaddrinfo(result);
			return 0;
			break;
		}
	}
	/// Unknown error.
	freeaddrinfo(result);
	return -2;
}


/// Undefine marcos
#undef myliblog