Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/numbers_io.ads, Revision 1.1.1.1
1.1 maekawa 1: with Standard_Floating_Numbers; use Standard_Floating_Numbers;
2:
3: package Numbers_io is
4:
5: -- DESCRIPTION :
6: -- This package provides user friendly input routines.
7: -- The exception handlers allow repeated trials.
8:
9: procedure Read_Positive ( p : out positive );
10: procedure Read_Natural ( n : out natural );
11: procedure Read_Integer ( i : out integer );
12: procedure Read_Single_Float ( f : out single_float );
13: procedure Read_Double_Float ( f : out double_float );
14:
15: -- DESCRIPTION :
16: -- Reads a number from standard input.
17: -- As long as the value obtained is not of the right type,
18: -- the user will be asked to try again.
19:
20: end Numbers_io;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>