class FEATURE_LIST_AS

inherit

	FEATURE_SET_AS
		redefine
			simple_format
		end

feature -- Attributes

	features: EIFFEL_LIST [FEATURE_NAME];
			-- List of feature names

feature -- Initialization

	set is
			-- Yacc initialization
		do
			features ?= yacc_arg (0);
		end;

	simple_format (ctxt: FORMAT_CONTEXT) is
			-- Reconstitute text.
			--| what if multiple names in ancestors?
		do
			ctxt.begin;
			ctxt.set_separator (ti_Comma);
			ctxt.space_between_tokens;
			ctxt.continue_on_failure;
			features.simple_format (ctxt);
			ctxt.commit;
		end;

			
end