1 /****************************************************************************
3 * GNAT RUN-TIME COMPONENTS *
7 * Auxiliary C functions for Interfaces.C.Streams *
9 * Copyright (C) 1992-2003 Free Software Foundation, Inc. *
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. *
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. *
28 * GNAT was originally developed by the GNAT team at New York University. *
29 * Extensive contributions were provided by Ada Core Technologies Inc. *
31 ****************************************************************************/
33 /* Routines required for implementing routines in Interfaces.C.Streams */
55 /* Don't use macros on GNU/Linux since they cause incompatible changes between
70 /* The _IONBF value in MINGW32 stdio.h is wrong. */
71 #if defined (WINNT) || defined (_WINNT)
79 __gnat_feof (FILE *stream)
81 return (feof (stream));
85 __gnat_ferror (FILE *stream)
87 return (ferror (stream));
91 __gnat_fileno (FILE *stream)
93 return (fileno (stream));
97 __gnat_is_regular_file_fd (int fd)
103 /* Programs using screen I/O may need to reset the FPU after
104 initialization of screen-handling related DLL's, so force
105 DLL initialization by doing a null-write and then reset the FPU */
107 DosWrite (0, &ret, 0, &ret);
111 ret = fstat (fd, &statbuf);
112 return (!ret && S_ISREG (statbuf.st_mode));
115 /* on some systems, the constants for seek are not defined, if so, then
116 provide the conventional definitions */
119 #define SEEK_SET 0 /* Set file pointer to offset */
120 #define SEEK_CUR 1 /* Set file pointer to its current value plus offset */
121 #define SEEK_END 2 /* Set file pointer to the size of the file plus offset */
124 /* if L_tmpnam is not set, use a large number that should be safe */
129 int __gnat_constant_eof = EOF;
130 int __gnat_constant_iofbf = _IOFBF;
131 int __gnat_constant_iolbf = _IOLBF;
132 int __gnat_constant_ionbf = _IONBF;
133 int __gnat_constant_l_tmpnam = L_tmpnam;
134 int __gnat_constant_seek_cur = SEEK_CUR;
135 int __gnat_constant_seek_end = SEEK_END;
136 int __gnat_constant_seek_set = SEEK_SET;
139 __gnat_constant_stderr (void)
145 __gnat_constant_stdin (void)
151 __gnat_constant_stdout (void)
157 __gnat_full_name (char *nam, char *buffer)
159 #if defined(__EMX__) || defined (__MINGW32__)
160 /* If this is a device file return it as is; under Windows NT and
161 OS/2 a device file end with ":". */
162 if (nam[strlen (nam) - 1] == ':')
163 strcpy (buffer, nam);
168 _fullpath (buffer, nam, __gnat_max_path_len);
170 for (p = buffer; *p; p++)
175 #elif defined (MSDOS)
176 _fixpath (nam, buffer);
178 #elif defined (sgi) || defined (__FreeBSD__)
180 /* Use realpath function which resolves links and references to . and ..
181 on those Unix systems that support it. Note that GNU/Linux provides it but
182 cannot handle more than 5 symbolic links in a full name, so we use the
183 getcwd approach instead. */
184 realpath (nam, buffer);
187 strncpy (buffer, __gnat_to_canonical_file_spec (nam), __gnat_max_path_len);
189 if (buffer[0] == '/' || strchr (buffer, '!')) /* '!' means decnet node */
190 strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len);
193 char *nambuffer = alloca (__gnat_max_path_len);
195 strncpy (nambuffer, buffer, __gnat_max_path_len);
197 (buffer, getcwd (buffer, __gnat_max_path_len, 0), __gnat_max_path_len);
198 strncat (buffer, "/", __gnat_max_path_len);
199 strncat (buffer, nambuffer, __gnat_max_path_len);
200 strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len);
206 char *p = getcwd (buffer, __gnat_max_path_len);
214 /* If the name returned is an absolute path, it is safe to append '/'
215 to the path and concatenate the name of the file. */
216 if (buffer[0] == '/')
217 strcat (buffer, "/");
219 strcat (buffer, nam);
222 strcpy (buffer, nam);