/[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 47234 - (show annotations)
Sat Dec 25 00:19:09 2004 UTC (15 years, 1 month ago) by manus
Original Path: trunk/Src/bench/Eiffel/API/evaluated_type/real_a.e
File size: 930 byte(s)
Provided new class names, new feature names to entities representing
  basic types so that they are close to the new basic type names:
    real -> real_32
	double -> double_32
	float -> real_32
	long -> integer
	....

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