File input/output: Difference between revisions

=={{header|Ada}}==

If the file line size exceeds the size of the input string the output file will contain extra new-line characters.

with Ada.Text_IO; use Ada.Text_IO;

procedure File_IO is

Close (Output);

end File_IO;

Note that it is possible to use a version of Get_Line that returns the read line as one string of unspecified length:

while not End_Of_File (Input) loop

Put_Line (Output, Get_Line (Input));

end loop;

But it is not recommended, because it would make program vulnerable to storage error problems.

The following example reads and writes each file one character at a time. There is no new-line issue.

with Ada.Sequential_Io;

Close(Outfile);

end File_IO;

The following solution uses stream I/O. Any file of Ada.Text_IO can be used to obtain a corresponding stream. Reading and writing streams is more efficient than reading text files directly, because it skips formatting. Note also how End_Error exception is used to avoid End_Of_File. End_Of_File is depreciated as it requires file look-ahead, and thus is much less efficient.

<lang ada>