Function act_drop

src/gpre/sql.cpp:2824–2979

//

static act* act_drop()
{
	act* action = NULL;
	gpre_dbb* db = NULL;
	gpre_req* request = NULL;
	gpre_rel* relation = NULL;
	TEXT* identifier_name;

	switch (gpreGlob.token_global.tok_keyword)
	{
	case KW_DATABASE:
		{
			PAR_error("DROP DATABASE not supported");

			request = MSC_request(REQ_ddl);
			PAR_get_token();
			if (!isQuoted(gpreGlob.token_global.tok_type))
				CPR_s_error("<quoted database name>");
			db = (gpre_dbb*) MSC_alloc(DBB_LEN);
			SCHAR* db_string = (TEXT*) MSC_alloc(gpreGlob.token_global.tok_length + 1);
			db->dbb_filename = db_string;
			MSC_copy(gpreGlob.token_global.tok_string, gpreGlob.token_global.tok_length, db_string);
			gpre_sym* symbol = PAR_symbol(SYM_dummy);
			db->dbb_name = symbol;
			symbol->sym_type = SYM_database;
			symbol->sym_object = (gpre_ctx*) db;
			action = MSC_action(request, ACT_drop_database);
			action->act_whenever = gen_whenever();
			action->act_object = (ref*) db;
			PAR_get_token();
		}
		return action;

	case KW_DOMAIN:
		request = MSC_request(REQ_ddl);
		if (gpreGlob.isc_databases && !gpreGlob.isc_databases->dbb_next)
			request->req_database = gpreGlob.isc_databases;
		else
			PAR_error("Can only DROP DOMAIN in context of single database");
		PAR_get_token();
		identifier_name = (TEXT*) MSC_alloc(NAME_SIZE + 1);
		SQL_resolve_identifier("<identifier>", identifier_name, NAME_SIZE + 1);
		if (gpreGlob.token_global.tok_length >= NAME_SIZE)
			PAR_error("Domain name too long");

		action = MSC_action(request, ACT_drop_domain);
		action->act_whenever = gen_whenever();
		action->act_object = (ref*) identifier_name;
		PAR_get_token();
		return action;

	case KW_FILTER:
		request = MSC_request(REQ_ddl);
		if (gpreGlob.isc_databases && !gpreGlob.isc_databases->dbb_next)
			request->req_database = gpreGlob.isc_databases;
		else
			PAR_error("Can only DROP FILTER in context of single database");
		PAR_get_token();