2007-09-27 Joel Sherrill <joel.sherrill@oarcorp.com>

	* ChangeLog, Makefile, README, gen-soccon.c, gsocket.h, init.c: New files.

6 files changed, 887 insertions, 0 deletions

diff --git a/gen-soconn/ChangeLog b/gen-soconn/ChangeLog
new file mode 100644
index 0000000..72f890c
--- /dev/null
+++ b/gen-soconn/ChangeLog
@@ -0,0 +1,4 @@
+2007-09-27	Joel Sherrill <joel.sherrill@oarcorp.com>
+
+	* ChangeLog, Makefile, README, gen-soccon.c, gsocket.h, init.c: New files.
+
diff --git a/gen-soconn/Makefile b/gen-soconn/Makefile
new file mode 100644
index 0000000..ac7782a
--- /dev/null
+++ b/gen-soconn/Makefile
@@ -0,0 +1,29 @@
+#
+#  Makefile
+#
+
+#
+#  RTEMS_MAKEFILE_PATH is typically set in an environment variable
+#
+
+PGM=${ARCH}/gen-socconn.exe
+
+# optional managers required
+MANAGERS=all
+
+# C source names
+CSRCS = init.c gen-soccon.c
+COBJS = $(CSRCS:%.c=${ARCH}/%.o)
+
+include $(RTEMS_MAKEFILE_PATH)/Makefile.inc
+include $(RTEMS_CUSTOM)
+include $(PROJECT_ROOT)/make/leaf.cfg
+
+OBJS= $(COBJS)
+
+CFLAGS += -DTARGET=\"RTEMS\"
+
+all:    ${ARCH} $(PGM)
+
+$(PGM): $(OBJS)
+	$(make-exe)
diff --git a/gen-soconn/README b/gen-soconn/README
new file mode 100644
index 0000000..c096773
--- /dev/null
+++ b/gen-soconn/README
@@ -0,0 +1,10 @@
+#
+#  $Id$
+#
+
+This directory contains what is required to build the "gen-soccon" program
+used by GNAT to generate the Ada file g-soccon-rtems.ads.  The files
+g-socket.h and gen-soccon.c are taken from gcc 4.2.1.  If the expectations
+of GNAT or the definitions of these constants changes in RTEMS (unlikely),
+then the two files from GNAT will need to be updated and the 
+g-soccon-rtems.ads file replaced in the GCC distribution.
diff --git a/gen-soconn/gen-soccon.c b/gen-soconn/gen-soccon.c
new file mode 100644
index 0000000..e828433
--- /dev/null
+++ b/gen-soconn/gen-soccon.c
@@ -0,0 +1,667 @@
+/****************************************************************************
+ *                                                                          *
+ *                          GNAT SYSTEM UTILITIES                           *
+ *                                                                          *
+ *                           G E N - S O C C O N                            *
+ *                                                                          *
+ *          Copyright (C) 2004-2005, 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,  51  Franklin  Street,  Fifth  Floor, *
+ * Boston, MA 02110-1301, USA.                                              *
+ *                                                                          *
+ * GNAT was originally developed  by the GNAT team at  New York University. *
+ * Extensive contributions were provided by Ada Core Technologies Inc.      *
+ *                                                                          *
+ ****************************************************************************/
+
+/* This program generates g-soccon.ads */
+
+/* To build using DEC C:
+  CC/DEFINE="TARGET=""OpenVMS""" gen-soccon
+  LINK gen-soccon
+  RUN gen-soccon
+*/
+
+#ifndef TARGET
+# error Please define TARGET
+#endif
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <limits.h>
+
+#ifdef __MINGW32__
+#include <fcntl.h>
+#endif
+
+#include "gsocket.h"
+
+struct line {
+  char *text;
+  char *value;
+  char *comment;
+  struct line *next;
+};
+
+struct line *first = NULL, *last = NULL;
+
+#define TXT(_text) add_line(_text, NULL, NULL);
+/* Plain text */
+
+#define _NL TXT("")
+/* Empty line */
+
+#define itoad(n) f_itoa ("%d", (n))
+#define itoax(n) f_itoa ("16#%08x#", (n))
+
+#define CND(name,comment) add_line(#name, itoad (name), comment);
+/* Constant (decimal) */
+
+#define CNX(name,comment) add_line(#name, itoax (name), comment);
+/* Constant (hexadecimal) */
+
+#define CN_(name,comment) add_line(#name, name, comment);
+/* Constant (generic) */
+
+#define STR(p) STR1(p)
+#define STR1(p) #p
+
+void output (void);
+/* Generate output spec */
+
+char *f_itoa (char *, int);
+/* int to string */
+
+void add_line (char *, char*, char*);
+
+#ifdef __MINGW32__
+unsigned int _CRT_fmode = _O_BINARY;
+#endif
+
+int
+main (void) {
+
+TXT("------------------------------------------------------------------------------")
+TXT("--                                                                          --")
+TXT("--                         GNAT COMPILER COMPONENTS                         --")
+TXT("--                                                                          --")
+TXT("--               G N A T . S O C K E T S . C O N S T A N T S                --")
+TXT("--                                                                          --")
+TXT("--                                 S p e c                                  --")
+TXT("--                                                                          --")
+TXT("--          Copyright (C) 2000-2005, Free Software Foundation, Inc.         --")
+TXT("--                                                                          --")
+TXT("-- GNAT is free software;  you can  redistribute it  and/or modify it under --")
+TXT("-- terms of the  GNU General Public License as published  by the Free Soft- --")
+TXT("-- ware  Foundation;  either version 2,  or (at your option) any later ver- --")
+TXT("-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --")
+TXT("-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --")
+TXT("-- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --")
+TXT("-- for  more details.  You should have  received  a copy of the GNU General --")
+TXT("-- Public License  distributed with GNAT;  see file COPYING.  If not, write --")
+TXT("-- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --")
+TXT("-- Boston, MA 02110-1301, USA.                                              --")
+TXT("--                                                                          --")
+TXT("-- As a special exception,  if other files  instantiate  generics from this --")
+TXT("-- unit, or you link  this unit with other files  to produce an executable, --")
+TXT("-- this  unit  does not  by itself cause  the resulting  executable  to  be --")
+TXT("-- covered  by the  GNU  General  Public  License.  This exception does not --")
+TXT("-- however invalidate  any other reasons why  the executable file  might be --")
+TXT("-- covered by the  GNU Public License.                                      --")
+TXT("--                                                                          --")
+TXT("-- GNAT was originally developed  by the GNAT team at  New York University. --")
+TXT("-- Extensive contributions were provided by Ada Core Technologies Inc.      --")
+TXT("--                                                                          --")
+TXT("------------------------------------------------------------------------------")
+_NL
+TXT("--  This package provides target dependent definitions of constant for use")
+TXT("--  by the GNAT.Sockets package (g-socket.ads). This package should not be")
+TXT("--  directly with'ed by an applications program.")
+_NL
+TXT("--  This is the version for " TARGET)
+TXT("--  This file is generated automatically, do not modify it by hand! Instead,")
+TXT("--  make changes to gen-soccon.c and re-run it on each target.")
+_NL
+TXT("package GNAT.Sockets.Constants is")
+_NL
+TXT("   --------------")
+TXT("   -- Families --")
+TXT("   --------------")
+_NL
+
+#ifndef AF_INET
+#define AF_INET -1
+#endif
+CND(AF_INET, "IPv4 address family")
+
+#ifndef AF_INET6
+#define AF_INET6 -1
+#endif
+CND(AF_INET6, "IPv6 address family")
+_NL
+TXT("   -----------")
+TXT("   -- Modes --")
+TXT("   -----------")
+_NL
+
+#ifndef SOCK_STREAM
+#define SOCK_STREAM -1
+#endif
+CND(SOCK_STREAM, "Stream socket")
+
+#ifndef SOCK_DGRAM
+#define SOCK_DGRAM -1
+#endif
+CND(SOCK_DGRAM, "Datagram socket")
+_NL
+TXT("   -------------------")
+TXT("   -- Socket errors --")
+TXT("   -------------------")
+_NL
+
+#ifndef EACCES
+#define EACCES -1
+#endif
+CND(EACCES, "Permission denied")
+
+#ifndef EADDRINUSE
+#define EADDRINUSE -1
+#endif
+CND(EADDRINUSE, "Address already in use")
+
+#ifndef EADDRNOTAVAIL
+#define EADDRNOTAVAIL -1
+#endif
+CND(EADDRNOTAVAIL, "Cannot assign address")
+
+#ifndef EAFNOSUPPORT
+#define EAFNOSUPPORT -1
+#endif
+CND(EAFNOSUPPORT, "Addr family not supported")
+
+#ifndef EALREADY
+#define EALREADY -1
+#endif
+CND(EALREADY, "Operation in progress")
+
+#ifndef EBADF
+#define EBADF -1
+#endif
+CND(EBADF, "Bad file descriptor")
+
+#ifndef ECONNABORTED
+#define ECONNABORTED -1
+#endif
+CND(ECONNABORTED, "Connection aborted")
+
+#ifndef ECONNREFUSED
+#define ECONNREFUSED -1
+#endif
+CND(ECONNREFUSED, "Connection refused")
+
+#ifndef ECONNRESET
+#define ECONNRESET -1
+#endif
+CND(ECONNRESET, "Connection reset by peer")
+
+#ifndef EDESTADDRREQ
+#define EDESTADDRREQ -1
+#endif
+CND(EDESTADDRREQ, "Destination addr required")
+
+#ifndef EFAULT
+#define EFAULT -1
+#endif
+CND(EFAULT, "Bad address")
+
+#ifndef EHOSTDOWN
+#define EHOSTDOWN -1
+#endif
+CND(EHOSTDOWN, "Host is down")
+
+#ifndef EHOSTUNREACH
+#define EHOSTUNREACH -1
+#endif
+CND(EHOSTUNREACH, "No route to host")
+
+#ifndef EINPROGRESS
+#define EINPROGRESS -1
+#endif
+CND(EINPROGRESS, "Operation now in progress")
+
+#ifndef EINTR
+#define EINTR -1
+#endif
+CND(EINTR, "Interrupted system call")
+
+#ifndef EINVAL
+#define EINVAL -1
+#endif
+CND(EINVAL, "Invalid argument")
+
+#ifndef EIO
+#define EIO -1
+#endif
+CND(EIO, "Input output error")
+
+#ifndef EISCONN
+#define EISCONN -1
+#endif
+CND(EISCONN, "Socket already connected")
+
+#ifndef ELOOP
+#define ELOOP -1
+#endif
+CND(ELOOP, "Too many symbolic lynks")
+
+#ifndef EMFILE
+#define EMFILE -1
+#endif
+CND(EMFILE, "Too many open files")
+
+#ifndef EMSGSIZE
+#define EMSGSIZE -1
+#endif
+CND(EMSGSIZE, "Message too long")
+
+#ifndef ENAMETOOLONG
+#define ENAMETOOLONG -1
+#endif
+CND(ENAMETOOLONG, "Name too long")
+
+#ifndef ENETDOWN
+#define ENETDOWN -1
+#endif
+CND(ENETDOWN, "Network is down")
+
+#ifndef ENETRESET
+#define ENETRESET -1
+#endif
+CND(ENETRESET, "Disconn. on network reset")
+
+#ifndef ENETUNREACH
+#define ENETUNREACH -1
+#endif
+CND(ENETUNREACH, "Network is unreachable")
+
+#ifndef ENOBUFS
+#define ENOBUFS -1
+#endif
+CND(ENOBUFS, "No buffer space available")
+
+#ifndef ENOPROTOOPT
+#define ENOPROTOOPT -1
+#endif
+CND(ENOPROTOOPT, "Protocol not available")
+
+#ifndef ENOTCONN
+#define ENOTCONN -1
+#endif
+CND(ENOTCONN, "Socket not connected")
+
+#ifndef ENOTSOCK
+#define ENOTSOCK -1
+#endif
+CND(ENOTSOCK, "Operation on non socket")
+
+#ifndef EOPNOTSUPP
+#define EOPNOTSUPP -1
+#endif
+CND(EOPNOTSUPP, "Operation not supported")
+
+#ifndef EPFNOSUPPORT
+#define EPFNOSUPPORT -1
+#endif
+CND(EPFNOSUPPORT, "Unknown protocol family")
+
+#ifndef EPROTONOSUPPORT
+#define EPROTONOSUPPORT -1
+#endif
+CND(EPROTONOSUPPORT, "Unknown protocol")
+
+#ifndef EPROTOTYPE
+#define EPROTOTYPE -1
+#endif
+CND(EPROTOTYPE, "Unknown protocol type")
+
+#ifndef ESHUTDOWN
+#define ESHUTDOWN -1
+#endif
+CND(ESHUTDOWN, "Cannot send once shutdown")
+
+#ifndef ESOCKTNOSUPPORT
+#define ESOCKTNOSUPPORT -1
+#endif
+CND(ESOCKTNOSUPPORT, "Socket type not supported")
+
+#ifndef ETIMEDOUT
+#define ETIMEDOUT -1
+#endif
+CND(ETIMEDOUT, "Connection timed out")
+
+#ifndef ETOOMANYREFS
+#define ETOOMANYREFS -1
+#endif
+CND(ETOOMANYREFS, "Too many references")
+
+#ifndef EWOULDBLOCK
+#define EWOULDBLOCK -1
+#endif
+CND(EWOULDBLOCK, "Operation would block")
+_NL
+TXT("   -----------------")
+TXT("   -- Host errors --")
+TXT("   -----------------")
+_NL
+
+#ifndef HOST_NOT_FOUND
+#define HOST_NOT_FOUND -1
+#endif
+CND(HOST_NOT_FOUND, "Unknown host")
+
+#ifndef TRY_AGAIN
+#define TRY_AGAIN -1
+#endif
+CND(TRY_AGAIN, "Host name lookup failure")
+
+#ifndef NO_DATA
+#define NO_DATA -1
+#endif
+CND(NO_DATA, "No data record for name")
+
+#ifndef NO_RECOVERY
+#define NO_RECOVERY -1
+#endif
+CND(NO_RECOVERY, "Non recoverable errors")
+_NL
+TXT("   -------------------")
+TXT("   -- Control flags --")
+TXT("   -------------------")
+_NL
+
+#ifndef FIONBIO
+#define FIONBIO -1
+#endif
+CND(FIONBIO, "Set/clear non-blocking io")
+
+#ifndef FIONREAD
+#define FIONREAD -1
+#endif
+CND(FIONREAD, "How many bytes to read")
+_NL
+TXT("   --------------------")
+TXT("   -- Shutdown modes --")
+TXT("   --------------------")
+_NL
+
+#ifndef SHUT_RD
+#define SHUT_RD -1
+#endif
+CND(SHUT_RD, "No more recv")
+
+#ifndef SHUT_WR
+#define SHUT_WR -1
+#endif
+CND(SHUT_WR, "No more send")
+
+#ifndef SHUT_RDWR
+#define SHUT_RDWR -1
+#endif
+CND(SHUT_RDWR, "No more recv/send")
+_NL
+TXT("   ---------------------")
+TXT("   -- Protocol levels --")
+TXT("   ---------------------")
+_NL
+
+#ifndef SOL_SOCKET
+#define SOL_SOCKET -1
+#endif
+CND(SOL_SOCKET, "Options for socket level")
+
+#ifndef IPPROTO_IP
+#define IPPROTO_IP -1
+#endif
+CND(IPPROTO_IP, "Dummy protocol for IP")
+
+#ifndef IPPROTO_UDP
+#define IPPROTO_UDP -1
+#endif
+CND(IPPROTO_UDP, "UDP")
+
+#ifndef IPPROTO_TCP
+#define IPPROTO_TCP -1
+#endif
+CND(IPPROTO_TCP, "TCP")
+_NL
+TXT("   -------------------")
+TXT("   -- Request flags --")
+TXT("   -------------------")
+_NL
+
+#ifndef MSG_OOB
+#define MSG_OOB -1
+#endif
+CND(MSG_OOB, "Process out-of-band data")
+
+#ifndef MSG_PEEK
+#define MSG_PEEK -1
+#endif
+CND(MSG_PEEK, "Peek at incoming data")
+
+#ifndef MSG_EOR
+#define MSG_EOR -1
+#endif
+CND(MSG_EOR, "Send end of record")
+
+#ifndef MSG_WAITALL
+#define MSG_WAITALL -1
+#endif
+CND(MSG_WAITALL, "Wait for full reception")
+
+#ifndef MSG_NOSIGNAL
+#define MSG_NOSIGNAL -1
+#endif
+CND(MSG_NOSIGNAL, "No SIGPIPE on send")
+
+#ifdef __linux__
+# define MSG_Forced_Flags "MSG_NOSIGNAL"
+#else
+# define MSG_Forced_Flags "0"
+#endif
+CN_(MSG_Forced_Flags, "")
+TXT("   --  Flags set on all send(2) calls")
+
+_NL
+TXT("   --------------------")
+TXT("   -- Socket options --")
+TXT("   --------------------")
+_NL
+
+#ifndef TCP_NODELAY
+#define TCP_NODELAY -1
+#endif
+CND(TCP_NODELAY, "Do not coalesce packets")
+
+#ifndef SO_REUSEADDR
+#define SO_REUSEADDR -1
+#endif
+CND(SO_REUSEADDR, "Bind reuse local address")
+
+#ifndef SO_KEEPALIVE
+#define SO_KEEPALIVE -1
+#endif
+CND(SO_KEEPALIVE, "Enable keep-alive msgs")
+
+#ifndef SO_LINGER
+#define SO_LINGER -1
+#endif
+CND(SO_LINGER, "Defer close to flush data")
+
+#ifndef SO_BROADCAST
+#define SO_BROADCAST -1
+#endif
+CND(SO_BROADCAST, "Can send broadcast msgs")
+
+#ifndef SO_SNDBUF
+#define SO_SNDBUF -1
+#endif
+CND(SO_SNDBUF, "Set/get send buffer size")
+
+#ifndef SO_RCVBUF
+#define SO_RCVBUF -1
+#endif
+CND(SO_RCVBUF, "Set/get recv buffer size")
+
+#ifndef SO_SNDTIMEO
+#define SO_SNDTIMEO -1
+#endif
+CND(SO_SNDTIMEO, "Emission timeout")
+
+#ifndef SO_RCVTIMEO
+#define SO_RCVTIMEO -1
+#endif
+CND(SO_RCVTIMEO, "Reception timeout")
+
+#ifndef SO_ERROR
+#define SO_ERROR -1
+#endif
+CND(SO_ERROR, "Get/clear error status")
+
+#ifndef IP_MULTICAST_IF
+#define IP_MULTICAST_IF -1
+#endif
+CND(IP_MULTICAST_IF, "Set/get mcast interface")
+
+#ifndef IP_MULTICAST_TTL
+#define IP_MULTICAST_TTL -1
+#endif
+CND(IP_MULTICAST_TTL, "Set/get multicast TTL")
+
+#ifndef IP_MULTICAST_LOOP
+#define IP_MULTICAST_LOOP -1
+#endif
+CND(IP_MULTICAST_LOOP, "Set/get mcast loopback")
+
+#ifndef IP_ADD_MEMBERSHIP
+#define IP_ADD_MEMBERSHIP -1
+#endif
+CND(IP_ADD_MEMBERSHIP, "Join a multicast group")
+
+#ifndef IP_DROP_MEMBERSHIP
+#define IP_DROP_MEMBERSHIP -1
+#endif
+CND(IP_DROP_MEMBERSHIP, "Leave a multicast group")
+
+_NL
+TXT("   -------------------")
+TXT("   -- System limits --")
+TXT("   -------------------")
+_NL
+
+#ifndef IOV_MAX
+#define IOV_MAX INT_MAX
+#endif
+CND(IOV_MAX, "Maximum writev iovcnt")
+
+_NL
+TXT("   ----------------------")
+TXT("   -- Type definitions --")
+TXT("   ----------------------")
+_NL
+
+{
+  struct timeval tv;
+TXT("   --  Sizes (in bytes) of the components of struct timeval")
+_NL
+#define SIZEOF_tv_sec (sizeof tv.tv_sec)
+CND(SIZEOF_tv_sec, "tv_sec")
+#define SIZEOF_tv_usec (sizeof tv.tv_usec)
+CND(SIZEOF_tv_usec, "tv_usec")
+}
+
+#ifdef __vxworks
+_NL
+TXT("   --------------------------------")
+TXT("   -- VxWorks-specific constants --")
+TXT("   --------------------------------")
+_NL
+TXT("   --  These constants may be used only within the VxWorks version of")
+TXT("   --  GNAT.Sockets.Thin.")
+_NL
+
+CND(OK,    "VxWorks generic success")
+CND(ERROR, "VxWorks generic error")
+#endif
+
+_NL
+TXT("end GNAT.Sockets.Constants;")
+
+  output ();
+  return 0;
+}
+
+void
+output (void) {
+  int text_max = 0, value_max = 0, l;
+  struct line *p;
+  char fmt[64];
+#define UPD_MAX(x) do { \
+  l = strlen (p->x); \
+  if (l > x ## _max) x ## _max = l; \
+} while (0)
+
+  for (p = first; p != NULL; p = p->next) {
+    if (p->value != NULL) {
+      UPD_MAX(text);
+      UPD_MAX(value);
+    }
+  }
+  sprintf (fmt, "   %%-%ds : constant := %%%ds;%%s%%s\n",
+    text_max, value_max);
+
+  for (p = first; p != NULL; p = p->next) {
+    if (p->value == NULL) {
+      printf ("%s\n", p->text);
+    } else {
+      char *comment_sep = (strlen (p->comment) > 0)
+                          ? " --  " : "";
+      printf (fmt, p->text, p->value, comment_sep, p->comment);
+    }
+  }
+}
+
+char *
+f_itoa (char *fmt, int n) {
+  char buf[32], *ret;
+  sprintf (buf, fmt, n);
+  ret = malloc (strlen (buf) + 1);
+  if (ret != NULL)
+    strcpy (ret, buf);
+  return ret;
+}
+
+void
+add_line (char *_text, char *_value, char *_comment) {
+  struct line *l = (struct line *) malloc (sizeof (struct line));
+
+  l->text = _text;
+  l->value = _value;
+  l->comment = _comment;
+  l->next = NULL;
+  if (last == NULL)
+    first = last = l;
+  else {
+    last->next = l;
+    last = l;
+  }
+}
diff --git a/gen-soconn/gsocket.h b/gen-soconn/gsocket.h
new file mode 100644
index 0000000..a380788
--- /dev/null
+++ b/gen-soconn/gsocket.h
@@ -0,0 +1,148 @@
+/****************************************************************************
+ *                                                                          *
+ *                         GNAT COMPILER COMPONENTS                         *
+ *                                                                          *
+ *                              G S O C K E T                               *
+ *                                                                          *
+ *                              C Header File                               *
+ *                                                                          *
+ *         Copyright (C) 2004-2005, 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,  51  Franklin  Street,  Fifth  Floor, *
+ * Boston, MA 02110-1301, 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.      *
+ *                                                                          *
+ ****************************************************************************/
+
+#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>
+
+#if defined(__vxworks)
+#include <vxWorks.h>
+#include <ioLib.h>
+#include <hostLib.h>
+#include <resolvLib.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>
+
+#define EACCES		WSAEACCES
+#define EADDRINUSE	WSAEADDRINUSE
+#define EADDRNOTAVAIL	WSAEADDRNOTAVAIL
+#define EAFNOSUPPORT	WSAEAFNOSUPPORT
+#define EALREADY	WSAEALREADY
+#define EBADF		WSAEBADF
+#define ECONNABORTED	WSAECONNABORTED
+#define ECONNREFUSED	WSAECONNREFUSED
+#define ECONNRESET	WSAECONNRESET
+#define EDESTADDRREQ	WSAEDESTADDRREQ
+#define EFAULT		WSAEFAULT
+#define EHOSTDOWN	WSAEHOSTDOWN
+#define EHOSTUNREACH	WSAEHOSTUNREACH
+#define EINPROGRESS	WSAEINPROGRESS
+#define EINTR		WSAEINTR
+#define EINVAL		WSAEINVAL
+#define EIO		WSAEDISCON
+#define EISCONN		WSAEISCONN
+#define ELOOP		WSAELOOP
+#define EMFILE		WSAEMFILE
+#define EMSGSIZE	WSAEMSGSIZE
+#define ENAMETOOLONG	WSAENAMETOOLONG
+#define ENETDOWN	WSAENETDOWN
+#define ENETRESET	WSAENETRESET
+#define ENETUNREACH	WSAENETUNREACH
+#define ENOBUFS		WSAENOBUFS
+#define ENOPROTOOPT	WSAENOPROTOOPT
+#define ENOTCONN	WSAENOTCONN
+#define ENOTSOCK	WSAENOTSOCK
+#define EOPNOTSUPP	WSAEOPNOTSUPP
+#define EPFNOSUPPORT	WSAEPFNOSUPPORT
+#define EPROTONOSUPPORT	WSAEPROTONOSUPPORT
+#define ENOTSOCK	WSAENOTSOCK
+#define EOPNOTSUPP	WSAEOPNOTSUPP
+#define EPFNOSUPPORT	WSAEPFNOSUPPORT
+#define EPROTONOSUPPORT	WSAEPROTONOSUPPORT
+#define EPROTOTYPE	WSAEPROTOTYPE
+#define ESHUTDOWN	WSAESHUTDOWN
+#define ESOCKTNOSUPPORT	WSAESOCKTNOSUPPORT
+#define ETIMEDOUT	WSAETIMEDOUT
+#define ETOOMANYREFS	WSAETOOMANYREFS
+#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
+
+#ifndef __MINGW32__
+#include <errno.h>
+#endif
+
+#ifdef __vxworks
+#include <sys/times.h>
+#else
+#include <sys/time.h>
+#endif
+
+#if !(defined (VMS) || defined (__MINGW32__) || defined(__rtems__))
+#include <sys/socket.h>
+#include <netinet/in.h>
+#include <netinet/tcp.h>
+#include <sys/ioctl.h>
+#include <netdb.h>
+#endif
diff --git a/gen-soconn/init.c b/gen-soconn/init.c
new file mode 100644
index 0000000..33f145e
--- /dev/null
+++ b/gen-soconn/init.c
@@ -0,0 +1,29 @@
+/*
+ *  Simple main wrapper for RTEMS with configuration
+ */
+
+#include <bsp.h>
+
+#include <stdlib.h>
+
+rtems_task Init(
+  rtems_task_argument ignored
+)
+{
+  main( 0, NULL );
+  exit( 0 );
+}
+
+/* configuration information */
+
+#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER
+
+#define CONFIGURE_RTEMS_INIT_TASKS_TABLE
+
+#define CONFIGURE_MAXIMUM_TASKS 1
+
+#define CONFIGURE_INIT
+
+#include <rtems/confdefs.h>
+
+/* end of file */