/[eiffelstudio]/trunk/Delivery/studio/built_ins/neutral/REAL_64.e
ViewVC logotype

Contents of /trunk/Delivery/studio/built_ins/neutral/REAL_64.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 82025 - (show annotations)
Thu Jan 7 17:55:49 2010 UTC (10 years ago) by manus
File size: 2790 byte(s)
Added `is_nan' support.

1 class REAL_64
2
3 feature -- Comparison
4
5 is_less alias "<" (other: REAL_64): BOOLEAN is
6 -- Is `other' greater than current double?
7 do
8 Result := Precursor (other)
9 end
10
11 infix "<" (other: REAL_64): BOOLEAN is
12 -- Is `other' greater than current double?
13 do
14 Result := Precursor (other)
15 end
16
17 feature -- Status report
18
19 is_nan: BOOLEAN
20 do
21 Result := Precursor
22 end
23
24 feature -- Conversion
25
26 truncated_to_integer: INTEGER_32 is
27 -- Integer part (Same sign, largest absolute
28 -- value no greater than current object's)
29 do
30 Result := Precursor
31 end
32
33 truncated_to_integer_64: INTEGER_64 is
34 -- Integer part (Same sign, largest absolute
35 -- value no greater than current object's)
36 do
37 Result := Precursor
38 end
39
40 truncated_to_real: REAL_32 is
41 -- Real part (Same sign, largest absolute
42 -- value no greater than current object's)
43 do
44 Result := Precursor
45 end
46
47 ceiling_real_64: REAL_64 is
48 -- Smallest integral value no smaller than current object
49 do
50 Result := Precursor
51 end
52
53 floor_real_64: REAL_64 is
54 -- Greatest integral value no greater than current object
55 do
56 Result := Precursor
57 end
58
59 feature -- Basic operations
60
61 plus alias "+" (other: REAL_64): REAL_64 is
62 -- Sum with `other'
63 do
64 Result := Precursor (other)
65 end
66
67 minus alias "-" (other: REAL_64): REAL_64 is
68 -- Result of subtracting `other'
69 do
70 Result := Precursor (other)
71 end
72
73 product alias "*" (other: REAL_64): REAL_64 is
74 -- Product with `other'
75 do
76 Result := Precursor (other)
77 end
78
79 quotient alias "/" (other: REAL_64): REAL_64 is
80 -- Division by `other'
81 do
82 Result := Precursor (other)
83 end
84
85 power alias "^" (other: REAL_64): REAL_64 is
86 -- Current double to the power `other'
87 do
88 Result := Precursor (other)
89 end
90
91 identity alias "+": REAL_64 is
92 -- Unary plus
93 do
94 Result := Precursor
95 end
96
97 opposite alias "-": REAL_64 is
98 -- Unary minus
99 do
100 Result := Precursor
101 end
102
103 infix "+" (other: REAL_64): REAL_64 is
104 -- Sum with `other'
105 do
106 Result := Precursor (other)
107 end
108
109 infix "-" (other: REAL_64): REAL_64 is
110 -- Result of subtracting `other'
111 do
112 Result := Precursor (other)
113 end
114
115 infix "*" (other: REAL_64): REAL_64 is
116 -- Product with `other'
117 do
118 Result := Precursor (other)
119 end
120
121 infix "/" (other: REAL_64): REAL_64 is
122 -- Division by `other'
123 do
124 Result := Precursor (other)
125 end
126
127 infix "^" (other: REAL_64): REAL_64 is
128 -- Current double to the power `other'
129 do
130 Result := Precursor (other)
131 end
132
133 prefix "+": REAL_64 is
134 -- Unary plus
135 do
136 Result := Precursor
137 end
138
139 prefix "-": REAL_64 is
140 -- Unary minus
141 do
142 Result := Precursor
143 end
144
145 feature -- Output
146
147 out: STRING is
148 -- Printable representation of double value
149 do
150 Result := Precursor
151 end
152
153 end

Properties

Name Value
svn:eol-style native
svn:keywords Author Date ID Revision

  ViewVC Help
Powered by ViewVC 1.1.23