27 lines
641 B
Plaintext
27 lines
641 B
Plaintext
with Ada.Directories;
|
|
with Ada.Direct_IO;
|
|
with Ada.Text_IO;
|
|
|
|
procedure Extra_IO.Read_File (Name : String) is
|
|
|
|
package Dirs renames Ada.Directories;
|
|
package Text_IO renames Ada.Text_IO;
|
|
|
|
-- Get the size of the file for a new string.
|
|
Size : Natural := Natural (Dirs.Size (Name));
|
|
subtype File_String is String (1 .. Size);
|
|
|
|
-- Instantiate Direct_IO for our file type.
|
|
package FIO is new Ada.Direct_IO (File_String);
|
|
|
|
File : FIO.File_Type;
|
|
Contents : File_String;
|
|
|
|
begin
|
|
FIO.Open (File, FIO.In_File, Name);
|
|
FIO.Read (File, Contents);
|
|
FIO.Close (File);
|
|
|
|
Text_IO.Put (Contents);
|
|
end Extra_IO.Read_File;
|