libowfat/socket/socket_tcp4.c

#include <sys/types.h>
#ifndef __MINGW32__
#include <unistd.h>
#include <sys/socket.h>
#include <netinet/in.h>
#endif
#include "socket.h"
#include "ndelay.h"
#include <errno.h>

int socket_tcp4(void) {
  int s;
#ifdef SOCK_NONBLOCK
  if ((s=socket(PF_INET,SOCK_STREAM|SOCK_NONBLOCK,IPPROTO_TCP))>-1 || errno!=EINVAL) return s;
#endif
  s=socket_tcp4b();
  if (s==-1) return -1;
  if (ndelay_on(s) == -1) { close(s); return -1; }
  return s;
}
if SOCK_NONBLOCK is defined, use it instead of socket+fcntl 2015-03-17 00:01:00 +00:00			`#include <sys/types.h>`
			`#ifndef __MINGW32__`
make socket_(tc\|ud)p[46] actually return non-blocking sockets as documented (Richard Lyons) 2006-05-18 06:02:43 +00:00			`#include <unistd.h>`
if SOCK_NONBLOCK is defined, use it instead of socket+fcntl 2015-03-17 00:01:00 +00:00			`#include <sys/socket.h>`
			`#include <netinet/in.h>`
			`#endif`
Initial revision 2001-02-02 17:54:47 +00:00			`#include "socket.h"`
make socket_(tc\|ud)p[46] actually return non-blocking sockets as documented (Richard Lyons) 2006-05-18 06:02:43 +00:00			`#include "ndelay.h"`
... but if errno==EINVAL still fall back to socket+fcntl (Robert Henney) 2015-03-20 03:34:37 +00:00			`#include <errno.h>`
Initial revision 2001-02-02 17:54:47 +00:00
			`int socket_tcp4(void) {`
... but if errno==EINVAL still fall back to socket+fcntl (Robert Henney) 2015-03-20 03:34:37 +00:00			`int s;`
if SOCK_NONBLOCK is defined, use it instead of socket+fcntl 2015-03-17 00:01:00 +00:00			`#ifdef SOCK_NONBLOCK`
damn it, fucked up the return value 2015-03-20 03:50:42 +00:00			`if ((s=socket(PF_INET,SOCK_STREAM\|SOCK_NONBLOCK,IPPROTO_TCP))>-1 \|\| errno!=EINVAL) return s;`
... but if errno==EINVAL still fall back to socket+fcntl (Robert Henney) 2015-03-20 03:34:37 +00:00			`#endif`
			`s=socket_tcp4b();`
check for socket() returning -1 before trying to set the socket non-blocking so we don't hide the "too many open files" error code 2008-09-10 09:51:26 +00:00			`if (s==-1) return -1;`
make socket_(tc\|ud)p[46] actually return non-blocking sockets as documented (Richard Lyons) 2006-05-18 06:02:43 +00:00			`if (ndelay_on(s) == -1) { close(s); return -1; }`
			`return s;`
Initial revision 2001-02-02 17:54:47 +00:00			`}`