Ada.Text_IO.Unbounded_IO |
function Get_Line[(File : in File_Type)] return Unbounded_String;
procedure Get_Line ([File : in File_Type; ]Item : out Unbounded_String);
with Ada.Strings.Unbounded, Ada.Text_IO.Unbounded_IO; ... S1, S2: Ada.Strings.Unbounded.Unbounded_String; ... S1 := Ada.Text_IO.Unbounded_IO.Get_Line; Ada.Text_IO.Unbounded_IO.Get_Line (S2);
with Ada.Strings.Unbounded, Ada.Text_IO, Ada.Text_IO.Unbounded_IO; ... S1, S2: Ada.Strings.Unbounded.Unbounded_String; F : Text_IO.File_Type; ... S1 := Ada.Text_IO.Unbounded_IO.Get_Line (F); Ada.Text_IO.Unbounded_IO.Get_Line (F, S2);