--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/gcc/ada/cstreams.c	Fri Oct 27 22:46:09 2017 +0900
@@ -0,0 +1,324 @@
+/****************************************************************************
+ *                                                                          *
+ *                          GNAT RUN-TIME COMPONENTS                        *
+ *                                                                          *
+ *                              C S T R E A M S                             *
+ *                                                                          *
+ *              Auxiliary C functions for Interfaces.C.Streams              *
+ *                                                                          *
+ *          Copyright (C) 1992-2017, 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.      *
+ *                                                                          *
+ ****************************************************************************/
+
+/* Routines required for implementing routines in Interfaces.C.Streams.  */
+
+#ifndef _LARGEFILE_SOURCE
+#define _LARGEFILE_SOURCE
+#endif
+#define _FILE_OFFSET_BITS 64
+/* the define above will make off_t a 64bit type on GNU/Linux */
+
+#include <stdio.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <unistd.h>
+
+#ifdef _AIX
+/* needed to avoid conflicting declarations */
+#include <unistd.h>
+#include <sys/mman.h>
+#endif
+
+#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 __cplusplus
+extern "C" {
+#endif
+
+#ifdef __linux__
+/* Don't use macros on GNU/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
+
+/* Don't use macros versions of this functions on VxWorks since they cause
+   imcompatible changes in some VxWorks versions */
+#ifdef __vxworks
+#undef getchar
+#undef putchar
+#undef feof
+#undef ferror
+#undef fileno
+#endif
+
+/* The _IONBF value in MINGW32 stdio.h is wrong.  */
+#if defined (WINNT) || defined (_WINNT)
+#if OLD_MINGW
+#undef _IONBF
+#define _IONBF 0004
+#endif
+#endif
+
+int
+__gnat_feof (FILE *stream)
+{
+  return (feof (stream));
+}
+
+int
+__gnat_ferror (FILE *stream)
+{
+   return (ferror (stream));
+}
+
+int
+__gnat_fileno (FILE *stream)
+{
+   return (fileno (stream));
+}
+
+/* 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 (void)
+{
+  return stderr;
+}
+
+FILE *
+__gnat_constant_stdin (void)
+{
+  return stdin;
+}
+
+FILE *
+__gnat_constant_stdout (void)
+{
+  return stdout;
+}
+
+char *
+__gnat_full_name (char *nam, char *buffer)
+{
+#ifdef RTSS
+  /* RTSS applications have no current-directory notion, so RTSS file I/O
+     requests must use fully qualified path names, such as:
+       c:\temp\MyFile.txt (for a file system object)
+       \\.\MyDevice0 (for a device object)
+   */
+  if (nam[1] == ':' || nam[0] == '\\')
+    strcpy (buffer, nam);
+  else
+    buffer[0] = '\0';
+
+#elif defined (__MINGW32__)
+  /* If this is a device file return it as is;
+     under Windows NT a device file ends with ":".  */
+  if (nam[strlen (nam) - 1] == ':')
+    strcpy (buffer, nam);
+  else
+    {
+      char *p;
+
+      _fullpath (buffer, nam, __gnat_max_path_len);
+
+      for (p = buffer; *p; p++)
+	if (*p == '/')
+	  *p = '\\';
+    }
+
+#elif defined (__FreeBSD__) || defined (__DragonFly__) || defined (__OpenBSD__)
+
+  /* Use realpath function which resolves links and references to . and ..
+     on those Unix systems that support it. Note that GNU/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 (__vxworks)
+
+  /* On VxWorks systems, an absolute path can be represented (depending on
+     the host platform) as either /dir/file, or device:/dir/file, or
+     device:drive_letter:/dir/file. Use the __gnat_is_absolute_path
+     to verify it. */
+
+  int length;
+
+  if (__gnat_is_absolute_path (nam, strlen (nam)))
+    strcpy (buffer, nam);
+
+  else
+    {
+      length = __gnat_max_path_len;
+      __gnat_get_current_dir (buffer, &length);
+      strncat (buffer, nam, __gnat_max_path_len - length - 1);
+    }
+
+#else
+  if (nam[0] != '/')
+    {
+      char *p = getcwd (buffer, __gnat_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);
+#endif
+
+  return buffer;
+}
+
+#ifdef _WIN32
+  /* On Windows we want to use the fseek/fteel supporting large files. This
+     issue is due to the fact that a long on Win64 is still a 32 bits value */
+__int64
+__gnat_ftell64 (FILE *stream)
+{
+  return _ftelli64 (stream);
+}
+
+int
+__gnat_fseek64 (FILE *stream, __int64 offset, int origin)
+{
+  return _fseeki64 (stream, offset, origin);
+}
+
+#elif defined (__linux__) || defined (__sun__) || defined (__FreeBSD__) \
+  || defined (__APPLE__)
+/* section for platforms having ftello/fseeko */
+
+__int64
+__gnat_ftell64 (FILE *stream)
+{
+  return (__int64)ftello (stream);
+}
+
+int
+__gnat_fseek64 (FILE *stream, __int64 offset, int origin)
+{
+  /* make sure that the offset is not bigger than the OS off_t, if so return
+     with error as this mean that we are trying to handle files larger than
+     2Gb on a patform not supporting it. */
+  if ((off_t)offset == offset)
+    return fseeko (stream, (off_t) offset, origin);
+  else
+    return -1;
+}
+
+#else
+
+__int64
+__gnat_ftell64 (FILE *stream)
+{
+  return (__int64)ftell (stream);
+}
+
+int
+__gnat_fseek64 (FILE *stream, __int64 offset, int origin)
+{
+  /* make sure that the offset is not bigger than the OS off_t, if so return
+     with error as this mean that we are trying to handle files larger than
+     2Gb on a patform not supporting it. */
+  if ((off_t)offset == offset)
+    return fseek (stream, (off_t) offset, origin);
+  else
+    return -1;
+}
+#endif
+
+/* Returns true if the path names a fifo (i.e. a named pipe). */
+int
+__gnat_is_fifo (const char* path)
+{
+/* Posix defines S_ISFIFO as a macro. If the macro doesn't exist, we return
+   false. */
+#ifdef S_ISFIFO
+  struct stat buf;
+  const int status = stat(path, &buf);
+  if (status == 0)
+    return S_ISFIFO(buf.st_mode);
+#endif
+
+  /* S_ISFIFO is not available, or stat got an error (probably
+     file not found). */
+  return 0;
+}
+
+#ifdef __cplusplus
+}
+#endif