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-2015, 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 3, 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. *
17 * *
18 * As a special exception under Section 7 of GPL version 3, you are granted *
19 * additional permissions described in the GCC Runtime Library Exception, *
20 * version 3.1, as published by the Free Software Foundation. *
21 * *
22 * You should have received a copy of the GNU General Public License and *
23 * a copy of the GCC Runtime Library Exception along with this program; *
24 * see the files COPYING3 and COPYING.RUNTIME respectively. If not, see *
25 * <http://www.gnu.org/licenses/>. *
26 * *
27 * GNAT was originally developed by the GNAT team at New York University. *
28 * Extensive contributions were provided by Ada Core Technologies Inc. *
29 * *
30 ****************************************************************************/
31
32 /* Routines required for implementing routines in Interfaces.C.Streams. */
33
34 #ifndef _LARGEFILE_SOURCE
35 #define _LARGEFILE_SOURCE
36 #endif
37 #define _FILE_OFFSET_BITS 64
38 /* the define above will make off_t a 64bit type on GNU/Linux */
39
40 #include <stdio.h>
41 #include <sys/types.h>
42
43 #ifdef _AIX
44 /* needed to avoid conflicting declarations */
45 #include <unistd.h>
46 #include <sys/mman.h>
47 #endif
48
49 #ifdef __vxworks
50 #include "vxWorks.h"
51 #endif
52
53 #ifdef IN_RTS
54 #include "tconfig.h"
55 #include "tsystem.h"
56 #include <sys/stat.h>
57 #else
58 #include "config.h"
59 #include "system.h"
60 #endif
61
62 #include "adaint.h"
63
64 #ifdef __cplusplus
65 extern "C" {
66 #endif
67
68 #ifdef VMS
69 #include <unixlib.h>
70 #endif
71
72 #ifdef __linux__
73 /* Don't use macros on GNU/Linux since they cause incompatible changes between
74 glibc 2.0 and 2.1 */
75
76 #ifdef stderr
77 # undef stderr
78 #endif
79 #ifdef stdin
80 # undef stdin
81 #endif
82 #ifdef stdout
83 # undef stdout
84 #endif
85
86 #endif
87
88 /* Don't use macros versions of this functions on VxWorks since they cause
89 imcompatible changes in some VxWorks versions */
90 #ifdef __vxworks
91 #undef getchar
92 #undef putchar
93 #undef feof
94 #undef ferror
95 #undef fileno
96 #endif
97
98 /* The _IONBF value in MINGW32 stdio.h is wrong. */
99 #if defined (WINNT) || defined (_WINNT)
100 #if OLD_MINGW
101 #undef _IONBF
102 #define _IONBF 0004
103 #endif
104 #endif
105
106 int
__gnat_feof(FILE * stream)107 __gnat_feof (FILE *stream)
108 {
109 return (feof (stream));
110 }
111
112 int
__gnat_ferror(FILE * stream)113 __gnat_ferror (FILE *stream)
114 {
115 return (ferror (stream));
116 }
117
118 int
__gnat_fileno(FILE * stream)119 __gnat_fileno (FILE *stream)
120 {
121 return (fileno (stream));
122 }
123
124 /* on some systems, the constants for seek are not defined, if so, then
125 provide the conventional definitions */
126
127 #ifndef SEEK_SET
128 #define SEEK_SET 0 /* Set file pointer to offset */
129 #define SEEK_CUR 1 /* Set file pointer to its current value plus offset */
130 #define SEEK_END 2 /* Set file pointer to the size of the file plus offset */
131 #endif
132
133 /* if L_tmpnam is not set, use a large number that should be safe */
134 #ifndef L_tmpnam
135 #define L_tmpnam 256
136 #endif
137
138 int __gnat_constant_eof = EOF;
139 int __gnat_constant_iofbf = _IOFBF;
140 int __gnat_constant_iolbf = _IOLBF;
141 int __gnat_constant_ionbf = _IONBF;
142 int __gnat_constant_l_tmpnam = L_tmpnam;
143 int __gnat_constant_seek_cur = SEEK_CUR;
144 int __gnat_constant_seek_end = SEEK_END;
145 int __gnat_constant_seek_set = SEEK_SET;
146
147 FILE *
__gnat_constant_stderr(void)148 __gnat_constant_stderr (void)
149 {
150 return stderr;
151 }
152
153 FILE *
__gnat_constant_stdin(void)154 __gnat_constant_stdin (void)
155 {
156 return stdin;
157 }
158
159 FILE *
__gnat_constant_stdout(void)160 __gnat_constant_stdout (void)
161 {
162 return stdout;
163 }
164
165 char *
__gnat_full_name(char * nam,char * buffer)166 __gnat_full_name (char *nam, char *buffer)
167 {
168 #ifdef RTSS
169 /* RTSS applications have no current-directory notion, so RTSS file I/O
170 requests must use fully qualified path names, such as:
171 c:\temp\MyFile.txt (for a file system object)
172 \\.\MyDevice0 (for a device object)
173 */
174 if (nam[1] == ':' || nam[0] == '\\')
175 strcpy (buffer, nam);
176 else
177 buffer[0] = '\0';
178
179 #elif defined (__MINGW32__)
180 /* If this is a device file return it as is;
181 under Windows NT a device file ends with ":". */
182 if (nam[strlen (nam) - 1] == ':')
183 strcpy (buffer, nam);
184 else
185 {
186 char *p;
187
188 _fullpath (buffer, nam, __gnat_max_path_len);
189
190 for (p = buffer; *p; p++)
191 if (*p == '/')
192 *p = '\\';
193 }
194
195 #elif defined (__FreeBSD__) || defined (__DragonFly__) || defined (__OpenBSD__)
196
197 /* Use realpath function which resolves links and references to . and ..
198 on those Unix systems that support it. Note that GNU/Linux provides it but
199 cannot handle more than 5 symbolic links in a full name, so we use the
200 getcwd approach instead. */
201 realpath (nam, buffer);
202
203 #elif defined (VMS)
204 strncpy (buffer, __gnat_to_canonical_file_spec (nam), __gnat_max_path_len);
205
206 if (buffer[0] == '/' || strchr (buffer, '!')) /* '!' means decnet node */
207 strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len);
208 else
209 {
210 char *nambuffer = alloca (__gnat_max_path_len);
211
212 strncpy (nambuffer, buffer, __gnat_max_path_len);
213 strncpy
214 (buffer, getcwd (buffer, __gnat_max_path_len, 0), __gnat_max_path_len);
215 strncat (buffer, "/", __gnat_max_path_len);
216 strncat (buffer, nambuffer, __gnat_max_path_len);
217 strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len);
218 }
219
220 #elif defined (__vxworks)
221
222 /* On VxWorks systems, an absolute path can be represented (depending on
223 the host platform) as either /dir/file, or device:/dir/file, or
224 device:drive_letter:/dir/file. Use the __gnat_is_absolute_path
225 to verify it. */
226
227 int length;
228
229 if (__gnat_is_absolute_path (nam, strlen (nam)))
230 strcpy (buffer, nam);
231
232 else
233 {
234 length = __gnat_max_path_len;
235 __gnat_get_current_dir (buffer, &length);
236 strncat (buffer, nam, __gnat_max_path_len - length - 1);
237 }
238
239 #else
240 if (nam[0] != '/')
241 {
242 char *p = getcwd (buffer, __gnat_max_path_len);
243
244 if (p == 0)
245 {
246 buffer[0] = '\0';
247 return 0;
248 }
249
250
251 /* If the name returned is an absolute path, it is safe to append '/'
252 to the path and concatenate the name of the file. */
253 if (buffer[0] == '/')
254 strcat (buffer, "/");
255
256 strcat (buffer, nam);
257 }
258 else
259 strcpy (buffer, nam);
260 #endif
261
262 return buffer;
263 }
264
265 #ifdef _WIN32
266 /* On Windows we want to use the fseek/fteel supporting large files. This
267 issue is due to the fact that a long on Win64 is still a 32 bits value */
268 __int64
__gnat_ftell64(FILE * stream)269 __gnat_ftell64 (FILE *stream)
270 {
271 return _ftelli64 (stream);
272 }
273
274 int
__gnat_fseek64(FILE * stream,__int64 offset,int origin)275 __gnat_fseek64 (FILE *stream, __int64 offset, int origin)
276 {
277 return _fseeki64 (stream, offset, origin);
278 }
279
280 #elif defined (__linux__) || defined (__sun__) || defined (__FreeBSD__) \
281 || defined (__APPLE__)
282 /* section for platforms having ftello/fseeko */
283
284 __int64
__gnat_ftell64(FILE * stream)285 __gnat_ftell64 (FILE *stream)
286 {
287 return (__int64)ftello (stream);
288 }
289
290 int
__gnat_fseek64(FILE * stream,__int64 offset,int origin)291 __gnat_fseek64 (FILE *stream, __int64 offset, int origin)
292 {
293 /* make sure that the offset is not bigger than the OS off_t, if so return
294 with error as this mean that we are trying to handle files larger than
295 2Gb on a patform not supporting it. */
296 if ((off_t)offset == offset)
297 return fseeko (stream, (off_t) offset, origin);
298 else
299 return -1;
300 }
301
302 #else
303
304 __int64
__gnat_ftell64(FILE * stream)305 __gnat_ftell64 (FILE *stream)
306 {
307 return (__int64)ftell (stream);
308 }
309
310 int
__gnat_fseek64(FILE * stream,__int64 offset,int origin)311 __gnat_fseek64 (FILE *stream, __int64 offset, int origin)
312 {
313 /* make sure that the offset is not bigger than the OS off_t, if so return
314 with error as this mean that we are trying to handle files larger than
315 2Gb on a patform not supporting it. */
316 if ((off_t)offset == offset)
317 return fseek (stream, (off_t) offset, origin);
318 else
319 return -1;
320 }
321 #endif
322
323 #ifdef __cplusplus
324 }
325 #endif
326