Fluke NORMA 4000 Operators, User Manual, Page: 174 / 184

Remote Control
Users Guide
6-16
return 0; /* OK */
}
/****************************************************************************
**/
socket_t socket_create(void)
{
socket_handle_t sh;
socket_t s;
sh = socket(AF_INET,SOCK_STREAM,0);
#if WIN
if ( sh == INVALID_SOCKET )
{
wsa_error("socket",-1);
return NULL;
}
#endif
s = calloc(1,sizeof(*s));
if ( !s )
return NULL;
s->h = sh;
return s; /* OK */
}
/****************************************************************************
**/
int socket_connect(socket_t s,struct sockaddr *addr,int addrlen)
{
int ret = 0; /* OK */
#if WIN
if ( connect(s->h,addr,addrlen) == SOCKET_ERROR )
{
wsa_error("connect",-1);
return -1;
}
#endif
return 0; /* OK */
}
/****************************************************************************
**/
int socket_recv(socket_t s,void *buf,int len,int flags)
{
register int l;
#if WIN
l = recv(s->h,buf,len,flags);
if ( l == SOCKET_ERROR )
{