< infix "*" ( other: COMPLEX ) : like Current --- > infix "*" ( other: like Current ) : like Current
Comparable
: absztrakt osztály, művelettel való paraméterezés, dinamikus kötés; bináris műveletek
ANY
class DATUM inherit COMPARABLE feature make_masnap( d: DATUM ) ensure d < Current masnap: DATUM ensure Current < Result is_less alias "<" (other: like Current): BOOLEAN do if ev = other.ev then if honap = other.honap then Result := nap < other.nap else Result := honap < other.honap end -- if else Result := ev < other.ev end -- if end -- "<"