/src/tools/semantics/code/instructions/liberty_precursor_instruction.e
Specman e | 41 lines | 21 code | 6 blank | 14 comment | 0 complexity | 8e779e16e2d5be3e8c0011856ec41675 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_PRECURSOR_INSTRUCTION 16 17inherit 18 LIBERTY_INSTRUCTION 19 20insert 21 LIBERTY_PRECURSOR 22 23create {LIBERTY_BUILDER_TOOLS, LIBERTY_PRECURSOR_INSTRUCTION} 24 make 25 26feature {ANY} 27 accept (v: VISITOR) is 28 local 29 v0: LIBERTY_PRECURSOR_INSTRUCTION_VISITOR 30 do 31 v0 ::= v 32 v0.visit_liberty_precursor_instruction(Current) 33 end 34 35feature {} 36 make_new (a_feature: like the_feature; a_actuals: like actuals_list; a_position: like position): like Current is 37 do 38 create Result.make(a_feature, a_actuals, a_position) 39 end 40 41end