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;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>