package body Basic_Io is
procedure Put (Item : Ada.Strings.Unbounded.Unbounded_String) is
begin
Put (Ada.Strings.Unbounded.To_String (Item));
end Put;
procedure Put_Line (Item : Ada.Strings.Unbounded.Unbounded_String) is
begin
Put (Item);
New_Line;
end Put_Line;
procedure Put_Line (Item : in Integer; Width : in Field := Default_Width; Base : in Number_Base := Default_Base) is
begin
Put (Item => Item, Width => Width, Base => Base);
New_Line;
end Put_Line;
procedure Put_Line
(Item : in Float;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
is
begin
Put (Item => Item, Fore => Fore, Aft => Aft, Exp => Exp);
New_Line;
end Put_Line;
procedure Put (Item : Boolean) is
begin
Put (Boolean'Image (Item));
end Put;
procedure Put_Line (Item : Boolean) is
begin
Put (Item);
New_Line;
end Put_Line;
function "&" (Left : String; Right : Boolean) return String is
begin
return Left & Boolean'Image (Right);
end "&";
function "&" (Left : Boolean; Right : String) return String is
begin
return Boolean'Image (Left) & Right;
end "&";
function "&" (Left : String; Right : Integer) return String is
begin
return Left & Integer'Image (Right);
end "&";
function "&" (Left : String; Right : Float) return String is
begin
return Left & Float'Image (Right);
end "&";
function "&" (Left : Integer; Right : String) return String is
begin
return Integer'Image (Left) & Right;
end "&";
function "&" (Left : Float; Right : String) return String is
begin
return Float'Image (Left) & Right;
end "&";
end Basic_Io;