Re: Help -- Command line arguments

[jsa@alexandria (Jon S Anthony)]

In article <Dxy28C.7wB@most.fw.hac.com> smosha@most.fw.hac.com (Stephen M O'Shaughnessy) writes:

> Is there a way in Ada to pass commands from the command line
> when a process is started?

See Ada.Command_Line ARM A.15

For example,

with Ada.Command_Line;  use Ada.Command_Line;
with Text_Io;  use Text_Io;
 
procedure X is
 
begin
    Put_Line(
        "My name is " & Command_Name & ", I have" &
        Integer'Image(Argument_Count) & " arguments.");
    Put_Line("They are: ");
    for I in 1..Argument_Count loop
        Put_Line("  " & Argument(I));
    end loop;
end;

$ gnatmake x.adb
$ x 1 2 3
My name is x, I have 3 arguments.
They are: 
  1
  2
  3
$

/Jon
-- 
Jon Anthony
Organon Motives, Inc.
1 Williston Road, Suite 4
Belmont, MA 02178

617.484.3383
jsa@organon.com