/src/tools/semantics/code/liberty_instruction.e
Specman e | 34 lines | 16 code | 4 blank | 14 comment | 0 complexity | d6f6e37ecff7ef928c349d28697c7c85 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-- 15deferred class LIBERTY_INSTRUCTION 16 17inherit 18 LIBERTY_TAGGED 19 20insert 21 LIBERTY_POSITIONABLE 22 LIBERTY_REACHABLE 23 VISITABLE 24 25feature {ANY} 26 specialized_in (a_type: LIBERTY_ACTUAL_TYPE): like Current is 27 require 28 a_type /= Void 29 deferred 30 ensure 31 Result /= Void 32 end 33 34end