with Ada.Text_IO; with Ada.Command_Line; procedure Args is package IO renames Ada.Text_IO; package CLI renames Ada.Command_Line; begin IO.Put_Line (Item => "Argument Count:" & CLI.Argument_Count'Img); IO.Put_Line (CLI.Command_Name); end Args;
Go back
Trace: • ada.command_line.command_name_example_source