Re: Command Line arguments

[Jeff Carter <jrcarter@acm.org>]

"Antonio Dur�n Dom�nguez" wrote:
> 
> Another alternative:
> 
> with Ada.Command_Line;
> with Ada.Strings.Unbounded;
> with Ada.Text_IO;
> 
> use Ada.Command_Line;
> use Ada.Strings.Unbounded;
> use Ada.Text_IO;
> 
> procedure Print_Args
> is
> begin
>     for I in 1 .. Argument_Count loop
>         Put_Line(
>             "Argument " & Integer'Image(I) & ": " &
> To_String(To_Unbounded_String(Argument(I))));
>     end loop;
> end Print_Args;

This is a terrible suggestion. If the idea is to store a specific
argument for some reason, then one of these ways is appropriate:

Way_1 : Unbounded_String := To_Unbounded_String (Argument (2) );
Way_2 : [constant] String := Argument (2);

If the idea is just to output the argument, as above, then one can
simply say:

Put_Line (Argument (2) );

-- 
Jeff Carter
"Your mother was a hamster and your father smelt of elderberries."
Monty Python & the Holy Grail