1 /****************************************************************************
3 * GNAT COMPILER COMPONENTS *
9 * Copyright (C) 2004-2010, 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__) || defined(VTHREADS)
34 #warning Sockets not supported on these platforms
41 #ifndef _XOPEN_SOURCE_EXTENDED
42 #define _XOPEN_SOURCE_EXTENDED 1
64 #if defined(__vxworks)
73 #define FD_SETSIZE 1024
81 #define EACCES WSAEACCES
83 #define EADDRINUSE WSAEADDRINUSE
85 #define EADDRNOTAVAIL WSAEADDRNOTAVAIL
87 #define EAFNOSUPPORT WSAEAFNOSUPPORT
89 #define EALREADY WSAEALREADY
91 #define EBADF WSAEBADF
93 #define ECONNABORTED WSAECONNABORTED
95 #define ECONNREFUSED WSAECONNREFUSED
97 #define ECONNRESET WSAECONNRESET
99 #define EDESTADDRREQ WSAEDESTADDRREQ
101 #define EFAULT WSAEFAULT
103 #define EHOSTDOWN WSAEHOSTDOWN
105 #define EHOSTUNREACH WSAEHOSTUNREACH
107 #define EINPROGRESS WSAEINPROGRESS
109 #define EINTR WSAEINTR
111 #define EINVAL WSAEINVAL
113 #define EIO WSAEDISCON
115 #define EISCONN WSAEISCONN
117 #define ELOOP WSAELOOP
119 #define EMFILE WSAEMFILE
121 #define EMSGSIZE WSAEMSGSIZE
123 #define ENAMETOOLONG WSAENAMETOOLONG
125 #define ENETDOWN WSAENETDOWN
127 #define ENETRESET WSAENETRESET
129 #define ENETUNREACH WSAENETUNREACH
131 #define ENOBUFS WSAENOBUFS
133 #define ENOPROTOOPT WSAENOPROTOOPT
135 #define ENOTCONN WSAENOTCONN
137 #define ENOTSOCK WSAENOTSOCK
139 #define EOPNOTSUPP WSAEOPNOTSUPP
141 #define EPFNOSUPPORT WSAEPFNOSUPPORT
142 #undef EPROTONOSUPPORT
143 #define EPROTONOSUPPORT WSAEPROTONOSUPPORT
145 #define EPROTOTYPE WSAEPROTOTYPE
147 #define ESHUTDOWN WSAESHUTDOWN
148 #undef ESOCKTNOSUPPORT
149 #define ESOCKTNOSUPPORT WSAESOCKTNOSUPPORT
151 #define ETIMEDOUT WSAETIMEDOUT
153 #define ETOOMANYREFS WSAETOOMANYREFS
155 #define EWOULDBLOCK WSAEWOULDBLOCK
157 #define SHUT_RD SD_RECEIVE
158 #define SHUT_WR SD_SEND
159 #define SHUT_RDWR SD_BOTH
164 #define FD_SETSIZE 4096
166 /* These DEC C headers are not available when building with GCC */
175 #if defined (__vxworks) && ! defined (__RTP__)
176 #include <sys/times.h>
178 #include <sys/time.h>
182 * RTEMS has these .h files but not until you have built and installed
183 * RTEMS. When building a C/C++ toolset, you also build the newlib C library.
184 * So the build procedure for an RTEMS GNAT toolset requires that
185 * you build a C/C++ toolset, then build and install RTEMS with
186 * --enable-multilib, and finally build the Ada part of the toolset.
188 #if !(defined (VMS) || defined (__MINGW32__))
189 #include <sys/socket.h>
190 #include <netinet/in.h>
191 #include <netinet/tcp.h>
192 #include <sys/ioctl.h>
197 * Handling of gethostbyname, gethostbyaddr, getservbyname and getservbyport
198 * =========================================================================
200 * The default implementation of GNAT.Sockets.Thin requires that these
201 * operations be either thread safe, or that a reentrant version getXXXbyYYY_r
202 * be provided. In both cases, socket.c provides a __gnat_safe_getXXXbyYYY
203 * function with the same signature as getXXXbyYYY_r. If the operating
204 * system version of getXXXbyYYY is thread safe, the provided auxiliary
205 * buffer argument is unused and ignored.
207 * Target specific versions of GNAT.Sockets.Thin for platforms that can't
208 * fulfill these requirements must provide their own protection mechanism
209 * in Safe_GetXXXbyYYY, and if they require GNAT.Sockets to provide a buffer
210 * to this effect, then we need to set Need_Netdb_Buffer here (case of
214 #if defined (_AIX) || defined (__FreeBSD__) || defined (__hpux__) || defined (__osf__) || defined (_WIN32) || defined (__APPLE__)
215 # define HAVE_THREAD_SAFE_GETxxxBYyyy 1
216 #elif defined (sgi) || defined (linux) || defined (__GLIBC__) || (defined (sun) && defined (__SVR4) && !defined (__vxworks)) || defined(__rtems__)
217 # define HAVE_GETxxxBYyyy_R 1
220 #if defined (HAVE_GETxxxBYyyy_R) || !defined (HAVE_THREAD_SAFE_GETxxxBYyyy)
221 # define Need_Netdb_Buffer 1
223 # define Need_Netdb_Buffer 0
226 #if defined (__FreeBSD__) || defined (__vxworks) || defined(__rtems__)
227 # define Has_Sockaddr_Len 1
229 # define Has_Sockaddr_Len 0
232 #if !(defined (__vxworks) || defined (_WIN32) || defined (__hpux__) || defined (VMS))
233 # define HAVE_INET_PTON
236 #endif /* defined(__nucleus__) */