diff options
Diffstat (limited to 'gcc/ada/socket.c')
| -rw-r--r-- | gcc/ada/socket.c | 181 |
1 files changed, 181 insertions, 0 deletions
diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c new file mode 100644 index 0000000..f660975 --- /dev/null +++ b/gcc/ada/socket.c @@ -0,0 +1,181 @@ +/**************************************************************************** + * * + * GNAT COMPILER COMPONENTS * + * * + * S O C K E T * + * * + * C Implementation File * + * * + * Copyright (C) 2003, 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 2, 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. See the GNU General Public License * + * for more details. You should have received a copy of the GNU General * + * Public License distributed with GNAT; see file COPYING. If not, write * + * to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, * + * MA 02111-1307, USA. * + * * + * As a special exception, if you link this file with other files to * + * produce an executable, this file does not by itself cause the resulting * + * executable to be covered by the GNU General Public License. This except- * + * ion does not however invalidate any other reasons why the executable * + * file might be covered by the GNU Public License. * + * * + * GNAT was originally developed by the GNAT team at New York University. * + * Extensive contributions were provided by Ada Core Technologies Inc. * + * * + ****************************************************************************/ + +/* This file provides a portable binding to the fd set functions */ + +#ifdef __vxworks +#include "vxWorks.h" +#endif + +#ifdef IN_RTS +#include "tconfig.h" +#include "tsystem.h" + +#if defined (WINNT) +#define FD_SETSIZE 1024 +#include <windows.h> + +#ifdef __MINGW32__ +#include "mingw32.h" +#if STD_MINGW +#include <winsock.h> +#else +#include <windows32/sockets.h> +#endif +#endif +#endif + +#if defined (VMS) +#define FD_SETSIZE 4096 +#include <sys/time.h> +#endif + +#else +#include "config.h" +#include "system.h" +#endif + +#include "raise.h" + +extern void __gnat_free_socket_set PARAMS ((fd_set *)); +extern void __gnat_last_socket_in_set PARAMS ((fd_set *, int *)); +extern void __gnat_get_socket_from_set PARAMS ((fd_set *, int *, int *)); +extern void __gnat_insert_socket_in_set PARAMS ((fd_set *, int)); +extern int __gnat_is_socket_in_set PARAMS ((fd_set *, int)); +extern fd_set *__gnat_new_socket_set PARAMS ((fd_set *)); +extern void __gnat_remove_socket_from_set PARAMS ((fd_set *, int)); + +/* Free socket set. */ + +void +__gnat_free_socket_set (set) + fd_set *set; +{ + __gnat_free (set); +} + +/* Find the largest socket in the socket set SET. This is needed for + `select'. LAST is the maximum value for the largest socket. This hint is + used to avoid scanning very large socket sets. On return, LAST is the + actual largest socket in the socket set. */ + +void +__gnat_last_socket_in_set (set, last) + fd_set *set; + int *last; +{ + int s; + int l; + l = -1; + +#ifdef WINNT + /* More efficient method for NT. */ + for (s = 0; s < set->fd_count; s++) + if ((int) set->fd_array[s] > l) + l = set->fd_array[s]; + +#else + + for (s = *last; s != -1; s--) + if (FD_ISSET (s, set)) + { + l = s; + break; + } +#endif + + *last = l; +} + +/* Get last socket and remove it from the socket set SET. LAST is the + maximum value of the largest socket. This hint is used to avoid scanning + very large socket sets. On return, LAST is set to the actual largest + socket in the socket set. */ + +void +__gnat_get_socket_from_set (set, last, socket) + fd_set *set; + int *last; + int *socket; +{ + *socket = *last; + FD_CLR (*socket, set); + __gnat_last_socket_in_set (set, last); +} + +/* Insert SOCKET in the socket set SET. */ + +void +__gnat_insert_socket_in_set (set, socket) + fd_set *set; + int socket; +{ + FD_SET (socket, set); +} + +/* Check whether a given SOCKET is in the socket set SET. */ + +int +__gnat_is_socket_in_set (set, socket) + fd_set *set; + int socket; +{ + return FD_ISSET (socket, set); +} + +/* Allocate a new socket set and set it as empty. */ + +fd_set * +__gnat_new_socket_set (set) + fd_set *set; +{ + fd_set *new; + + new = (fd_set *) __gnat_malloc (sizeof (fd_set)); + + if (set) + memcpy (new, set, sizeof (fd_set)); + else + FD_ZERO (new); + + return new; +} + +/* Remove SOCKET from the socket set SET. */ + +void +__gnat_remove_socket_from_set (set, socket) + fd_set *set; + int socket; +{ + FD_CLR (socket, set); +} |