105 |
"Open a socket on PORT and return (cons fd portname) where file \ |
"Open a socket on PORT and return (cons fd portname) where file \ |
106 |
descriptor is a small fixnum which is the write file descriptor for \ |
descriptor is a small fixnum which is the write file descriptor for \ |
107 |
the socket. If PORT is zero do automatic allocation of port") |
the socket. If PORT is zero do automatic allocation of port") |
108 |
{ int s, n, rc; struct |
{ |
109 |
sockaddr_in addr; |
#ifdef __MINGW32__ |
110 |
|
SOCKET s; |
111 |
|
#else |
112 |
|
int s; |
113 |
|
#endif |
114 |
|
int n, rc; |
115 |
|
struct sockaddr_in addr; |
116 |
|
|
117 |
#ifdef __MINGW32__ |
#ifdef __MINGW32__ |
118 |
if ( w32_socket_init() < 0 ) { |
if ( w32_socket_init() < 0 ) { |