note description: "Lcc C-Compiler tasks" library: "Gobo Eiffel Ant" copyright: "Copyright (c) 2001, Sven Ehrke and others" license: "MIT License" date: "$Date$" revision: "$Revision$" class GEANT_LCC_TASK inherit GEANT_TASK redefine make, build_command, command end create make feature {NONE} -- Initialization make (a_project: GEANT_PROJECT; an_xml_element: XM_ELEMENT) -- Create a new task with information held in `an_element'. local a_value: STRING do Precursor {GEANT_TASK} (a_project, an_xml_element) -- -Fo: if has_attribute (Executable_attribute_name) then a_value := attribute_value (Executable_attribute_name) if a_value.count > 0 then command.set_executable (a_value) end end -- source_filename: if has_attribute (Source_filename_attribute_name) then a_value := attribute_value (Source_filename_attribute_name) if a_value.count > 0 then command.set_source_filename (a_value) end end end build_command (a_project: GEANT_PROJECT) -- Create instance of `command' do create command.make (a_project) end feature -- Access command: GEANT_LCC_COMMAND -- Lcc C-compiler commands feature {NONE} -- Constants Executable_attribute_name: STRING -- Name of xml attribute for executable once Result := "executable" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end Source_filename_attribute_name: STRING -- Name of xml attribute for source_filename once Result := "sourcefilename" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end end