/[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 56535 - (hide annotations)
Tue Jan 17 01:37:10 2006 UTC (14 years ago) by manus
Original Path: trunk/Src/bench/Eiffel/API/evaluated_type/real_a.e
File size: 2335 byte(s)
Added text of the GPL license to all classes of the compiler.

1 dinov 3375 indexing
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 41732 default_create
15 grator 18 end
16    
17 manus 41732 create
18     default_create
19    
20     feature {NONE} -- Initialization
21    
22     default_create is
23 manus 47234 -- Initialize new instance of REAL_32_A.
24 manus 41732 do
25     make (associated_class.class_id)
26     end
27    
28 dinov 3078 feature -- Property
29    
30 manus 47234 is_real_32: BOOLEAN is True
31     -- Is the current type a real 32 bits type ?
32 dinov 3078
33 manus 11302 associated_class: CLASS_C is
34     -- Class REAL
35 dinov 3078 once
36 manus 47234 Result := System.real_32_class.compiled_class
37 manus 9656 end
38 dinov 3078
39 dinov 3181 feature {COMPILER_EXPORTER}
40 grator 18
41 manus 9656 is_numeric: BOOLEAN is True
42 grator 18 -- Is the current type a numeric type ?
43    
44 manus 47234 type_i: REAL_32_I is
45 grator 18 -- C type
46 manus 32079 do
47 manus 47234 Result := real32_c_type
48 manus 9656 end
49 grator 18
50     same_as (other: TYPE_A): BOOLEAN is
51     -- Is the current type the same as `other' ?
52     do
53 manus 47234 Result := other.is_real_32
54 manus 9656 end
55 grator 18
56 manus 56535 indexing
57     copyright: "Copyright (c) 1984-2006, Eiffel Software"
58     license: "GPL version 2 see http://www.eiffel.com/licensing/gpl.txt)"
59     licensing_options: "http://www.eiffel.com/licensing"
60     copying: "[
61     This file is part of Eiffel Software's Eiffel Development Environment.
62    
63     Eiffel Software's Eiffel Development Environment is free
64     software; you can redistribute it and/or modify it under
65     the terms of the GNU General Public License as published
66     by the Free Software Foundation, version 2 of the License
67     (available at the URL listed under "license" above).
68    
69     Eiffel Software's Eiffel Development Environment is
70     distributed in the hope that it will be useful, but
71     WITHOUT ANY WARRANTY; without even the implied warranty
72     of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
73     See the GNU General Public License for more details.
74    
75     You should have received a copy of the GNU General Public
76     License along with Eiffel Software's Eiffel Development
77     Environment; if not, write to the Free Software Foundation,
78     Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
79     ]"
80     source: "[
81     Eiffel Software
82     356 Storke Road, Goleta, CA 93117 USA
83     Telephone 805-685-1006, Fax 805-685-6869
84     Website http://www.eiffel.com
85     Customer support http://support.eiffel.com
86     ]"
87    
88 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