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