Function act_delete

src/gpre/sql.cpp:2596–2728

//

static act* act_delete()
{
	const TEXT* transaction;

	par_options(&transaction);

	if (!MSC_match(KW_FROM))
		CPR_s_error("FROM");

	// First comes the relation.  Unfortunately, there is no way to identify
	// its database until the cursor is known.  Sigh.  Save the token.

	TEXT r_name[NAME_SIZE], db_name[NAME_SIZE], owner_name[NAME_SIZE];
	SQL_relation_name(r_name, db_name, owner_name);

	// Parse the optional alias (context variable)

	gpre_sym* alias = gpreGlob.token_global.tok_symbol ? NULL : PAR_symbol(SYM_dummy);

	// Now the moment of truth.  If the next few tokens are WHERE CURRENT OF
	// then this is a sub-action of an existing request.  If not, then it is
	// a free standing request

	gpre_req* request = MSC_request(REQ_mass_update);
	upd* update = (upd*) MSC_alloc(UPD_LEN);

	const bool where = MSC_match(KW_WITH);
	if (where && MSC_match(KW_CURRENT))
	{
		if (!MSC_match(KW_OF))
			CPR_s_error("OF <cursor>");
		gpreGlob.requests = request->req_next;
		gpreGlob.cur_routine->act_object = (ref*) request->req_routine; // Beware global var
		MSC_free(request);
		request = par_cursor(NULL);
		if ((transaction || request->req_trans) &&
			(!transaction || !request->req_trans || strcmp(transaction, request->req_trans)))
		{
			if (transaction)
				PAR_error("different transaction for select and delete");
			else
			{
				// does not specify transaction clause in
				// "delete ... where current of cursor" stmt
				const int trans_nm_len = static_cast<int>(strlen(request->req_trans));
				char* str_2 = (char*) MSC_alloc(trans_nm_len + 1);
				memcpy(str_2, request->req_trans, trans_nm_len);
				transaction = str_2;
			}
		}
		request->req_trans = transaction;
		gpre_rel* relation = SQL_relation(request, r_name, db_name, owner_name, true);
		gpre_rse* selection = request->req_rse;
		gpre_ctx* context = NULL;
		SSHORT i;
		for (i = 0; i < selection->rse_count; i++)
		{
			context = selection->rse_context[i];