-- Get command line arguments
-- See: http://www.adahome.com/rm95/rm9x-A-15.html#3

with Ada.Integer_Text_Io,Ada.Text_Io,Ada.Command_Line,Ada.Strings.Unbounded;
use Ada.Integer_Text_Io,Ada.Text_Io,Ada.Command_Line,Ada.Strings.Unbounded;

procedure Arg is

ac : Natural;
cn,s  : string(1..100);
l  : Integer:=0;

begin
 l := Command_Name'Last;
  cn(1..l) := Command_Name(1..l);
  Put("Command Name: "); Put(cn(1..l)); New_line;
  ac := Argument_Count; 
  Put("Argument_Count: "); Put(ac,width=>2); New_line;

  for n in 1..ac loop
    Put(n); Put(" -> "); --Put(Argument(n));
    l := Argument(n)'Last; 
    s(1..l) := Argument(n)(1..l);	
    Put_line(s(1..l)); New_line;
  end loop;

end Arg;