/[eiffelstudio]/branches/eth/eve/Src/Eiffel/API/evaluated_type/real_a.e
ViewVC logotype

Annotation of /branches/eth/eve/Src/Eiffel/API/evaluated_type/real_a.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 76432 - (hide annotations)
Mon Dec 29 23:41:59 2008 UTC (11 years, 1 month ago) by manus
Original Path: trunk/Src/Eiffel/API/evaluated_type/real_32_a.e
File size: 2715 byte(s)
Removal of `is' keyword.
Replacement of `is' by `=' for constant definitions.
Replaced `indexing' by `note'.

1 manus 76432 note
2 manus 47234 description: "Actual type for real 32 bits type."
3 manus 56535 legal: "See notice at end of class."
4     status: "See notice at end of class."
5 manus 9656 date: "$Date$"
6 dinov 3375 revision: "$Revision $"
7    
8 manus 47234 class REAL_32_A
9 grator 18
10     inherit
11     BASIC_A
12     redefine
13 manus 47234 is_real_32, associated_class, same_as, is_numeric,
14 manus 72419 default_create, process, heaviest
15 grator 18 end
16    
17 manus 41732 create
18     default_create
19    
20     feature {NONE} -- Initialization
21    
22 manus 76432 default_create
23 manus 47234 -- Initialize new instance of REAL_32_A.
24 manus 41732 do
25     make (associated_class.class_id)
26     end
27    
28 manus 57234 feature -- Visitor
29    
30 manus 76432 process (v: TYPE_A_VISITOR)
31 manus 57234 -- Process current element.
32     do
33     v.process_real_32_a (Current)
34     end
35    
36 dinov 3078 feature -- Property
37    
38 manus 76432 is_real_32: BOOLEAN = True
39 manus 47234 -- Is the current type a real 32 bits type ?
40 dinov 3078
41 manus 72419 feature -- Access
42    
43 manus 76432 associated_class: CLASS_C
44 manus 11302 -- Class REAL
45 dinov 3078 once
46 manus 47234 Result := System.real_32_class.compiled_class
47 manus 9656 end
48 dinov 3078
49 manus 72419 feature -- IL code generation
50    
51 manus 76432 heaviest (other: TYPE_A): TYPE_A
52 manus 72419 -- `other' if `other' is heavier than Current,
53     -- Current otherwise.
54     do
55     if other.is_real_64 then
56     Result := other
57     else
58     Result := Current
59     end
60     end
61    
62 dinov 3181 feature {COMPILER_EXPORTER}
63 grator 18
64 manus 76432 is_numeric: BOOLEAN = True
65 grator 18 -- Is the current type a numeric type ?
66    
67 manus 76432 c_type: REAL_32_I
68 grator 18 -- C type
69 manus 32079 do
70 manus 47234 Result := real32_c_type
71 manus 9656 end
72 grator 18
73 manus 76432 same_as (other: TYPE_A): BOOLEAN
74 grator 18 -- Is the current type the same as `other' ?
75     do
76 manus 74866 Result := same_type (other)
77 manus 9656 end
78 grator 18
79 manus 76432 note
80 alexk 71150 copyright: "Copyright (c) 1984-2007, Eiffel Software"
81 manus 58027 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
82 manus 56535 licensing_options: "http://www.eiffel.com/licensing"
83     copying: "[
84     This file is part of Eiffel Software's Eiffel Development Environment.
85 manus 58027
86 manus 56535 Eiffel Software's Eiffel Development Environment is free
87     software; you can redistribute it and/or modify it under
88     the terms of the GNU General Public License as published
89     by the Free Software Foundation, version 2 of the License
90     (available at the URL listed under "license" above).
91 manus 58027
92 manus 56535 Eiffel Software's Eiffel Development Environment is
93     distributed in the hope that it will be useful, but
94     WITHOUT ANY WARRANTY; without even the implied warranty
95     of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
96     See the GNU General Public License for more details.
97 manus 58027
98 manus 56535 You should have received a copy of the GNU General Public
99     License along with Eiffel Software's Eiffel Development
100     Environment; if not, write to the Free Software Foundation,
101     Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
102     ]"
103     source: "[
104     Eiffel Software
105     356 Storke Road, Goleta, CA 93117 USA
106     Telephone 805-685-1006, Fax 805-685-6869
107     Website http://www.eiffel.com
108     Customer support http://support.eiffel.com
109     ]"
110    
111 manus 47234 end -- class REAL_32_A

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23