Re: FILE IO Error?

[Preben Randhol <randhol+abuse@pvv.org>]

On Tue, 18 Dec 2001 22:21:51 GMT, Ray wrote:
> I am reading in some data from a file and despite reading in the data
> successfully, I get this ADA.IO_EXCEPTIONS'CHILD_UNIT.END_ERROR which
> means I am trying to read past the EOF.  Can someone explain why I get
> this error or what I am not seeing?

Put in a couple of Put_Line that prints out what you read and I guess
you should see it.

>       open (data_file, in_file, "file.dat");
> 
>       IF NOT end_of_file (data_file) THEN

Why do you have the IF NOT above?

>          FOR i IN 1 .. 8 LOOP
>             -- Read in 8 character name.
>             FOR j IN 1 .. 8 LOOP
>                get (data_file, value);
>                label_1 (i) (j) := value;
>             END LOOP;
> 
>             -- Eat delimiter character.
>             get (data_file, value);

This looks like a point where errors can occur.
> 
>             -- Read in 4 character name.
>             FOR j IN 1 .. 4 LOOP
>                get (data_file, value);
>                label_2 (i) (j) := value;
>             END LOOP;
> 
>          END LOOP;
>       END IF;
> 
>       close (data_file);
> 
>    END load_data;

I would recommend as other has said to use Get_Line and then use Get on
this to get the values.

Preben
-- 
 ()   Join the worldwide campaign to protect fundamental human rights.
'||}
{||'                                           http://www.amnesty.org/