Re: FILE IO Error?

["John R. Strohm" <strohm@airmail.net>]

Just because you are programming in Ada doesn't mean you can ignore the
basics of debugging.

Add some text_io.put calls, to see what you're reading.

As coded, you appear to be planning on reading PRECISELY 8*(8+1+4) = 104
characters from your file.  You appear not to be expecting separators after
the second name in record i and the first name in record i+1, and you appear
not to be expecting any kind of record breaks.

Is this what you were planning on doing?

"Ray" <yarzepol@mindspring.com> wrote in message
news:3C1FC17F.B47D5CA8@mindspring.com...
> 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?
>
> thanks,
>
> Ray
>
>
> --------------------------------------------------------------------------
---
>    PROCEDURE load_data IS
>
>       data_file : file_type;
>       value : character;
>
>    BEGIN
>
>       open (data_file, in_file, "file.dat");
>
>       IF NOT end_of_file (data_file) THEN
>          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);
>
>             -- 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;
>
> --------------------------------------------------------------------------
---