Return to standard_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/standard_floating_numbers_io.ads, Revision 1.1

1.1     ! maekawa     1: with text_io;                            use text_io;
        !             2: with Standard_Floating_Numbers;          use Standard_Floating_Numbers;
        !             3:
        !             4: package Standard_Floating_Numbers_io is
        !             5:
        !             6: -- DESCRIPTION :
        !             7: --   This package defines output of standard floating numbers.
        !             8:
        !             9:   procedure get ( f : in out single_float );
        !            10:   procedure get ( file : in file_type; f : in out single_float );
        !            11:   procedure get ( f : in out double_float );
        !            12:   procedure get ( file : in file_type; f : in out double_float );
        !            13:
        !            14:   -- DESCRIPTION :
        !            15:   --   Reads a floating-point number from standard input or from file.
        !            16:
        !            17:   procedure put ( f : in single_float );
        !            18:   procedure put ( file : in file_type; f : in single_float );
        !            19:   procedure put ( f : in double_float );
        !            20:   procedure put ( file : in file_type; f : in double_float );
        !            21:   procedure put ( f : in double_float; fore,aft,exp : in natural );
        !            22:   procedure put ( file : in file_type;
        !            23:                   f : in double_float; fore,aft,exp : in natural );
        !            24:
        !            25:   -- DESCRIPTION :
        !            26:   --   Writes a floating-point number on standard output or on file.
        !            27:   --   The triplet (fore,aft,exp) determines the output format, i.e.:
        !            28:   --   they indicate the number of decimal places before and after
        !            29:   --   the decimal point and the number of decimal places in the exponent.
        !            30:
        !            31:   procedure put ( f : in double_float; dp : in natural );
        !            32:   procedure put ( file : in file_type; f : in double_float; dp : in natural );
        !            33:
        !            34:   -- DESCRIPTION : put(f,dp) = put(f,dp,dp,dp).
        !            35:
        !            36: end Standard_Floating_Numbers_io;