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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 56535 - (show 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 indexing
2 description: "Actual type for real 32 bits type."
3 legal: "See notice at end of class."
4 status: "See notice at end of class."
5 date: "$Date$"
6 revision: "$Revision $"
7
8 class REAL_32_A
9
10 inherit
11 BASIC_A
12 redefine
13 is_real_32, associated_class, same_as, is_numeric,
14 default_create
15 end
16
17 create
18 default_create
19
20 feature {NONE} -- Initialization
21
22 default_create is
23 -- Initialize new instance of REAL_32_A.
24 do
25 make (associated_class.class_id)
26 end
27
28 feature -- Property
29
30 is_real_32: BOOLEAN is True
31 -- Is the current type a real 32 bits type ?
32
33 associated_class: CLASS_C is
34 -- Class REAL
35 once
36 Result := System.real_32_class.compiled_class
37 end
38
39 feature {COMPILER_EXPORTER}
40
41 is_numeric: BOOLEAN is True
42 -- Is the current type a numeric type ?
43
44 type_i: REAL_32_I is
45 -- C type
46 do
47 Result := real32_c_type
48 end
49
50 same_as (other: TYPE_A): BOOLEAN is
51 -- Is the current type the same as `other' ?
52 do
53 Result := other.is_real_32
54 end
55
56 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 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