/src/tools/interpreter/liberty_interpreter_object_boolean.e
Specman e | 42 lines | 22 code | 6 blank | 14 comment | 1 complexity | b544115e349e719e21068537f7f42425 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_INTERPRETER_OBJECT_BOOLEAN 16 17inherit 18 LIBERTY_INTERPRETER_OBJECT_NATIVE[BOOLEAN] 19 20creation {LIBERTY_INTERPRETER_OBJECT_CREATOR, LIBERTY_INTERPRETER_OBJECT_NATIVE, LIBERTY_INTERPRETER_NATIVE_ARRAY_ACCESSOR_FACTORY, LIBERTY_INTERPRETER} 21 make, with_item 22 23feature {ANY} 24 hash_code: INTEGER is 25 do 26 if item then 27 Result := 97 28 end 29 end 30 31 converted_to (target_type: LIBERTY_ACTUAL_TYPE): LIBERTY_INTERPRETER_OBJECT is 32 do 33 not_yet_implemented 34 end 35 36feature {} 37 expanded_twin: like Current is 38 do 39 create Result.with_item(interpreter, type, item, position) 40 end 41 42end -- class LIBERTY_INTERPRETER_OBJECT_BOOLEAN