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