/[eiffelstudio]/trunk/eweasel/tests/set002/sample_object_comparable.e
ViewVC logotype

Contents of /trunk/eweasel/tests/set002/sample_object_comparable.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: 305 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 class SAMPLE_OBJECT_COMPARABLE inherit
2
3 COMPARABLE
4
5 SAMPLE_OBJECT
6 undefine
7 is_equal
8 end
9
10 create
11
12 make
13
14 feature -- Comparison
15
16 infix "<" (other: like Current): BOOLEAN is
17 -- Is `Current' less than `other'?
18
19 do
20 Result := (item < other.item)
21 end
22
23 end -- class SAMPLE_OBJECT_COMPARABLE

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23