/tutorial/backtracking/logigram/constraints/constraint_equal.e
Specman e | 33 lines | 11 code | 4 blank | 18 comment | 0 complexity | b880d5201ec668e10ede4ba7ffa0057b MD5 | raw file
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-- ------------------------------------------------------------------------------------------------------------------------------