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 * Extensive contributions were provided by Ada Core Technologies Inc. *
32 ****************************************************************************/
34 /* Routines required for implementing routines in Interfaces.C.Streams */
56 /* Don't use macros on GNU/Linux since they cause incompatible changes between
70 /* The _IONBF value in CYGNUS or MINGW32 stdio.h is wrong. */
71 #if defined (WINNT) || defined (_WINNT)
81 return (feof (stream
));
85 __gnat_ferror (stream
)
88 return (ferror (stream
));
92 __gnat_fileno (stream
)
95 return (fileno (stream
));
99 __gnat_is_regular_file_fd (fd
)
106 /* Programs using screen I/O may need to reset the FPU after
107 initialization of screen-handling related DLL's, so force
108 DLL initialization by doing a null-write and then reset the FPU */
110 DosWrite (0, &ret
, 0, &ret
);
114 ret
= fstat (fd
, &statbuf
);
115 return (!ret
&& S_ISREG (statbuf
.st_mode
));
118 /* on some systems, the constants for seek are not defined, if so, then
119 provide the conventional definitions */
122 #define SEEK_SET 0 /* Set file pointer to offset */
123 #define SEEK_CUR 1 /* Set file pointer to its current value plus offset */
124 #define SEEK_END 2 /* Set file pointer to the size of the file plus offset */
127 /* if L_tmpnam is not set, use a large number that should be safe */
132 int __gnat_constant_eof
= EOF
;
133 int __gnat_constant_iofbf
= _IOFBF
;
134 int __gnat_constant_iolbf
= _IOLBF
;
135 int __gnat_constant_ionbf
= _IONBF
;
136 int __gnat_constant_l_tmpnam
= L_tmpnam
;
137 int __gnat_constant_seek_cur
= SEEK_CUR
;
138 int __gnat_constant_seek_end
= SEEK_END
;
139 int __gnat_constant_seek_set
= SEEK_SET
;
142 __gnat_constant_stderr ()
148 __gnat_constant_stdin ()
154 __gnat_constant_stdout ()
160 __gnat_full_name (nam
, buffer
)
166 #if defined(__EMX__) || defined (__MINGW32__)
167 /* If this is a device file return it as is; under Windows NT and
168 OS/2 a device file end with ":". */
169 if (nam
[strlen (nam
) - 1] == ':')
170 strcpy (buffer
, nam
);
173 _fullpath (buffer
, nam
, __gnat_max_path_len
);
175 for (p
= buffer
; *p
; p
++)
180 #elif defined (MSDOS)
181 _fixpath (nam
, buffer
);
185 /* Use realpath function which resolves links and references to .. and ..
186 on those Unix systems that support it. Note that GNU/Linux provides it but
187 cannot handle more than 5 symbolic links in a full name, so we use the
188 getcwd approach instead. */
189 realpath (nam
, buffer
);
192 strcpy (buffer
, __gnat_to_canonical_file_spec (nam
));
194 if (buffer
[0] == '/')
195 strcpy (buffer
, __gnat_to_host_file_spec (buffer
));
198 char *nambuffer
= alloca (__gnat_max_path_len
);
200 strcpy (nambuffer
, buffer
);
201 strcpy (buffer
, getcwd (buffer
, __gnat_max_path_len
, 0));
202 strcat (buffer
, "/");
203 strcat (buffer
, nambuffer
);
204 strcpy (buffer
, __gnat_to_host_file_spec (buffer
));
212 p
= getcwd (buffer
, __gnat_max_path_len
);
219 /* If the name returned is an absolute path, it is safe to append '/'
220 to the path and concatenate the name of the file. */
221 if (buffer
[0] == '/')
222 strcat (buffer
, "/");
224 strcat (buffer
, nam
);
227 strcpy (buffer
, nam
);