with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO;
with Ada.Float_Text_IO;
with Ada.Strings.Unbounded;
package Basic_Io is
subtype Positive_Count is Ada.Text_IO.Positive_Count;
subtype Field is Ada.Text_IO.Field;
subtype Number_Base is Ada.Text_IO.Number_Base;
Default_Base : Number_Base renames Ada.Integer_Text_IO.Default_Base;
Default_Width : Field renames Ada.Integer_Text_IO.Default_Width;
procedure New_Line (Spacing : Positive_Count := 1) renames Ada.Text_IO.New_Line;
procedure Put (Item : String) renames Ada.Text_IO.Put;
procedure Put_Line (Item : String) renames Ada.Text_IO.Put_Line;
procedure Put (Item : Ada.Strings.Unbounded.Unbounded_String);
procedure Put_Line (Item : Ada.Strings.Unbounded.Unbounded_String);
procedure Put
(Item : in Integer;
Width : in Field := Default_Width;
Base : in Number_Base := Default_Base) renames
Ada.Integer_Text_IO.Put;
procedure Put_Line (Item : in Integer; Width : in Field := Default_Width; Base : in Number_Base := Default_Base);
Default_Fore : Field renames Ada.Float_Text_IO.Default_Fore;
Default_Aft : Field renames Ada.Float_Text_IO.Default_Aft;
Default_Exp : Field renames Ada.Float_Text_IO.Default_Exp;
procedure Put
(Item : in Float;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp) renames
Ada.Float_Text_IO.Put;
procedure Put_Line
(Item : in Float;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp);
procedure Put (Item : Boolean);
procedure Put_Line (Item : Boolean);
subtype File_Type is Ada.Text_IO.File_Type;
subtype File_Mode is Ada.Text_IO.File_Mode;
procedure Create
(File : in out File_Type;
Mode : File_Mode := Out_File;
Name : String := "";
Form : String := "") renames
Ada.Text_IO.Create;
procedure Close (File : in out File_Type) renames Ada.Text_IO.Close;
procedure Put_Line (File : File_Type; Item : String) renames Ada.Text_IO.Put_Line;
procedure Put (File : File_Type; Item : Character) renames Ada.Text_IO.Put;
function "&" (Left : String; Right : Boolean) return String;
function "&" (Left : Boolean; Right : String) return String;
function "&" (Left : String; Right : Integer) return String;
function "&" (Left : String; Right : Float) return String;
function "&" (Left : Integer; Right : String) return String;
function "&" (Left : Float; Right : String) return String;
end Basic_Io;