tcl8.6.8-src.tar.gz

/*
 * Copyright （C） 2000-2003 Damien Miller.  All rights reserved.
 * Copyright （C） 1999 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.
 */

/*
 * Pseudo-implementation of RFC2553 name / address resolution functions
 *
 * But these functions are not implemented correctly. The minimum subset
 * is implemented for ssh use only. For example this routine assumes
 * that ai_family is AF_INET. Don‘t use it for another purpose.
 */
#include “tclInt.h“

TCL_DECLARE_MUTEX（netdbMutex）

#ifndef HAVE_GETNAMEINFO
#ifndef HAVE_STRLCPY
static size_t
strlcpy（char *dst const char *src size_t siz）
{
        char *d = dst;
        const char *s = src;
        size_t n = siz;

        /* Copy as many bytes as will fit */
        if （n != 0 && --n != 0） {
                do {
                        if （（*d++ = *s++） == 0）
                                break;
                } while （--n != 0）;
        }

        /* Not enough room in dst add NUL and traverse rest of src */
        if （n == 0） {
                if （siz != 0）
                        *d = ‘\0‘;              /* NUL-terminate dst */
                while （*s++）
                        ;
        }

        return（s - src - 1）;    /* count does not include NUL */
}
#endif

int fake_getnameinfo（const struct sockaddr *sa size_t salen char *host
                size_t hostlen char *serv size_t servlen int flags）
{
	struct sockaddr_in *sin = （struct sockaddr_in *）sa;
	struct hostent *hp;
	char tmpserv[16];

	if （sa->sa_family != AF_UNSPEC && sa->sa_fam