Re: Command line parameters

[jerry@jvdsys.stuyts.nl (Jerry van Dijk)]

Igor Izvarin (izvarin@microsoft.ru.kiev.ua) wrote:

: Could anybody explain me how I can obtain filename parameter from command
: line:

There are lots of ways. From the question, I guess you are looking for
something like:

	with Ada.Text_IO;           use Ada.Text_IO;
	with Ada.Command_Line;      use Ada.Command_Line;
	with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

	procedure Display is
	   Data : array (1 .. Argument_Count) of Unbounded_String;
	begin
	   for I in Data'Range loop
	      Data (I) := To_Unbounded_String (Argument (I));
	   end loop;
	   for I in Data'Range loop
	      Put_Line (To_String (Data (I)));
	   end loop;
	end Display;

--
-- Jerry van Dijk | Leiden, Holland
-- Team Ada       | jdijk@acm.org
-- see http://stad.dsl.nl/~jvandyk