227 lines
6.5 KiB
C
227 lines
6.5 KiB
C
/****************************************************************************
|
|
* *
|
|
* GNAT RUN-TIME COMPONENTS *
|
|
* *
|
|
* C S T R E A M S *
|
|
* *
|
|
* Auxiliary C functions for Interfaces.C.Streams *
|
|
* *
|
|
* Copyright (C) 1992-2003 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. *
|
|
* *
|
|
****************************************************************************/
|
|
|
|
/* 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 VMS
|
|
#include <unixlib.h>
|
|
#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
|
|
|
|
/* 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));
|
|
}
|
|
|
|
int
|
|
__gnat_is_regular_file_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 (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)
|
|
{
|
|
#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
|
|
{
|
|
char *p;
|
|
|
|
_fullpath (buffer, nam, __gnat_max_path_len);
|
|
|
|
for (p = buffer; *p; p++)
|
|
if (*p == '/')
|
|
*p = '\\';
|
|
}
|
|
|
|
#elif defined (MSDOS)
|
|
_fixpath (nam, buffer);
|
|
|
|
#elif defined (sgi) || defined (__FreeBSD__)
|
|
|
|
/* 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 (VMS)
|
|
strncpy (buffer, __gnat_to_canonical_file_spec (nam), __gnat_max_path_len);
|
|
|
|
if (buffer[0] == '/' || strchr (buffer, '!')) /* '!' means decnet node */
|
|
strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len);
|
|
else
|
|
{
|
|
char *nambuffer = alloca (__gnat_max_path_len);
|
|
|
|
strncpy (nambuffer, buffer, __gnat_max_path_len);
|
|
strncpy
|
|
(buffer, getcwd (buffer, __gnat_max_path_len, 0), __gnat_max_path_len);
|
|
strncat (buffer, "/", __gnat_max_path_len);
|
|
strncat (buffer, nambuffer, __gnat_max_path_len);
|
|
strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len);
|
|
}
|
|
|
|
#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;
|
|
}
|