Re: Reading a text file

[DPH <kgclg15@kg.hsanet.net>]

Note that the procedure "Read" is not a part of Ada.Text_IO.  That is why
it is not visible.  You probably want the procedure "Get" which is in
Ada.Text_IO.

Dave Head

stiletto@ryuji.net wrote:

> Hello All!
>
> How can I read text file?  Following program is supposed to read a text
> file and print out the contents of the file, but I got following error
> messages.
>
> Thanks in advance
>
> test.adb:13:01: "Read" is not visible
> test.adb:13:01: non-visible (private) declaration at a-textio.ads:348
> test.adb:13:01: non-visible declaration at a-stream.ads:58
> gnatmake: "test.adb" compilation error
>
> with Ada.Text_IO;
> use Ada.Text_IO;
>
> procedure test is
> Data_File : File_Type;
> Result_File : File_Type;
> St : String(1..100);
> begin
>
> Open(Data_File, In_File, "infile");
>
> while not End_Of_File(Data_File) loop
>   Read(Data_File, St);
>   Put_Line(St);
> end loop;
>
> end test;