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

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

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

FreeELKS/trunk/library/kernel/double_ref.e revision 91475 by ericb, Thu Feb 9 11:23:11 2006 UTC FreeELKS/trunk/library/kernel/real_64_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 DOUBLE_REF inherit  class REAL_64_REF inherit
10    
11          NUMERIC          NUMERIC
12                  redefine                  redefine
# Line 25  class DOUBLE_REF inherit Line 25  class DOUBLE_REF inherit
25    
26  feature -- Access  feature -- Access
27    
28          item: DOUBLE is          item: REAL_64 is
29                          -- Numeric double value                          -- Numeric double 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 (d: DOUBLE) is          set_item (d: REAL_64) is
84                          -- Make `d' the `item' value.                          -- Make `d' the `item' value.
85                  external                  external
86                          "built_in"                          "built_in"
# Line 127  feature -- Status report Line 127  feature -- Status report
127    
128  feature {NONE} -- Conversion  feature {NONE} -- Conversion
129    
130          make_from_reference (v: DOUBLE_REF) is          make_from_reference (v: REAL_64_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 139  feature {NONE} -- Conversion Line 139  feature {NONE} -- Conversion
139    
140  feature -- Conversion  feature -- Conversion
141    
142          to_reference: DOUBLE_REF is          to_reference: REAL_64_REF is
143                          -- Associated reference of Current                          -- Associated reference of Current
144                  do                  do
145                          create Result                          create Result
# Line 162  feature -- Conversion Line 162  feature -- Conversion
162                          Result := item.truncated_to_integer_64                          Result := item.truncated_to_integer_64
163                  end                  end
164    
165          truncated_to_real: REAL is          truncated_to_real: REAL_32 is
166                          -- Real part (Same sign, largest absolute                          -- Real part (Same sign, largest absolute
167                          -- value no greater than current object's)                          -- value no greater than current object's)
168                  do                  do
# Line 195  feature -- Conversion Line 195  feature -- Conversion
195                          definition: Result = sign * ((abs + 0.5).floor)                          definition: Result = sign * ((abs + 0.5).floor)
196                  end                  end
197    
198          ceiling_real_64: DOUBLE is          ceiling_real_64: REAL_64 is
199                          -- Smallest integral value no smaller than current object                          -- Smallest integral value no smaller than current object
200                  do                  do
201                          Result := item.ceiling_real_64                          Result := item.ceiling_real_64
# Line 204  feature -- Conversion Line 204  feature -- Conversion
204                          close_enough: Result - item < item.one                          close_enough: Result - item < item.one
205                  end                  end
206    
207          floor_real_64: DOUBLE is          floor_real_64: REAL_64 is
208                          -- Greatest integral value no greater than current object                          -- Greatest integral value no greater than current object
209                  do                  do
210                          Result := item.floor_real_64                          Result := item.floor_real_64
# Line 213  feature -- Conversion Line 213  feature -- Conversion
213                          close_enough: item - Result < Result.one                          close_enough: item - Result < Result.one
214                  end                  end
215    
216          rounded_real_64: DOUBLE is          rounded_real_64: REAL_64 is
217                          -- Rounded integral value                          -- Rounded integral value
218                  do                  do
219                          Result := sign * ((abs + 0.5).floor_real_64)                          Result := sign * ((abs + 0.5).floor_real_64)
# Line 223  feature -- Conversion Line 223  feature -- Conversion
223    
224  feature -- Basic operations  feature -- Basic operations
225    
226          abs: DOUBLE is          abs: REAL_64 is
227                          -- Absolute value                          -- Absolute value
228                  do                  do
229                          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