1 ------------------------------------------------------------------------------
3 -- GNAT RUN-TIME COMPONENTS --
5 -- A D A . C O M M A N D _ L I N E --
9 -- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
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, 51 Franklin Street, Fifth Floor, --
20 -- Boston, MA 02110-1301, USA. --
22 -- As a special exception, if other files instantiate generics from this --
23 -- unit, or you link this unit with other files to produce an executable, --
24 -- this unit does not by itself cause the resulting executable to be --
25 -- covered by the GNU General Public License. This exception does not --
26 -- however invalidate any other reasons why the executable file might be --
27 -- covered by the GNU Public License. --
29 -- GNAT was originally developed by the GNAT team at New York University. --
30 -- Extensive contributions were provided by Ada Core Technologies Inc. --
32 ------------------------------------------------------------------------------
34 with System; use System;
36 package body Ada.Command_Line is
38 function Arg_Count return Natural;
39 pragma Import (C, Arg_Count, "__gnat_arg_count");
41 procedure Fill_Arg (A : System.Address; Arg_Num : Integer);
42 pragma Import (C, Fill_Arg, "__gnat_fill_arg");
44 function Len_Arg (Arg_Num : Integer) return Integer;
45 pragma Import (C, Len_Arg, "__gnat_len_arg");
47 -----------------------
48 -- Local Subprograms --
49 -----------------------
51 function Initialized return Boolean;
52 -- Checks to ensure that gnat_argc and gnat_argv have been properly
53 -- initialized. Returns false if not, or if argv / argc are
54 -- unsupported on the target (e.g. VxWorks).
60 function Argument (Number : Positive) return String is
64 if Number > Argument_Count then
65 raise Constraint_Error;
68 if Remove_Args = null then
71 Num := Remove_Args (Number);
75 Arg : aliased String (1 .. Len_Arg (Num));
78 Fill_Arg (Arg'Address, Num);
87 function Argument_Count return Natural is
89 if not Initialized then
94 if Remove_Args = null then
105 function Initialized return Boolean is
106 gnat_argv : System.Address;
107 pragma Import (C, gnat_argv, "gnat_argv");
110 return gnat_argv /= System.Null_Address;
117 function Command_Name return String is
119 if not Initialized then
124 Arg : aliased String (1 .. Len_Arg (0));
127 Fill_Arg (Arg'Address, 0);
132 end Ada.Command_Line;