/*
 * rational replacement for inet_addr()
 * 
 * author: Jeff Hill
 */
#include <stdio.h>
#include <stdlib.h>
#include <limits.h>
#include <string.h>

#define epicsExportSharedSymbols
#include "bsdSocketResource.h"

#ifndef LOCAL
#define LOCAL static
#endif

#ifndef NELEMENTS
#define NELEMENTS(A) (sizeof(A)/sizeof(A[0]))
#endif /*NELEMENTS*/

LOCAL int initIPAddr (struct in_addr ipAddr, unsigned short port, struct sockaddr_in *pIP);
LOCAL int addrArrayToUL (const long *pAddr, unsigned nElements, struct in_addr  *pIpAddr);

/*
 * rational replacement for inet_addr()
 * which allows the limited broadcast address
 * 255.255.255.255, allows the user
 * to specify a port number, and allows also a
 * named host to be specified.
 *
 * Sets the port number to "defaultPort" only if 
 * "pAddrString" does not contain an addres of the form
 * "n.n.n.n:p"
 */
epicsShareFunc int epicsShareAPI 
	aToIPAddr(const char *pAddrString, unsigned short defaultPort, struct sockaddr_in *pIP)
{
	int status;
	long addr[4];
	char hostName[512]; /* !! change n elements here requires change in format below !! */
	int port;
	struct in_addr ina;

	/*
	 * traditional dotted ip addres
	 */
	status = sscanf (pAddrString, "%li.%li.%li.%li:%i", 
			addr, addr+1u, addr+2u, addr+3u, &port);
	if (status>=4) {
		if (addrArrayToUL (addr, NELEMENTS(addr), &ina)<0) {
			return -1;
		}
		if (status==4) {
			port = defaultPort;
		}
		if (port<0 || port>USHRT_MAX) {
			return -1;
		}
		return initIPAddr (ina, (unsigned short) port, pIP);
	}
	
	/*
	 * IP address as a raw number
	 */
	status = sscanf (pAddrString, "%li:%i", addr, &port);
	if (status>=1) {
		if (*addr<0x0 && *addr>0xffffffff) {
			return -1;
		}
		if (status==1) {
			port = defaultPort;
		}
		if (port<0 || port>USHRT_MAX) {
			return -1;
		}
		ina.s_addr = htonl ( ((unsigned long)*addr) );
		return initIPAddr (ina, (unsigned short)port, pIP);
	}

	/*
	 * check for a valid host name before giving up
	 */
	status = sscanf (pAddrString, "%511s:%i", hostName, &port);
	if (status>=1) {
		if (status==1) {
			port = defaultPort;
		}
		if (port<0 || port>USHRT_MAX) {
			return -1;
		}
		status = hostToIPAddr (hostName, &ina);
		if (status==0) {
			return initIPAddr (ina, (unsigned short)port, pIP);
		}
	}

	/*
	 * none of the above - return indicating failure
	 */
	return -1;
}

/*
 * initIPAddr()
 * !! ipAddr should be passed in in network byte order !!
 * !! port is passed in in host byte order !!
 */
LOCAL int initIPAddr (struct in_addr ipAddr, unsigned short port, struct sockaddr_in *pIP)
{
	memset (pIP, '\0', sizeof(*pIP));
	pIP->sin_family = AF_INET;
	pIP->sin_port = htons(port);
	pIP->sin_addr = ipAddr;
	return 0;
}

/*
 * addrArrayToUL()
 */
LOCAL int addrArrayToUL (const long *pAddr, unsigned nElements, struct in_addr  *pIpAddr)
{
	unsigned i;
	unsigned long addr = 0ul;
	
	for (i=0u; i<nElements; i++) {
		if (pAddr[i]<0x0 || pAddr[i]>0xff) {
			return -1;
		}
		addr <<= 8;
		addr |= (unsigned long) pAddr[i];
	}
	pIpAddr->s_addr = htonl (addr);
		
	return 0;
}