/*
 * Copyright (c) 2016-2020 Belledonne Communications SARL.
 *
 * This file is part of bctoolbox.
 *
 * 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/>.
 */


#ifdef HAVE_CONFIG_H
#include "config.h"
#endif


#include "bctoolbox/vconnect.h"
#include "bctoolbox/port.h"
#include "bctoolbox/logging.h"
#include <sys/types.h>
#include <stdarg.h>
#include <errno.h>




/**============================================================
 * Wrappers around default libc calls used to handle windows
 * differences in function prototypes. 
 *=============================================================*/

static bctbx_socket_t vsocket_socket(int socket_family, int socket_type, int protocol){
	return socket(socket_family, socket_type, protocol);
}



static int vsocket_connect(bctbx_socket_t sock, const struct sockaddr *address, socklen_t address_len){
	#ifdef _WIN32
		return connect(sock, address, (int)address_len);
	#else 
		return connect(sock, address, address_len);
	#endif
}


static int vsocket_bind(bctbx_socket_t sock, const struct sockaddr *address, socklen_t address_len){
	#ifdef _WIN32
		return bind(sock, address, (int)address_len);
	#else 
		return bind(sock, address, address_len);
	#endif
}


static int vsocket_getsockname(bctbx_socket_t sockfd, struct sockaddr *addr, socklen_t *addrlen){
	#ifdef _WIN32
		return getsockname(sockfd, addr, (int*)addrlen);
	#else 
		return getsockname(sockfd, addr, addrlen);
	#endif
}

static int vsocket_getsockopt(bctbx_socket_t sockfd, int level, int optname, 
						void *optval, socklen_t* optlen){
	#ifdef _WIN32
		return getsockopt(sockfd, level, optname, (char*)optval,  (int*)optlen);
	#else 
		return getsockopt(sockfd, level, optname, optval,  optlen);
	#endif

}


static int vsocket_setsockopt(bctbx_socket_t sockfd, int level, int optname, 
							const void *optval, socklen_t optlen){
	#ifdef _WIN32
		return setsockopt(sockfd, level, optname, (char*)optval,  (int)optlen);
	#else 
		return setsockopt(sockfd, level, optname, optval,  optlen);
	#endif

}

static int vsocket_close(bctbx_socket_t sock){
	#ifdef _WIN32
	return closesocket(sock);
	#else
	return close(sock);
	#endif
}

static int vsocket_shutdown(bctbx_socket_t sock, int how){
	return shutdown(sock, how);
}

	
#if	!defined(_WIN32) && !defined(_WIN32_WCE) 	 
static char* vsocket_error(int err){  
	 return strerror (err);
}

#else

static  char* vsocket_error(int err){  
	 return (char*)__bctbx_getWinSocketError(err);
 }
#endif

/**===================================================
 * Socket API default methods pointer definition.
 * ===================================================*/
 
static const bctbx_vsocket_methods_t bcSocketAPI = {
	vsocket_socket,
	vsocket_connect,  	
	vsocket_bind,
	vsocket_getsockname,
	vsocket_getsockopt,
	vsocket_setsockopt,
	vsocket_close,
	vsocket_error,
	vsocket_shutdown,
};


static bctbx_vsocket_api_t bcvSocket = {
	"bctbx_socket",          /* vSockName */
	&bcSocketAPI,			/*pSocketMethods */
};



/* Pointer to default socket methods initialized to standard libc implementation here.*/
static  bctbx_vsocket_api_t *pDefaultvSocket = &bcvSocket;


bctbx_socket_t bctbx_socket(int socket_family, int socket_type, int protocol){
	return pDefaultvSocket->pSocketMethods->pFuncSocket( socket_family, socket_type, protocol);
}


int bctbx_socket_close(bctbx_socket_t sock){
	return pDefaultvSocket->pSocketMethods->pFuncClose(sock);
}


int bctbx_bind(bctbx_socket_t sock, const struct sockaddr *address, socklen_t address_len){
	return pDefaultvSocket->pSocketMethods->pFuncBind(sock, address, address_len);

}


int bctbx_connect(bctbx_socket_t sock, const struct sockaddr *address, socklen_t address_len){
	return pDefaultvSocket->pSocketMethods->pFuncConnect(sock, address, address_len);
}

int bctbx_getsockname(bctbx_socket_t sockfd, struct sockaddr *addr, socklen_t *addrlen){
	return pDefaultvSocket->pSocketMethods->pFuncGetSockName(sockfd, addr, addrlen);
}


int bctbx_getsockopt(bctbx_socket_t sockfd, int level, int optname, 
						void *optval, socklen_t* optlen){
	return pDefaultvSocket->pSocketMethods->pFuncGetSockOpt(sockfd, level, optname, optval, optlen);

}

int bctbx_setsockopt(bctbx_socket_t sockfd, int level, int optname, 
							const void *optval, socklen_t optlen){
	return pDefaultvSocket->pSocketMethods->pFuncSetSockOpt(sockfd, level, optname, optval, optlen);

}


int bctbx_shutdown(bctbx_socket_t sock, int how){
	return pDefaultvSocket->pSocketMethods->pFuncShutdown(sock, how);
}


char* bctbx_socket_error(int err){
	return pDefaultvSocket->pSocketMethods->pFuncGetError(err);
}

void bctbx_vsocket_api_set_default(bctbx_vsocket_api_t *my_vsocket_api) {

	if (my_vsocket_api == NULL){
		pDefaultvSocket = &bcvSocket;
	}
	else {
		pDefaultvSocket = my_vsocket_api ;
	}

}

bctbx_vsocket_api_t* bctbx_vsocket_api_get_default(void) {
	return pDefaultvSocket;	
}

bctbx_vsocket_api_t* bctbx_vsocket_api_get_standard(void) {
	return &bcvSocket;
}



