From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Subject: Re: Problems with String processing
Date: Sat, 23 Oct 2010 22:25:38 +0200
Date: 2010-10-23T22:25:36+02:00 [thread overview]
Message-ID: <ujzy2qodzm97.104fapct6e1k0$.dlg@40tude.net> (raw)
In-Reply-To: 8igu5kF70sU1@mid.individual.net
On 23 Oct 2010 20:16:53 GMT, George wrote:
> begin
> -- Ada.Command_Line.Argument_Count is "0" if
> -- a) Command_Line.Argument_Count is not implemented (Compiler, OS)
> -- b) no arguments given
> if Ada.Command_Line.Argument_Count > 0 then
> for counter in 1..Ada.Command_Line.Argument_Count loop
declare
Arg : constant String := Ada.Characters.Handling.
To_Upper (Ada.Command_Line.Argument (Counter));
begin
> if Arg = "ADA83" then
> Ada83;
> elsif Arg = "ADA95" then
> Ada95;
> elsif Arg = "ADA2005" then
> Ada2005;
> elsif Arg = "ATTRIBUTES" then
> Attributes;
> elsif Arg = "ALL" then
> Ada83;
> Ada95;
> Ada2005;
> Attributes;
> Sources;
> Author;
> else -- unknown argument
> Ada.Text_IO.put_line("Given Argument is unknown!");
> end if;
end;
> end loop;
--
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de
next prev parent reply other threads:[~2010-10-23 20:25 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-10-23 20:16 Problems with String processing George
2010-10-23 20:24 ` Niklas Holsti
2010-10-23 20:25 ` Dmitry A. Kazakov [this message]
2010-10-23 20:43 ` George
2010-10-23 23:59 ` Jeffrey Carter
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox