mirror of
https://github.com/EiffelSoftware/eiffel-org.git
synced 2025-12-06 14:52:03 +01:00
Update syntax (alias instead of infix). (commit by Conaclos)
git-svn-id: https://svn.eiffel.com/eiffel-org/trunk@1413 abb3cda0-5349-4a8f-a601-0c33ac3a8c38
This commit is contained in:
@@ -30,24 +30,24 @@ deferred class
|
||||
|
||||
feature -- Comparison
|
||||
|
||||
infix "<" (other: like Current): BOOLEAN
|
||||
is_less alias "<" (other: like Current): BOOLEAN
|
||||
-- Is current object less than `other'?
|
||||
deferred
|
||||
end
|
||||
|
||||
infix "<=" (other: like Current): BOOLEAN
|
||||
is_less_equal alias "<=" (other: like Current): BOOLEAN
|
||||
-- Is current object less than or equal to `other'?
|
||||
do
|
||||
Result := not (other < Current)
|
||||
end
|
||||
|
||||
infix ">" (other: like Current): BOOLEAN
|
||||
is_greater alias ">" (other: like Current): BOOLEAN
|
||||
-- Is current object greater than `other'?
|
||||
do
|
||||
Result := other < Current
|
||||
end
|
||||
|
||||
infix ">=" (other: like Current): BOOLEAN
|
||||
is_greater_equal alias ">=" (other: like Current): BOOLEAN
|
||||
-- Is current object greater than or equal to `other'?
|
||||
do
|
||||
Result := not (Current < other)
|
||||
|
||||
Reference in New Issue
Block a user