-- GNAT.IO Example
--
-- GNAT.IO offers:
-- A simple preelaborable subset of Text_IO capabilities
with Gnat.IO; use Gnat.IO;
procedure Gio is
Test_Integer : Integer;
Test_String : String (1 .. 255);
Test_String_Length : Natural;
Test_Character : Character;
begin
Put_Line("Type an Integer");
Get(Test_Integer);
-- Used to clean off the new line from the buffer
-- after pushing enter on the last get since
-- a get only removes the what it is looking for and
-- leaves everything else in the input buffer.
Get(Test_Character);
Put("You typed : ");
Put(Test_Integer);
New_Line;
Put_Line("What is your name?");
Get_Line(Test_String,
Test_String_Length);
Put_Line("Hello, " & Test_String(1 .. Test_String_Length)& "!");
Put_Line("Press <ENTER> when done.");
Get(Test_Character);
Put(Test_Character);
end Gio;
|
