/[eiffelstudio]/trunk/eweasel/tests/ccomp040/natural_32_ref.e
ViewVC logotype

Contents of /trunk/eweasel/tests/ccomp040/natural_32_ref.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years ago) by manus
File size: 700 byte(s)
Moved from trunk/Src/eweasel to trunk/eweasel so that a simple checkout of the source code is not penalized by the lenghty process of checking out all the tests of eweasel.
1 indexing
2 description: "References to objects containing an integer value coded on 32 bits"
3 status: "See notice at end of class"
4 date: "$Date$"
5 revision: "$Revision$"
6
7 class
8 NATURAL_32_REF
9
10 feature
11
12 infix "+" (other: like Current): like Current is
13 do
14 end
15
16 infix "-" (other: like Current): like Current is
17 do
18 end
19
20 infix "*" (other: like Current): like Current is
21 do
22 end
23
24 infix "/" (other: like Current): DOUBLE is
25 do
26 end
27
28 prefix "+": like Current is
29 do
30 end
31
32 prefix "-": like Current is
33 do
34 end
35
36 item: NATURAL_32
37
38 set_item (v: NATURAL_32) is
39 --
40 do
41
42 end
43
44 feature
45
46 to_reference: NATURAL_32_REF is
47 do
48 create Result
49 Result.set_item (item)
50 end
51
52
53 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23