//
//  Wumbo-Socket.cpp
//  Wumbo
//
//  Created by Wade McGillis on 11/28/13.
//  Copyright (c) 2013 Wade McGillis. All rights reserved.
//
#include "Wumbo-Header.h"
#if PLATFORM_WINDOWS
#include <WS2tcpip.h>
#endif
#include "Wumbo-Socket.h"



int sendall(int socket, char *buf, int len)
{
	int total = 0;        // how many bytes we've sent
	int bytesleft = len; // how many we have left to send
	int n;
	
	while(total < len) {
		n = ::send(socket, buf+total, bytesleft, 0);
		if (n == -1) { break; }
		total += n;
		bytesleft -= n;
		//printf("SENDALL: sent %i bytes. total is now %i / %i\n",n,total,len);
	}
	/*for(int i=0;i<len;i++)
	{
		int c = buf[i];
		if (c == 0 || c == 10 || c == 13)
		{
			printf("%i : %i",c,c);
			printf("\n");
		}
		else
		{
			printf("%i : %c",c,(char)c);
			printf("\n");
		}
	}*/
	
	//*len = total; // return number actually sent here
	
	return n==-1?-1:total; // return -1 on failure, 0 on success
}

int recvall(int socket, char *buf, int len)
{
	int total = 0;        // how many bytes we've read
	int bytesleft = len; // how many we have left to read
	int n;
	
	while(total < len) {
		n = ::recv(socket, buf+total, bytesleft, 0);
		if (n == -1) { break; }
		total += n;
		bytesleft -= n;
		//printf("RECVALL: recv'd %i bytes. total is now %i / %i\n",n,total,len);
	}
	/*for(int i=0;i<len;i++)
	{
		int c = buf[i];
		if (c == 0 || c == 10 || c == 13)
		{
			printf("%i : %i",c,c);
			printf("\n");
		}
		else
		{
			printf("%i : %c",c,(char)c);
			printf("\n");
		}
	}*/
	//*len = total; // return number actually sent here
	
	return n==-1?-1:total; // return -1 on failure, 0 on success
}

namespace Wumbo
{
	TCPSocket::TCPSocket(int sock, struct sockaddr info, int infosize)
	{
		accepted = true;
		mysocket = sock;
		
		acceptedSocketAddr = info;
		acceptedSocketSize = infosize;
		

		//memcpy(&connectedSocketAddressInfo,info,infosize);
	}
	TCPSocket::TCPSocket()
	{
		accepted = false;
	}
	
	void TCPSocket::connect(char *address, unsigned int port)
	{
		/*struct addrinfo hints, *res;
		int sockfd;
		
		// first, load up address structs with getaddrinfo():
		
		memset(&hints, 0, sizeof hints);
		hints.ai_family = AF_INET;  // use IPv4 or IPv6, whichever
		hints.ai_socktype = SOCK_STREAM;
		errno = 0;
		// we could put "80" instead on "http" on the next line:
		getaddrinfo("www.google.com", "80", &hints, &res);
		if (errno >= 0)
		{
			perror(NULL);
			errno = 0;
		}
		// make a socket:
		
		sockfd = socket(res->ai_family, res->ai_socktype, res->ai_protocol);
		if (errno >= 0)
		{
			perror(NULL);
			errno = 0;
		}
		fcntl(sockfd, F_SETFL, O_NONBLOCK);
		// connect it to the address and port we passed in to getaddrinfo():
		if (errno >= 0)
		{
			perror(NULL);
			errno = 0;
		}
		if (::connect(sockfd, res->ai_addr, res->ai_addrlen) == -1)
		{
			printf("TCPSocket::connect tried on socket %i, but we got error #%i\n",sockfd,errno);
			perror(NULL);
			
		}
		else
			printf("SUCCESS");*/
		printf("hello???\n");
		if (accepted)
		{
			printf("ACCEPTED\n");
			return;
		}
		if (port > 65535)
		{
			printf("MY PORT'S TOO BIG\n");
			return;
		}
		struct addrinfo *serverinfo;
		errno = 0;
		printf("STARTING TO DO THE CONNECT THING\n");
		// first, load up address structs with getaddrinfo():
		memset(&connectedSocketAddressInfo, 0, sizeof(connectedSocketAddressInfo));
		connectedSocketAddressInfo.ai_family = AF_INET;
		connectedSocketAddressInfo.ai_socktype = SOCK_STREAM;
		connectedSocketAddressInfo.ai_protocol = IPPROTO_TCP;
		char port_cstr[6] = ""; //12345 + \0
		sprintf(port_cstr,"%i",port);
		printf("address: %s ... port: %s\n",address,port_cstr);
		perror(NULL);
		errno = 0;
		int r;
		if ((r = getaddrinfo(address,port_cstr,&connectedSocketAddressInfo, &serverinfo)) != 0)//address, port_cstr, &connectedSocketAddressInfo, &res);
		{
			strerror(r);//errno);
			perror(NULL);
			errno = NULL;
			printf("-----\n");
		}
		else
			printf("\tsuccess\n");
		perror(NULL);
		
		
		int yes = 1;
		struct addrinfo *walker;
		int walky = 0;
		for(walker = serverinfo; walker != NULL; walker = walker->ai_next) {
			walky++;
			mysocket = socket(walker->ai_family, walker->ai_socktype, walker->ai_protocol);
			if (mysocket == -1) {
				perror("server: socket");
				continue;
			}
			
			int ret = ::connect(mysocket, walker->ai_addr, walker->ai_addrlen);
			if (ret == -1)
			{
				printf("TCPSocket::connect tried on socket %i, but we got error #%i\n",mysocket,errno);
				perror(NULL);
				errno = 0;
				continue;
			}
			else
			{
				//printf("IPPROTO_TCP IS.... %i ... %i\n",walker->ai_protocol,IPPROTO_TCP);
				printf("TCPSocket::connect SUCCESS on socket %i!!! ... returned %i\n",mysocket,ret);
			}
			/*if (setsockopt(mysocket, SOL_SOCKET, SO_REUSEADDR, &yes, sizeof(int)) == -1)
			{
				perror("setsockopt");
				exit(1);
			}
			
			if (bind(mysocket, walker->ai_addr, walker->ai_addrlen) == -1)
			{
				::close(mysocket);
				perror("server: bind");
				continue;
			}*/
			
			break;
		}
		freeaddrinfo(serverinfo);
		printf("walk successful on %ith step\n",walky);
		
		setsockopt(mysocket, IPPROTO_TCP, /*TCP_NODELAY*/1, (char*)&yes, sizeof(int));
		//setsockopt(, SOL_SOCKET, SO_REUSEADDR, &yes, sizeof(int));
		// make a socket
		/*errno = 0;
		mysocket = socket(res->ai_family, res->ai_socktype, res->ai_protocol);
		perror(NULL);
		errno = 0;*/
#if PLATFORM_WINDOWS
		u_long nonblockyes = 1;
		ioctlsocket(mysocket,FIONBIO,&nonblockyes);
#else
		int flags = fcntl(mysocket, F_GETFL, 0);
		fcntl(mysocket, F_SETFL, flags | O_NONBLOCK);
#endif
		perror(NULL);
		errno = 0;
		
		char buf[7] = "";
		printf("RECV RIGHT AFTER CONNECTION RETURNS: %i\n",(int)recv(mysocket,(char*)&buf,5,MSG_PEEK));
		
		errno = 0;
		//fcntl(mysocket, F_SETFL, O_NONBLOCK);
		//perror(NULL);
		//errno = 0;
	}
	bool TCPSocket::connected()
	{
		errno = 0;
		char bob[4] = "";
		int b = recv(mysocket,(char*)&bob,2,MSG_PEEK);
		//printf("RECV WHENEVER: %i\n",b);
		if (b != 0)
		{
			//printf("connected = TRUE\n");
			return true;
		}
		else
		{
			//printf("connected = FALSE ... %i\n",b);
			//strerror(b);
			//perror(NULL);
			//errno = 0;
			return false;
		}
	}
	void TCPSocket::close()
	{
#if PLATFORM_WINDOWS
		closesocket(mysocket);
#else
		::close(mysocket);
#endif
	}
	
	bool TCPSocket::send(Wumbo::Buffer *buffer)
	{
		int len = buffer->getlength();
		int l = 0;
		if ((l = sendall(mysocket,(char*)&len,4)) != 4)
			printf("error occurred while sending length. Only sent %i bytes\n",l);
		if ((l = sendall(mysocket,buffer->getbytes(),buffer->getlength())) != buffer->getlength())
			printf("error occurred while sending data. Only sent %i bytes\n",l);
		return 1;
		/*printf("BEGIN SENDING\n");
		int bytesSent = 0;
		int bufferSize = 0;
		int bytesLeft = 0;
		int n;
		
		bytesSent = 0;
		bufferSize = 4;
		bytesLeft = bufferSize;
		int sz = buffer->getLength();
		printf("sz = %i\n",sz);
		while(bytesSent < bufferSize)
		{
			n = ::send(mysocket, &sz+bytesSent, bytesLeft, 0);
			if (n == -1)
			{
				printf("n = -1. Error occurred: #%i",errno);
				strerror(errno);
				errno = 0;
				break;
			}
			bytesSent += n;
			bytesLeft -= n;
		}
		printf("size was sent as %i bytes\n",bytesSent);
		
		bytesSent = 0;
		bufferSize = buffer->getLength();
		bytesLeft = bufferSize;
		
		while(bytesSent < bufferSize)
		{
			n = ::send(mysocket, buffer->getBytes()+bytesSent, bytesLeft, 0);
			if (n == -1)
			{
				printf("n = -1. Error occurred: #%i",errno);
				strerror(errno);
				errno = 0;
				break;
			}
			bytesSent += n;
			bytesLeft -= n;
		}
		printf("END SENDING\n");
		return !(n==-1 || bytesSent != bufferSize);*/
	}
	Wumbo::Buffer *TCPSocket::receive()
	{
		/*unsigned int b = 0;
		unsigned int actualSize = 0;
		int totalBytesRead = 0;
		int lastBytesRead = ::recv(mysocket,&b + totalBytesRead,4-totalBytesRead,0);
		totalBytesRead += lastBytesRead;
		int i = 0;
		while (totalBytesRead < 4)
		{
			if (lastBytesRead == 0)
			{
				printf("oops no bytes: %i\n",i);
				return NULL;
			}
			printf("b is now %i on iteration %i\n",b,i);
			i++;
			totalBytesRead += lastBytesRead;
			lastBytesRead = ::recv(mysocket,&b + totalBytesRead,4-totalBytesRead,0);
		}
		//recv(mysocket,&b,4,0);
		actualSize = b;
		printf("b is now %i with %i bytes read\n",b,totalBytesRead);
		char *buff = new char[actualSize + 1];
		memset(buff,0,actualSize+1);
		totalBytesRead = 0;
		lastBytesRead = ::recv(mysocket,buff,actualSize,0);
		totalBytesRead += lastBytesRead;
		while (totalBytesRead < actualSize)
		{
			if (lastBytesRead == 0)
				return NULL;
			totalBytesRead += lastBytesRead;
			lastBytesRead = ::recv(mysocket,buff + totalBytesRead,(actualSize)-totalBytesRead,0);
		}
		printf("totalBytesRead = %i\n",totalBytesRead);
		Wumbo::Buffer *newbuffer = new Wumbo::Buffer();
		newbuffer->setBytes(buff,actualSize);
		return newbuffer;*/
		
		int len = 0;
		int l = 0;
		if ((l = recvall(mysocket,(char*)&len,4)) != 4)
		{
			//printf("error occurred while receiving length. Only read %i bytes\n",l);
			return NULL;
		}
		
		char *buff = new char[len+1];
		if ((l = recvall(mysocket,buff,len)) != len)
		{
			//printf("error occurred while receiving data. Only read %i bytes\n",l);
			delete buff;
			return NULL;
		}
		Wumbo::Buffer *wBuff = new Wumbo::Buffer();
		wBuff->setbytes(buff, len);
		delete buff;
		return wBuff;
//		return 1;
	}
	
	const char* TCPSocket::getipaddress()
	{
		return "127.0.0.1";
	}

	
	
	
	
	
	void TCPListener::listen(unsigned int port)
	{
		if (port > 65535)
			return;
		//strerror(errno);
		//perror(NULL);
		errno = NULL;
		struct addrinfo hints, *serverinfo;
		//fill in all the listening socket info with our own
		memset(&hints, 0, sizeof hints);
		hints.ai_family = AF_INET;//ipv4
		hints.ai_socktype = SOCK_STREAM;//tcp
		hints.ai_flags = AI_PASSIVE;//fill in ip
		char port_cstr[6] = ""; //12345 + \0
		//memset(port_cstr,0,6);
		sprintf(port_cstr,"%i",port);
		printf("getaddrinfo\n");
		if (getaddrinfo(NULL, port_cstr, &hints, &serverinfo) != 0)
		{
			strerror(errno);
			perror(NULL);
			errno = NULL;
			printf("-----\n");
		}
		else
			printf("\tsuccess\n");
		// make socket
		printf("listen:\n");

		int yes = 1;
		struct addrinfo *walker;
		int walky = 0;
		for(walker = serverinfo; walker != NULL; walker = walker->ai_next) {
			walky++;
			listenSocket = socket(walker->ai_family, walker->ai_socktype, walker->ai_protocol);
			if (listenSocket == -1)
			{
				perror("server: socket");
				continue;
			}
			
			if (setsockopt(listenSocket, SOL_SOCKET, SO_REUSEADDR, (char*)&yes, sizeof(int)) == -1)
			{
				perror("setsockopt");
				exit(1);
			}
			 
			if (bind(listenSocket, walker->ai_addr, walker->ai_addrlen) == -1)
			{
#if PLATFORM_WINDOWS
				closesocket(listenSocket);
#else
				::close(listenSocket);
#endif
				perror("server: bind");
				continue;
			}
			
			break;
		}
		freeaddrinfo(serverinfo);
		printf("walk successful on %ith step\n",walky);
		
		/*listenSocket = socket(res->ai_family, res->ai_socktype, res->ai_protocol);
		if (listenSocket == -1)
		{
			printf("making listen socket failed:\n");
		}
		printf("listen socket = %i\n",listenSocket);
		strerror(errno);
		perror(NULL);
		errno = NULL;
		printf("-----\n");*/
		// non blocking
		printf("fcntl\n");
#if PLATFORM_WINDOWS
		u_long nonblockyes = 1;
		ioctlsocket(listenSocket,FIONBIO,&nonblockyes);
#else
		int flags = fcntl(listenSocket, F_GETFL, 0);
		fcntl(listenSocket, F_SETFL, O_NONBLOCK | flags);
#endif

		strerror(errno);
		perror(NULL);
		errno = NULL;
		printf("-----\n");
		// ONIX USED BIND
		/*printf("bind:\n");
		bind(listenSocket, res->ai_addr, res->ai_addrlen);
		strerror(errno);
		perror(NULL);
		errno = NULL;
		printf("-----\n");*/
		// now listen
		
		if (::listen(listenSocket, 10) == -1)//10 is the waiting queue
		{
			printf("listening failed:\n");
			strerror(errno);
			perror(NULL);
		}
		printf("listenSocket = %i\n",listenSocket);
	}
	Wumbo::TCPSocket *TCPListener::accept()
	{
		struct sockaddr acceptedSocketAddr;
		socklen_t acceptedSocketSize;
		memset(&acceptedSocketAddr, 0, sizeof(acceptedSocketAddr));
		int newsocket = ::accept(listenSocket, &acceptedSocketAddr, &acceptedSocketSize);
		if (newsocket == -1)
		{
#if PLATFORM_WINDOWS
			if (WSAGetLastError() == WSAEWOULDBLOCK)
#else
			if (errno == EWOULDBLOCK)
#endif
			{
				errno = 0;
				//printf("wouldblock\n");
				//perror(NULL);
				//strerror(errno);
			}
			else
			{
				printf("oh shit error #%i\n",errno);
				perror(NULL);
				strerror(errno);
			}
			return NULL;
		}
		else
		{
			printf("yay new socket\n");
			int size = 7;
			::send(newsocket,(char*)&size,4,0);
			::send(newsocket,"TURTLES",7,0);
			Wumbo::Buffer *buff = new Wumbo::Buffer();
			buff->setbytes("TUR2LES",7);
			
			size = buff->getlength();
			printf("test size is %i\n",size);
			::send(newsocket,(char*)&size,4,0);
			::send(newsocket,buff->getbytes(),buff->getlength(),0);
			return new TCPSocket(newsocket,acceptedSocketAddr,acceptedSocketSize);//, &acceptedSocketInfo, acceptedSocketSize);
		}
	}
	void TCPListener::close()
	{
#if PLATFORM_WINDOWS
		closesocket(listenSocket);
#else
		::close(listenSocket);
#endif
	}
};