Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/standard_integer_numbers_io.adb, Revision 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>