gcc/ada/cstreams.c

   1 /****************************************************************************
   2  *                                                                          *
   3  *                          GNAT RUN-TIME COMPONENTS                        *
   4  *                                                                          *
   5  *                              C S T R E A M S                             *
   6  *                                                                          *
   7  *              Auxiliary C functions for Interfaces.C.Streams              *
   8  *                                                                          *
   9  *          Copyright (C) 1992-2003 Free Software Foundation, Inc.          *
  10  *                                                                          *
  11  * GNAT is free software;  you can  redistribute it  and/or modify it under *
  12  * terms of the  GNU General Public License as published  by the Free Soft- *
  13  * ware  Foundation;  either version 2,  or (at your option) any later ver- *
  14  * sion.  GNAT is distributed in the hope that it will be useful, but WITH- *
  15  * OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY *
  16  * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License *
  17  * for  more details.  You should have  received  a copy of the GNU General *
  18  * Public License  distributed with GNAT;  see file COPYING.  If not, write *
  19  * to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, *
  20  * MA 02111-1307, USA.                                                      *
  21  *                                                                          *
  22  * As a  special  exception,  if you  link  this file  with other  files to *
  23  * produce an executable,  this file does not by itself cause the resulting *
  24  * executable to be covered by the GNU General Public License. This except- *
  25  * ion does not  however invalidate  any other reasons  why the  executable *
  26  * file might be covered by the  GNU Public License.                        *
  27  *                                                                          *
  28  * GNAT was originally developed  by the GNAT team at  New York University. *
  29  * Extensive contributions were provided by Ada Core Technologies Inc.      *
  30  *                                                                          *
  31  ****************************************************************************/
  32
  33 /* Routines required for implementing routines in Interfaces.C.Streams */
  34
  35 #ifdef __vxworks
  36 #include "vxWorks.h"
  37 #endif
  38
  39 #ifdef IN_RTS
  40 #include "tconfig.h"
  41 #include "tsystem.h"
  42 #include <sys/stat.h>
  43 #else
  44 #include "config.h"
  45 #include "system.h"
  46 #endif
  47
  48 #include "adaint.h"
  49
  50 #ifdef VMS
  51 #include <unixlib.h>
  52 #endif
  53
  54 #ifdef linux
  55 /* Don't use macros on GNU/Linux since they cause incompatible changes between
  56    glibc 2.0 and 2.1 */
  57
  58 #ifdef stderr
  59 #  undef stderr
  60 #endif
  61 #ifdef stdin
  62 #  undef stdin
  63 #endif
  64 #ifdef stdout
  65 #  undef stdout
  66 #endif
  67
  68 #endif
  69
  70 /* The _IONBF value in MINGW32 stdio.h is wrong.  */
  71 #if defined (WINNT) || defined (_WINNT)
  72 #if OLD_MINGW
  73 #undef _IONBF
  74 #define _IONBF 0004
  75 #endif
  76 #endif
  77
  78 int
  79 __gnat_feof (stream)
  80      FILE *stream;
  81 {
  82   return (feof (stream));
  83 }
  84
  85 int
  86 __gnat_ferror (stream)
  87      FILE *stream;
  88 {
  89    return (ferror (stream));
  90 }
  91
  92 int
  93 __gnat_fileno (stream)
  94      FILE *stream;
  95 {
  96    return (fileno (stream));
  97 }
  98
  99 int
 100 __gnat_is_regular_file_fd (fd)
 101      int fd;
 102 {
 103   int ret;
 104   struct stat statbuf;
 105
 106 #ifdef __EMX__
 107   /* Programs using screen I/O may need to reset the FPU after
 108      initialization of screen-handling related DLL's, so force
 109      DLL initialization by doing a null-write and then reset the FPU */
 110
 111   DosWrite (0, &ret, 0, &ret);
 112   __gnat_init_float();
 113 #endif
 114
 115   ret = fstat (fd, &statbuf);
 116   return (!ret && S_ISREG (statbuf.st_mode));
 117 }
 118
 119 /* on some systems, the constants for seek are not defined, if so, then
 120    provide the conventional definitions */
 121
 122 #ifndef SEEK_SET
 123 #define SEEK_SET 0  /* Set file pointer to offset                           */
 124 #define SEEK_CUR 1  /* Set file pointer to its current value plus offset    */
 125 #define SEEK_END 2  /* Set file pointer to the size of the file plus offset */
 126 #endif
 127
 128 /* if L_tmpnam is not set, use a large number that should be safe */
 129 #ifndef L_tmpnam
 130 #define L_tmpnam 256
 131 #endif
 132
 133 int    __gnat_constant_eof      = EOF;
 134 int    __gnat_constant_iofbf    = _IOFBF;
 135 int    __gnat_constant_iolbf    = _IOLBF;
 136 int    __gnat_constant_ionbf    = _IONBF;
 137 int    __gnat_constant_l_tmpnam = L_tmpnam;
 138 int    __gnat_constant_seek_cur = SEEK_CUR;
 139 int    __gnat_constant_seek_end = SEEK_END;
 140 int    __gnat_constant_seek_set = SEEK_SET;
 141
 142 FILE *
 143 __gnat_constant_stderr ()
 144 {
 145   return stderr;
 146 }
 147
 148 FILE *
 149 __gnat_constant_stdin ()
 150 {
 151   return stdin;
 152 }
 153
 154 FILE *
 155 __gnat_constant_stdout ()
 156 {
 157   return stdout;
 158 }
 159
 160 char *
 161 __gnat_full_name (nam, buffer)
 162      char *nam;
 163      char *buffer;
 164 {
 165 #if defined(__EMX__) || defined (__MINGW32__)
 166   char *p;
 167
 168   /* If this is a device file return it as is; under Windows NT and
 169      OS/2 a device file end with ":".  */
 170   if (nam[strlen (nam) - 1] == ':')
 171     strcpy (buffer, nam);
 172   else
 173     {
 174       _fullpath (buffer, nam, __gnat_max_path_len);
 175
 176       for (p = buffer; *p; p++)
 177         if (*p == '/')
 178           *p = '\\';
 179     }
 180
 181 #elif defined (MSDOS)
 182   _fixpath (nam, buffer);
 183
 184 #elif defined (sgi)
 185
 186   /* Use realpath function which resolves links and references to .. and ..
 187      on those Unix systems that support it. Note that GNU/Linux provides it but
 188      cannot handle more than 5 symbolic links in a full name, so we use the
 189      getcwd approach instead. */
 190   realpath (nam, buffer);
 191
 192   return buffer;
 193 #elif defined (VMS)
 194   strncpy (buffer, __gnat_to_canonical_file_spec (nam), __gnat_max_path_len);
 195
 196   if (buffer[0] == '/' || strchr (buffer, '!'))  /* '!' means decnet node */
 197     strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len);
 198   else
 199     {
 200       char *nambuffer = alloca (__gnat_max_path_len);
 201
 202       strncpy (nambuffer, buffer, __gnat_max_path_len);
 203       strncpy
 204         (buffer, getcwd (buffer, __gnat_max_path_len, 0), __gnat_max_path_len);
 205       strncat (buffer, "/", __gnat_max_path_len);
 206       strncat (buffer, nambuffer, __gnat_max_path_len);
 207       strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len);
 208     }
 209
 210   return buffer;
 211
 212 #else
 213   char *p;
 214
 215   if (nam[0] != '/')
 216     {
 217       p = getcwd (buffer, __gnat_max_path_len);
 218       if (p == 0)
 219         {
 220           buffer[0] = '\0';
 221           return 0;
 222         }
 223
 224       /* If the name returned is an absolute path, it is safe to append '/'
 225          to the path and concatenate the name of the file. */
 226       if (buffer[0] == '/')
 227         strcat (buffer, "/");
 228
 229       strcat (buffer, nam);
 230     }
 231   else
 232     strcpy (buffer, nam);
 233
 234   return buffer;
 235 #endif
 236 }