Package: Ada.Text_IO.Decimal

Package: Ada.Text_IO.Decimal_Aux

Description

This package contains the routines for Ada.Text_IO.Decimal_IO that are shared among separate instantiations of this package. The routines in the package are identical semantically to those declared in Text_IO, except that default values have been supplied by the generic, and the Num parameter has been replaced by Integer or Long_Long_Integer, with an additional Scale parameter giving the value of Num'Scale. In addition the Get routines return the value rather than store it in an Out parameter.

Header

package Ada.Text_IO.Decimal_Aux is

Other Items:

function Get_Dec
  (File  : in File_Type;
   Width : in Field;
   Scale : Integer)
   return  Integer;

function Get_LLD
  (File  : in File_Type;
   Width : in Field;
   Scale : Integer)
   return  Long_Long_Integer;

procedure Put_Dec
  (File  : File_Type;
   Item  : Integer;
   Fore : in Field;
   Aft  : in Field;
   Exp  : in Field;
   Scale : Integer);

procedure Put_LLD
  (File  : in File_Type;
   Item  : in Long_Long_Integer;
   Fore : in Field;
   Aft  : in Field;
   Exp  : in Field;
   Scale : Integer);

function Gets_Dec
  (From  : in String;
   Last  : access Positive;
   Scale : Integer)
   return  Integer;

function Gets_LLD
  (From  : in String;
   Last  : access Positive;
   Scale : Integer)
   return  Long_Long_Integer;

procedure Puts_Dec
  (To    : out String;
   Item  : in Integer;
   Aft   : in Field;
   Exp   : in Field;
   Scale : Integer);

procedure Puts_LLD
  (To    : out String;
   Item  : in Long_Long_Integer;
   Aft   : in Field;
   Exp   : in Field;
   Scale : Integer);

end Ada.Text_IO.Decimal_Aux;