Re: GETARG in Ada?

[Matthew Heaney <matthew_heaney@acm.org>]

Lou Glassy <glassy@acheta.nervana.montana.edu> writes:

> Question:  Can anyone help me clean up this program?
>            No, this is not a homework assignment.
>            I'm an old Fortran programmer, learning Ada... 

My version is below.  It compiles and runs using gnat v3.10p on
linuxppc.


with Ada.Command_Line; use Ada.Command_Line;
with Ada.Text_IO;      use Ada.Text_IO;

procedure Test_Getarg is

   Count : constant Natural := Argument_Count;

begin

   Put_Line
     ("number of command-line args =" &
      Integer'Image (Count));

    for I in Integer range 1 .. Count loop

       Put_Line
         ("arg" &
          Integer'Image (I) &
          "=" &
          Argument (I));

    end loop;


end Test_Getarg;