/[eiffelstudio]/FreeELKS/trunk/library/kernel/real_32_ref.e
ViewVC logotype

Diff of /FreeELKS/trunk/library/kernel/real_32_ref.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

FreeELKS/trunk/library/kernel/real_ref.e revision 91475 by ericb, Thu Feb 9 11:23:11 2006 UTC FreeELKS/trunk/library/kernel/real_32_ref.e revision 91477 by ericb, Sun Jan 14 09:47:13 2007 UTC
# Line 6  indexing Line 6  indexing
6          date: "$Date$"          date: "$Date$"
7          revision: "$Revision$"          revision: "$Revision$"
8    
9  class REAL_REF inherit  class REAL_32_REF inherit
10    
11          NUMERIC          NUMERIC
12                  redefine                  redefine
# Line 25  class REAL_REF inherit Line 25  class REAL_REF inherit
25    
26  feature -- Access  feature -- Access
27    
28          item: REAL is          item: REAL_32 is
29                          -- Numeric real value                          -- Numeric real value
30                  external                  external
31                          "built_in"                          "built_in"
# Line 80  feature -- Comparison Line 80  feature -- Comparison
80    
81  feature -- Element change  feature -- Element change
82    
83          set_item (r: REAL) is          set_item (r: REAL_32) is
84                          -- Make `r' the value of `item'.                          -- Make `r' the value of `item'.
85                  external                  external
86                          "built_in"                          "built_in"
# Line 127  feature -- Status report Line 127  feature -- Status report
127    
128  feature {NONE} -- Initialization  feature {NONE} -- Initialization
129    
130          make_from_reference (v: REAL_REF) is          make_from_reference (v: REAL_32_REF) is
131                          -- Initialize `Current' with `v.item'.                          -- Initialize `Current' with `v.item'.
132                  require                  require
133                          v_not_void: v /= Void                          v_not_void: v /= Void
# Line 194  feature -- Conversion Line 194  feature -- Conversion
194                          definition: Result = sign * ((abs + 0.5).floor)                          definition: Result = sign * ((abs + 0.5).floor)
195                  end                  end
196    
197          ceiling_real_32: REAL is          ceiling_real_32: REAL_32 is
198                          -- Smallest integral value no smaller than current object                          -- Smallest integral value no smaller than current object
199                  do                  do
200                          Result := item.ceiling_real_32                          Result := item.ceiling_real_32
# Line 203  feature -- Conversion Line 203  feature -- Conversion
203                          close_enough: Result - item < item.one                          close_enough: Result - item < item.one
204                  end                  end
205    
206          floor_real_32: REAL is          floor_real_32: REAL_32 is
207                          -- Greatest integral value no greater than current object                          -- Greatest integral value no greater than current object
208                  do                  do
209                          Result := item.floor_real_32                          Result := item.floor_real_32
# Line 212  feature -- Conversion Line 212  feature -- Conversion
212                          close_enough: item - Result < Result.one                          close_enough: item - Result < Result.one
213                  end                  end
214    
215          rounded_real_32: REAL is          rounded_real_32: REAL_32 is
216                          -- Rounded integral value                          -- Rounded integral value
217                  do                  do
218                          Result := sign * ((abs + 0.5).floor_real_32)                          Result := sign * ((abs + 0.5).floor_real_32)
# Line 222  feature -- Conversion Line 222  feature -- Conversion
222    
223  feature -- Basic operations  feature -- Basic operations
224    
225          abs: REAL is          abs: REAL_32 is
226                          -- Absolute value                          -- Absolute value
227                  do                  do
228                          Result := abs_ref.item                          Result := abs_ref.item

Legend:
Removed from v.91475  
changed lines
  Added in v.91477

  ViewVC Help
Powered by ViewVC 1.1.23