/tutorial/backtracking/logigram/constraints/constraint_equal.e

 1-- See the Copyright notice at the end of this file.
 2--
 3class CONSTRAINT_EQUAL
 4
 5inherit
 6	CONSTRAINT_RELATIONAL
 7
 8creation {ANY}
 9	make
10
11feature {ANY}
12	to_boolean: BOOLEAN is
13		do
14			Result := left.to_integer = right.to_integer
15		end
16
17end -- class CONSTRAINT_EQUAL
18--
19-- ------------------------------------------------------------------------------------------------------------------------------
20-- Copyright notice below. Please read.
21--
22-- This file is free software, which comes along with SmartEiffel. This software is distributed in the hope that it will be
23-- useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
24-- You can modify it as you want, provided this footer is kept unaltered, and a notification of the changes is added.
25-- You are allowed to redistribute it and sell it, alone or as a part of another product.
26--
27-- Copyright(C) 1994-2002: INRIA - LORIA (INRIA Lorraine) - ESIAL U.H.P.       - University of Nancy 1 - FRANCE
28-- Copyright(C) 2003-2005: INRIA - LORIA (INRIA Lorraine) - I.U.T. Charlemagne - University of Nancy 2 - FRANCE
29--
30-- Authors: Dominique COLNET, Philippe RIBET, Cyril ADRIAN, Vincent CROIZIER, Frederic MERIZEN
31--
32-- http://SmartEiffel.loria.fr - SmartEiffel@loria.fr
33-- ------------------------------------------------------------------------------------------------------------------------------