-- Demonstrates using command line arguments
with ada.text_io; use ada.text_io;
with ada.integer_text_io; use ada.integer_text_io;
with ada.command_line;
procedure cmdline is
-- A renames helps show what's in the package without too much typing
package cl renames ada.command_line;
begin
-- Output the name of the command
put_line("The name of the command is: " & cl.command_name);
-- Remember that the executable can be renamed
-- Output the number of command line arguments
put_line("Argument_Count: " & cl.argument_count'img);
-- Output each command line argument
-- Each argument is a string
put_line("The Arguments are:");
for i in 1 .. cl.argument_count loop
set_col(5);
put(i, 2);
put_line(": <" & cl.argument(i) & ">");
end loop;
end cmdline;
-- Sample run: > cmdline The cat sat, on 25 mats!
-- Output:
--|The name of the command is: cmdline
--|Argument_Count: 6
--|The Arguments are:
--| 1: <The>
--| 2: <cat,>
--| 3: <sat>
--| 4: <on>
--| 5: <25>
--| 6: <mats!>