Return to standard_integer_numbers_io.adb CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers

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;