Function GEN_statement

src/dsql/gen.cpp:228–282

Generate complete blr for a dsqlScratch.

// Generate complete blr for a dsqlScratch.
void GEN_statement(DsqlCompilerScratch* scratch, DmlNode* node)
{
	DsqlStatement* statement = scratch->getDsqlStatement();

	if (statement->getBlrVersion() == 4)
		scratch->appendUChar(blr_version4);
	else
		scratch->appendUChar(blr_version5);

	const bool block = statement->getType() == DsqlStatement::TYPE_EXEC_BLOCK ||
		statement->getType() == DsqlStatement::TYPE_SELECT_BLOCK;

	// To parse sub-routines messages, they must not have that begin...end pair.
	// And since it appears to be unnecessary for execute block too, do not generate them.
	if (!block)
		scratch->appendUChar(blr_begin);

	scratch->putOuterMaps();
	GEN_hidden_variables(scratch);

	switch (statement->getType())
	{
	case DsqlStatement::TYPE_SELECT:
	case DsqlStatement::TYPE_SELECT_UPD:
	case DsqlStatement::TYPE_EXEC_BLOCK:
	case DsqlStatement::TYPE_SELECT_BLOCK:
		node->genBlr(scratch);
		break;

	///case DsqlStatement::TYPE_RETURNING_CURSOR:
	default:
		{
			dsql_msg* message = statement->getSendMsg();
			if (!message->msg_parameter)
				statement->setSendMsg(NULL);
			else
			{
				GEN_port(scratch, message);
				scratch->appendUChar(blr_receive_batch);
				scratch->appendUChar(message->msg_number);
			}
			message = statement->getReceiveMsg();
			if (!message->msg_parameter)
				statement->setReceiveMsg(NULL);
			else
				GEN_port(scratch, message);
			node->genBlr(scratch);
		}
	}

	if (!block)
		scratch->appendUChar(blr_end);

	scratch->appendUChar(blr_eoc);
}


/**