Package: Ada.Text_IO.Unbounded

Package: Ada.Text_IO.Unbounded_IO

pragma License (Unrestricted);

with Ada.Strings.Unbounded;

<AI301_WEB_PAGE>

package Ada.Text_IO.Unbounded_IO is

procedure Put (File : in File_Type;
               Item : in Strings.Unbounded.Unbounded_String);

Equivalent to Text_IO.Put (File, Strings.Unbounded.To_String (Item));

procedure Put (Item : in Strings.Unbounded.Unbounded_String);

Equivalent to Text_IO.Put (Strings.Unbounded.To_String (Item));

procedure Put_Line (File : in Text_IO.File_Type;
                    Item : in Strings.Unbounded.Unbounded_String);

Equivalent to Text_IO.Put_Line (File, Strings.Unbounded.To_String (Item));

procedure Put_Line (Item : in Strings.Unbounded.Unbounded_String);

Equivalent to Text_IO.Put_Line (Strings.Unbounded.To_String (Item));

function Get_Line (File : in File_Type)
   return Strings.Unbounded.Unbounded_String;

Returns Strings.Unbounded.To_Unbounded_String (Text_IO.Get_Line (File));

function Get_Line return Strings.Unbounded.Unbounded_String;

Returns Strings.Unbounded.To_Unbounded_String (Text_IO.Get_Line);

procedure Get_Line (File : in  File_Type;
                    Item : out Strings.Unbounded.Unbounded_String);

Equivalent to Item := Get_Line (File);

procedure Get_Line (Item : out Strings.Unbounded.Unbounded_String);

Equivalent to Item := Get_Line;

end Ada.Text_IO.Unbounded_IO;