/*
?*?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