Commit b1c1e25c by Arnaud Charlet

gen-soccon.c: New utility program to generate g-soccon.ads automatically.

	* gen-soccon.c: New utility program to generate g-soccon.ads
	automatically.

	* socket.c, gsocket.h: Split inclusion of system header files into a
	gsocket.h file separated from socket.c, to allow reuse in gen-soccon.c.

	* g-soccon.ads, g-soccon-unixware.ads, g-soccon-tru64.ads,
	g-soccon-aix.ads, g-soccon-irix.ads, g-soccon-hpux.ads,
	g-soccon-interix.ads, g-soccon-solaris.ads, g-soccon-mingw.ads,
	g-soccon-vxworks.ads, g-soccon-freebsd.ads: Note that these files
	should not be edited by hand anymore, but should be regenerated using
	gen-soccon.

From-SVN: r92828
parent ab4af6a5
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
-- directly with'ed by an applications program. -- directly with'ed by an applications program.
-- This is the version for AIX -- This is the version for AIX
-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is package GNAT.Sockets.Constants is
......
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
-- directly with'ed by an applications program. -- directly with'ed by an applications program.
-- This is the version for i386 FreeBSD -- This is the version for i386 FreeBSD
-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is package GNAT.Sockets.Constants is
......
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
-- directly with'ed by an applications program. -- directly with'ed by an applications program.
-- This is the version for HP/UX -- This is the version for HP/UX
-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is package GNAT.Sockets.Constants is
......
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
-- directly with'ed by an applications program. -- directly with'ed by an applications program.
-- This is the version for Interix -- This is the version for Interix
-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is package GNAT.Sockets.Constants is
......
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
-- directly with'ed by an applications program. -- directly with'ed by an applications program.
-- This is the version for SGI -- This is the version for SGI
-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is package GNAT.Sockets.Constants is
......
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
-- directly with'ed by an applications program. -- directly with'ed by an applications program.
-- This is the version for MINGW32 NT -- This is the version for MINGW32 NT
-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is package GNAT.Sockets.Constants is
......
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
-- directly with'ed by an applications program. -- directly with'ed by an applications program.
-- This is the version for Solaris -- This is the version for Solaris
-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is package GNAT.Sockets.Constants is
......
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
-- directly with'ed by an applications program. -- directly with'ed by an applications program.
-- This is the version for OSF -- This is the version for OSF
-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is package GNAT.Sockets.Constants is
......
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
-- directly with'ed by an applications program. -- directly with'ed by an applications program.
-- This is the version for UnixWare -- This is the version for UnixWare
-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is package GNAT.Sockets.Constants is
......
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
-- directly with'ed by an applications program. -- directly with'ed by an applications program.
-- This is the version for VxWorks -- This is the version for VxWorks
-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is package GNAT.Sockets.Constants is
......
...@@ -36,6 +36,7 @@ ...@@ -36,6 +36,7 @@
-- directly with'ed by an applications program. -- directly with'ed by an applications program.
-- This is the version for GNU/Linux -- This is the version for GNU/Linux
-- Do not edit this file by hand, instead edit and re-run gen-soccon.c
package GNAT.Sockets.Constants is package GNAT.Sockets.Constants is
......
/****************************************************************************
* *
* GNAT COMPILER COMPONENTS *
* *
* S O C K E T *
* *
* C Header File *
* *
* Copyright (C) 2004, 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. *
* *
****************************************************************************/
#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
#if !(defined (VMS) || defined (__MINGW32__))
# include <sys/socket.h>
#endif
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
* * * *
* C Implementation File * * C Implementation File *
* * * *
* Copyright (C) 2003, Free Software Foundation, Inc. * * Copyright (C) 2003-2004 Free Software Foundation, Inc. *
* * * *
* GNAT is free software; you can redistribute it and/or modify it under * * 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- * * terms of the GNU General Public License as published by the Free Soft- *
...@@ -30,44 +30,9 @@ ...@@ -30,44 +30,9 @@
* * * *
****************************************************************************/ ****************************************************************************/
/* This file provides a portable binding to the fd set functions */ /* This file provides a portable binding to the sockets API */
#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
#if !(defined (VMS) || defined (__MINGW32__))
# include <sys/socket.h>
#endif
#include "gsocket.h"
#include "raise.h" #include "raise.h"
extern void __gnat_disable_sigpipe (int fd); extern void __gnat_disable_sigpipe (int fd);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment