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

Programming Examples
U, I, P Measurement over Ethernet Interface without VISA Library
6
6-17
wsa_error("recv",-1);
return -1;
}
#endif
return l;
}
/****************************************************************************
**/
int socket_send(socket_t s,void *buf,int len,int flags)
{
register int slen; /* sent length */
#if WIN
slen = send(s->h,buf,len,flags);
if ( slen == SOCKET_ERROR )
{
wsa_error("send",-1);
return -1;
}
#endif
return slen;
}
/****************************************************************************
**/
int socket_puts(socket_t s,char *str)
{
char buf[1024];
strcpy(buf,str);
strcat(buf,"\n");
if ( socket_send(s,buf,strlen(buf),0) < 0 )
return -1;
return 0;
}
/****************************************************************************
**/
int socket_gets(socket_t s,char *str)
{
char buf[1024];
char *p;
if ( socket_recv(s,buf,sizeof(buf),0) < 0 )
return -1;
if ( (p = memchr(buf,'\n',sizeof(buf))) != NULL )
{
if ( p > buf && p[-1] == '\r' )
p--;
*p = '\0';