]> git.ipfire.org Git - thirdparty/gcc.git/blame - gcc/ada/adaint.h
projects / thirdparty / gcc.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
trans-array.c (gfc_conv_descriptor_data_get): Rename from gfc_conv_descriptor_data.
[thirdparty/gcc.git] / gcc / ada / adaint.h
CommitLineData
d23b8f57
RK		 1/****************************************************************************
2 * *
3 * GNAT COMPILER COMPONENTS *
4 * *
5 * A D A I N T *
6 * *
d23b8f57
RK		 7 * C Header File *
8 * *
cc892b2c 9 * Copyright (C) 1992-2005 Free Software Foundation, Inc. *
d23b8f57
RK		 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. *
71ff80dc 29 * Extensive contributions were provided by Ada Core Technologies Inc. *
d23b8f57
RK		 30 * *
31 ****************************************************************************/
32
c4039eb0 33#include <stdio.h>
d23b8f57
RK		 34#include <dirent.h>
35
fbf5a39b 36typedef long OS_Time; /* Type corresponding to GNAT.OS_Lib.OS_Time */
d23b8f57 37
fbf5a39b
AC		 38extern int __gnat_max_path_len;
39extern void __gnat_to_gm_time (OS_Time *, int *,
40 int *, int *,
41 int *, int *,
42 int *);
43extern int __gnat_get_maximum_file_name_length (void);
44extern int __gnat_get_switches_case_sensitive (void);
45extern int __gnat_get_file_names_case_sensitive (void);
46extern char __gnat_get_default_identifier_character_set (void);
47extern void __gnat_get_current_dir (char *, int *);
48extern void __gnat_get_object_suffix_ptr (int *,
49 const char **);
50extern void __gnat_get_executable_suffix_ptr (int *,
51 const char **);
52extern void __gnat_get_debuggable_suffix_ptr (int *,
53 const char **);
54extern int __gnat_readlink (char *, char *,
55 size_t);
56extern int __gnat_symlink (char *, char *);
57extern int __gnat_try_lock (char *, char *);
58extern int __gnat_open_new (char *, int);
59extern int __gnat_open_new_temp (char *, int);
60extern int __gnat_mkdir (char *);
61extern int __gnat_stat (char *,
62 struct stat *);
63extern int __gnat_open_read (char *, int);
64extern int __gnat_open_rw (char *, int);
65extern int __gnat_open_create (char *, int);
e6f69614 66extern int __gnat_create_output_file (char *);
fbf5a39b
AC		 67extern int __gnat_open_append (char *, int);
68extern long __gnat_file_length (int);
30c20106 69extern long __gnat_named_file_length (char *);
fbf5a39b
AC		 70extern void __gnat_tmp_name (char *);
71extern char *__gnat_readdir (DIR *, char *);
72extern int __gnat_readdir_is_thread_safe (void);
aa720a54
AC		 73
74extern OS_Time __gnat_file_time_name (char *);
75extern OS_Time __gnat_file_time_fd (int);
76/* return -1 in case of error */
77
fbf5a39b
AC		 78extern void __gnat_set_file_time_name (char *, time_t);
79extern void __gnat_get_env_value_ptr (char *, int *,
80 char **);
6a2b39bd
AC		 81extern int __gnat_dup (int);
82extern int __gnat_dup2 (int, int);
fbf5a39b
AC		 83extern int __gnat_file_exists (char *);
84extern int __gnat_is_regular_file (char *);
cc4f0de1 85extern int __gnat_is_absolute_path (char *,int);
fbf5a39b
AC		 86extern int __gnat_is_directory (char *);
87extern int __gnat_is_writable_file (char *);
88extern int __gnat_is_readable_file (char *name);
89extern void __gnat_set_readonly (char *name);
90extern void __gnat_set_writable (char *name);
7324bf49 91extern void __gnat_set_executable (char *name);
fbf5a39b
AC		 92extern int __gnat_is_symbolic_link (char *name);
93extern int __gnat_portable_spawn (char *[]);
94extern int __gnat_portable_no_block_spawn (char *[]);
95extern int __gnat_portable_wait (int *);
fbf5a39b
AC		 96extern char *__gnat_locate_exec (char *, char *);
97extern char *__gnat_locate_exec_on_path (char *);
98extern char *__gnat_locate_regular_file (char *, char *);
99extern void __gnat_maybe_glob_args (int *, char ***);
100extern void __gnat_os_exit (int);
101extern void __gnat_set_env_value (char *, char *);
102extern char *__gnat_get_libraries_from_registry (void);
103extern int __gnat_to_canonical_file_list_init (char *, int);
104extern char *__gnat_to_canonical_file_list_next (void);
105extern void __gnat_to_canonical_file_list_free (void);
106extern char *__gnat_to_canonical_dir_spec (char *, int);
107extern char *__gnat_to_canonical_file_spec (char *);
108extern char *__gnat_to_host_dir_spec (char *, int);
109extern char *__gnat_to_host_file_spec (char *);
110extern char *__gnat_to_canonical_path_spec (char *);
111extern void __gnat_adjust_os_resource_limits (void);
112extern void convert_addresses (void *, int,
113 void *, int *);
114extern int __gnat_copy_attribs (char *, char *, int);
115extern int __gnat_feof (FILE *);
116extern int __gnat_ferror (FILE *);
117extern int __gnat_fileno (FILE *);
118extern int __gnat_is_regular_file_fd (int);
119extern FILE *__gnat_constant_stderr (void);
120extern FILE *__gnat_constant_stdin (void);
121extern FILE *__gnat_constant_stdout (void);
122extern char *__gnat_full_name (char *, char *);
d23b8f57 123
fbf5a39b
AC		 124extern int __gnat_arg_count (void);
125extern int __gnat_len_arg (int);
126extern void __gnat_fill_arg (char *, int);
127extern int __gnat_env_count (void);
128extern int __gnat_len_env (int);
129extern void __gnat_fill_env (char *, int);
d23b8f57
RK		 130
131/* Routines for interface to scanf and printf functions for integer values */
132
fbf5a39b
AC		 133extern int get_int (void);
134extern void put_int (int);
135extern void put_int_stderr (int);
136extern int get_char (void);
137extern void put_char (int);
138extern void put_char_stderr (int);
139extern char *mktemp (char *);
d23b8f57 140
fbf5a39b 141extern void __gnat_set_exit_status (int);
d23b8f57 142
fbf5a39b
AC		 143extern int __gnat_expect_fork (void);
144extern void __gnat_expect_portable_execvp (char *, char *[]);
145extern int __gnat_pipe (int *);
146extern int __gnat_expect_poll (int *, int, int, int *);
147extern void __gnat_set_binary_mode (int);
148extern void __gnat_set_text_mode (int);
149extern char *__gnat_ttyname (int);
efdfd311 150extern int __gnat_lseek (int, long, int);
cc892b2c 151extern int __gnat_set_close_on_exec (int, int);
f5a0cbf1
AC		 152extern int __gnat_dup (int);
153extern int __gnat_dup2 (int, int);
d23b8f57 154
fbf5a39b
AC		 155#ifdef __MINGW32__
156extern void __gnat_plist_init (void);
157#endif
437026ef 158
d23b8f57
RK		 159#ifdef IN_RTS
160/* Portable definition of strdup, which is not available on all systems. */
161#define xstrdup(S) strcpy ((char *) malloc (strlen (S) + 1), S)
162#endif
fbf5a39b
AC		 163
164/* This function returns the version of GCC being used. Here it's GCC 3. */
165extern int get_gcc_version (void);
166
167/* This function offers a hook for libgnarl to set the
168 locking subprograms for libgcc_eh. */
169extern void __gnatlib_install_locks (void (*) (void),
170 void (*) (void));
Mirror of https://gcc.gnu.org/git/gcc.git