Annotation of OpenXM_contrib/PHC/Ada/Math_Lib/Numbers/standard_floating_numbers_io.adb, Revision 1.1
1.1 ! maekawa 1: -- try to read in this number : 2.37151309632067E-27
! 2: with text_io;
! 3:
! 4: package body Standard_Floating_Numbers_io is
! 5:
! 6: package single_float_io is new text_io.float_io(single_float);
! 7: package double_float_io is new text_io.float_io(double_float);
! 8:
! 9: procedure get ( f : in out single_float ) is
! 10: begin
! 11: single_float_io.get(f);
! 12: end get;
! 13:
! 14: procedure get ( file : in file_type; f : in out single_float ) is
! 15: begin
! 16: single_float_io.get(file,f);
! 17: end get;
! 18:
! 19: procedure get ( f : in out double_float ) is
! 20: begin
! 21: double_float_io.get(f);
! 22: end get;
! 23:
! 24: procedure get ( file : in file_type; f : in out double_float ) is
! 25: begin
! 26: double_float_io.get(file,f);
! 27: end get;
! 28:
! 29: procedure put ( f : in single_float ) is
! 30: begin
! 31: single_float_io.put(f);
! 32: end put;
! 33:
! 34: procedure put ( file : in file_type; f : in single_float ) is
! 35: begin
! 36: single_float_io.put(file,f);
! 37: end put;
! 38:
! 39: procedure put ( f : in double_float ) is
! 40: begin
! 41: double_float_io.put(f);
! 42: end put;
! 43:
! 44: procedure put ( file : in file_type; f : in double_float ) is
! 45: begin
! 46: double_float_io.put(file,f);
! 47: end put;
! 48:
! 49: procedure put ( f : in single_float; fore,aft,exp : in natural ) is
! 50: begin
! 51: single_float_io.put(f,fore,aft,exp);
! 52: end put;
! 53:
! 54: procedure put ( f : in double_float; fore,aft,exp : in natural ) is
! 55: begin
! 56: double_float_io.put(f,fore,aft,exp);
! 57: end put;
! 58:
! 59: procedure put ( file : in file_type;
! 60: f : in single_float; fore,aft,exp : in natural ) is
! 61: begin
! 62: single_float_io.put(file,f,fore,aft,exp);
! 63: end put;
! 64:
! 65: procedure put ( file : in file_type;
! 66: f : in double_float; fore,aft,exp : in natural ) is
! 67: begin
! 68: double_float_io.put(file,f,fore,aft,exp);
! 69: end put;
! 70:
! 71: procedure put ( f : in double_float; dp : in natural ) is
! 72: begin
! 73: double_float_io.put(f,dp,dp,dp);
! 74: end put;
! 75:
! 76: procedure put ( file : in file_type;
! 77: f : in double_float; dp : in natural ) is
! 78: begin
! 79: double_float_io.put(file,f,dp,dp,dp);
! 80: end put;
! 81:
! 82: end Standard_Floating_Numbers_io;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>