91av视频/亚洲h视频/操亚洲美女/外国一级黄色毛片 - 国产三级三级三级三级

  • 大小: 9.34MB
    文件類型: .gz
    金幣: 1
    下載: 0 次
    發布日期: 2023-10-12
  • 語言: 其他
  • 標簽: tcl??

資源簡介

tcl8.6.8-src.tar.gz 最新版本 linux管理工具 歡迎下載

資源截圖

代碼片段和文件信息

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

評論

共有 條評論