tests/set002/sample_object_comparable.e

class SAMPLE_OBJECT_COMPARABLE inherit

        COMPARABLE

        SAMPLE_OBJECT
                undefine
                        is_equal
                end

create

        make

feature -- Comparison

        infix "<" (other: like Current): BOOLEAN is
                        -- Is `Current' less than `other'?

                do
                        Result := (item < other.item)
                end
                
end -- class SAMPLE_OBJECT_COMPARABLE
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
Name	Value
svn:eol-style	native
svn:keywords	Author Date Id Revision