Re: Accessing The Command Line

["Jeffrey R.Carter" <spam.jrcarter.not@spam.acm.org.not>]

On 2024-07-04 02:08, Lawrence D'Oliveiro wrote:

Remember that you can concatenate strings:

>      tio.put("my name: ");
>      tio.put(cli.Command_name);
>      tio.Put_Line("");

Tio.Put_Line (Item => "my name: " & Cli.Command_Name);

Image functions thus allow similar simplifications. 'Image is one such function, 
if you can accept the initial space for non-negative values:

>      tio.Put("nr args: ");
>      int_io.Put(cli.Argument_Count, width => 1);
>      tio.Put_Line("");

Tio.Put_Line (Item => "nr args:" & Cli.Argument_Count'Image);

For simple cases you can roll your own:

function Image (Value : in Integer) return String is
    Raw : constant String := Value'Image;
begin -- Image
    return Raw ( (if Value < 0 then 1 else 2) .. Raw'Last);
end Image;

>          tio.put("[");
>          int_io.put(i, width => 1);
>          tio.put("]: ");
>          tio.put(cli.argument(i));
>          tio.put_line("");

Tio.Put_Line (Item => '[' & Image (I) & "]: " & Image (Cli.Argument (I) ) );

For more complex uses, you can use something like PragmARC.Images[.Image] 
(https://github.com/jrcarter/PragmARC).

You probably should review the definition of Ada.Text_IO 
(http://www.ada-auth.org/standards/aarm12_w_tc1/html/AA-A-10.html), especially 
for procedure New_Line.

--
Jeff Carter
"Write clearly--don't sacrifice clarity for 'efficiency.'"
Elements of Programming Style
186