?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2016-06-16 Hristian Kirtchev <kirtchev@adacore.com>
[official-gcc.git] / gcc / ada / adaint.h
blob2559a31ea8455e9ca6179abcbacac2ae1c600480
1 /****************************************************************************
2 * *
3 * GNAT COMPILER COMPONENTS *
4 * *
5 * A D A I N T *
6 * *
7 * C Header File *
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 #ifdef __cplusplus
33 extern "C" {
34 #endif
35
36 #include <sys/stat.h>
37 #include <stdio.h>
38
39 #if defined (_WIN32) || defined (__CYGWIN__)
40 #include "mingw32.h"
41 #endif
42
43 #include <dirent.h>
44
45 /* Constants used for the form parameter encoding values */
46 #define Encoding_UTF8 0 /* UTF-8 */
47 #define Encoding_8bits 1 /* Standard 8bits, CP_ACP on Windows. */
48 #define Encoding_Unspecified 2 /* Based on GNAT_CODE_PAGE env variable. */
49
50 /* Large file support. It is unclear what portable mechanism we can use to
51 determine at compile time what support the system offers for large files.
52 For now we just list the platforms we have manually tested. */
53
54 #if defined (__GLIBC__) || defined (__sun__)
55 #define GNAT_FOPEN fopen64
56 #define GNAT_OPEN open64
57 #define GNAT_STAT stat64
58 #define GNAT_FSTAT fstat64
59 #define GNAT_LSTAT lstat64
60 #define GNAT_STRUCT_STAT struct stat64
61
62 #elif defined(_WIN32)
63 #define GNAT_FOPEN fopen64
64 #define GNAT_OPEN open
65 #define GNAT_STAT stat64
66 #define GNAT_FSTAT fstat64
67 #define GNAT_LSTAT lstat
68 #define GNAT_STRUCT_STAT struct stat64
69
70 #elif defined(__APPLE__)
71
72 # include <TargetConditionals.h>
73
74 # if TARGET_IPHONE_SIMULATOR
75 /* On iOS (simulator or not), the stat structure is the 64 bit one.
76 But the simulator uses the MacOS X syscalls that aren't 64 bit.
77 Fix this interfacing issue here. */
78 int fstat64(int, struct stat *);
79 int stat64(const char *, struct stat *);
80 int lstat64(const char *, struct stat *);
81 # define GNAT_STAT stat64
82 # define GNAT_FSTAT fstat64
83 # define GNAT_LSTAT lstat64
84 # else
85 # define GNAT_STAT stat
86 # define GNAT_FSTAT fstat
87 # define GNAT_LSTAT lstat
88 # endif
89
90 # define GNAT_FOPEN fopen
91 # define GNAT_OPEN open
92 # define GNAT_STRUCT_STAT struct stat
93
94 #else
95 #define GNAT_FOPEN fopen
96 #define GNAT_OPEN open
97 #define GNAT_STAT stat
98 #define GNAT_FSTAT fstat
99 #define GNAT_LSTAT lstat
100 #define GNAT_STRUCT_STAT struct stat
101 #endif
102
103 /* Type corresponding to GNAT.OS_Lib.OS_Time */
104 #if defined (_WIN64)
105 typedef long long OS_Time;
106 #else
107 typedef long OS_Time;
108 #endif
109
110 #define __int64 long long
111
112 /* A lazy cache for the attributes of a file. On some systems, a single call to
113 stat() will give all this information, so it is better than doing a system
114 call every time. On other systems this require several system calls.
115 */
116
117 struct file_attributes {
118 int error;
119 /* Errno value returned by stat()/fstat(). If non-zero, other fields should
120 * be considered as invalid.
121 */
122
123 unsigned char exists;
124
125 unsigned char writable;
126 unsigned char readable;
127 unsigned char executable;
128
129 unsigned char symbolic_link;
130 unsigned char regular;
131 unsigned char directory;
132
133 OS_Time timestamp;
134 __int64 file_length;
135 };
136 /* WARNING: changing the size here might require changing the constant
137 * File_Attributes_Size in osint.ads (which should be big enough to
138 * fit the above struct on any system)
139 */
140
141 extern int __gnat_max_path_len;
142 extern OS_Time __gnat_current_time (void);
143 extern void __gnat_current_time_string (char *);
144 extern void __gnat_to_gm_time (OS_Time *, int *, int *,
145 int *, int *,
146 int *, int *);
147 extern void __gnat_to_os_time (OS_Time *, int, int, int,
148 int, int, int);
149 extern int __gnat_get_maximum_file_name_length (void);
150 extern int __gnat_get_switches_case_sensitive (void);
151 extern int __gnat_get_file_names_case_sensitive (void);
152 extern int __gnat_get_env_vars_case_sensitive (void);
153 extern char __gnat_get_default_identifier_character_set (void);
154 extern void __gnat_get_current_dir (char *, int *);
155 extern void __gnat_get_object_suffix_ptr (int *,
156 const char **);
157 extern void __gnat_get_executable_suffix_ptr (int *,
158 const char **);
159 extern void __gnat_get_debuggable_suffix_ptr (int *,
160 const char **);
161 extern int __gnat_readlink (char *, char *,
162 size_t);
163 extern int __gnat_symlink (char *, char *);
164 extern int __gnat_try_lock (char *, char *);
165 extern int __gnat_open_new (char *, int);
166 extern int __gnat_open_new_temp (char *, int);
167 extern int __gnat_mkdir (char *, int);
168 extern int __gnat_stat (char *,
169 GNAT_STRUCT_STAT *);
170 extern int __gnat_unlink (char *);
171 extern int __gnat_rename (char *, char *);
172 extern int __gnat_chdir (char *);
173 extern int __gnat_rmdir (char *);
174
175 extern FILE *__gnat_fopen (char *, char *, int);
176 extern FILE *__gnat_freopen (char *, char *, FILE *,
177 int);
178 extern int __gnat_open (char *, int);
179 extern int __gnat_open_read (char *, int);
180 extern int __gnat_open_rw (char *, int);
181 extern int __gnat_open_create (char *, int);
182 extern int __gnat_create_output_file (char *);
183 extern int __gnat_create_output_file_new (char *);
184
185 extern int __gnat_open_append (char *, int);
186 extern long __gnat_file_length_long (int);
187 extern __int64 __gnat_file_length (int);
188 extern __int64 __gnat_named_file_length (char *);
189 extern void __gnat_tmp_name (char *);
190 extern DIR *__gnat_opendir (char *);
191 extern char *__gnat_readdir (DIR *, char *, int *);
192 extern int __gnat_closedir (DIR *);
193 extern int __gnat_readdir_is_thread_safe (void);
194
195 extern OS_Time __gnat_file_time_name (char *);
196 extern OS_Time __gnat_file_time_fd (int);
197 /* return -1 in case of error */
198
199 extern void __gnat_set_file_time_name (char *, time_t);
200
201 extern int __gnat_dup (int);
202 extern int __gnat_dup2 (int, int);
203 extern int __gnat_file_exists (char *);
204 extern int __gnat_is_regular_file (char *);
205 extern int __gnat_is_absolute_path (char *,int);
206 extern int __gnat_is_directory (char *);
207 extern int __gnat_is_writable_file (char *);
208 extern int __gnat_is_readable_file (char *name);
209 extern int __gnat_is_executable_file (char *name);
210
211 extern void __gnat_reset_attributes (struct file_attributes *);
212 extern int __gnat_error_attributes (struct file_attributes *);
213 extern __int64 __gnat_file_length_attr (int, char *, struct file_attributes *);
214 extern OS_Time __gnat_file_time_name_attr (char *, struct file_attributes *);
215 extern OS_Time __gnat_file_time_fd_attr (int, struct file_attributes *);
216 extern int __gnat_file_exists_attr (char *, struct file_attributes *);
217 extern int __gnat_is_regular_file_attr (char *, struct file_attributes *);
218 extern int __gnat_is_directory_attr (char *, struct file_attributes *);
219 extern int __gnat_is_readable_file_attr (char *, struct file_attributes *);
220 extern int __gnat_is_writable_file_attr (char *, struct file_attributes *);
221 extern int __gnat_is_executable_file_attr (char *, struct file_attributes *);
222 extern int __gnat_is_symbolic_link_attr (char *, struct file_attributes *);
223
224 extern void __gnat_set_non_writable (char *name);
225 extern void __gnat_set_writable (char *name);
226 extern void __gnat_set_executable (char *name, int);
227 extern void __gnat_set_readable (char *name);
228 extern void __gnat_set_non_readable (char *name);
229 extern int __gnat_is_symbolic_link (char *name);
230 extern int __gnat_portable_spawn (char *[]);
231 extern int __gnat_portable_no_block_spawn (char *[]);
232 extern int __gnat_portable_wait (int *);
233 extern int __gnat_current_process_id (void);
234 extern char *__gnat_locate_exec (char *, char *);
235 extern char *__gnat_locate_exec_on_path (char *);
236 extern char *__gnat_locate_regular_file (char *, char *);
237 extern void __gnat_maybe_glob_args (int *, char ***);
238 extern void __gnat_os_exit (int);
239 extern char *__gnat_get_libraries_from_registry (void);
240 extern int __gnat_to_canonical_file_list_init (char *, int);
241 extern char *__gnat_to_canonical_file_list_next (void);
242 extern void __gnat_to_canonical_file_list_free (void);
243 extern char *__gnat_to_canonical_dir_spec (char *, int);
244 extern char *__gnat_to_canonical_file_spec (char *);
245 extern char *__gnat_to_host_dir_spec (char *, int);
246 extern char *__gnat_to_host_file_spec (char *);
247 extern char *__gnat_to_canonical_path_spec (char *);
248 extern void __gnat_adjust_os_resource_limits (void);
249 extern void convert_addresses (const char *, void *, int,
250 void *, int *);
251 extern int __gnat_copy_attribs (char *, char *, int);
252 extern int __gnat_feof (FILE *);
253 extern int __gnat_ferror (FILE *);
254 extern int __gnat_fileno (FILE *);
255 extern int __gnat_is_regular_file_fd (int);
256 extern FILE *__gnat_constant_stderr (void);
257 extern FILE *__gnat_constant_stdin (void);
258 extern FILE *__gnat_constant_stdout (void);
259 extern char *__gnat_full_name (char *, char *);
260
261 extern int __gnat_arg_count (void);
262 extern int __gnat_len_arg (int);
263 extern void __gnat_fill_arg (char *, int);
264 extern int __gnat_env_count (void);
265 extern int __gnat_len_env (int);
266 extern void __gnat_fill_env (char *, int);
267
268 /* Routines for interface to scanf and printf functions for integer values */
269
270 extern int get_int (void);
271 extern void put_int (int);
272 extern void put_int_stderr (int);
273 extern int get_char (void);
274 extern void put_char (int);
275 extern void put_char_stderr (int);
276 extern char *mktemp (char *);
277
278 extern void __gnat_set_exit_status (int);
279
280 extern int __gnat_expect_fork (void);
281 extern void __gnat_expect_portable_execvp (char *, char *[]);
282 extern int __gnat_pipe (int *);
283 extern int __gnat_expect_poll (int *, int, int, int *);
284 extern void __gnat_set_binary_mode (int);
285 extern void __gnat_set_text_mode (int);
286 extern void __gnat_set_mode (int,int);
287 extern char *__gnat_ttyname (int);
288 extern int __gnat_lseek (int, long, int);
289 extern int __gnat_set_close_on_exec (int, int);
290 extern int __gnat_dup (int);
291 extern int __gnat_dup2 (int, int);
292
293 /* large file support */
294 extern __int64 __gnat_ftell64 (FILE *);
295 extern int __gnat_fseek64 (FILE *, __int64, int);
296
297 extern int __gnat_number_of_cpus (void);
298
299 extern void __gnat_os_filename (char *, char *, char *,
300 int *, char *, int *);
301
302 extern char * __gnat_locate_executable_file (char *, char *);
303 extern char * __gnat_locate_file_with_predicate (char *, char *,
304 int (*)(char*));
305
306 #if defined (__ANDROID__)
307 #undef __linux__
308 extern void *__gnat_lwp_self (void);
309
310 #elif defined (__linux__)
311 extern void *__gnat_lwp_self (void);
312
313 /* Routines for interface to required CPU set primitives */
314
315 #include <sched.h>
316
317 extern cpu_set_t *__gnat_cpu_alloc (size_t);
318 extern size_t __gnat_cpu_alloc_size (size_t);
319 extern void __gnat_cpu_free (cpu_set_t *);
320 extern void __gnat_cpu_zero (size_t, cpu_set_t *);
321 extern void __gnat_cpu_set (int, size_t, cpu_set_t *);
322 #endif
323
324 #if defined (_WIN32)
325 /* Interface to delete a handle from internally maintained list of child
326 process handles on Windows */
327 extern int
328 __gnat_win32_remove_handle (HANDLE h, int pid);
329 #endif
330
331 #ifdef IN_RTS
332 /* Portable definition of strdup, which is not available on all systems. */
333 #define xstrdup(S) strcpy ((char *) malloc (strlen (S) + 1), S)
334 #endif
335
336 /* This function returns the version of GCC being used. Here it's GCC 3. */
337 extern int get_gcc_version (void);
338
339 extern int __gnat_binder_supports_auto_init (void);
340 extern int __gnat_sals_init_using_constructors (void);
341
342 extern const void * __gnat_get_executable_load_address (void);
343
344 #ifdef __cplusplus
345 }
346 #endif
Mirror of the offical gcc git repository hosted at gcc.gnu.org