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
__gnat_feof(FILE * stream)79 __gnat_feof (FILE *stream)
80 {
81 return (feof (stream));
82 }
83
84 int
__gnat_ferror(FILE * stream)85 __gnat_ferror (FILE *stream)
86 {
87 return (ferror (stream));
88 }
89
90 int
__gnat_fileno(FILE * stream)91 __gnat_fileno (FILE *stream)
92 {
93 return (fileno (stream));
94 }
95
96 int
__gnat_is_regular_file_fd(int fd)97 __gnat_is_regular_file_fd (int fd)
98 {
99 int ret;
100 struct stat statbuf;
101
102 #ifdef __EMX__
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 */
106
107 DosWrite (0, &ret, 0, &ret);
108 __gnat_init_float();
109 #endif
110
111 ret = fstat (fd, &statbuf);
112 return (!ret && S_ISREG (statbuf.st_mode));
113 }
114
115 /* on some systems, the constants for seek are not defined, if so, then
116 provide the conventional definitions */
117
118 #ifndef SEEK_SET
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 */
122 #endif
123
124 /* if L_tmpnam is not set, use a large number that should be safe */
125 #ifndef L_tmpnam
126 #define L_tmpnam 256
127 #endif
128
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;
137
138 FILE *
__gnat_constant_stderr(void)139 __gnat_constant_stderr (void)
140 {
141 return stderr;
142 }
143
144 FILE *
__gnat_constant_stdin(void)145 __gnat_constant_stdin (void)
146 {
147 return stdin;
148 }
149
150 FILE *
__gnat_constant_stdout(void)151 __gnat_constant_stdout (void)
152 {
153 return stdout;
154 }
155
156 char *
__gnat_full_name(char * nam,char * buffer)157 __gnat_full_name (char *nam, char *buffer)
158 {
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);
164 else
165 {
166 char *p;
167
168 _fullpath (buffer, nam, __gnat_max_path_len);
169
170 for (p = buffer; *p; p++)
171 if (*p == '/')
172 *p = '\\';
173 }
174
175 #elif defined (MSDOS)
176 _fixpath (nam, buffer);
177
178 #elif defined (sgi) || defined (__FreeBSD__)
179
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);
185
186 #elif defined (VMS)
187 strncpy (buffer, __gnat_to_canonical_file_spec (nam), __gnat_max_path_len);
188
189 if (buffer[0] == '/' || strchr (buffer, '!')) /* '!' means decnet node */
190 strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len);
191 else
192 {
193 char *nambuffer = alloca (__gnat_max_path_len);
194
195 strncpy (nambuffer, buffer, __gnat_max_path_len);
196 strncpy
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);
201 }
202
203 #else
204 if (nam[0] != '/')
205 {
206 char *p = getcwd (buffer, __gnat_max_path_len);
207
208 if (p == 0)
209 {
210 buffer[0] = '\0';
211 return 0;
212 }
213
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, "/");
218
219 strcat (buffer, nam);
220 }
221 else
222 strcpy (buffer, nam);
223 #endif
224
225 return buffer;
226 }
227