Re: input/output exceptions

[Amal Kurian <kurian.amal@t-online.de>]

While Robert Dewar pointed out, that 2.54 contains 2 and "junk" he should 
also have stated that since 2.54 is the last value to be read in, Ada 
ignores the junk and the program finishes while it couldn't ignore it if 
there is still something to be read in. Because a string consists of "junk" 
only ;) an exception is always raised.
To illustrate this, consider the modificated procedure:


with Ada.Integer_Text_IO, Ada.Float_Text_IO;
use Ada.Integer_Text_IO, Ada.Float_Text_IO;

procedure Test_Type_IO is

        First   : Integer       := 0;
        Second  : Float         := 0.0;
        

begin

        Get(First);
        Get(Second);
        
        Put(First);
        Put(Second);
        
end Test_Type_IO;


and the following values:


2.54
          2 5.40000E-01



Obviously the ignored "junk" from 2.54, that is 0.54, is a perfect float 
and is therefore assigned to 'Second'.

Kind regards,
Amal Kurian




DuckE wrote:

> 
> "Amal Kurian" <kurian.amal@t-online.de> wrote in message
> news:8v6ct8$jvj$07$1@news.t-online.com...
> > Robert Dewar wrote:
> >
> > > In article <3A2B4CF6@MailAndNews.com>,
> > >   Jean Cohen <jean.cohen@MailAndNews.com> wrote:
> > > 2.54
> > >
> > > I see an integer there, namely a 2, followed by junk, that's
> > > what Ada sees too!
> > >
> > >
> > > Sent via Deja.com http://www.deja.com/
> > > Before you buy.
> >
> > However while remaining quiet if the second number contains "junk"  Ada
> > screams loud if the same "junk" is contained in the first number. And I
> > think that's what the original poster was wondering about.
> >
> 
> I believe Robert answered the question.  If the first number entered is
> 2.54, an exception will occur when trying to read the second number.
> 
> SteveD
> 
> 
>