Function act_create_index

src/gpre/sql.cpp:1896–1943

//

static act* act_create_index(bool dups, bool descending)
{
	// create request block

	gpre_req* request = MSC_request(REQ_ddl);

	// get index and table names and create index and relation blocks

	SCHAR i_name[NAME_SIZE + 1];
	SQL_resolve_identifier("<index name>", i_name, NAME_SIZE + 1);
	if (gpreGlob.token_global.tok_length >= NAME_SIZE)
		PAR_error("Index name too long");

	PAR_get_token();

	if (!MSC_match(KW_ON))
		CPR_s_error("ON");

	gpre_rel* relation = par_relation(request);

	gpre_index* index = make_index(request, i_name);
	index->ind_relation = relation;
	index->ind_flags |= dups ? IND_dup_flag : 0;
	index->ind_flags |= descending ? IND_descend : 0;

	// create action block

	act* action = MSC_action(request, ACT_create_index);
	action->act_whenever = gen_whenever();
	action->act_object = (ref*) index;

	// parse field list and create corresponding field blocks

	EXP_left_paren(0);
	gpre_fld** ptr = &index->ind_fields;

	for (;;)
	{
		*ptr = make_field(relation);
		ptr = &(*ptr)->fld_next;
		if (!MSC_match(KW_COMMA))
			break;
	}

	EXP_match_paren();

	return action;
}


//____________________________________________________________