Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/multprec_floating_numbers_io.ads, Revision 1.1.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;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>