with text_io;                            use text_io;
with Multprec_Floating_Numbers;          use Multprec_Floating_Numbers;

package Multprec_Floating_Numbers_io is

-- DESCRIPTION :
--   Basic i/o routines for multi-precision floating numbers.

  procedure get ( f : in out Floating_Number );
  procedure get ( file : in file_type; f : in out Floating_Number );

  procedure put ( f : in Floating_Number );
  procedure put ( file : in file_type; f : in Floating_Number );

  procedure put ( f : in Floating_Number; fore,aft,exp : in natural );
  procedure put ( file : in file_type;
                  f : in Floating_Number; fore,aft,exp : in natural );

  -- DESCRIPTION :
  --   Formatted output of a floating-point number.

  -- ON ENTRY :
  --   f          floating-point number;
  --   fore       number of places before the decimal point, including sign,
  --              additional spaces will be introducted;
  --   aft        number of places after the decimal point,
  --              if the fraction of f is longer, then it will be truncated,
  --              otherwise zeros are introduced;
  --   exp        number of places for the exponent, including sign,
  --              if the exponent of f is longer, then it will be printed
  --              in full, otherwise zeros are introducted.

  procedure put ( f : in Floating_Number; dp : in natural );
  procedure put ( file : in file_type;
                  f : in Floating_Number; dp : in natural );

  -- DESCRIPTION : put(f,dp) = put(f,dp,dp,dp).

end Multprec_Floating_Numbers_io;