diff options
Diffstat (limited to 'gcc/ada/cstreams.c')
| -rw-r--r-- | gcc/ada/cstreams.c | 247 |
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 +} |