note description: "Gelex tasks" library: "Gobo Eiffel Ant" copyright: "Copyright (c) 2001-2016, Sven Ehrke and others" license: "MIT License" date: "$Date$" revision: "$Revision$" class GEANT_GELEX_TASK inherit GEANT_TASK redefine make, build_command, command end KL_IMPORTED_STRING_ROUTINES 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) -- size: if has_attribute (Size_attribute_name) then a_value := attribute_value (Size_attribute_name) if a_value.is_integer then command.set_array_size (a_value) end end -- array_size: if has_attribute (Array_size_attribute_name) then a_value := attribute_value (Array_size_attribute_name) if a_value.is_integer then command.set_array_size (a_value) end end -- backup: if has_attribute (Backup_attribute_name) then command.set_backup (boolean_value (Backup_attribute_name)) end -- ecs: if has_attribute (Ecs_attribute_name) then command.set_ecs (boolean_value (Ecs_attribute_name)) end -- full: if has_attribute (Full_attribute_name) then command.set_full (boolean_value (Full_attribute_name)) end -- case_insensitive: if has_attribute (Case_insensitive_attribute_name) then command.set_case_insensitive (boolean_value (Case_insensitive_attribute_name)) end -- meta_ecs: if has_attribute (Meta_ecs_attribute_name) then command.set_meta_ecs (boolean_value (Meta_ecs_attribute_name)) end -- no_default: if has_attribute (No_default_attribute_name) then command.set_no_default (boolean_value (No_default_attribute_name)) end -- no_warn: if has_attribute (No_warn_attribute_name) then command.set_no_warn (boolean_value (No_warn_attribute_name)) end -- separate_actions: if has_attribute (Separate_actions_attribute_name) then command.set_separate_actions (boolean_value (Separate_actions_attribute_name)) end -- inspect_actions: if has_attribute (Inspect_actions_attribute_name) then a_value := attribute_value (Inspect_actions_attribute_name) if a_value.count > 0 then command.set_inspect_actions (a_value) end end -- output_filename: if has_attribute (Output_filename_attribute_name) then a_value := attribute_value (Output_filename_attribute_name) if a_value.count > 0 then command.set_output_filename (a_value) end end -- input_filename: if has_attribute (Input_filename_attribute_name) then a_value := attribute_value (Input_filename_attribute_name) if a_value.count > 0 then command.set_input_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_GELEX_COMMAND -- Gelex commands feature {NONE} -- Constants Size_attribute_name: STRING -- Name of xml attribute for size. -- Obsolete: use 'array_size' instead. once Result := "size" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end Array_size_attribute_name: STRING -- Name of xml attribute for array_size once Result := "array_size" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end Inspect_actions_attribute_name: STRING -- Name of xml attribute for inspect_actions once Result := "inspect_actions" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end Backup_attribute_name: STRING -- Name of xml attribute for backup once Result := "backup" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end Ecs_attribute_name: STRING -- Name of xml attribute for ecs once Result := "ecs" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end Full_attribute_name: STRING -- Name of xml attribute for full once Result := "full" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end Case_insensitive_attribute_name: STRING -- Name of xml attribute for case_insensitive once Result := "case_insensitive" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end Meta_ecs_attribute_name: STRING -- Name of xml attribute for meta_ecs once Result := "meta_ecs" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end No_default_attribute_name: STRING -- Name of xml attribute for no_default once Result := "no_default" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end No_warn_attribute_name: STRING -- Name of xml attribute for no_warn once Result := "no_warn" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end Separate_actions_attribute_name: STRING -- Name of xml attribute for separate_actions once Result := "separate_actions" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end Output_filename_attribute_name: STRING -- Name of xml attribute for output_filename once Result := "output" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end Input_filename_attribute_name: STRING -- Name of xml attribute for input_filename once Result := "input" ensure attribute_name_not_void: Result /= Void atribute_name_not_empty: Result.count > 0 end end