/src/tools/semantics/code/expressions/liberty_greater_or_equal.e
Specman e | 46 lines | 25 code | 7 blank | 14 comment | 0 complexity | 4aa5acc696e5a01849c44c16090b083c MD5 | raw file
1-- This file is part of Liberty Eiffel. 2-- 3-- Liberty Eiffel is free software: you can redistribute it and/or modify 4-- it under the terms of the GNU General Public License as published by 5-- the Free Software Foundation, version 3 of the License. 6-- 7-- Liberty Eiffel is distributed in the hope that it will be useful, 8-- but WITHOUT ANY WARRANTY; without even the implied warranty of 9-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 10-- GNU General Public License for more details. 11-- 12-- You should have received a copy of the GNU General Public License 13-- along with Liberty Eiffel. If not, see <http://www.gnu.org/licenses/>. 14-- 15class LIBERTY_GREATER_OR_EQUAL 16 17inherit 18 LIBERTY_INFIX_CALL 19 20create {LIBERTY_BUILDER_TOOLS} 21 make 22 23create {LIBERTY_GREATER_OR_EQUAL} 24 new 25 26feature {} 27 the_infix_name: FIXED_STRING is 28 once 29 Result := ">=".intern 30 end 31 32 make_new (a_target: like target; a_entity: like entity; a_actuals: like actuals_list; a_position: like position): like Current is 33 do 34 create Result.new(a_target, a_entity, a_actuals, a_position) 35 end 36 37feature {ANY} 38 accept (v: VISITOR) is 39 local 40 v0: LIBERTY_GREATER_OR_EQUAL_VISITOR 41 do 42 v0 ::= v 43 v0.visit_liberty_greater_or_equal(Current) 44 end 45 46end