1 /****************************************************************************
3 * GNAT COMPILER COMPONENTS *
9 * Copyright (C) 2004-2009, Free Software Foundation, Inc. *
11 * GNAT is free software; you can redistribute it and/or modify it under *
12 * terms of the GNU General Public License as published by the Free Soft- *
13 * ware Foundation; either version 3, or (at your option) any later ver- *
14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
15 * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
16 * or FITNESS FOR A PARTICULAR PURPOSE. *
18 * As a special exception under Section 7 of GPL version 3, you are granted *
19 * additional permissions described in the GCC Runtime Library Exception, *
20 * version 3.1, as published by the Free Software Foundation. *
22 * You should have received a copy of the GNU General Public License and *
23 * a copy of the GCC Runtime Library Exception along with this program; *
24 * see the files COPYING3 and COPYING.RUNTIME respectively. If not, see *
25 * <http://www.gnu.org/licenses/>. *
27 * GNAT was originally developed by the GNAT team at New York University. *
28 * Extensive contributions were provided by Ada Core Technologies Inc. *
30 ****************************************************************************/
32 #if defined(__nucleus__)
34 #warning Sockets not supported on this platform
41 #ifndef _XOPEN_SOURCE_EXTENDED
42 #define _XOPEN_SOURCE_EXTENDED 1
64 #if defined(__vxworks)
68 #if (_WRS_VXWORKS_MAJOR != 6) && ! defined (__RTP__)
69 #include <resolvLib.h>
76 #define FD_SETSIZE 1024
84 #define EACCES WSAEACCES
86 #define EADDRINUSE WSAEADDRINUSE
88 #define EADDRNOTAVAIL WSAEADDRNOTAVAIL
90 #define EAFNOSUPPORT WSAEAFNOSUPPORT
92 #define EALREADY WSAEALREADY
94 #define EBADF WSAEBADF
96 #define ECONNABORTED WSAECONNABORTED
98 #define ECONNREFUSED WSAECONNREFUSED
100 #define ECONNRESET WSAECONNRESET
102 #define EDESTADDRREQ WSAEDESTADDRREQ
104 #define EFAULT WSAEFAULT
106 #define EHOSTDOWN WSAEHOSTDOWN
108 #define EHOSTUNREACH WSAEHOSTUNREACH
110 #define EINPROGRESS WSAEINPROGRESS
112 #define EINTR WSAEINTR
114 #define EINVAL WSAEINVAL
116 #define EIO WSAEDISCON
118 #define EISCONN WSAEISCONN
120 #define ELOOP WSAELOOP
122 #define EMFILE WSAEMFILE
124 #define EMSGSIZE WSAEMSGSIZE
126 #define ENAMETOOLONG WSAENAMETOOLONG
128 #define ENETDOWN WSAENETDOWN
130 #define ENETRESET WSAENETRESET
132 #define ENETUNREACH WSAENETUNREACH
134 #define ENOBUFS WSAENOBUFS
136 #define ENOPROTOOPT WSAENOPROTOOPT
138 #define ENOTCONN WSAENOTCONN
140 #define ENOTSOCK WSAENOTSOCK
142 #define EOPNOTSUPP WSAEOPNOTSUPP
144 #define EPFNOSUPPORT WSAEPFNOSUPPORT
145 #undef EPROTONOSUPPORT
146 #define EPROTONOSUPPORT WSAEPROTONOSUPPORT
148 #define EPROTOTYPE WSAEPROTOTYPE
150 #define ESHUTDOWN WSAESHUTDOWN
151 #undef ESOCKTNOSUPPORT
152 #define ESOCKTNOSUPPORT WSAESOCKTNOSUPPORT
154 #define ETIMEDOUT WSAETIMEDOUT
156 #define ETOOMANYREFS WSAETOOMANYREFS
158 #define EWOULDBLOCK WSAEWOULDBLOCK
160 #define SHUT_RD SD_RECEIVE
161 #define SHUT_WR SD_SEND
162 #define SHUT_RDWR SD_BOTH
167 #define FD_SETSIZE 4096
169 /* These DEC C headers are not available when building with GCC */
178 #if defined (__vxworks) && ! defined (__RTP__)
179 #include <sys/times.h>
181 #include <sys/time.h>
185 * RTEMS has these .h files but not until you have built RTEMS. When
186 * IN_RTS, you only have the .h files in the newlib C library.
187 * Because this file is also included from gen-soccon.c which is built
188 * to run on RTEMS (not IN_RTS), we must distinguish between IN_RTS
189 * and using this file to compile gen-soccon.
191 #if !(defined (VMS) || defined (__MINGW32__) || \
192 (defined(__rtems__) && defined(IN_RTS)))
193 #include <sys/socket.h>
194 #include <netinet/in.h>
195 #include <netinet/tcp.h>
196 #include <sys/ioctl.h>
201 * Handling of gethostbyname, gethostbyaddr, getservbyname and getservbyport
202 * =========================================================================
204 * The default implementation of GNAT.Sockets.Thin requires that these
205 * operations be either thread safe, or that a reentrant version getXXXbyYYY_r
206 * be provided. In both cases, socket.c provides a __gnat_safe_getXXXbyYYY
207 * function with the same signature as getXXXbyYYY_r. If the operating
208 * system version of getXXXbyYYY is thread safe, the provided auxiliary
209 * buffer argument is unused and ignored.
211 * Target specific versions of GNAT.Sockets.Thin for platforms that can't
212 * fulfill these requirements must provide their own protection mechanism
213 * in Safe_GetXXXbyYYY, and if they require GNAT.Sockets to provide a buffer
214 * to this effect, then we need to set Need_Netdb_Buffer here (case of
218 #if defined (_AIX) || defined (__FreeBSD__) || defined (__hpux__) || defined (__osf__) || defined (_WIN32) || defined (__APPLE__)
219 # define HAVE_THREAD_SAFE_GETxxxBYyyy 1
220 #elif defined (sgi) || defined (linux) || defined (__GLIBC__) || (defined (sun) && defined (__SVR4) && !defined (__vxworks)) || defined(__rtems__)
221 # define HAVE_GETxxxBYyyy_R 1
224 #if defined (HAVE_GETxxxBYyyy_R) || !defined (HAVE_THREAD_SAFE_GETxxxBYyyy)
225 # define Need_Netdb_Buffer 1
227 # define Need_Netdb_Buffer 0
230 #if defined (__FreeBSD__) || defined (__vxworks) || defined(__rtems__)
231 # define Has_Sockaddr_Len 1
233 # define Has_Sockaddr_Len 0
236 #endif /* defined(__nucleus__) */