Re: Ada'83 to Ada'95 Problem

[John English <je@bton.ac.uk>]

dis00109 wrote:
> 
> I am trying to get a program to accept two integers as input by the user
> (for a university project) however in the exception handling section of
> my program it will not accept a float input as an error it merely
> ignores everything after the decimal point. This would appear to be a
> new feature in Ada'95, can anyone think of a way to solve this...PLEASE!

???

If you do this:
   Get(A); Get(B);
and you enter 3.14, you'll get a Data_Error at the point where "."
is read (the point where the point is read? ;-)  The first Get will
read an integer (3) and then stop at the first non-integer character
("."); the second Get will start at "." and go "ugh! that's not an
integer" and bail out with a Data_Error without reading anything.

If on the other hand you do this:
   Get(A); Skip_Line;
   Get(B); Skip_Line;
you'll get exactly the effect you've described; the first Get reads
an integer, and stops at the first non-integer character ("."), and
Skip_Line then throws the rest of that line away (".14" in this case).
The second Get will then read whatever is on the next line in the
same way.

Is this what you've done, perhaps?

-----------------------------------------------------------------
 John English              | mailto:je@brighton.ac.uk
 Senior Lecturer           | http://www.it.bton.ac.uk/staff/je
 Dept. of Computing        | ** NON-PROFIT CD FOR CS STUDENTS **
 University of Brighton    |    -- see http://burks.bton.ac.uk
-----------------------------------------------------------------