1. with Ada.Text_IO; use Ada.Text_IO; 
  2. with Ada.Integer_Text_IO; 
  3. with Ada.Float_Text_IO; 
  4. with Ada.Strings.Unbounded; 
  5. package Basic_Io is 
  6.  
  7.    subtype Positive_Count is Ada.Text_IO.Positive_Count; 
  8.    subtype Field is Ada.Text_IO.Field; 
  9.    subtype Number_Base is Ada.Text_IO.Number_Base; 
  10.  
  11.    Default_Base : Number_Base renames Ada.Integer_Text_IO.Default_Base; 
  12.    Default_Width : Field renames Ada.Integer_Text_IO.Default_Width; 
  13.  
  14.    procedure New_Line (Spacing : Positive_Count := 1) renames Ada.Text_IO.New_Line; 
  15.  
  16.    procedure Put (Item : String) renames Ada.Text_IO.Put; 
  17.    procedure Put_Line (Item : String) renames Ada.Text_IO.Put_Line; 
  18.  
  19.    procedure Put (Item : Ada.Strings.Unbounded.Unbounded_String); 
  20.    procedure Put_Line (Item : Ada.Strings.Unbounded.Unbounded_String); 
  21.  
  22.    procedure Put 
  23.      (Item  : in Integer; 
  24.       Width : in Field       := Default_Width; 
  25.       Base  : in Number_Base := Default_Base) renames 
  26.      Ada.Integer_Text_IO.Put; 
  27.  
  28.    procedure Put_Line (Item : in Integer; Width : in Field := Default_Width; Base : in Number_Base := Default_Base); 
  29.  
  30.    Default_Fore : Field renames Ada.Float_Text_IO.Default_Fore; 
  31.    Default_Aft : Field renames Ada.Float_Text_IO.Default_Aft; 
  32.    Default_Exp : Field renames Ada.Float_Text_IO.Default_Exp; 
  33.  
  34.    procedure Put 
  35.      (Item : in Float; 
  36.       Fore : in Field := Default_Fore; 
  37.       Aft  : in Field := Default_Aft; 
  38.       Exp  : in Field := Default_Exp) renames 
  39.      Ada.Float_Text_IO.Put; 
  40.  
  41.    procedure Put_Line 
  42.      (Item : in Float; 
  43.       Fore : in Field := Default_Fore; 
  44.       Aft  : in Field := Default_Aft; 
  45.       Exp  : in Field := Default_Exp); 
  46.  
  47.    procedure Put (Item : Boolean); 
  48.    procedure Put_Line (Item : Boolean); 
  49.  
  50.    subtype File_Type is Ada.Text_IO.File_Type; 
  51.    subtype File_Mode is Ada.Text_IO.File_Mode; 
  52.  
  53.    procedure Create 
  54.      (File : in out File_Type; 
  55.       Mode :        File_Mode := Out_File; 
  56.       Name :        String    := ""; 
  57.       Form :        String    := "") renames 
  58.      Ada.Text_IO.Create; 
  59.  
  60.    procedure Close (File : in out File_Type) renames Ada.Text_IO.Close; 
  61.  
  62.    procedure Put_Line (File : File_Type; Item : String) renames Ada.Text_IO.Put_Line; 
  63.    procedure Put (File : File_Type; Item : Character) renames Ada.Text_IO.Put; 
  64.  
  65.    function "&" (Left : String; Right : Boolean) return String; 
  66.    function "&" (Left : Boolean; Right : String) return String; 
  67.  
  68.    function "&" (Left : String; Right : Integer) return String; 
  69.    function "&" (Left : String; Right : Float) return String; 
  70.  
  71.    function "&" (Left : Integer; Right : String) return String; 
  72.    function "&" (Left : Float; Right : String) return String; 
  73.  
  74. end Basic_Io;