/*	$KAME: getaddrinfo.c,v 1.15 2000/07/09 04:37:24 itojun Exp $	*/

/*

 * Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project.

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 * 3. Neither the name of the project nor the names of its contributors

 *    may be used to endorse or promote products derived from this software

 *    without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND

 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE

 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

 * SUCH DAMAGE.

 *

 * Portions Copyright (c) 2006-2008 Nokia Corporation and/or its subsidiary(-ies). All rights reserved. 

 */

/*

 * "#ifdef FAITH" part is local hack for supporting IPv4-v6 translator.

 *

 * Issues to be discussed:

 * - Thread safe-ness must be checked.

 * - Return values.  There are nonstandard return values defined and used

 *   in the source code.  This is because RFC2553 is silent about which error

 *   code must be returned for which situation.

 * - freeaddrinfo(NULL).  RFC2553 is silent about it.  XNET 5.2 says it is

 *   invalid.  current code - SEGV on freeaddrinfo(NULL)

 *

 * Note:

 * - The code filters out AFs that are not supported by the kernel,

 *   when globbing NULL hostname (to loopback, or wildcard).  Is it the right

 *   thing to do?  What is the relationship with post-RFC2553 AI_ADDRCONFIG

 *   in ai_flags?

 * - (post-2553) semantics of AI_ADDRCONFIG itself is too vague.

 *   (1) what should we do against numeric hostname (2) what should we do

 *   against NULL hostname (3) what is AI_ADDRCONFIG itself.  AF not ready?

 *   non-loopback address configured?  global address configured?

 *

 * OS specific notes for netbsd/openbsd/freebsd4/bsdi4:

 * - To avoid search order issue, we have a big amount of code duplicate

 *   from gethnamaddr.c and some other places.  The issues that there's no

 *   lower layer function to lookup "IPv4 or IPv6" record.  Calling

 *   gethostbyname2 from getaddrinfo will end up in wrong search order, as

 *   presented above.

 *

 * OS specific notes for freebsd4:

 * - FreeBSD supported $GAI.  The code does not.

 * - FreeBSD allowed classful IPv4 numeric (127.1), the code does not.

 */

#include <sys/cdefs.h>

__FBSDID("$FreeBSD: src/lib/libc/net/getaddrinfo.c,v 1.69.2.1 2005/07/22 20:17:30 ume Exp $");

#include <unistd.h>

#include <sys/socket.h>

#include <net/if.h>

#include "namespace.h"

#include <sys/types.h>

#include <sys/param.h>

#include <netinet/in.h>

#include <sys/queue.h>

#ifdef INET6

#ifndef __SYMBIAN32__

#include <net/if_var.h>

#include <sys/sysctl.h>

#endif //__SYMBIAN32__

#include <sys/ioctl.h>

#include <netinet6/in6_var.h>	/* XXX */

#endif

#include <arpa/inet.h>

#include <arpa/nameser.h>

#ifndef __SYMBIAN32__

#include <rpc/rpc.h>

#include <rpcsvc/yp_prot.h>

#include <rpcsvc/ypclnt.h>

#endif //__SYMBIAN32__

#include <netdb.h>

#include <resolv.h>

#include <string.h>

#include <stdlib.h>

#include <stddef.h>

#include <ctype.h>

#include <stdio.h>

#include <errno.h>

#include "res_config.h"

#ifdef DEBUG

#include "sys/syslog.h"

#endif

#include <stdarg.h>

#include <nsswitch.h>

#include "un-namespace.h"

#include "libc_private.h"

#ifdef __SYMBIAN32__

#if defined(__KAME__)

#undef __KAME__

#endif

#endif

#if defined(__KAME__) && defined(INET6)

# define FAITH

#endif

#define SUCCESS 0

#define ANY 0

#define YES 1

#define NO  0

static const char in_addrany[] = { 0, 0, 0, 0 };

static const char in_loopback[] = { 127, 0, 0, 1 };

#ifdef INET6

static const char in6_addrany[] = {

	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

};

static const char in6_loopback[] = {

	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1

};

#endif

struct policyqueue {

	TAILQ_ENTRY(policyqueue) pc_entry;

#ifdef INET6

	struct in6_addrpolicy pc_policy;

#endif

};

TAILQ_HEAD(policyhead, policyqueue);

static const struct afd {

	int a_af;

	int a_addrlen;

	socklen_t a_socklen;

	int a_off;

	const char *a_addrany;

	const char *a_loopback;

	int a_scoped;

} afdl [] = {

#ifdef INET6

#define	N_INET6 0

	{PF_INET6, sizeof(struct in6_addr),

	 sizeof(struct sockaddr_in6),

	 offsetof(struct sockaddr_in6, sin6_addr),

	 in6_addrany, in6_loopback, 1},

#define	N_INET 1

#else

#define	N_INET 0

#endif

	{PF_INET, sizeof(struct in_addr),

	 sizeof(struct sockaddr_in),

	 offsetof(struct sockaddr_in, sin_addr),

	 in_addrany, in_loopback, 0},

	{0, 0, 0, 0, NULL, NULL, 0},

};

struct explore {

	int e_af;

	int e_socktype;

	int e_protocol;

	const char *e_protostr;

	int e_wild;

#define WILD_AF(ex)		((ex)->e_wild & 0x01)

#define WILD_SOCKTYPE(ex)	((ex)->e_wild & 0x02)

#define WILD_PROTOCOL(ex)	((ex)->e_wild & 0x04)

};

static const struct explore explore[] = {

#if 0

	{ PF_LOCAL, 0, ANY, ANY, NULL, 0x01 },

#endif

#ifdef INET6

	{ PF_INET6, SOCK_DGRAM, IPPROTO_UDP, "udp", 0x07 },

	{ PF_INET6, SOCK_STREAM, IPPROTO_TCP, "tcp", 0x07 },

	{ PF_INET6, SOCK_RAW, ANY, NULL, 0x05 },

#endif

	{ PF_INET, SOCK_DGRAM, IPPROTO_UDP, "udp", 0x07 },

	{ PF_INET, SOCK_STREAM, IPPROTO_TCP, "tcp", 0x07 },

	{ PF_INET, SOCK_RAW, ANY, NULL, 0x05 },

	{ PF_UNSPEC, SOCK_DGRAM, IPPROTO_UDP, "udp", 0x07 },

	{ PF_UNSPEC, SOCK_STREAM, IPPROTO_TCP, "tcp", 0x07 },

	{ PF_UNSPEC, SOCK_RAW, ANY, NULL, 0x05 },

	{ -1, 0, 0, NULL, 0 },

};

#ifdef INET6

#define PTON_MAX	16

#else

#define PTON_MAX	4

#endif

#define AIO_SRCFLAG_DEPRECATED	0x1

struct ai_order {

	union {

		struct sockaddr_storage aiou_ss;

		struct sockaddr aiou_sa;

	} aio_src_un;

#define aio_srcsa aio_src_un.aiou_sa

	u_int32_t aio_srcflag;

	int aio_srcscope;

	int aio_dstscope;

	struct policyqueue *aio_srcpolicy;

	struct policyqueue *aio_dstpolicy;

	struct addrinfo *aio_ai;

	int aio_matchlen;

};

#ifndef __SYMBIAN32__

static const ns_src default_dns_files[] = {

	{ NSSRC_FILES, 	NS_SUCCESS },

	{ NSSRC_DNS, 	NS_SUCCESS },

	{ 0 }

};

#endif//__SYMBIAN32__

struct res_target {

	struct res_target *next;

	const char *name;	/* domain name */

	int qclass, qtype;	/* class and type of query */

	u_char *answer;		/* buffer to put answer */

	int anslen;		/* size of answer buffer */

	int n;			/* result length */

};

#define MAXPACKET	(64*1024)

typedef union {

	HEADER hdr;

	u_char buf[MAXPACKET];

} querybuf;

static int str2number(const char *);

static int explore_null(const struct addrinfo *,

	const char *, struct addrinfo **);

static int explore_numeric(const struct addrinfo *, const char *,

	const char *, struct addrinfo **, const char *);

static int explore_numeric_scope(const struct addrinfo *, const char *,

	const char *, struct addrinfo **);

static int get_canonname(const struct addrinfo *,

	struct addrinfo *, const char *);

static struct addrinfo *get_ai(const struct addrinfo *,

	const struct afd *, const char *);

static int get_portmatch(const struct addrinfo *, const char *);

static int get_port(struct addrinfo *, const char *, int);

static const struct afd *find_afd(int);

static int addrconfig(struct addrinfo *);

static void set_source(struct ai_order *, struct policyhead *);

static int comp_dst(const void *, const void *);

#ifdef INET6

static int ip6_str2scopeid(char *, struct sockaddr_in6 *, u_int32_t *);

#endif

static int gai_addr2scopetype(struct sockaddr *);

#ifndef __SYMBIAN32__

static int explore_fqdn(const struct addrinfo *, const char *,

	const char *, struct addrinfo **);

#endif //__SYMBIAN32__

static int reorder(struct addrinfo *);

static int get_addrselectpolicy(struct policyhead *);

static void free_addrselectpolicy(struct policyhead *);

static struct policyqueue *match_addrselectpolicy(struct sockaddr *,

	struct policyhead *);

static int matchlen(struct sockaddr *, struct sockaddr *);

#ifndef __SYMBIAN32__

static struct addrinfo *getanswer(const querybuf *, int, const char *, int,

	const struct addrinfo *);

#endif //__SYMBIAN32__

#if defined(RESOLVSORT)

static int addr4sort(struct addrinfo *);

#endif

#ifndef __SYMBIAN32__

static int _dns_getaddrinfo(void *, void *, va_list);

static void _sethtent(FILE **);

static void _endhtent(FILE **);

#endif /* __SYMBIAN32__ */

#ifndef __SYMBIAN32__

static struct addrinfo *_gethtent(FILE **, const char *,

	const struct addrinfo *);

static int _files_getaddrinfo(void *, void *, va_list);

#endif // __SYMBIAN32__	

#ifdef YP

static struct addrinfo *_yphostent(char *, const struct addrinfo *);

static int _yp_getaddrinfo(void *, void *, va_list);

#endif

#ifndef __SYMBIAN32__

static int res_queryN(const char *, struct res_target *);

static int res_searchN(const char *, struct res_target *);

static int res_querydomainN(const char *, const char *,

	struct res_target *);

#endif //__SYMBIAN32__

#ifdef __SYMBIAN32__

extern int getaddrinfo_private(const char*, const struct addrinfo*, struct addrinfo**);

extern void freeaddrinfo_private(struct addrinfo*);

static long int explore_hostname( struct addrinfo *, const char *,

	const char *, struct addrinfo **, const struct addrinfo *);

#endif

/* XXX macros that make external reference is BAD. */

#define GET_AI(ai, afd, addr) \

do { \

	/* external reference: pai, error, and label free */ \

	(ai) = get_ai(pai, (afd), (addr)); \

	if ((ai) == NULL) { \

		error = EAI_MEMORY; \

		goto free; \

	} \

} while (/*CONSTCOND*/0)

#define GET_PORT(ai, serv) \

do { \

	/* external reference: error and label free */ \

	error = get_port((ai), (serv), 0); \

	if (error != 0) \

		goto free; \

} while (/*CONSTCOND*/0)

#define GET_CANONNAME(ai, str) \

do { \

	/* external reference: pai, error and label free */ \

	error = get_canonname(pai, (ai), (str)); \

	if (error != 0) \

		goto free; \

} while (/*CONSTCOND*/0)

#define ERR(err) \

do { \

	/* external reference: error, and label bad */ \

	error = (err); \

	goto bad; \

	/*NOTREACHED*/ \

} while (/*CONSTCOND*/0)

#define MATCH_FAMILY(x, y, w) \

	((x) == (y) || (/*CONSTCOND*/(w) && ((x) == PF_UNSPEC || (y) == PF_UNSPEC)))

#define MATCH(x, y, w) \

	((x) == (y) || (/*CONSTCOND*/(w) && ((x) == ANY || (y) == ANY)))

EXPORT_C void

freeaddrinfo(ai)

	struct addrinfo *ai;

{

	struct addrinfo *next;

	if(ai == NULL) 

	{

		return ;

	}

	do {

		next = ai->ai_next;

		if (ai->ai_canonname)

			free(ai->ai_canonname);

		/* no need to free(ai->ai_addr) */

		free(ai);

		ai = next;

	} while (ai);

}

static int

str2number(p)

	const char *p;

{

	char *ep;

	unsigned long v;

	if (*p == '\0')

		return -1;

	ep = NULL;

	errno = 0;

	v = strtoul(p, &ep, 10);

	if (errno == 0 && ep && *ep == '\0' && v <= UINT_MAX)

		return v;

	else

		return -1;

}

EXPORT_C int

getaddrinfo(hostname, servname, hints, res)

	const char *hostname, *servname;

	const struct addrinfo *hints;

	struct addrinfo **res;

{

	struct addrinfo sentinel;

	struct addrinfo *cur;

	int error = 0;

	struct addrinfo ai;

	struct addrinfo ai0;

	struct addrinfo *pai;

	const struct explore *ex;

    int numeric = 0;

	memset(&sentinel, 0, sizeof(sentinel));

	cur = &sentinel;

	pai = &ai;

	pai->ai_flags = 0;

	pai->ai_family = PF_UNSPEC;

	pai->ai_socktype = ANY;

	pai->ai_protocol = ANY;

	pai->ai_addrlen = 0;

	pai->ai_canonname = NULL;

	pai->ai_addr = NULL;

	pai->ai_next = NULL;

	if (hostname == NULL && servname == NULL)

		return EAI_NONAME;

	if (hints) {

		/* error check for hints */

		if (hints->ai_addrlen || hints->ai_canonname ||

		    hints->ai_addr || hints->ai_next)

			ERR(EAI_BADHINTS); /* xxx */

		if (hints->ai_flags & ~AI_MASK)

			ERR(EAI_BADFLAGS);

		switch (hints->ai_family) {

		case PF_UNSPEC:

		case PF_INET:

#ifdef INET6

		case PF_INET6:

#endif

			break;

		default:

			ERR(EAI_FAMILY);

		}

		memcpy(pai, hints, sizeof(*pai));

		/*

		 * if both socktype/protocol are specified, check if they

		 * are meaningful combination.

		 */

		if (pai->ai_socktype != ANY && pai->ai_protocol != ANY) {

			for (ex = explore; ex->e_af >= 0; ex++) {

				if (pai->ai_family != ex->e_af)

					continue;

				if (ex->e_socktype == ANY)

					continue;

				if (ex->e_protocol == ANY)

					continue;

				if (pai->ai_socktype == ex->e_socktype &&

				    pai->ai_protocol != ex->e_protocol) {

					ERR(EAI_BADHINTS);

				}

			}

		}

	}

	/*

	 * post-2553: AI_ALL and AI_V4MAPPED are effective only against

	 * AF_INET6 query.  They need to be ignored if specified in other

	 * occassions.

	 */

	switch (pai->ai_flags & (AI_ALL | AI_V4MAPPED)) {

	case AI_V4MAPPED:

	case AI_ALL | AI_V4MAPPED:

		if (pai->ai_family != AF_INET6)

			pai->ai_flags &= ~(AI_ALL | AI_V4MAPPED);

		break;

#ifndef __SYMBIAN32__

	case AI_ALL:

#if 1

		/* illegal */

		ERR(EAI_BADFLAGS);

#else

		pai->ai_flags &= ~(AI_ALL | AI_V4MAPPED);

#endif

		break;

#endif /*__SYMBIAN32__*/

	}

	/*

	 * check for special cases.  (1) numeric servname is disallowed if

	 * socktype/protocol are left unspecified. (2) servname is disallowed

	 * for raw and other inet{,6} sockets.

	 */

	if (MATCH_FAMILY(pai->ai_family, PF_INET, 1)

#ifdef PF_INET6

	    || MATCH_FAMILY(pai->ai_family, PF_INET6, 1)

#endif

	    ) {

		ai0 = *pai;	/* backup *pai */

		if (pai->ai_family == PF_UNSPEC) {

#ifdef PF_INET6

#ifdef __SYMBIAN32__

// XXX: Fix this

			pai->ai_family = PF_INET;

#else			

			pai->ai_family = PF_INET6;

#endif // __SYMBIAN32__

#else

			pai->ai_family = PF_INET;

#endif

		}

		error = get_portmatch(pai, servname);

		if (error)

			ERR(error);

		*pai = ai0;

	}

	ai0 = *pai;

	/* NULL hostname, or numeric hostname */

	for (ex = explore; ex->e_af >= 0; ex++) {

		*pai = ai0;

		/* PF_UNSPEC entries are prepared for DNS queries only */

		if (ex->e_af == PF_UNSPEC)

			continue;

		if (!MATCH_FAMILY(pai->ai_family, ex->e_af, WILD_AF(ex)))

			continue;