1 /****************************************************************************
3 * GNAT RUN-TIME COMPONENTS *
7 * Auxiliary C functions for Interfaces.C.Streams *
10 * Copyright (C) 1992-2001 Free Software Foundation, Inc. *
12 * GNAT is free software; you can redistribute it and/or modify it under *
13 * terms of the GNU General Public License as published by the Free Soft- *
14 * ware Foundation; either version 2, or (at your option) any later ver- *
15 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
16 * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
17 * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License *
18 * for more details. You should have received a copy of the GNU General *
19 * Public License distributed with GNAT; see file COPYING. If not, write *
20 * to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, *
21 * MA 02111-1307, USA. *
23 * As a special exception, if you link this file with other files to *
24 * produce an executable, this file does not by itself cause the resulting *
25 * executable to be covered by the GNU General Public License. This except- *
26 * ion does not however invalidate any other reasons why the executable *
27 * file might be covered by the GNU Public License. *
29 * GNAT was originally developed by the GNAT team at New York University. *
30 * It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). *
32 ****************************************************************************/
34 /* Routines required for implementing routines in Interfaces.C.Streams */
52 int max_path_len = _MAX_PATH;
55 int max_path_len = 4096; /* PATH_MAX */
57 #elif defined (__vxworks) || defined (__OPENNT)
59 int max_path_len = PATH_MAX;
65 /* Don't use macros on GNU/Linux since they cause incompatible changes between
80 #include <sys/param.h>
82 int max_path_len = MAXPATHLEN;
85 /* The _IONBF value in CYGNUS or MINGW32 stdio.h is wrong. */
86 #if defined (WINNT) || defined (_WINNT)
96 return (feof (stream));
100 __gnat_ferror (stream)
103 return (ferror (stream));
107 __gnat_fileno (stream)
110 return (fileno (stream));
114 __gnat_is_regular_file_fd (fd)
121 /* Programs using screen I/O may need to reset the FPU after
122 initialization of screen-handling related DLL's, so force
123 DLL initialization by doing a null-write and then reset the FPU */
125 DosWrite (0, &ret, 0, &ret);
129 ret = fstat (fd, &statbuf);
130 return (!ret && S_ISREG (statbuf.st_mode));
133 /* on some systems, the constants for seek are not defined, if so, then
134 provide the conventional definitions */
137 #define SEEK_SET 0 /* Set file pointer to offset */
138 #define SEEK_CUR 1 /* Set file pointer to its current value plus offset */
139 #define SEEK_END 2 /* Set file pointer to the size of the file plus offset */
142 /* if L_tmpnam is not set, use a large number that should be safe */
147 int __gnat_constant_eof = EOF;
148 int __gnat_constant_iofbf = _IOFBF;
149 int __gnat_constant_iolbf = _IOLBF;
150 int __gnat_constant_ionbf = _IONBF;
151 int __gnat_constant_l_tmpnam = L_tmpnam;
152 int __gnat_constant_seek_cur = SEEK_CUR;
153 int __gnat_constant_seek_end = SEEK_END;
154 int __gnat_constant_seek_set = SEEK_SET;
157 __gnat_constant_stderr ()
163 __gnat_constant_stdin ()
169 __gnat_constant_stdout ()
175 __gnat_full_name (nam, buffer)
181 #if defined(__EMX__) || defined (__MINGW32__)
182 /* If this is a device file return it as is; under Windows NT and
183 OS/2 a device file end with ":". */
184 if (nam[strlen (nam) - 1] == ':')
185 strcpy (buffer, nam);
188 _fullpath (buffer, nam, max_path_len);
190 for (p = buffer; *p; p++)
195 #elif defined (MSDOS)
196 _fixpath (nam, buffer);
200 /* Use realpath function which resolves links and references to .. and ..
201 on those Unix systems that support it. Note that GNU/Linux provides it but
202 cannot handle more than 5 symbolic links in a full name, so we use the
203 getcwd approach instead. */
204 realpath (nam, buffer);
207 strcpy (buffer, __gnat_to_canonical_file_spec (nam));
209 if (buffer[0] == '/')
210 strcpy (buffer, __gnat_to_host_file_spec (buffer));
213 char *nambuffer = alloca (max_path_len);
215 strcpy (nambuffer, buffer);
216 strcpy (buffer, getcwd (buffer, max_path_len, 0));
217 strcat (buffer, "/");
218 strcat (buffer, nambuffer);
219 strcpy (buffer, __gnat_to_host_file_spec (buffer));
227 p = getcwd (buffer, max_path_len);
234 /* If the name returned is an absolute path, it is safe to append '/'
235 to the path and concatenate the name of the file. */
236 if (buffer[0] == '/')
237 strcat (buffer, "/");
239 strcat (buffer, nam);
242 strcpy (buffer, nam);