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

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;