/[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 41732 - (hide annotations)
Fri Mar 5 17:59:47 2004 UTC (15 years, 10 months ago) by manus
Original Path: trunk/Src/bench/Eiffel/API/evaluated_type/real_a.e
File size: 894 byte(s)
Removed redefinition of `internal_conform_to', we now use the definition
  from CL_TYPE_A.
Ensured that all basic types have their `class_id' attribute properly defined
  as per the new CL_TYPE_A invariant.
Removed `heaviest' since we are now relying on the conversion mechanism and
  not on the balancing rules.

1 dinov 3375 indexing
2 grator 18
3 dinov 3375 description:
4 manus 9656 "Actual type for real type."
5     date: "$Date$"
6 dinov 3375 revision: "$Revision $"
7    
8 grator 18 class REAL_A
9    
10     inherit
11     BASIC_A
12     redefine
13 manus 41732 is_real, associated_class, same_as, is_numeric,
14     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     -- Initialize new instance of REAL_A.
24     do
25     make (associated_class.class_id)
26     end
27    
28 dinov 3078 feature -- Property
29    
30 manus 9656 is_real: BOOLEAN is True
31 dinov 3078 -- Is the current type a real type ?
32    
33 manus 11302 associated_class: CLASS_C is
34     -- Class REAL
35 dinov 3078 once
36 manus 11128 Result := System.real_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     type_i: FLOAT_I is
45     -- C type
46 manus 32079 do
47 manus 41732 Result := float_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 9656 Result := other.is_real
54     end
55 grator 18
56 dinov 3375 end -- class REAL_A

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23