This is an old revision of the document!


<source lang=“ada”> 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; </source>

Go back


Navigation