/src/tools/errors/liberty_unknown_position.e
Specman e | 51 lines | 28 code | 9 blank | 14 comment | 0 complexity | 2f409b0640f7197d855f08b3bfc6b286 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_UNKNOWN_POSITION 16 17inherit 18 LIBERTY_POSITION 19 redefine 20 emit 21 end 22 23insert 24 EIFFEL_NODE_HANDLER 25 26create {LIBERTY_ERRORS} 27 make 28 29feature {ANY} 30 is_unknown: BOOLEAN is True 31 32feature {LIBERTY_ERROR} 33 emit (stream: OUTPUT_STREAM) is 34 do 35 stream.put_line(once "Unknown position") 36 end 37 38feature {} 39 make is 40 do 41 file := unknown_file 42 end 43 44 source: STRING is "" 45 46 unknown_file: FIXED_STRING is 47 once 48 Result := "Unknown file".intern 49 end 50 51end