From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,7f057fd3e6878bac
X-Google-Attributes: gid103376,public
From: jerry@jvdsys.stuyts.nl (Jerry van Dijk)
Subject: Re: Command line parameters
Date: 1999/01/18
Message-ID: <F5qCEx.8v@jvdsys.stuyts.nl>#1/1
X-Deja-AN: 433824774
References: <77tm5p$kls$1@scelto.ts.kiev.ua>
Organization: * JerryWare *, Leiden, Holland
Newsgroups: comp.lang.ada
Date: 1999-01-18T00:00:00+00:00
List-Id: <comp.lang.ada>

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