RE: Ada95 tutorials with sample code.

From: "Beard, Frank" <beardf@spawar.navy.mil>
To: "'comp.lang.ada@ada.eu.org'" <comp.lang.ada@ada.eu.org>
Subject: RE: Ada95 tutorials with sample code.
Date: Tue, 6 Mar 2001 18:58:50 -0500
Date: 2001-03-06T18:58:50-05:00	[thread overview]
Message-ID: <mailman.983923206.12138.comp.lang.ada@ada.eu.org> (raw)

Oops!  Forgot to move a statement after cut-and-paste.

with Ada.Characters.Handling;  use Ada.Characters.Handling;

procedure Xyz is

  opt_is : character := ' ';

begin

  while opt_is /= 'V' and then opt_is /= 'A' loop
    Put( opt_prompt );
    NEW_LINE;
    Ada.Text_IO.Put_Line( "Please enter either a 'V' or an 'A' );
    Get( opt_is );
    opt_is := To_Upper(opt_is);
  end loop;

end Xyz;

-----Original Message-----
From: mcdoobie [mailto:chainsaw.two.thousand@nospam.dot.home.dot.com]
Sent: Tuesday, March 06, 2001 5:39 PM
To: comp.lang.ada@ada.eu.org
Subject: Re: Ada95 tutorials with sample code.

I'm definitely gonna check it out, in addition to the www.mcondic.com
website mentioned in another post.

Now I have a quick question. I'm using a loop to test for the existence
of a certain variable, but I'm not quite sure how to go about it.  Heres
what it looks like right now...

while opt_is not 'V' or 'A' loop
	Put( opt_prompt );
	NEW_LINE;
	Ada.Text_IO.Put_Line( "Please enter either a 'V' or an 'A' );
	Get( opt_is );
end loop;

Now, I'm not sure what I'm supposed to be doing at the start of the loop.
 Any help woiuld be appreciated.

Thanks.

McDoobie
mcdoobie@hotmail.com
_______________________________________________
comp.lang.ada mailing list
comp.lang.ada@ada.eu.org
http://ada.eu.org/mailman/listinfo/comp.lang.ada

_______________________________________________
comp.lang.ada mailing list
comp.lang.ada@ada.eu.org
http://ada.eu.org/mailman/listinfo/comp.lang.ada