Return to multprec_floating_numbers_io.ads CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers

Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/multprec_floating_numbers_io.ads, Revision 1.1

1.1     ! maekawa     1: with text_io;                            use text_io;
        !             2: with Multprec_Floating_Numbers;          use Multprec_Floating_Numbers;
        !             3:
        !             4: package Multprec_Floating_Numbers_io is
        !             5:
        !             6: -- DESCRIPTION :
        !             7: --   Basic i/o routines for multi-precision floating numbers.
        !             8:
        !             9:   procedure get ( f : in out Floating_Number );
        !            10:   procedure get ( file : in file_type; f : in out Floating_Number );
        !            11:
        !            12:   procedure put ( f : in Floating_Number );
        !            13:   procedure put ( file : in file_type; f : in Floating_Number );
        !            14:
        !            15:   procedure put ( f : in Floating_Number; fore,aft,exp : in natural );
        !            16:   procedure put ( file : in file_type;
        !            17:                   f : in Floating_Number; fore,aft,exp : in natural );
        !            18:
        !            19:   -- DESCRIPTION :
        !            20:   --   Formatted output of a floating-point number.
        !            21:
        !            22:   -- ON ENTRY :
        !            23:   --   f          floating-point number;
        !            24:   --   fore       number of places before the decimal point, including sign,
        !            25:   --              additional spaces will be introducted;
        !            26:   --   aft        number of places after the decimal point,
        !            27:   --              if the fraction of f is longer, then it will be truncated,
        !            28:   --              otherwise zeros are introduced;
        !            29:   --   exp        number of places for the exponent, including sign,
        !            30:   --              if the exponent of f is longer, then it will be printed
        !            31:   --              in full, otherwise zeros are introducted.
        !            32:
        !            33:   procedure put ( f : in Floating_Number; dp : in natural );
        !            34:   procedure put ( file : in file_type;
        !            35:                   f : in Floating_Number; dp : in natural );
        !            36:
        !            37:   -- DESCRIPTION : put(f,dp) = put(f,dp,dp,dp).
        !            38:
        !            39: end Multprec_Floating_Numbers_io;