Differences

This shows you the differences between two versions of the page.

Link to this comparison view

ada.command_line.argument_example_source [2012/01/14 20:32] (current)
thomaslocke created
Line 1: Line 1:
 +<code 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);​
 +   for i in 1 .. CLI.Argument_Count loop
 +      IO.Put (Item => i'Img & ": ");
 +      IO.Put_Line (Item => CLI.Argument (Number => i));
 +   end loop;
 +end Args;
 +</​code>​
 +
 +[[Ada.Command_Line#​Ada.Command_Line.Argument | Go back]]
  

Navigation