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;