Method makeProcedure

src/jrd/ExtEngineManager.cpp:1464–1604

void ExtEngineManager::makeProcedure(thread_db* tdbb, CompilerScratch* csb, jrd_prc* prc,
	const MetaName& engine, const string& entryPoint, const string& body)
{
	string entryPointTrimmed = entryPoint;
	entryPointTrimmed.trim();

	EngineAttachmentInfo* attInfo = getEngineAttachment(tdbb, engine);
	const MetaString& userName = prc->invoker ? prc->invoker->getUserName() : "";
	ContextManager<IExternalProcedure> ctxManager(tdbb, attInfo, attInfo->adminCharSet,
		(prc->getName().package.isEmpty() ?
			CallerName(obj_procedure, prc->getName().identifier, userName) :
			CallerName(obj_package_header, prc->getName().package, userName)));

	MemoryPool& pool = *tdbb->getAttachment()->att_pool;

	AutoPtr<RoutineMetadata> metadata(FB_NEW_POOL(pool) RoutineMetadata(pool));
	metadata->package = prc->getName().package;
	metadata->name = prc->getName().identifier;
	metadata->entryPoint = entryPointTrimmed;
	metadata->body = body;
	metadata->inputParameters.assignRefNoIncr(Routine::createMetadata(prc->getInputFields(), true));
	metadata->outputParameters.assignRefNoIncr(Routine::createMetadata(prc->getOutputFields(), true));

	prc->setInputFormat(Routine::createFormat(pool, metadata->inputParameters, false));
	prc->setOutputFormat(Routine::createFormat(pool, metadata->outputParameters, true));

	FbLocalStatus status;

	RefPtr<IMetadataBuilder> inBuilder(REF_NO_INCR, metadata->inputParameters->getBuilder(&status));
	status.check();

	RefPtr<IMetadataBuilder> outBuilder(REF_NO_INCR, metadata->outputParameters->getBuilder(&status));
	status.check();

	IExternalProcedure* externalProcedure;
	RefPtr<IMessageMetadata> extInputParameters, extOutputParameters;

	{	// scope
		EngineCheckout cout(tdbb, FB_FUNCTION, checkoutType(attInfo->engine));

		externalProcedure = attInfo->engine->makeProcedure(&status, attInfo->context, metadata,
			inBuilder, outBuilder);

		try
		{
			status.check();

			if (!externalProcedure)
			{
				status_exception::raise(
					Arg::Gds(isc_eem_proc_not_returned) <<
						prc->getName().toString() << engine);
			}
		}
		catch (const Exception&)
		{
			if (tdbb->getAttachment()->isGbak())
				return;