1999-08-13 01:37:52 -04:00
|
|
|
/*
|
|
|
|
* Copyright (C) 1995, 1996, 1997, and 1998 WIDE Project.
|
|
|
|
* All rights reserved.
|
2010-04-22 04:04:13 -04:00
|
|
|
*
|
1999-08-13 01:37:52 -04:00
|
|
|
* 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.
|
2010-04-22 04:04:13 -04:00
|
|
|
*
|
1999-08-13 01:37:52 -04:00
|
|
|
* 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.
|
|
|
|
*/
|
|
|
|
|
|
|
|
/*
|
|
|
|
* "#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 RFC2133 is silent about which error
|
|
|
|
* code must be returned for which situation.
|
|
|
|
* - PF_UNSPEC case would be handled in getipnodebyname() with the AI_ALL flag.
|
|
|
|
*/
|
|
|
|
|
2007-06-09 23:06:15 -04:00
|
|
|
#include "ruby/config.h"
|
2009-01-13 23:09:05 -05:00
|
|
|
#ifdef RUBY_EXTCONF_H
|
|
|
|
#include RUBY_EXTCONF_H
|
|
|
|
#endif
|
1999-08-13 01:37:52 -04:00
|
|
|
#include <sys/types.h>
|
* configure.in, defines.h, dir.c, dir.h, dln.c, error.c,
eval.c, file.c, hash.c, io.c, main.c, missing.c,
process.c, ruby.c, rubysig.h, signal.c, st.c, util.c, util.h,
bcc/Makefile.sub, win32/Makefile.sub, win32/win32.h,
ext/Win32API/Win32API.c, ext/socket/getaddrinfo.c,
ext/socket/getnameinfo.c, ext/socket/socket.c,
ext/tcltklib/stubs.c
: replace "NT" with "_WIN32", add DOSISH_DRIVE_LETTER
* wince/exe.mak : delete \r at the end of lines.
* wince/mswince-ruby17.def : delete rb_obj_become
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3148 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2002-12-14 22:18:08 -05:00
|
|
|
#ifndef _WIN32
|
1999-08-13 01:37:52 -04:00
|
|
|
#include <sys/param.h>
|
2010-04-22 04:04:13 -04:00
|
|
|
#if defined(__BEOS__) && !defined(__HAIKU__) && !defined(BONE)
|
2000-07-10 00:49:24 -04:00
|
|
|
# include <net/socket.h>
|
|
|
|
#else
|
|
|
|
# include <sys/socket.h>
|
|
|
|
#endif
|
1999-08-13 01:37:52 -04:00
|
|
|
#include <netinet/in.h>
|
2000-07-10 00:49:24 -04:00
|
|
|
#if defined(HAVE_ARPA_INET_H)
|
1999-08-13 01:37:52 -04:00
|
|
|
#include <arpa/inet.h>
|
2000-07-10 00:49:24 -04:00
|
|
|
#endif
|
1999-08-13 01:37:52 -04:00
|
|
|
#if defined(HAVE_ARPA_NAMESER_H)
|
|
|
|
#include <arpa/nameser.h>
|
|
|
|
#endif
|
|
|
|
#include <netdb.h>
|
|
|
|
#if defined(HAVE_RESOLV_H)
|
2004-05-20 00:34:14 -04:00
|
|
|
#ifdef _SX
|
|
|
|
#include <stdio.h>
|
|
|
|
#endif
|
1999-08-13 01:37:52 -04:00
|
|
|
#include <resolv.h>
|
|
|
|
#endif
|
|
|
|
#include <unistd.h>
|
|
|
|
#else
|
|
|
|
#include <winsock2.h>
|
2009-01-12 22:11:17 -05:00
|
|
|
#include <ws2tcpip.h>
|
1999-08-13 01:37:52 -04:00
|
|
|
#include <io.h>
|
|
|
|
#endif
|
|
|
|
#include <string.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <stddef.h>
|
|
|
|
#include <ctype.h>
|
|
|
|
|
1999-10-04 00:51:08 -04:00
|
|
|
#ifdef SOCKS5
|
|
|
|
#include <socks.h>
|
|
|
|
#endif
|
|
|
|
|
1999-08-13 01:37:52 -04:00
|
|
|
#include "addrinfo.h"
|
|
|
|
#include "sockport.h"
|
|
|
|
|
|
|
|
#define SUCCESS 0
|
|
|
|
#define ANY 0
|
|
|
|
#define YES 1
|
|
|
|
#define NO 0
|
|
|
|
|
|
|
|
#ifdef FAITH
|
|
|
|
static int translate = NO;
|
|
|
|
static struct in6_addr faith_prefix = IN6ADDR_ANY_INIT;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
static const char in_addrany[] = { 0, 0, 0, 0 };
|
|
|
|
static const char in6_addrany[] = {
|
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
|
|
|
|
};
|
2010-04-22 04:04:13 -04:00
|
|
|
static const char in_loopback[] = { 127, 0, 0, 1 };
|
1999-08-13 01:37:52 -04:00
|
|
|
static const char in6_loopback[] = {
|
|
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
|
|
|
|
};
|
|
|
|
|
|
|
|
struct sockinet {
|
|
|
|
u_char si_len;
|
|
|
|
u_char si_family;
|
|
|
|
u_short si_port;
|
|
|
|
};
|
|
|
|
|
2002-10-02 10:13:58 -04:00
|
|
|
static const struct afd {
|
1999-08-13 01:37:52 -04:00
|
|
|
int a_af;
|
|
|
|
int a_addrlen;
|
|
|
|
int a_socklen;
|
|
|
|
int a_off;
|
|
|
|
const char *a_addrany;
|
2010-04-22 04:21:01 -04:00
|
|
|
const char *a_loopback;
|
1999-08-13 01:37:52 -04:00
|
|
|
} 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},
|
|
|
|
#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, NULL, NULL},
|
|
|
|
};
|
|
|
|
|
|
|
|
#ifdef INET6
|
|
|
|
#define PTON_MAX 16
|
|
|
|
#else
|
|
|
|
#define PTON_MAX 4
|
|
|
|
#endif
|
|
|
|
|
2002-10-02 10:13:58 -04:00
|
|
|
static int get_name __P((const char *, const struct afd *,
|
1999-08-13 01:37:52 -04:00
|
|
|
struct addrinfo **, char *, struct addrinfo *,
|
|
|
|
int));
|
|
|
|
static int get_addr __P((const char *, int, struct addrinfo **,
|
|
|
|
struct addrinfo *, int));
|
|
|
|
static int str_isnumber __P((const char *));
|
2010-04-22 04:21:01 -04:00
|
|
|
|
2002-10-02 10:13:58 -04:00
|
|
|
static const char *const ai_errlist[] = {
|
1999-08-13 01:37:52 -04:00
|
|
|
"success.",
|
|
|
|
"address family for hostname not supported.", /* EAI_ADDRFAMILY */
|
|
|
|
"temporary failure in name resolution.", /* EAI_AGAIN */
|
|
|
|
"invalid value for ai_flags.", /* EAI_BADFLAGS */
|
|
|
|
"non-recoverable failure in name resolution.", /* EAI_FAIL */
|
|
|
|
"ai_family not supported.", /* EAI_FAMILY */
|
|
|
|
"memory allocation failure.", /* EAI_MEMORY */
|
|
|
|
"no address associated with hostname.", /* EAI_NODATA */
|
|
|
|
"hostname nor servname provided, or not known.",/* EAI_NONAME */
|
|
|
|
"servname not supported for ai_socktype.", /* EAI_SERVICE */
|
|
|
|
"ai_socktype not supported.", /* EAI_SOCKTYPE */
|
|
|
|
"system error returned in errno.", /* EAI_SYSTEM */
|
|
|
|
"invalid value for hints.", /* EAI_BADHINTS */
|
|
|
|
"resolved protocol is unknown.", /* EAI_PROTOCOL */
|
|
|
|
"unknown error.", /* EAI_MAX */
|
|
|
|
};
|
|
|
|
|
|
|
|
#define GET_CANONNAME(ai, str) \
|
|
|
|
if (pai->ai_flags & AI_CANONNAME) {\
|
|
|
|
if (((ai)->ai_canonname = (char *)malloc(strlen(str) + 1)) != NULL) {\
|
|
|
|
strcpy((ai)->ai_canonname, (str));\
|
|
|
|
} else {\
|
|
|
|
error = EAI_MEMORY;\
|
|
|
|
goto free;\
|
|
|
|
}\
|
|
|
|
}
|
|
|
|
|
|
|
|
#define GET_AI(ai, afd, addr, port) {\
|
|
|
|
char *p;\
|
|
|
|
if (((ai) = (struct addrinfo *)malloc(sizeof(struct addrinfo) +\
|
|
|
|
((afd)->a_socklen)))\
|
|
|
|
== NULL) {\
|
|
|
|
error = EAI_MEMORY;\
|
|
|
|
goto free;\
|
|
|
|
}\
|
2011-03-26 02:16:42 -04:00
|
|
|
memcpy((ai), pai, sizeof(struct addrinfo));\
|
1999-08-13 01:37:52 -04:00
|
|
|
(ai)->ai_addr = (struct sockaddr *)((ai) + 1);\
|
2013-02-14 18:14:22 -05:00
|
|
|
(ai)->ai_family = (afd)->a_af;\
|
|
|
|
(ai)->ai_addrlen = (afd)->a_socklen;\
|
2013-02-14 22:27:05 -05:00
|
|
|
INIT_SOCKADDR((ai)->ai_addr, (afd)->a_af, (afd)->a_socklen);\
|
2011-03-26 02:16:42 -04:00
|
|
|
((struct sockinet *)(ai)->ai_addr)->si_port = (port);\
|
1999-08-13 01:37:52 -04:00
|
|
|
p = (char *)((ai)->ai_addr);\
|
|
|
|
memcpy(p + (afd)->a_off, (addr), (afd)->a_addrlen);\
|
|
|
|
}
|
|
|
|
|
|
|
|
#define ERR(err) { error = (err); goto bad; }
|
|
|
|
|
2009-01-13 23:09:05 -05:00
|
|
|
#ifndef HAVE_GAI_STRERROR
|
|
|
|
#ifdef GAI_STRERROR_CONST
|
2002-02-28 21:32:21 -05:00
|
|
|
const
|
|
|
|
#endif
|
|
|
|
char *
|
2006-06-20 14:02:17 -04:00
|
|
|
gai_strerror(int ecode)
|
1999-08-13 01:37:52 -04:00
|
|
|
{
|
|
|
|
if (ecode < 0 || ecode > EAI_MAX)
|
|
|
|
ecode = EAI_MAX;
|
2002-06-03 11:52:28 -04:00
|
|
|
return (char *)ai_errlist[ecode];
|
1999-08-13 01:37:52 -04:00
|
|
|
}
|
2008-08-07 00:14:25 -04:00
|
|
|
#endif
|
1999-08-13 01:37:52 -04:00
|
|
|
|
|
|
|
void
|
2006-06-20 14:02:17 -04:00
|
|
|
freeaddrinfo(struct addrinfo *ai)
|
1999-08-13 01:37:52 -04:00
|
|
|
{
|
|
|
|
struct addrinfo *next;
|
|
|
|
|
|
|
|
do {
|
|
|
|
next = ai->ai_next;
|
|
|
|
if (ai->ai_canonname)
|
|
|
|
free(ai->ai_canonname);
|
|
|
|
/* no need to free(ai->ai_addr) */
|
|
|
|
free(ai);
|
|
|
|
} while ((ai = next) != NULL);
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
2006-06-20 14:02:17 -04:00
|
|
|
str_isnumber(const char *p)
|
1999-08-13 01:37:52 -04:00
|
|
|
{
|
|
|
|
char *q = (char *)p;
|
|
|
|
while (*q) {
|
|
|
|
if (! isdigit(*q))
|
|
|
|
return NO;
|
|
|
|
q++;
|
|
|
|
}
|
|
|
|
return YES;
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifndef HAVE_INET_PTON
|
|
|
|
|
|
|
|
static int
|
2006-06-20 14:02:17 -04:00
|
|
|
inet_pton(int af, const char *hostname, void *pton)
|
1999-08-13 01:37:52 -04:00
|
|
|
{
|
|
|
|
struct in_addr in;
|
|
|
|
|
|
|
|
#ifdef HAVE_INET_ATON
|
|
|
|
if (!inet_aton(hostname, &in))
|
|
|
|
return 0;
|
|
|
|
#else
|
|
|
|
int d1, d2, d3, d4;
|
|
|
|
char ch;
|
|
|
|
|
|
|
|
if (sscanf(hostname, "%d.%d.%d.%d%c", &d1, &d2, &d3, &d4, &ch) == 4 &&
|
|
|
|
0 <= d1 && d1 <= 255 && 0 <= d2 && d2 <= 255 &&
|
|
|
|
0 <= d3 && d3 <= 255 && 0 <= d4 && d4 <= 255) {
|
|
|
|
in.s_addr = htonl(
|
|
|
|
((long) d1 << 24) | ((long) d2 << 16) |
|
|
|
|
((long) d3 << 8) | ((long) d4 << 0));
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
memcpy(pton, &in, sizeof(in));
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
int
|
2006-06-20 14:02:17 -04:00
|
|
|
getaddrinfo(const char *hostname, const char *servname, const struct addrinfo *hints, struct addrinfo **res)
|
1999-08-13 01:37:52 -04:00
|
|
|
{
|
|
|
|
struct addrinfo sentinel;
|
|
|
|
struct addrinfo *top = NULL;
|
|
|
|
struct addrinfo *cur;
|
|
|
|
int i, error = 0;
|
|
|
|
char pton[PTON_MAX];
|
|
|
|
struct addrinfo ai;
|
|
|
|
struct addrinfo *pai;
|
|
|
|
u_short port;
|
|
|
|
|
|
|
|
#ifdef FAITH
|
|
|
|
static int firsttime = 1;
|
|
|
|
|
|
|
|
if (firsttime) {
|
|
|
|
/* translator hack */
|
|
|
|
{
|
|
|
|
char *q = getenv("GAI");
|
|
|
|
if (q && inet_pton(AF_INET6, q, &faith_prefix) == 1)
|
|
|
|
translate = YES;
|
|
|
|
}
|
|
|
|
firsttime = 0;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* initialize file static vars */
|
|
|
|
sentinel.ai_next = NULL;
|
|
|
|
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;
|
|
|
|
port = ANY;
|
2010-04-22 04:21:01 -04:00
|
|
|
|
1999-08-13 01:37:52 -04:00
|
|
|
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));
|
|
|
|
switch (pai->ai_socktype) {
|
|
|
|
case ANY:
|
|
|
|
switch (pai->ai_protocol) {
|
|
|
|
case ANY:
|
|
|
|
break;
|
|
|
|
case IPPROTO_UDP:
|
|
|
|
pai->ai_socktype = SOCK_DGRAM;
|
|
|
|
break;
|
|
|
|
case IPPROTO_TCP:
|
|
|
|
pai->ai_socktype = SOCK_STREAM;
|
|
|
|
break;
|
|
|
|
default:
|
2000-07-10 00:49:24 -04:00
|
|
|
#if defined(SOCK_RAW)
|
1999-08-13 01:37:52 -04:00
|
|
|
pai->ai_socktype = SOCK_RAW;
|
2000-07-10 00:49:24 -04:00
|
|
|
#endif
|
1999-08-13 01:37:52 -04:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
break;
|
2000-07-10 00:49:24 -04:00
|
|
|
#if defined(SOCK_RAW)
|
1999-08-13 01:37:52 -04:00
|
|
|
case SOCK_RAW:
|
|
|
|
break;
|
2000-07-10 00:49:24 -04:00
|
|
|
#endif
|
1999-08-13 01:37:52 -04:00
|
|
|
case SOCK_DGRAM:
|
|
|
|
if (pai->ai_protocol != IPPROTO_UDP &&
|
|
|
|
pai->ai_protocol != ANY)
|
|
|
|
ERR(EAI_BADHINTS); /*xxx*/
|
|
|
|
pai->ai_protocol = IPPROTO_UDP;
|
|
|
|
break;
|
|
|
|
case SOCK_STREAM:
|
|
|
|
if (pai->ai_protocol != IPPROTO_TCP &&
|
|
|
|
pai->ai_protocol != ANY)
|
|
|
|
ERR(EAI_BADHINTS); /*xxx*/
|
|
|
|
pai->ai_protocol = IPPROTO_TCP;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
ERR(EAI_SOCKTYPE);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* service port
|
|
|
|
*/
|
|
|
|
if (servname) {
|
|
|
|
if (str_isnumber(servname)) {
|
|
|
|
if (pai->ai_socktype == ANY) {
|
|
|
|
/* caller accept *ANY* socktype */
|
|
|
|
pai->ai_socktype = SOCK_DGRAM;
|
|
|
|
pai->ai_protocol = IPPROTO_UDP;
|
|
|
|
}
|
|
|
|
port = htons((unsigned short)atoi(servname));
|
2009-01-13 08:57:53 -05:00
|
|
|
} else if (pai->ai_flags & AI_NUMERICSERV) {
|
|
|
|
ERR(EAI_NONAME);
|
1999-08-13 01:37:52 -04:00
|
|
|
} else {
|
|
|
|
struct servent *sp;
|
2008-08-12 01:08:51 -04:00
|
|
|
const char *proto;
|
1999-08-13 01:37:52 -04:00
|
|
|
|
|
|
|
proto = NULL;
|
|
|
|
switch (pai->ai_socktype) {
|
|
|
|
case ANY:
|
|
|
|
proto = NULL;
|
|
|
|
break;
|
|
|
|
case SOCK_DGRAM:
|
|
|
|
proto = "udp";
|
|
|
|
break;
|
|
|
|
case SOCK_STREAM:
|
|
|
|
proto = "tcp";
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
fprintf(stderr, "panic!\n");
|
|
|
|
break;
|
|
|
|
}
|
* gc.c (Init_stack): stack region is far smaller than usual if
pthread is used.
* marshal.c (w_extended): singleton methods should not be checked
when dumping via marshal_dump() or _dump(). [ruby-talk:85909]
* file.c (getcwdofdrv): avoid using getcwd() directly, use
my_getcwd() instead.
* merged NeXT, OpenStep, Rhapsody ports patch from Eric Sunshine
<sunshine@sunshineco.com>. [ruby-core:01596]
* marshal.c (w_object): LINK check earlier than anything else,
i.e. do not dump TYPE_IVAR for already dumped objects.
(ruby-bugs PR#1220)
* eval.c (rb_eval): call "inherited" only when a new class is
generated; not on reopening.
* eval.c (eval): prepend error position in evaluating string to
* configure.in: revived NextStep, OpenStep, and Rhapsody ports which
had become unbuildable; enhanced --enable-fat-binary option so that
it accepts a list of desired architectures (rather than assuming a
fixed list), or defaults to a platform-appropriate list if user does
not provide an explicit list; made the default list of architectures
for MAB (fat binary) more comprehensive; now uses -fno-common even
when building the interpreter (in addition to using it for
extensions), thus allowing the interpreter to be embedded into a
plugin module of an external project (in addition to allowing
embedding directly into an application); added checks for
<netinet/in_systm.h> (needed by `socket' extension) and getcwd(); now
ensures that -I/usr/local/include is employed when extensions'
extconf.rb scripts invoke have_header() since extension checks on
NextStep and OpenStep will fail without it if the desired resource
resides in the /usr/local tree; fixed formatting of --help message.
* Makefile.in: $(LIBRUBY_A) rule now deletes the archive before
invoking $(AR) since `ar' on Apple/NeXT can not "update" MAB archives
(see configure's --enable-fat-binary option); added rule for new
missing/getcwd.c.
* defines.h: fixed endian handling during MAB build (see configure's
--enable-fat-binary option) to ensure that all portions of the
project see the correct WORDS_BIGENDIAN value (some extension modules
were getting the wrong endian setting); added missing constants
GETPGRP_VOID, WNOHANG, WUNTRACED, X_OK, and type pid_t for NextStep
and OpenStep; removed unnecessary and problematic HAVE_SYS_WAIT_H
define in NeXT section.
* dir.c: do not allow NAMLEN() macro to trust dirent::d_namlen on
NextStep since, on some installations, this value always resolves
uselessly to zero.
* dln.c: added error reporting to NextStep extension loader since the
previous behavior of failing silently was not useful; now ensures
that NSLINKMODULE_OPTION_BINDNOW compatibility constant is defined
for OpenStep and Rhapsody; no longer includes <mach-o/dyld.h> twice
on Rhapsody since this header lacks multiple-include protection,
which resulted in "redefinition" compilation errors.
* main.c: also create hard reference to objc_msgSend() on NeXT
platforms (in addition to Apple platforms).
* lib/mkmf.rb: now exports XCFLAGS from configure script to extension
makefiles so that extensions can be built MAB (see configure's
--enable-fat-binary option); also utilize XCFLAGS in cc_command()
(but not cpp_command() because MAB flags are incompatible with
direct invocation of `cpp').
* ext/curses/extconf.rb: now additionally checks for presence of these
curses functions which are not present on NextStep or Openstep:
bkgd(), bkgdset(), color(), curs(), getbkgd(), init(), scrl(), set(),
setscrreg(), wattroff(), wattron(), wattrset(), wbkgd(), wbkgdset(),
wscrl(), wsetscrreg()
* ext/curses/curses.c: added appropriate #ifdef's for additional set of
curses functions now checked by extconf.rb; fixed curses_bkgd() and
window_bkgd() to correctly return boolean result rather than numeric
result; fixed window_getbkgd() to correctly signal an error by
returning nil rather than -1.
* ext/etc/etc.c: setup_passwd() and setup_group() now check for null
pointers before invoking rb_tainted_str_new2() upon fields extracted
from `struct passwd' and `struct group' since null pointers in some
fields are common on NextStep/OpenStep (especially so for the
`pw_comment' field) and rb_tainted_str_new2() throws an exception
when it receives a null pointer.
* ext/pty/pty.c: include "util.h" for strdup()/ruby_strdup() for
platforms such as NextStep and OpenStep which lack strdup().
* ext/socket/getaddrinfo.c: cast first argument of getservbyname(),
gethostbyaddr(), and gethostbyname() from (const char*) to non-const
(char*) for older platforms such as NextStep and OpenStep.
* ext/socket/socket.c: include "util.h" for strdup()/ruby_strdup() for
platforms such as NextStep and OpenStep which lack strdup(); include
<netinet/in_systm.h> if present for NextStep and OpenStep; cast first
argument of gethostbyaddr() and getservbyname() from (const char*) to
non-const (char*) for older platforms.
* ext/syslog/syslog.c: include "util.h" for strdup()/ruby_strdup() for
platforms such as NextStep and OpenStep which lack strdup().
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5002 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2003-11-21 23:00:03 -05:00
|
|
|
if ((sp = getservbyname((char*)servname, proto)) == NULL)
|
1999-08-13 01:37:52 -04:00
|
|
|
ERR(EAI_SERVICE);
|
|
|
|
port = sp->s_port;
|
|
|
|
if (pai->ai_socktype == ANY)
|
|
|
|
if (strcmp(sp->s_proto, "udp") == 0) {
|
|
|
|
pai->ai_socktype = SOCK_DGRAM;
|
|
|
|
pai->ai_protocol = IPPROTO_UDP;
|
|
|
|
} else if (strcmp(sp->s_proto, "tcp") == 0) {
|
|
|
|
pai->ai_socktype = SOCK_STREAM;
|
|
|
|
pai->ai_protocol = IPPROTO_TCP;
|
|
|
|
} else
|
|
|
|
ERR(EAI_PROTOCOL); /*xxx*/
|
|
|
|
}
|
|
|
|
}
|
2010-04-22 04:21:01 -04:00
|
|
|
|
1999-08-13 01:37:52 -04:00
|
|
|
/*
|
|
|
|
* hostname == NULL.
|
|
|
|
* passive socket -> anyaddr (0.0.0.0 or ::)
|
|
|
|
* non-passive socket -> localhost (127.0.0.1 or ::1)
|
|
|
|
*/
|
|
|
|
if (hostname == NULL) {
|
2002-10-02 10:13:58 -04:00
|
|
|
const struct afd *afd;
|
1999-08-13 01:37:52 -04:00
|
|
|
int s;
|
|
|
|
|
|
|
|
for (afd = &afdl[0]; afd->a_af; afd++) {
|
|
|
|
if (!(pai->ai_family == PF_UNSPEC
|
|
|
|
|| pai->ai_family == afd->a_af)) {
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* filter out AFs that are not supported by the kernel
|
|
|
|
* XXX errno?
|
|
|
|
*/
|
|
|
|
s = socket(afd->a_af, SOCK_DGRAM, 0);
|
|
|
|
if (s < 0)
|
|
|
|
continue;
|
2005-10-21 02:46:41 -04:00
|
|
|
#if defined(__BEOS__)
|
2000-05-01 05:42:38 -04:00
|
|
|
closesocket(s);
|
|
|
|
#else
|
1999-08-13 01:37:52 -04:00
|
|
|
close(s);
|
2000-05-01 05:42:38 -04:00
|
|
|
#endif
|
1999-08-13 01:37:52 -04:00
|
|
|
|
|
|
|
if (pai->ai_flags & AI_PASSIVE) {
|
|
|
|
GET_AI(cur->ai_next, afd, afd->a_addrany, port);
|
|
|
|
/* xxx meaningless?
|
|
|
|
* GET_CANONNAME(cur->ai_next, "anyaddr");
|
|
|
|
*/
|
|
|
|
} else {
|
|
|
|
GET_AI(cur->ai_next, afd, afd->a_loopback,
|
|
|
|
port);
|
|
|
|
/* xxx meaningless?
|
|
|
|
* GET_CANONNAME(cur->ai_next, "localhost");
|
|
|
|
*/
|
|
|
|
}
|
|
|
|
cur = cur->ai_next;
|
|
|
|
}
|
|
|
|
top = sentinel.ai_next;
|
|
|
|
if (top)
|
|
|
|
goto good;
|
|
|
|
else
|
|
|
|
ERR(EAI_FAMILY);
|
|
|
|
}
|
2010-04-22 04:21:01 -04:00
|
|
|
|
1999-08-13 01:37:52 -04:00
|
|
|
/* hostname as numeric name */
|
|
|
|
for (i = 0; afdl[i].a_af; i++) {
|
|
|
|
if (inet_pton(afdl[i].a_af, hostname, pton)) {
|
|
|
|
u_long v4a;
|
|
|
|
#ifdef INET6
|
|
|
|
u_char pfx;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
switch (afdl[i].a_af) {
|
|
|
|
case AF_INET:
|
|
|
|
v4a = ((struct in_addr *)pton)->s_addr;
|
|
|
|
if (IN_MULTICAST(v4a) || IN_EXPERIMENTAL(v4a))
|
|
|
|
pai->ai_flags &= ~AI_CANONNAME;
|
|
|
|
v4a >>= IN_CLASSA_NSHIFT;
|
|
|
|
if (v4a == 0 || v4a == IN_LOOPBACKNET)
|
|
|
|
pai->ai_flags &= ~AI_CANONNAME;
|
|
|
|
break;
|
|
|
|
#ifdef INET6
|
|
|
|
case AF_INET6:
|
2003-09-02 01:12:39 -04:00
|
|
|
pfx = ((struct in6_addr *)pton)->s6_addr[0];
|
1999-08-13 01:37:52 -04:00
|
|
|
if (pfx == 0 || pfx == 0xfe || pfx == 0xff)
|
|
|
|
pai->ai_flags &= ~AI_CANONNAME;
|
|
|
|
break;
|
|
|
|
#endif
|
|
|
|
}
|
2010-04-22 04:21:01 -04:00
|
|
|
|
1999-08-13 01:37:52 -04:00
|
|
|
if (pai->ai_family == afdl[i].a_af ||
|
|
|
|
pai->ai_family == PF_UNSPEC) {
|
|
|
|
if (! (pai->ai_flags & AI_CANONNAME)) {
|
|
|
|
GET_AI(top, &afdl[i], pton, port);
|
|
|
|
goto good;
|
|
|
|
}
|
|
|
|
/*
|
|
|
|
* if AI_CANONNAME and if reverse lookup
|
|
|
|
* fail, return ai anyway to pacify
|
|
|
|
* calling application.
|
|
|
|
*
|
|
|
|
* XXX getaddrinfo() is a name->address
|
|
|
|
* translation function, and it looks strange
|
|
|
|
* that we do addr->name translation here.
|
|
|
|
*/
|
|
|
|
get_name(pton, &afdl[i], &top, pton, pai, port);
|
|
|
|
goto good;
|
2010-04-22 04:04:13 -04:00
|
|
|
} else
|
1999-08-13 01:37:52 -04:00
|
|
|
ERR(EAI_FAMILY); /*xxx*/
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if (pai->ai_flags & AI_NUMERICHOST)
|
|
|
|
ERR(EAI_NONAME);
|
|
|
|
|
|
|
|
/* hostname as alphabetical name */
|
|
|
|
error = get_addr(hostname, pai->ai_family, &top, pai, port);
|
|
|
|
if (error == 0) {
|
|
|
|
if (top) {
|
|
|
|
good:
|
|
|
|
*res = top;
|
|
|
|
return SUCCESS;
|
|
|
|
} else
|
|
|
|
error = EAI_FAIL;
|
|
|
|
}
|
|
|
|
free:
|
|
|
|
if (top)
|
|
|
|
freeaddrinfo(top);
|
|
|
|
bad:
|
|
|
|
*res = NULL;
|
|
|
|
return error;
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
2006-06-21 04:32:22 -04:00
|
|
|
get_name(const char *addr, const struct afd *afd, struct addrinfo **res, char *numaddr, struct addrinfo *pai, int port0)
|
1999-08-13 01:37:52 -04:00
|
|
|
{
|
|
|
|
u_short port = port0 & 0xffff;
|
|
|
|
struct hostent *hp;
|
|
|
|
struct addrinfo *cur;
|
|
|
|
int error = 0;
|
|
|
|
#ifdef INET6
|
|
|
|
int h_error;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef INET6
|
|
|
|
hp = getipnodebyaddr(addr, afd->a_addrlen, afd->a_af, &h_error);
|
|
|
|
#else
|
* gc.c (Init_stack): stack region is far smaller than usual if
pthread is used.
* marshal.c (w_extended): singleton methods should not be checked
when dumping via marshal_dump() or _dump(). [ruby-talk:85909]
* file.c (getcwdofdrv): avoid using getcwd() directly, use
my_getcwd() instead.
* merged NeXT, OpenStep, Rhapsody ports patch from Eric Sunshine
<sunshine@sunshineco.com>. [ruby-core:01596]
* marshal.c (w_object): LINK check earlier than anything else,
i.e. do not dump TYPE_IVAR for already dumped objects.
(ruby-bugs PR#1220)
* eval.c (rb_eval): call "inherited" only when a new class is
generated; not on reopening.
* eval.c (eval): prepend error position in evaluating string to
* configure.in: revived NextStep, OpenStep, and Rhapsody ports which
had become unbuildable; enhanced --enable-fat-binary option so that
it accepts a list of desired architectures (rather than assuming a
fixed list), or defaults to a platform-appropriate list if user does
not provide an explicit list; made the default list of architectures
for MAB (fat binary) more comprehensive; now uses -fno-common even
when building the interpreter (in addition to using it for
extensions), thus allowing the interpreter to be embedded into a
plugin module of an external project (in addition to allowing
embedding directly into an application); added checks for
<netinet/in_systm.h> (needed by `socket' extension) and getcwd(); now
ensures that -I/usr/local/include is employed when extensions'
extconf.rb scripts invoke have_header() since extension checks on
NextStep and OpenStep will fail without it if the desired resource
resides in the /usr/local tree; fixed formatting of --help message.
* Makefile.in: $(LIBRUBY_A) rule now deletes the archive before
invoking $(AR) since `ar' on Apple/NeXT can not "update" MAB archives
(see configure's --enable-fat-binary option); added rule for new
missing/getcwd.c.
* defines.h: fixed endian handling during MAB build (see configure's
--enable-fat-binary option) to ensure that all portions of the
project see the correct WORDS_BIGENDIAN value (some extension modules
were getting the wrong endian setting); added missing constants
GETPGRP_VOID, WNOHANG, WUNTRACED, X_OK, and type pid_t for NextStep
and OpenStep; removed unnecessary and problematic HAVE_SYS_WAIT_H
define in NeXT section.
* dir.c: do not allow NAMLEN() macro to trust dirent::d_namlen on
NextStep since, on some installations, this value always resolves
uselessly to zero.
* dln.c: added error reporting to NextStep extension loader since the
previous behavior of failing silently was not useful; now ensures
that NSLINKMODULE_OPTION_BINDNOW compatibility constant is defined
for OpenStep and Rhapsody; no longer includes <mach-o/dyld.h> twice
on Rhapsody since this header lacks multiple-include protection,
which resulted in "redefinition" compilation errors.
* main.c: also create hard reference to objc_msgSend() on NeXT
platforms (in addition to Apple platforms).
* lib/mkmf.rb: now exports XCFLAGS from configure script to extension
makefiles so that extensions can be built MAB (see configure's
--enable-fat-binary option); also utilize XCFLAGS in cc_command()
(but not cpp_command() because MAB flags are incompatible with
direct invocation of `cpp').
* ext/curses/extconf.rb: now additionally checks for presence of these
curses functions which are not present on NextStep or Openstep:
bkgd(), bkgdset(), color(), curs(), getbkgd(), init(), scrl(), set(),
setscrreg(), wattroff(), wattron(), wattrset(), wbkgd(), wbkgdset(),
wscrl(), wsetscrreg()
* ext/curses/curses.c: added appropriate #ifdef's for additional set of
curses functions now checked by extconf.rb; fixed curses_bkgd() and
window_bkgd() to correctly return boolean result rather than numeric
result; fixed window_getbkgd() to correctly signal an error by
returning nil rather than -1.
* ext/etc/etc.c: setup_passwd() and setup_group() now check for null
pointers before invoking rb_tainted_str_new2() upon fields extracted
from `struct passwd' and `struct group' since null pointers in some
fields are common on NextStep/OpenStep (especially so for the
`pw_comment' field) and rb_tainted_str_new2() throws an exception
when it receives a null pointer.
* ext/pty/pty.c: include "util.h" for strdup()/ruby_strdup() for
platforms such as NextStep and OpenStep which lack strdup().
* ext/socket/getaddrinfo.c: cast first argument of getservbyname(),
gethostbyaddr(), and gethostbyname() from (const char*) to non-const
(char*) for older platforms such as NextStep and OpenStep.
* ext/socket/socket.c: include "util.h" for strdup()/ruby_strdup() for
platforms such as NextStep and OpenStep which lack strdup(); include
<netinet/in_systm.h> if present for NextStep and OpenStep; cast first
argument of gethostbyaddr() and getservbyname() from (const char*) to
non-const (char*) for older platforms.
* ext/syslog/syslog.c: include "util.h" for strdup()/ruby_strdup() for
platforms such as NextStep and OpenStep which lack strdup().
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5002 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2003-11-21 23:00:03 -05:00
|
|
|
hp = gethostbyaddr((char*)addr, afd->a_addrlen, AF_INET);
|
1999-08-13 01:37:52 -04:00
|
|
|
#endif
|
|
|
|
if (hp && hp->h_name && hp->h_name[0] && hp->h_addr_list[0]) {
|
|
|
|
GET_AI(cur, afd, hp->h_addr_list[0], port);
|
|
|
|
GET_CANONNAME(cur, hp->h_name);
|
|
|
|
} else
|
|
|
|
GET_AI(cur, afd, numaddr, port);
|
2010-04-22 04:21:01 -04:00
|
|
|
|
1999-08-13 01:37:52 -04:00
|
|
|
#ifdef INET6
|
|
|
|
if (hp)
|
|
|
|
freehostent(hp);
|
|
|
|
#endif
|
|
|
|
*res = cur;
|
|
|
|
return SUCCESS;
|
|
|
|
free:
|
|
|
|
if (cur)
|
|
|
|
freeaddrinfo(cur);
|
|
|
|
#ifdef INET6
|
|
|
|
if (hp)
|
|
|
|
freehostent(hp);
|
|
|
|
#endif
|
|
|
|
/* bad: */
|
|
|
|
*res = NULL;
|
|
|
|
return error;
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
2006-06-20 14:02:17 -04:00
|
|
|
get_addr(const char *hostname, int af, struct addrinfo **res, struct addrinfo *pai, int port0)
|
1999-08-13 01:37:52 -04:00
|
|
|
{
|
|
|
|
u_short port = port0 & 0xffff;
|
|
|
|
struct addrinfo sentinel;
|
|
|
|
struct hostent *hp;
|
|
|
|
struct addrinfo *top, *cur;
|
2002-10-02 10:13:58 -04:00
|
|
|
const struct afd *afd;
|
1999-08-13 01:37:52 -04:00
|
|
|
int i, error = 0, h_error;
|
|
|
|
char *ap;
|
|
|
|
|
|
|
|
top = NULL;
|
|
|
|
sentinel.ai_next = NULL;
|
|
|
|
cur = &sentinel;
|
|
|
|
#ifdef INET6
|
|
|
|
if (af == AF_UNSPEC) {
|
|
|
|
hp = getipnodebyname(hostname, AF_INET6,
|
|
|
|
AI_ADDRCONFIG|AI_ALL|AI_V4MAPPED, &h_error);
|
|
|
|
} else
|
|
|
|
hp = getipnodebyname(hostname, af, AI_ADDRCONFIG, &h_error);
|
|
|
|
#else
|
* gc.c (Init_stack): stack region is far smaller than usual if
pthread is used.
* marshal.c (w_extended): singleton methods should not be checked
when dumping via marshal_dump() or _dump(). [ruby-talk:85909]
* file.c (getcwdofdrv): avoid using getcwd() directly, use
my_getcwd() instead.
* merged NeXT, OpenStep, Rhapsody ports patch from Eric Sunshine
<sunshine@sunshineco.com>. [ruby-core:01596]
* marshal.c (w_object): LINK check earlier than anything else,
i.e. do not dump TYPE_IVAR for already dumped objects.
(ruby-bugs PR#1220)
* eval.c (rb_eval): call "inherited" only when a new class is
generated; not on reopening.
* eval.c (eval): prepend error position in evaluating string to
* configure.in: revived NextStep, OpenStep, and Rhapsody ports which
had become unbuildable; enhanced --enable-fat-binary option so that
it accepts a list of desired architectures (rather than assuming a
fixed list), or defaults to a platform-appropriate list if user does
not provide an explicit list; made the default list of architectures
for MAB (fat binary) more comprehensive; now uses -fno-common even
when building the interpreter (in addition to using it for
extensions), thus allowing the interpreter to be embedded into a
plugin module of an external project (in addition to allowing
embedding directly into an application); added checks for
<netinet/in_systm.h> (needed by `socket' extension) and getcwd(); now
ensures that -I/usr/local/include is employed when extensions'
extconf.rb scripts invoke have_header() since extension checks on
NextStep and OpenStep will fail without it if the desired resource
resides in the /usr/local tree; fixed formatting of --help message.
* Makefile.in: $(LIBRUBY_A) rule now deletes the archive before
invoking $(AR) since `ar' on Apple/NeXT can not "update" MAB archives
(see configure's --enable-fat-binary option); added rule for new
missing/getcwd.c.
* defines.h: fixed endian handling during MAB build (see configure's
--enable-fat-binary option) to ensure that all portions of the
project see the correct WORDS_BIGENDIAN value (some extension modules
were getting the wrong endian setting); added missing constants
GETPGRP_VOID, WNOHANG, WUNTRACED, X_OK, and type pid_t for NextStep
and OpenStep; removed unnecessary and problematic HAVE_SYS_WAIT_H
define in NeXT section.
* dir.c: do not allow NAMLEN() macro to trust dirent::d_namlen on
NextStep since, on some installations, this value always resolves
uselessly to zero.
* dln.c: added error reporting to NextStep extension loader since the
previous behavior of failing silently was not useful; now ensures
that NSLINKMODULE_OPTION_BINDNOW compatibility constant is defined
for OpenStep and Rhapsody; no longer includes <mach-o/dyld.h> twice
on Rhapsody since this header lacks multiple-include protection,
which resulted in "redefinition" compilation errors.
* main.c: also create hard reference to objc_msgSend() on NeXT
platforms (in addition to Apple platforms).
* lib/mkmf.rb: now exports XCFLAGS from configure script to extension
makefiles so that extensions can be built MAB (see configure's
--enable-fat-binary option); also utilize XCFLAGS in cc_command()
(but not cpp_command() because MAB flags are incompatible with
direct invocation of `cpp').
* ext/curses/extconf.rb: now additionally checks for presence of these
curses functions which are not present on NextStep or Openstep:
bkgd(), bkgdset(), color(), curs(), getbkgd(), init(), scrl(), set(),
setscrreg(), wattroff(), wattron(), wattrset(), wbkgd(), wbkgdset(),
wscrl(), wsetscrreg()
* ext/curses/curses.c: added appropriate #ifdef's for additional set of
curses functions now checked by extconf.rb; fixed curses_bkgd() and
window_bkgd() to correctly return boolean result rather than numeric
result; fixed window_getbkgd() to correctly signal an error by
returning nil rather than -1.
* ext/etc/etc.c: setup_passwd() and setup_group() now check for null
pointers before invoking rb_tainted_str_new2() upon fields extracted
from `struct passwd' and `struct group' since null pointers in some
fields are common on NextStep/OpenStep (especially so for the
`pw_comment' field) and rb_tainted_str_new2() throws an exception
when it receives a null pointer.
* ext/pty/pty.c: include "util.h" for strdup()/ruby_strdup() for
platforms such as NextStep and OpenStep which lack strdup().
* ext/socket/getaddrinfo.c: cast first argument of getservbyname(),
gethostbyaddr(), and gethostbyname() from (const char*) to non-const
(char*) for older platforms such as NextStep and OpenStep.
* ext/socket/socket.c: include "util.h" for strdup()/ruby_strdup() for
platforms such as NextStep and OpenStep which lack strdup(); include
<netinet/in_systm.h> if present for NextStep and OpenStep; cast first
argument of gethostbyaddr() and getservbyname() from (const char*) to
non-const (char*) for older platforms.
* ext/syslog/syslog.c: include "util.h" for strdup()/ruby_strdup() for
platforms such as NextStep and OpenStep which lack strdup().
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5002 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2003-11-21 23:00:03 -05:00
|
|
|
hp = gethostbyname((char*)hostname);
|
1999-08-13 01:37:52 -04:00
|
|
|
h_error = h_errno;
|
|
|
|
#endif
|
|
|
|
if (hp == NULL) {
|
|
|
|
switch (h_error) {
|
|
|
|
case HOST_NOT_FOUND:
|
|
|
|
case NO_DATA:
|
|
|
|
error = EAI_NODATA;
|
|
|
|
break;
|
|
|
|
case TRY_AGAIN:
|
|
|
|
error = EAI_AGAIN;
|
|
|
|
break;
|
|
|
|
case NO_RECOVERY:
|
|
|
|
default:
|
|
|
|
error = EAI_FAIL;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
goto bad;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ((hp->h_name == NULL) || (hp->h_name[0] == 0) ||
|
|
|
|
(hp->h_addr_list[0] == NULL))
|
|
|
|
ERR(EAI_FAIL);
|
2010-04-22 04:21:01 -04:00
|
|
|
|
1999-08-13 01:37:52 -04:00
|
|
|
for (i = 0; (ap = hp->h_addr_list[i]) != NULL; i++) {
|
|
|
|
switch (af) {
|
|
|
|
#ifdef INET6
|
|
|
|
case AF_INET6:
|
|
|
|
afd = &afdl[N_INET6];
|
|
|
|
break;
|
|
|
|
#endif
|
|
|
|
#ifndef INET6
|
|
|
|
default: /* AF_UNSPEC */
|
|
|
|
#endif
|
|
|
|
case AF_INET:
|
|
|
|
afd = &afdl[N_INET];
|
|
|
|
break;
|
|
|
|
#ifdef INET6
|
|
|
|
default: /* AF_UNSPEC */
|
|
|
|
if (IN6_IS_ADDR_V4MAPPED((struct in6_addr *)ap)) {
|
|
|
|
ap += sizeof(struct in6_addr) -
|
|
|
|
sizeof(struct in_addr);
|
|
|
|
afd = &afdl[N_INET];
|
|
|
|
} else
|
|
|
|
afd = &afdl[N_INET6];
|
|
|
|
break;
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
#ifdef FAITH
|
|
|
|
if (translate && afd->a_af == AF_INET) {
|
|
|
|
struct in6_addr *in6;
|
|
|
|
|
|
|
|
GET_AI(cur->ai_next, &afdl[N_INET6], ap, port);
|
|
|
|
in6 = &((struct sockaddr_in6 *)cur->ai_next->ai_addr)->sin6_addr;
|
2009-12-30 15:56:41 -05:00
|
|
|
memcpy(&in6->s6_addr, &faith_prefix,
|
|
|
|
sizeof(struct in6_addr) - sizeof(struct in_addr));
|
|
|
|
memcpy(&in6->s6_addr + sizeof(struct in_addr), ap,
|
|
|
|
sizeof(struct in_addr));
|
1999-08-13 01:37:52 -04:00
|
|
|
} else
|
|
|
|
#endif /* FAITH */
|
|
|
|
GET_AI(cur->ai_next, afd, ap, port);
|
|
|
|
if (cur == &sentinel) {
|
|
|
|
top = cur->ai_next;
|
|
|
|
GET_CANONNAME(top, hp->h_name);
|
|
|
|
}
|
|
|
|
cur = cur->ai_next;
|
|
|
|
}
|
|
|
|
#ifdef INET6
|
|
|
|
freehostent(hp);
|
|
|
|
#endif
|
|
|
|
*res = top;
|
|
|
|
return SUCCESS;
|
|
|
|
free:
|
|
|
|
if (top)
|
|
|
|
freeaddrinfo(top);
|
|
|
|
#ifdef INET6
|
|
|
|
if (hp)
|
|
|
|
freehostent(hp);
|
|
|
|
#endif
|
|
|
|
bad:
|
|
|
|
*res = NULL;
|
|
|
|
return error;
|
|
|
|
}
|