[thirdparty/gcc.git] / gcc / ada / adaint.h

/****************************************************************************
 *                                                                          *
 *                         GNAT COMPILER COMPONENTS                         *
 *                                                                          *
 *                               A D A I N T                                *
 *                                                                          *
 *                              C Header File                               *
 *                                                                          *
 *          Copyright (C) 1992-2020, Free Software Foundation, Inc.         *
 *                                                                          *
 * GNAT is free software;  you can  redistribute it  and/or modify it under *
 * terms of the  GNU General Public License as published  by the Free Soft- *
 * ware  Foundation;  either version 3,  or (at your option) any later ver- *
 * sion.  GNAT is distributed in the hope that it will be useful, but WITH- *
 * OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY *
 * or FITNESS FOR A PARTICULAR PURPOSE.                                     *
 *                                                                          *
 * As a special exception under Section 7 of GPL version 3, you are granted *
 * additional permissions described in the GCC Runtime Library Exception,   *
 * version 3.1, as published by the Free Software Foundation.               *
 *                                                                          *
 * You should have received a copy of the GNU General Public License and    *
 * a copy of the GCC Runtime Library Exception along with this program;     *
 * see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    *
 * <http://www.gnu.org/licenses/>.                                          *
 *                                                                          *
 * GNAT was originally developed  by the GNAT team at  New York University. *
 * Extensive contributions were provided by Ada Core Technologies Inc.      *
 *                                                                          *
 ****************************************************************************/

#ifdef __cplusplus
extern "C" {
#endif

#include <sys/stat.h>
#include <stdio.h>

#if defined (_WIN32) || defined (__CYGWIN__)
#include "mingw32.h"
#endif

#include <dirent.h>

/*  Constants used for the form parameter encoding values  */
#define Encoding_UTF8 0         /* UTF-8 */
#define Encoding_8bits 1        /* Standard 8bits, CP_ACP on Windows. */
#define Encoding_Unspecified 2  /* Based on GNAT_CODE_PAGE env variable. */

/* Large file support. It is unclear what portable mechanism we can use to
   determine at compile time what support the system offers for large files.
   For now we just list the platforms we have manually tested. */

#if (defined (__GLIBC__) && !defined(STANDALONE)) || defined (__sun__) || defined (__QNX__)
#define GNAT_FOPEN fopen64
#define GNAT_OPEN open64
#define GNAT_STAT stat64
#define GNAT_FSTAT fstat64
#define GNAT_LSTAT lstat64
#define GNAT_STRUCT_STAT struct stat64

#elif defined(_WIN32)
#define GNAT_FOPEN fopen64
#define GNAT_OPEN open
#define GNAT_STAT stat64
#define GNAT_FSTAT fstat64
#define GNAT_LSTAT lstat
#define GNAT_STRUCT_STAT struct stat64

#elif defined(__APPLE__)

# include <TargetConditionals.h>

# if TARGET_IPHONE_SIMULATOR
  /* On iOS (simulator or not), the stat structure is the 64 bit one.
     But the simulator uses the MacOS X syscalls that aren't 64 bit.
     Fix this interfacing issue here.  */
    int fstat64(int, struct stat *);
    int stat64(const char *, struct stat *);
    int lstat64(const char *, struct stat *);
#   define GNAT_STAT stat64
#   define GNAT_FSTAT fstat64
#   define GNAT_LSTAT lstat64
# else
#   define GNAT_STAT stat
#   define GNAT_FSTAT fstat
#   define GNAT_LSTAT lstat
# endif

#   define GNAT_FOPEN fopen
#   define GNAT_OPEN open
#   define GNAT_STRUCT_STAT struct stat

#else
#define GNAT_FOPEN fopen
#define GNAT_OPEN open
#define GNAT_STAT stat
#define GNAT_FSTAT fstat
#define GNAT_LSTAT lstat
#define GNAT_STRUCT_STAT struct stat
#endif

/* Type corresponding to GNAT.OS_Lib.OS_Time */
#if defined (_WIN64)
typedef long long OS_Time;
#else
typedef long OS_Time;
#endif

#define __int64 long long
GNAT_STRUCT_STAT;

/* A lazy cache for the attributes of a file. On some systems, a single call to
   stat() will give all this information, so it is better than doing a system
   call every time. On other systems this require several system calls.
*/

struct file_attributes {
  int           error;
  /* Errno value returned by stat()/fstat(). If non-zero, other fields should
   * be considered as invalid.
   */

  unsigned char exists;

  unsigned char writable;
  unsigned char readable;
  unsigned char executable;

  unsigned char symbolic_link;
  unsigned char regular;
  unsigned char directory;

  OS_Time timestamp;
  __int64 file_length;
};
/* WARNING: changing the size here might require changing the constant
 * File_Attributes_Size in osint.ads (which should be big enough to
 * fit the above struct on any system)
 */

extern int    __gnat_max_path_len;
extern OS_Time __gnat_current_time		   (void);
extern void   __gnat_current_time_string           (char *);
extern void   __gnat_to_gm_time			   (OS_Time *, int *, int *,
				                    int *, int *,
				                    int *, int *);
extern void   __gnat_to_os_time                    (OS_Time *, int, int, int,
                                                    int, int, int);
extern int    __gnat_get_maximum_file_name_length  (void);
extern int    __gnat_get_switches_case_sensitive   (void);
extern int    __gnat_get_file_names_case_sensitive (void);
extern int    __gnat_get_env_vars_case_sensitive   (void);
extern char   __gnat_get_default_identifier_character_set (void);
extern void   __gnat_get_current_dir		   (char *, int *);
extern void   __gnat_get_object_suffix_ptr         (int *,
						    const char **);
extern void   __gnat_get_executable_suffix_ptr     (int *,
						    const char **);
extern void   __gnat_get_debuggable_suffix_ptr     (int *,
						    const char **);
extern int    __gnat_readlink			   (char *, char *,
						    size_t);
extern int    __gnat_symlink                       (char *, char *);
extern int    __gnat_try_lock                      (char *, char *);
extern int    __gnat_open_new                      (char *, int);
extern int    __gnat_open_new_temp		   (char *, int);
extern int    __gnat_mkdir			   (char *, int);
extern int    __gnat_stat			   (char *,
						    GNAT_STRUCT_STAT *);
extern int    __gnat_unlink                        (char *);
extern int    __gnat_rename                        (char *, char *);
extern int    __gnat_chdir                         (char *);
extern int    __gnat_rmdir                         (char *);

extern FILE  *__gnat_fopen			   (char *, char *, int);
extern FILE  *__gnat_freopen			   (char *, char *, FILE *,
				                    int);
extern int    __gnat_open                          (char *, int);
extern int    __gnat_open_read                     (char *, int);
extern int    __gnat_open_rw                       (char *, int);
extern int    __gnat_open_create                   (char *, int);
extern int    __gnat_create_output_file            (char *);
extern int    __gnat_create_output_file_new        (char *);

extern int    __gnat_open_append                   (char *, int);
extern long   __gnat_file_length_long              (int);
extern __int64 __gnat_file_length                  (int);
extern __int64 __gnat_named_file_length            (char *);
extern void   __gnat_tmp_name			   (char *);
extern DIR   *__gnat_opendir                       (char *);
extern char  *__gnat_readdir                       (DIR *, char *, int *);
extern int    __gnat_closedir                      (DIR *);
extern int    __gnat_readdir_is_thread_safe        (void);

extern OS_Time __gnat_file_time_name                (char *);
extern OS_Time __gnat_file_time_fd                  (int);
/* return -1 in case of error */

extern void   __gnat_set_file_time_name		   (char *, time_t);

extern int    __gnat_dup			            (int);
extern int    __gnat_dup2			            (int, int);
extern int    __gnat_file_exists		         (char *);
extern int    __gnat_is_regular_file         (char *);
extern int    __gnat_is_absolute_path        (char *,int);
extern int    __gnat_is_directory		      (char *);
extern int    __gnat_is_writable_file		   (char *);
extern int    __gnat_is_readable_file		   (char *name);
extern int    __gnat_is_executable_file      (char *name);
extern int    __gnat_is_write_accessible_file	(char *name);
extern int    __gnat_is_read_accessible_file	(char *name);

extern void   __gnat_reset_attributes (struct file_attributes *);
extern int    __gnat_error_attributes (struct file_attributes *);
extern __int64 __gnat_file_length_attr       (int, char *, struct file_attributes *);
extern OS_Time __gnat_file_time_name_attr    (char *, struct file_attributes *);
extern OS_Time __gnat_file_time_fd_attr      (int,    struct file_attributes *);
extern int    __gnat_file_exists_attr        (char *, struct file_attributes *);
extern int    __gnat_is_regular_file_attr    (char *, struct file_attributes *);
extern int    __gnat_is_directory_attr       (char *, struct file_attributes *);
extern int    __gnat_is_readable_file_attr   (char *, struct file_attributes *);
extern int    __gnat_is_writable_file_attr   (char *, struct file_attributes *);
extern int    __gnat_is_executable_file_attr (char *, struct file_attributes *);
extern int    __gnat_is_symbolic_link_attr   (char *, struct file_attributes *);

extern void   __gnat_set_non_writable              (char *name);
extern void   __gnat_set_writable                  (char *name);
extern void   __gnat_set_executable                (char *name, int);
extern void   __gnat_set_readable                  (char *name);
extern void   __gnat_set_non_readable              (char *name);
extern int    __gnat_is_symbolic_link		   (char *name);
extern int    __gnat_portable_spawn                (char *[]);
extern int    __gnat_portable_no_block_spawn       (char *[]);
extern int    __gnat_portable_wait                 (int *);
extern int    __gnat_portable_no_block_wait        (int *);
extern int    __gnat_current_process_id            (void);
extern char  *__gnat_locate_exec                   (char *, char *);
extern char  *__gnat_locate_exec_on_path           (char *);
extern char  *__gnat_locate_regular_file           (char *, char *);
extern void   __gnat_maybe_glob_args               (int *, char ***);
extern void   __gnat_os_exit			   (int);
extern char  *__gnat_get_libraries_from_registry   (void);
extern int    __gnat_to_canonical_file_list_init   (char *, int);
extern char  *__gnat_to_canonical_file_list_next   (void);
extern void   __gnat_to_canonical_file_list_free   (void);
extern char  *__gnat_to_canonical_dir_spec         (char *, int);
extern char  *__gnat_to_canonical_file_spec        (char *);
extern char  *__gnat_to_host_dir_spec              (char *, int);
extern char  *__gnat_to_host_file_spec             (char *);
extern char  *__gnat_to_canonical_path_spec	   (char *);
extern void   __gnat_adjust_os_resource_limits	   (void);
extern void   convert_addresses			   (const char *, void *, int,
						    void *, int *);
extern int    __gnat_copy_attribs		   (char *, char *, int);
extern int    __gnat_feof		  	   (FILE *);
extern int    __gnat_ferror                        (FILE *);
extern int    __gnat_fileno		  	   (FILE *);
extern int    __gnat_is_regular_file_fd  	   (int);
extern FILE  *__gnat_constant_stderr	  	   (void);
extern FILE  *__gnat_constant_stdin	  	   (void);
extern FILE  *__gnat_constant_stdout	  	   (void);
extern char  *__gnat_full_name		  	   (char *, char *);

extern int    __gnat_arg_count			   (void);
extern int    __gnat_len_arg			   (int);
extern void   __gnat_fill_arg			   (char *, int);
extern int    __gnat_env_count			   (void);
extern int    __gnat_len_env			   (int);
extern void   __gnat_fill_env			   (char *, int);

/* Routines for interface to scanf and printf functions for integer values */

extern int    get_int				   (void);
extern void   put_int				   (int);
extern void   put_int_stderr			   (int);
extern int    get_char				   (void);
extern void   put_char				   (int);
extern void   put_char_stderr			   (int);
extern char  *mktemp				   (char *);

extern void   __gnat_set_exit_status		   (int);

extern int    __gnat_expect_fork		   (void);
extern void   __gnat_expect_portable_execvp	   (char *, char *[]);
extern int    __gnat_pipe			   (int *);
extern int    __gnat_expect_poll		   (int *, int, int, int *);
extern void   __gnat_set_binary_mode		   (int);
extern void   __gnat_set_text_mode		   (int);
extern void   __gnat_set_mode			   (int,int);
extern char  *__gnat_ttyname			   (int);
extern int    __gnat_lseek			   (int, long, int);
extern int    __gnat_set_close_on_exec		   (int, int);
extern int    __gnat_dup			   (int);
extern int    __gnat_dup2			   (int, int);

/* large file support */
extern __int64 __gnat_ftell64                      (FILE *);
extern int     __gnat_fseek64                      (FILE *, __int64, int);

extern int    __gnat_number_of_cpus                (void);

extern void   __gnat_os_filename                   (char *, char *, char *,
						    int *, char *, int *);

extern char * __gnat_locate_executable_file        (char *, char *);
extern char * __gnat_locate_file_with_predicate    (char *, char *,
						    int (*)(char*));

#if defined (__ANDROID__)
#undef __linux__
extern void   *__gnat_lwp_self                     (void);

#elif defined (__linux__)
extern void   *__gnat_lwp_self			   (void);

/* Routines for interface to required CPU set primitives */

#include <sched.h>

extern cpu_set_t *__gnat_cpu_alloc                 (size_t);
extern size_t __gnat_cpu_alloc_size                (size_t);
extern void   __gnat_cpu_free                  (cpu_set_t *);
extern void   __gnat_cpu_zero                      (size_t, cpu_set_t *);
extern void   __gnat_cpu_set                       (int, size_t, cpu_set_t *);
#endif

#if defined (_WIN32)
/* Interface to delete a handle from internally maintained list of child
   process handles on Windows */
extern int
__gnat_win32_remove_handle (HANDLE h, int pid);
#endif

#ifdef IN_RTS
/* Portable definition of strdup, which is not available on all systems.  */
#define xstrdup(S)  strcpy ((char *) malloc (strlen (S) + 1), S)
#endif

/* This function returns the version of GCC being used.  Here it's GCC 3.  */
extern int    get_gcc_version                      (void);

extern int    __gnat_binder_supports_auto_init     (void);
extern int    __gnat_sals_init_using_constructors  (void);

extern const void * __gnat_get_executable_load_address  (void);

#ifdef __cplusplus
}
#endif
Commit	Line	Data
d23b8f57 RK	1	/****************************************************************************
	2	* *
	3	* GNAT COMPILER COMPONENTS *
	4	* *
	5	* A D A I N T *
	6	* *
d23b8f57 RK	7	* C Header File *
d23b8f57 RK	8	* *
4b490c1e	9	* Copyright (C) 1992-2020, 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- *
748086b7	13	* ware Foundation; either version 3, or (at your option) any later ver- *
d23b8f57 RK	14	* sion. GNAT is distributed in the hope that it will be useful, but WITH- *
d23b8f57 RK	15	* OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
748086b7 JJ	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/>. *
d23b8f57 RK	26	* *
d23b8f57 RK	27	* GNAT was originally developed by the GNAT team at New York University. *
71ff80dc	28	* Extensive contributions were provided by Ada Core Technologies Inc. *
d23b8f57 RK	29	* *
	30	****************************************************************************/
	31
9e9bd455 LG	32	#ifdef __cplusplus
	33	extern "C" {
	34	#endif
	35
0022d9e3	36	#include <sys/stat.h>
c4039eb0	37	#include <stdio.h>
0022d9e3	38
7e8338d8	39	#if defined (_WIN32) \|\| defined (__CYGWIN__)
0022d9e3 PO	40	#include "mingw32.h"
	41	#endif
	42
d23b8f57 RK	43	#include <dirent.h>
d23b8f57 RK	44
fa5537cb	45	/* Constants used for the form parameter encoding values */
ffec8e81 AC	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. */
fa5537cb	49
8d12c865 RD	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. */
03456e44	53
a6fc663e	54	#if (defined (__GLIBC__) && !defined(STANDALONE)) \|\| defined (__sun__) \|\| defined (__QNX__)
f6c7fcc0	55	#define GNAT_FOPEN fopen64
2b9fbec9	56	#define GNAT_OPEN open64
f6c7fcc0 DK	57	#define GNAT_STAT stat64
	58	#define GNAT_FSTAT fstat64
	59	#define GNAT_LSTAT lstat64
	60	#define GNAT_STRUCT_STAT struct stat64
24228312 AC	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
be035558 AC	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
03456e44	94	#else
f6c7fcc0	95	#define GNAT_FOPEN fopen
2b9fbec9	96	#define GNAT_OPEN open
f6c7fcc0 DK	97	#define GNAT_STAT stat
	98	#define GNAT_FSTAT fstat
	99	#define GNAT_LSTAT lstat
	100	#define GNAT_STRUCT_STAT struct stat
03456e44 AC	101	#endif
03456e44 AC	102
ae65d635 AC	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
d23b8f57	109
fd7215d7	110	#define __int64 long long
be42aa71	111	GNAT_STRUCT_STAT;
fd7215d7	112
48263c9a EB	113	/* A lazy cache for the attributes of a file. On some systems, a single call to
	114	stat() will give all this information, so it is better than doing a system
	115	call every time. On other systems this require several system calls.
	116	*/
	117
	118	struct file_attributes {
c6d2191a AC	119	int error;
	120	/* Errno value returned by stat()/fstat(). If non-zero, other fields should
	121	* be considered as invalid.
	122	*/
	123
96867674	124	unsigned char exists;
48263c9a	125
96867674 AC	126	unsigned char writable;
	127	unsigned char readable;
	128	unsigned char executable;
48263c9a	129
96867674 AC	130	unsigned char symbolic_link;
	131	unsigned char regular;
	132	unsigned char directory;
48263c9a EB	133
48263c9a EB	134	OS_Time timestamp;
148c744a	135	__int64 file_length;
48263c9a EB	136	};
	137	/* WARNING: changing the size here might require changing the constant
	138	* File_Attributes_Size in osint.ads (which should be big enough to
	139	* fit the above struct on any system)
	140	*/
	141
fbf5a39b	142	extern int __gnat_max_path_len;
fa5537cb	143	extern OS_Time __gnat_current_time (void);
9392454c	144	extern void __gnat_current_time_string (char *);
d7598e11 PO	145	extern void __gnat_to_gm_time (OS_Time , int , int *,
	146	int , int ,
	147	int , int );
c3d01e19 PO	148	extern void __gnat_to_os_time (OS_Time *, int, int, int,
c3d01e19 PO	149	int, int, int);
fbf5a39b AC	150	extern int __gnat_get_maximum_file_name_length (void);
	151	extern int __gnat_get_switches_case_sensitive (void);
	152	extern int __gnat_get_file_names_case_sensitive (void);
0e35524d	153	extern int __gnat_get_env_vars_case_sensitive (void);
fbf5a39b AC	154	extern char __gnat_get_default_identifier_character_set (void);
	155	extern void __gnat_get_current_dir (char , int );
	156	extern void __gnat_get_object_suffix_ptr (int *,
	157	const char **);
	158	extern void __gnat_get_executable_suffix_ptr (int *,
	159	const char **);
	160	extern void __gnat_get_debuggable_suffix_ptr (int *,
	161	const char **);
	162	extern int __gnat_readlink (char , char ,
	163	size_t);
	164	extern int __gnat_symlink (char , char );
	165	extern int __gnat_try_lock (char , char );
	166	extern int __gnat_open_new (char *, int);
	167	extern int __gnat_open_new_temp (char *, int);
e01934b7	168	extern int __gnat_mkdir (char *, int);
fbf5a39b	169	extern int __gnat_stat (char *,
f6c7fcc0	170	GNAT_STRUCT_STAT *);
991395ab AC	171	extern int __gnat_unlink (char *);
991395ab AC	172	extern int __gnat_rename (char , char );
4e0079cc	173	extern int __gnat_chdir (char *);
468ee337	174	extern int __gnat_rmdir (char *);
991395ab	175
4d49c6e1	176	extern FILE __gnat_fopen (char , char *, int);
d7598e11	177	extern FILE __gnat_freopen (char , char , FILE ,
4d49c6e1	178	int);
479f9059	179	extern int __gnat_open (char *, int);
fbf5a39b AC	180	extern int __gnat_open_read (char *, int);
	181	extern int __gnat_open_rw (char *, int);
	182	extern int __gnat_open_create (char *, int);
e6f69614	183	extern int __gnat_create_output_file (char *);
fb468a94 AC	184	extern int __gnat_create_output_file_new (char *);
fb468a94 AC	185
fbf5a39b	186	extern int __gnat_open_append (char *, int);
935a9145	187	extern long __gnat_file_length_long (int);
148c744a PO	188	extern __int64 __gnat_file_length (int);
148c744a PO	189	extern __int64 __gnat_named_file_length (char *);
fbf5a39b	190	extern void __gnat_tmp_name (char *);
0022d9e3 PO	191	extern DIR __gnat_opendir (char );
	192	extern char __gnat_readdir (DIR , char , int );
	193	extern int __gnat_closedir (DIR *);
fbf5a39b	194	extern int __gnat_readdir_is_thread_safe (void);
aa720a54 AC	195
	196	extern OS_Time __gnat_file_time_name (char *);
	197	extern OS_Time __gnat_file_time_fd (int);
	198	/* return -1 in case of error */
	199
fbf5a39b	200	extern void __gnat_set_file_time_name (char *, time_t);
0022d9e3	201
48263c9a EB	202	extern int __gnat_dup (int);
	203	extern int __gnat_dup2 (int, int);
	204	extern int __gnat_file_exists (char *);
	205	extern int __gnat_is_regular_file (char *);
	206	extern int __gnat_is_absolute_path (char *,int);
	207	extern int __gnat_is_directory (char *);
fbf5a39b AC	208	extern int __gnat_is_writable_file (char *);
fbf5a39b AC	209	extern int __gnat_is_readable_file (char *name);
48263c9a	210	extern int __gnat_is_executable_file (char *name);
0640c7d1 AC	211	extern int __gnat_is_write_accessible_file (char *name);
0640c7d1 AC	212	extern int __gnat_is_read_accessible_file (char *name);
48263c9a	213
c6d2191a AC	214	extern void __gnat_reset_attributes (struct file_attributes *);
c6d2191a AC	215	extern int __gnat_error_attributes (struct file_attributes *);
148c744a	216	extern __int64 __gnat_file_length_attr (int, char , struct file_attributes );
48263c9a EB	217	extern OS_Time __gnat_file_time_name_attr (char , struct file_attributes );
	218	extern OS_Time __gnat_file_time_fd_attr (int, struct file_attributes *);
	219	extern int __gnat_file_exists_attr (char , struct file_attributes );
	220	extern int __gnat_is_regular_file_attr (char , struct file_attributes );
	221	extern int __gnat_is_directory_attr (char , struct file_attributes );
	222	extern int __gnat_is_readable_file_attr (char , struct file_attributes );
	223	extern int __gnat_is_writable_file_attr (char , struct file_attributes );
	224	extern int __gnat_is_executable_file_attr (char , struct file_attributes );
	225	extern int __gnat_is_symbolic_link_attr (char , struct file_attributes );
	226
8b79ad42	227	extern void __gnat_set_non_writable (char *name);
fbf5a39b	228	extern void __gnat_set_writable (char *name);
d2d8b2a7	229	extern void __gnat_set_executable (char *name, int);
43540ec6 AC	230	extern void __gnat_set_readable (char *name);
43540ec6 AC	231	extern void __gnat_set_non_readable (char *name);
fbf5a39b AC	232	extern int __gnat_is_symbolic_link (char *name);
	233	extern int __gnat_portable_spawn (char *[]);
	234	extern int __gnat_portable_no_block_spawn (char *[]);
	235	extern int __gnat_portable_wait (int *);
36357cf3	236	extern int __gnat_portable_no_block_wait (int *);
876f1624	237	extern int __gnat_current_process_id (void);
fbf5a39b	238	extern char __gnat_locate_exec (char , char *);
876f1624	239	extern char __gnat_locate_exec_on_path (char );
fbf5a39b AC	240	extern char __gnat_locate_regular_file (char , char *);
	241	extern void __gnat_maybe_glob_args (int , char **);
	242	extern void __gnat_os_exit (int);
fbf5a39b AC	243	extern char *__gnat_get_libraries_from_registry (void);
	244	extern int __gnat_to_canonical_file_list_init (char *, int);
	245	extern char *__gnat_to_canonical_file_list_next (void);
	246	extern void __gnat_to_canonical_file_list_free (void);
	247	extern char __gnat_to_canonical_dir_spec (char , int);
	248	extern char __gnat_to_canonical_file_spec (char );
	249	extern char __gnat_to_host_dir_spec (char , int);
	250	extern char __gnat_to_host_file_spec (char );
	251	extern char __gnat_to_canonical_path_spec (char );
	252	extern void __gnat_adjust_os_resource_limits (void);
fa5537cb	253	extern void convert_addresses (const char , void , int,
fbf5a39b AC	254	void , int );
	255	extern int __gnat_copy_attribs (char , char , int);
	256	extern int __gnat_feof (FILE *);
	257	extern int __gnat_ferror (FILE *);
	258	extern int __gnat_fileno (FILE *);
	259	extern int __gnat_is_regular_file_fd (int);
	260	extern FILE *__gnat_constant_stderr (void);
	261	extern FILE *__gnat_constant_stdin (void);
	262	extern FILE *__gnat_constant_stdout (void);
	263	extern char __gnat_full_name (char , char *);
d23b8f57	264
fbf5a39b AC	265	extern int __gnat_arg_count (void);
	266	extern int __gnat_len_arg (int);
	267	extern void __gnat_fill_arg (char *, int);
	268	extern int __gnat_env_count (void);
	269	extern int __gnat_len_env (int);
	270	extern void __gnat_fill_env (char *, int);
d23b8f57 RK	271
	272	/* Routines for interface to scanf and printf functions for integer values */
	273
fbf5a39b AC	274	extern int get_int (void);
	275	extern void put_int (int);
	276	extern void put_int_stderr (int);
	277	extern int get_char (void);
	278	extern void put_char (int);
	279	extern void put_char_stderr (int);
	280	extern char mktemp (char );
d23b8f57	281
fbf5a39b	282	extern void __gnat_set_exit_status (int);
d23b8f57	283
fbf5a39b AC	284	extern int __gnat_expect_fork (void);
	285	extern void __gnat_expect_portable_execvp (char , char []);
	286	extern int __gnat_pipe (int *);
	287	extern int __gnat_expect_poll (int , int, int, int );
	288	extern void __gnat_set_binary_mode (int);
	289	extern void __gnat_set_text_mode (int);
18f2c460	290	extern void __gnat_set_mode (int,int);
fbf5a39b	291	extern char *__gnat_ttyname (int);
efdfd311	292	extern int __gnat_lseek (int, long, int);
cc892b2c	293	extern int __gnat_set_close_on_exec (int, int);
f5a0cbf1 AC	294	extern int __gnat_dup (int);
f5a0cbf1 AC	295	extern int __gnat_dup2 (int, int);
d23b8f57	296
fd7215d7 AC	297	/* large file support */
	298	extern __int64 __gnat_ftell64 (FILE *);
	299	extern int __gnat_fseek64 (FILE *, __int64, int);
	300
7a259f2e VC	301	extern int __gnat_number_of_cpus (void);
7a259f2e VC	302
d7598e11 PO	303	extern void __gnat_os_filename (char , char , char *,
d7598e11 PO	304	int , char , int *);
b7c9777e AC	305
	306	extern char * __gnat_locate_executable_file (char , char );
	307	extern char * __gnat_locate_file_with_predicate (char , char ,
	308	int ()(char));
	309
3c55062f	310	#if defined (__ANDROID__)
329be64b	311	#undef __linux__
3c55062f BB	312	extern void *__gnat_lwp_self (void);
3c55062f BB	313
329be64b	314	#elif defined (__linux__)
9549767b	315	extern void *__gnat_lwp_self (void);
6b81741c AC	316
	317	/* Routines for interface to required CPU set primitives */
	318
	319	#include <sched.h>
	320
9d1e0e72 JR	321	extern cpu_set_t *__gnat_cpu_alloc (size_t);
9d1e0e72 JR	322	extern size_t __gnat_cpu_alloc_size (size_t);
9f55bc62	323	extern void __gnat_cpu_free (cpu_set_t *);
9d1e0e72 JR	324	extern void __gnat_cpu_zero (size_t, cpu_set_t *);
9d1e0e72 JR	325	extern void __gnat_cpu_set (int, size_t, cpu_set_t *);
9549767b	326	#endif
d7598e11	327
75069667 VF	328	#if defined (_WIN32)
	329	/* Interface to delete a handle from internally maintained list of child
	330	process handles on Windows */
6c802906	331	extern int
75069667	332	__gnat_win32_remove_handle (HANDLE h, int pid);
fbf5a39b	333	#endif
437026ef	334
d23b8f57 RK	335	#ifdef IN_RTS
	336	/* Portable definition of strdup, which is not available on all systems. */
	337	#define xstrdup(S) strcpy ((char *) malloc (strlen (S) + 1), S)
	338	#endif
fbf5a39b AC	339
fbf5a39b AC	340	/* This function returns the version of GCC being used. Here it's GCC 3. */
d7598e11	341	extern int get_gcc_version (void);
fbf5a39b	342
d7598e11 PO	343	extern int __gnat_binder_supports_auto_init (void);
d7598e11 PO	344	extern int __gnat_sals_init_using_constructors (void);
9e9bd455	345
747412b8 AC	346	extern const void * __gnat_get_executable_load_address (void);
747412b8 AC	347
9e9bd455 LG	348	#ifdef __cplusplus
	349	}
	350	#endif