1 /****************************************************************************
2 * *
3 * GNAT COMPILER COMPONENTS *
4 * *
5 * A R G V *
6 * *
7 * C Implementation File *
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 for accessing command line arguments from both the runtime
34 library and from the compiler itself. In the former case, gnat_argc
35 and gnat_argv are the original argc and argv values as stored by the
36 binder generated main program, and these routines are accessed from
37 the Ada.Command_Line package. In the compiler case, gnat_argc and
38 gnat_argv are the values as modified by toplev, and these routines
39 are accessed from the Osint package. */
40
41 /* Also routines for accessing the environment from the runtime library.
42 Gnat_envp is the original envp value as stored by the binder generated
43 main program, and these routines are accessed from the
44 Ada.Command_Line.Environment package. */
45
46 #ifdef IN_RTS
47 #include "tconfig.h"
48 #include "tsystem.h"
49 #include <sys/stat.h>
50 #else
51 #include "config.h"
52 #include "system.h"
53 #endif
54
55 #include "adaint.h"
56
57 /* argc and argv of the main program are saved under gnat_argc and gnat_argv,
58 envp of the main program is saved under gnat_envp. */
59
60 int gnat_argc = 0;
61 const char **gnat_argv = (const char **) 0;
62 const char **gnat_envp = (const char **) 0;
63
64 #ifdef _WIN32
65 /* Note that on Windows environment the environ point to a buffer that could
66 be reallocated if needed. It means that gnat_envp needs to be updated
67 before using gnat_envp to point to the right environment space */
68 #include <stdlib.h>
69 /* for the environ variable definition */
70 #define gnat_envp (environ)
71 #endif
72
73 int
__gnat_arg_count(void)74 __gnat_arg_count (void)
75 {
76 return gnat_argc;
77 }
78
79 int
__gnat_len_arg(int arg_num)80 __gnat_len_arg (int arg_num)
81 {
82 return strlen (gnat_argv[arg_num]);
83 }
84
85 void
__gnat_fill_arg(char * a,int i)86 __gnat_fill_arg (char *a, int i)
87 {
88 strncpy (a, gnat_argv[i], strlen(gnat_argv[i]));
89 }
90
91 int
__gnat_env_count(void)92 __gnat_env_count (void)
93 {
94 int i;
95
96 for (i = 0; gnat_envp[i]; i++)
97 ;
98 return i;
99 }
100
101 int
__gnat_len_env(int env_num)102 __gnat_len_env (int env_num)
103 {
104 return strlen (gnat_envp[env_num]);
105 }
106
107 void
__gnat_fill_env(char * a,int i)108 __gnat_fill_env (char *a, int i)
109 {
110 strncpy (a, gnat_envp[i], strlen (gnat_envp[i]));
111 }
112