New Language: Ada

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@45954 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 247 insertions, 0 deletions

diff --git a/gcc/ada/cstreams.c b/gcc/ada/cstreams.c
new file mode 100644
index 00000000000..7dd5557513c
--- /dev/null
+++ b/gcc/ada/cstreams.c
@@ -0,0 +1,247 @@
+/****************************************************************************
+ *                                                                          *
+ *                          GNAT RUN-TIME COMPONENTS                        *
+ *                                                                          *
+ *                              C S T R E A M S                             *
+ *                                                                          *
+ *              Auxiliary C functions for Interfaces.C.Streams              *
+ *                                                                          *
+ *                              $Revision: 1.1 $
+ *                                                                          *
+ *          Copyright (C) 1992-2001 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. *
+ * It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). *
+ *                                                                          *
+ ****************************************************************************/
+
+/* Routines required for implementing routines in Interfaces.C.Streams */
+
+#ifdef __vxworks
+#include "vxWorks.h"
+#endif
+
+#ifdef IN_RTS
+#include "tconfig.h"
+#include "tsystem.h"
+#include <sys/stat.h>
+#else
+#include "config.h"
+#include "system.h"
+#endif
+
+#include "adaint.h"
+
+#ifdef __EMX__
+int max_path_len = _MAX_PATH;
+#elif defined (VMS)
+#include <unixlib.h>
+int max_path_len = 255; /* PATH_MAX */
+
+#elif defined (__vxworks) || defined (__OPENNT)
+
+int max_path_len = PATH_MAX;
+
+#else
+
+#ifdef linux
+
+/* Don't use macros on linux since they cause incompatible changes between
+   glibc 2.0 and 2.1 */
+
+#ifdef stderr
+#  undef stderr
+#endif
+#ifdef stdin
+#  undef stdin
+#endif
+#ifdef stdout
+#  undef stdout
+#endif
+
+#endif
+
+#include <sys/param.h>
+
+int max_path_len = MAXPATHLEN;
+#endif
+
+/* The _IONBF value in CYGNUS or MINGW32 stdio.h is wrong.  */
+#if defined (WINNT) || defined (_WINNT)
+#undef _IONBF
+#define _IONBF 0004
+#endif
+
+
+int
+__gnat_feof (stream)
+     FILE *stream;
+{
+  return (feof (stream));
+}
+
+int
+__gnat_ferror (stream)
+     FILE *stream;
+{
+   return (ferror (stream));
+}
+
+int
+__gnat_fileno (stream)
+     FILE *stream;
+{
+   return (fileno (stream));
+}
+
+int
+__gnat_is_regular_file_fd (fd)
+     int fd;
+{
+  int ret;
+  struct stat statbuf;
+
+#ifdef __EMX__
+  /* Programs using screen I/O may need to reset the FPU after
+     initialization of screen-handling related DLL's, so force
+     DLL initialization by doing a null-write and then reset the FPU */
+
+  DosWrite (0, &ret, 0, &ret);
+  __gnat_init_float();
+#endif
+
+  ret = fstat (fd, &statbuf);
+  return (!ret && S_ISREG (statbuf.st_mode));
+}
+
+/* on some systems, the constants for seek are not defined, if so, then
+   provide the conventional definitions */
+
+#ifndef SEEK_SET
+#define SEEK_SET 0  /* Set file pointer to offset                           */
+#define SEEK_CUR 1  /* Set file pointer to its current value plus offset    */
+#define SEEK_END 2  /* Set file pointer to the size of the file plus offset */
+#endif
+
+/* if L_tmpnam is not set, use a large number that should be safe */
+#ifndef L_tmpnam
+#define L_tmpnam 256
+#endif
+
+int    __gnat_constant_eof      = EOF;
+int    __gnat_constant_iofbf    = _IOFBF;
+int    __gnat_constant_iolbf    = _IOLBF;
+int    __gnat_constant_ionbf    = _IONBF;
+int    __gnat_constant_l_tmpnam = L_tmpnam;
+int    __gnat_constant_seek_cur = SEEK_CUR;
+int    __gnat_constant_seek_end = SEEK_END;
+int    __gnat_constant_seek_set = SEEK_SET;
+
+FILE *
+__gnat_constant_stderr ()
+{
+  return stderr;
+}
+
+FILE *
+__gnat_constant_stdin ()
+{
+  return stdin;
+}
+
+FILE *
+__gnat_constant_stdout ()
+{
+  return stdout;
+}
+
+char *
+__gnat_full_name (nam, buffer)
+     char *nam;
+     char *buffer;
+{
+  char *p;
+
+#if defined(__EMX__) || defined (__MINGW32__)
+  /* If this is a device file return it as is; under Windows NT and
+     OS/2 a device file end with ":".  */
+  if (nam [strlen (nam) - 1] == ':')
+    strcpy (buffer, nam);
+  else
+    {
+      _fullpath (buffer, nam, max_path_len);
+
+      for (p = buffer; *p; p++)
+	if (*p == '/')
+	  *p = '\\';
+    }
+
+#elif defined (MSDOS)
+  _fixpath (nam, buffer);
+
+#elif defined (sgi)
+
+  /* Use realpath function which resolves links and references to .. and ..
+     on those Unix systems that support it. Note that linux provides it but
+     cannot handle more than 5 symbolic links in a full name, so we use the
+     getcwd approach instead. */
+  realpath (nam, buffer);
+
+#elif defined (VMS)
+  strcpy (buffer, __gnat_to_canonical_file_spec (nam));
+
+  if (buffer[0] == '/')
+    strcpy (buffer, __gnat_to_host_file_spec (buffer));
+  else
+    {
+      char nambuffer [MAXPATHLEN];
+
+      strcpy (nambuffer, buffer);
+      strcpy (buffer, getcwd (buffer, max_path_len, 0));
+      strcat (buffer, "/");
+      strcat (buffer, nambuffer);
+      strcpy (buffer, __gnat_to_host_file_spec (buffer));
+    }
+
+  return buffer;
+
+#else
+  if (nam[0] != '/')
+    {
+      p = getcwd (buffer, max_path_len);
+      if (p == 0)
+	{
+	  buffer[0] = '\0';
+	  return 0;
+	}
+
+      /* If the name returned is an absolute path, it is safe to append '/'
+	 to the path and concatenate the name of the file. */
+      if (buffer[0] == '/')
+	strcat (buffer, "/");
+
+      strcat (buffer, nam);
+    }
+  else
+    strcpy (buffer, nam);
+
+  return buffer;
+#endif
+}