Subversion Repositories openrisc_2011-10-31

/****************************************************************************

 *                                                                          *

 *                         GNAT COMPILER COMPONENTS                         *

 *                                                                          *

 *                              G S O C K E T                               *

 *                                                                          *

 *                              C Header File                               *

 *                                                                          *

 *         Copyright (C) 2004-2009, Free Software Foundation, Inc.          *

 *                                                                          *

 * GNAT is free software;  you can  redistribute it  and/or modify it under *

 * terms of the  GNU General Public License as published  by the Free Soft- *

 * ware  Foundation;  either version 3,  or (at your option) any later ver- *

 * sion.  GNAT is distributed in the hope that it will be useful, but WITH- *

 * OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY *

 * or FITNESS FOR A PARTICULAR PURPOSE.                                     *

 *                                                                          *

 * As a special exception under Section 7 of GPL version 3, you are granted *

 * additional permissions described in the GCC Runtime Library Exception,   *

 * version 3.1, as published by the Free Software Foundation.               *

 *                                                                          *

 * You should have received a copy of the GNU General Public License and    *

 * a copy of the GCC Runtime Library Exception along with this program;     *

 * see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    *

 * <http://www.gnu.org/licenses/>.                                          *

 *                                                                          *

 * GNAT was originally developed  by the GNAT team at  New York University. *

 * Extensive contributions were provided by Ada Core Technologies Inc.      *

 *                                                                          *

 ****************************************************************************/

#if defined(__nucleus__) || defined(VTHREADS)

#warning Sockets not supported on these platforms

#undef HAVE_SOCKETS

#else

#define HAVE_SOCKETS

#ifndef _XOPEN_SOURCE_EXTENDED

#define _XOPEN_SOURCE_EXTENDED 1

/* For HP-UX */

#endif

#ifndef BSD_COMP

#define BSD_COMP 1

/* For Solaris */

#endif

#ifndef _ALL_SOURCE

#define _ALL_SOURCE 1

/* For AIX */

#endif

#ifndef _OSF_SOURCE

#define _OSF_SOURCE 1

/* For Tru64 */

#endif

#include <limits.h>

#include <errno.h>

#if defined(__vxworks)

#include <vxWorks.h>

#include <ioLib.h>

#include <hostLib.h>

#define SHUT_RD         0

#define SHUT_WR         1

#define SHUT_RDWR       2

#elif defined (WINNT)

#define FD_SETSIZE 1024

#include <windows.h>

#ifdef __MINGW32__

#include <winsock2.h>

#include <ws2tcpip.h>

#undef  EACCES

#define EACCES          WSAEACCES

#undef  EADDRINUSE

#define EADDRINUSE      WSAEADDRINUSE

#undef  EADDRNOTAVAIL

#define EADDRNOTAVAIL   WSAEADDRNOTAVAIL

#undef  EAFNOSUPPORT

#define EAFNOSUPPORT    WSAEAFNOSUPPORT

#undef  EALREADY

#define EALREADY        WSAEALREADY

#undef  EBADF

#define EBADF           WSAEBADF

#undef  ECONNABORTED

#define ECONNABORTED    WSAECONNABORTED

#undef  ECONNREFUSED

#define ECONNREFUSED    WSAECONNREFUSED

#undef  ECONNRESET

#define ECONNRESET      WSAECONNRESET

#undef  EDESTADDRREQ

#define EDESTADDRREQ    WSAEDESTADDRREQ

#undef  EFAULT

#define EFAULT          WSAEFAULT

#undef  EHOSTDOWN

#define EHOSTDOWN       WSAEHOSTDOWN

#undef  EHOSTUNREACH

#define EHOSTUNREACH    WSAEHOSTUNREACH

#undef  EINPROGRESS

#define EINPROGRESS     WSAEINPROGRESS

#undef  EINTR

#define EINTR           WSAEINTR

#undef  EINVAL

#define EINVAL          WSAEINVAL

#undef  EIO

#define EIO             WSAEDISCON

#undef  EISCONN

#define EISCONN         WSAEISCONN

#undef  ELOOP

#define ELOOP           WSAELOOP

#undef  EMFILE

#define EMFILE          WSAEMFILE

#undef  EMSGSIZE

#define EMSGSIZE        WSAEMSGSIZE

#undef  ENAMETOOLONG

#define ENAMETOOLONG    WSAENAMETOOLONG

#undef  ENETDOWN

#define ENETDOWN        WSAENETDOWN

#undef  ENETRESET

#define ENETRESET       WSAENETRESET

#undef  ENETUNREACH

#define ENETUNREACH     WSAENETUNREACH

#undef  ENOBUFS

#define ENOBUFS         WSAENOBUFS

#undef  ENOPROTOOPT

#define ENOPROTOOPT     WSAENOPROTOOPT

#undef  ENOTCONN

#define ENOTCONN        WSAENOTCONN

#undef  ENOTSOCK

#define ENOTSOCK        WSAENOTSOCK

#undef  EOPNOTSUPP

#define EOPNOTSUPP      WSAEOPNOTSUPP

#undef  EPFNOSUPPORT

#define EPFNOSUPPORT    WSAEPFNOSUPPORT

#undef  EPROTONOSUPPORT

#define EPROTONOSUPPORT WSAEPROTONOSUPPORT

#undef  EPROTOTYPE

#define EPROTOTYPE      WSAEPROTOTYPE

#undef  ESHUTDOWN

#define ESHUTDOWN       WSAESHUTDOWN

#undef  ESOCKTNOSUPPORT

#define ESOCKTNOSUPPORT WSAESOCKTNOSUPPORT

#undef  ETIMEDOUT

#define ETIMEDOUT       WSAETIMEDOUT

#undef  ETOOMANYREFS

#define ETOOMANYREFS    WSAETOOMANYREFS

#undef  EWOULDBLOCK

#define EWOULDBLOCK     WSAEWOULDBLOCK

#define SHUT_RD         SD_RECEIVE

#define SHUT_WR         SD_SEND

#define SHUT_RDWR       SD_BOTH

#endif

#elif defined(VMS)

#define FD_SETSIZE 4096

#ifndef IN_RTS

/* These DEC C headers are not available when building with GCC */

#include <in.h>

#include <tcp.h>

#include <ioctl.h>

#include <netdb.h>

#endif

#endif

#if defined (__vxworks) && ! defined (__RTP__)

#include <sys/times.h>

#else

#include <sys/time.h>

#endif

/*

 * RTEMS has these .h files but not until you have built RTEMS.  When

 * IN_RTS, you only have the .h files in the newlib C library.

 * Because this file is also included from gen-soccon.c which is built

 * to run on RTEMS (not IN_RTS), we must distinguish between IN_RTS

 * and using this file to compile gen-soccon.

 */

#if !(defined (VMS) || defined (__MINGW32__) || \

      (defined(__rtems__) && defined(IN_RTS)))

#include <sys/socket.h>

#include <netinet/in.h>

#include <netinet/tcp.h>

#include <sys/ioctl.h>

#include <netdb.h>

#endif

/*

 * Handling of gethostbyname, gethostbyaddr, getservbyname and getservbyport

 * =========================================================================

 *

 * The default implementation of GNAT.Sockets.Thin requires that these

 * operations be either thread safe, or that a reentrant version getXXXbyYYY_r

 * be provided. In both cases, socket.c provides a __gnat_safe_getXXXbyYYY

 * function with the same signature as getXXXbyYYY_r. If the operating

 * system version of getXXXbyYYY is thread safe, the provided auxiliary

 * buffer argument is unused and ignored.

 *

 * Target specific versions of GNAT.Sockets.Thin for platforms that can't

 * fulfill these requirements must provide their own protection mechanism

 * in Safe_GetXXXbyYYY, and if they require GNAT.Sockets to provide a buffer

 * to this effect, then we need to set Need_Netdb_Buffer here (case of

 * VxWorks and VMS).

 */

#if defined (_AIX) || defined (__FreeBSD__) || defined (__hpux__) || defined (__osf__) || defined (_WIN32) || defined (__APPLE__)

# define HAVE_THREAD_SAFE_GETxxxBYyyy 1

#elif defined (sgi) || defined (linux) || defined (__GLIBC__) || (defined (sun) && defined (__SVR4) && !defined (__vxworks)) || defined(__rtems__)

# define HAVE_GETxxxBYyyy_R 1

#endif

#if defined (HAVE_GETxxxBYyyy_R) || !defined (HAVE_THREAD_SAFE_GETxxxBYyyy)

# define Need_Netdb_Buffer 1

#else

# define Need_Netdb_Buffer 0

#endif

#if defined (__FreeBSD__) || defined (__vxworks) || defined(__rtems__)

# define Has_Sockaddr_Len 1

#else

# define Has_Sockaddr_Len 0

#endif

#if !(defined (__vxworks) || defined (_WIN32) || defined (__hpux__) || defined (VMS))

# define HAVE_INET_PTON

#endif

#endif /* defined(__nucleus__) */