gcc/ada/cstreams.c - gcc - Git at Google

 /****************************************************************************
  *                                                                          *
  *                          GNAT RUN-TIME COMPONENTS                        *
  *                                                                          *
  *                              C S T R E A M S                             *
  *                                                                          *
  *              Auxiliary C functions for Interfaces.C.Streams              *
  *                                                                          *
  *          Copyright (C) 1992-2022, 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 */

 /* Tell Cygwin's <stdio.h> to expose fileno_unlocked() */
 #if defined(__CYGWIN__) && !defined(__CYGWIN32__) && !defined(_GNU_SOURCE)
 #define _GNU_SOURCE
 #endif

 #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 <string.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 (__QNX__)

   int length;

   if (__gnat_is_absolute_path (nam, strlen (nam)))
     realpath (nam, buffer);
   else
     {
       length = __gnat_max_path_len;
       __gnat_get_current_dir (buffer, &length);
       strncat (buffer, nam, __gnat_max_path_len - length - 1);
     }

 #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
	/****************************************************************************
	* *
	* GNAT RUN-TIME COMPONENTS *
	* *
	* C S T R E A M S *
	* *
	* Auxiliary C functions for Interfaces.C.Streams *
	* *
	* Copyright (C) 1992-2022, 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 */

	/* Tell Cygwin's <stdio.h> to expose fileno_unlocked() */
	#if defined(__CYGWIN__) && !defined(__CYGWIN32__) && !defined(_GNU_SOURCE)
	#define _GNU_SOURCE
	#endif

	#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 <string.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 (__QNX__)

	int length;

	if (__gnat_is_absolute_path (nam, strlen (nam)))
	realpath (nam, buffer);
	else
	{
	length = __gnat_max_path_len;
	__gnat_get_current_dir (buffer, &length);
	strncat (buffer, nam, __gnat_max_path_len - length - 1);
	}

	#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