Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/standard_integer_numbers_io.adb, Revision 1.1.1.1
1.1 maekawa 1: with integer_io;
2:
3: package body Standard_Integer_Numbers_io is
4:
5: procedure get ( file : in file_type; i : in out integer ) is
6: begin
7: integer_io.get(file,i);
8: end get;
9:
10: procedure put ( file : in file_type; i : in integer ) is
11: begin
12: integer_io.put(file,i,1);
13: end put;
14:
15: procedure put ( file : in file_type; i : in integer; dp : in natural ) is
16: begin
17: integer_io.put(file,i,dp);
18: end put;
19:
20: end Standard_Integer_Numbers_io;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>