void ExtEngineManager::makeFunction(thread_db* tdbb, CompilerScratch* csb, Jrd::Function* udf, const MetaName& engine, const string& entryPoint, const string& body) { string entryPointTrimmed = entryPoint; entryPointTrimmed.trim(); EngineAttachmentInfo* attInfo = getEngineAttachment(tdbb, engine); ContextManager<ExternalFunction> ctxManager(tdbb, attInfo, attInfo->adminCharSet, (udf->getName().package.isEmpty() ? CallerName(obj_udf, udf->getName().identifier) : CallerName(obj_package_header, udf->getName().package))); ///MemoryPool& pool = *tdbb->getDefaultPool(); MemoryPool& pool = *getDefaultMemoryPool(); AutoPtr<RoutineMetadata> metadata(FB_NEW(pool) RoutineMetadata(pool)); metadata->package = udf->getName().package; metadata->name = udf->getName().identifier; metadata->entryPoint = entryPointTrimmed; metadata->body = body; metadata->inputParameters = Routine::createMetadata(udf->getInputFields()); metadata->outputParameters = Routine::createMetadata(udf->getOutputFields()); LocalStatus 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(); ExternalFunction* externalFunction; { // scope Attachment::Checkout attCout(tdbb->getAttachment(), FB_FUNCTION); externalFunction = attInfo->engine->makeFunction(&status, attInfo->context, metadata, inBuilder, outBuilder); status.check(); if (!externalFunction) { status_exception::raise( Arg::Gds(isc_eem_func_not_returned) << udf->getName().toString() << engine); } metadata->inputParameters = inBuilder->getMetadata(&status); status.check(); metadata->outputParameters = outBuilder->getMetadata(&status); status.check(); } udf->setInputFormat(Routine::createFormat(pool, metadata->inputParameters, false)); udf->setOutputFormat(Routine::createFormat(pool, metadata->outputParameters, true)); try { udf->fun_external = FB_NEW(getPool()) Function(tdbb, this, attInfo->engine, metadata.release(), externalFunction, udf); CompoundStmtNode* mainNode = FB_NEW(getPool()) CompoundStmtNode(getPool()); ExtMessageNode* inMessageNode = udf->getInputFields().hasData() ? FB_NEW(getPool()) ExtMessageNode(tdbb, getPool(), csb, 0, udf->getInputFields(), udf->getInputFormat()) : NULL; if (inMessageNode) mainNode->statements.add(inMessageNode); ExtMessageNode* outMessageNode = FB_NEW(getPool()) ExtMessageNode(tdbb, getPool(), csb, 1, udf->getOutputFields(), udf->getOutputFormat()); mainNode->statements.add(outMessageNode); ExtInitOutputNode* initOutputNode = FB_NEW(getPool()) ExtInitOutputNode( tdbb, getPool(), csb, outMessageNode); mainNode->statements.add(initOutputNode); ReceiveNode* receiveNode = inMessageNode ? FB_NEW(getPool()) ReceiveNode(getPool()) : NULL; if (inMessageNode) { receiveNode->message = inMessageNode; receiveNode->statement = FB_NEW(getPool()) ExtValidationNode( getPool(), inMessageNode, false, true); mainNode->statements.add(receiveNode); } ExtFunctionNode* extFunctionNode = FB_NEW(getPool()) ExtFunctionNode(getPool(), receiveNode, udf->fun_external); mainNode->statements.add(extFunctionNode); extFunctionNode->message = outMessageNode; extFunctionNode->statement = FB_NEW(getPool()) ExtValidationNode( getPool(), outMessageNode, false, false); JrdStatement* statement = udf->getStatement(); PAR_preparsed_node(tdbb, NULL, mainNode, NULL, &csb, &statement, false, 0); udf->setStatement(statement); } catch (...) { Attachment::Checkout attCout(tdbb->getAttachment(), FB_FUNCTION); externalFunction->dispose(); throw; } }
void ExtEngineManager::makeFunction(thread_db* tdbb, Jrd::Function* udf, const MetaName& engine, const string& entryPoint, const string& body) { string entryPointTrimmed = entryPoint; entryPointTrimmed.trim(); EngineAttachmentInfo* attInfo = getEngineAttachment(tdbb, engine); ContextManager<ExternalFunction> ctxManager(tdbb, attInfo, attInfo->adminCharSet, (udf->getName().package.isEmpty() ? CallerName(obj_udf, udf->getName().identifier) : CallerName(obj_package_header, udf->getName().package))); ///MemoryPool& pool = *tdbb->getDefaultPool(); MemoryPool& pool = *getDefaultMemoryPool(); AutoPtr<RoutineMetadata> metadata(FB_NEW(pool) RoutineMetadata(pool)); metadata->package = udf->getName().package; metadata->name = udf->getName().identifier; metadata->entryPoint = entryPointTrimmed; metadata->body = body; metadata->inputParameters = Routine::createMetadata(udf->getInputFields()); metadata->outputParameters = Routine::createMetadata(udf->getOutputFields()); LocalStatus status; RefPtr<IMetadataBuilder> inBuilder(metadata->inputParameters->getBuilder(&status)); status.check(); inBuilder->release(); RefPtr<IMetadataBuilder> outBuilder(metadata->outputParameters->getBuilder(&status)); status.check(); outBuilder->release(); ExternalFunction* externalFunction; { // scope Attachment::Checkout attCout(tdbb->getAttachment(), FB_FUNCTION); externalFunction = attInfo->engine->makeFunction(&status, attInfo->context, metadata, inBuilder, outBuilder); status.check(); if (!externalFunction) { status_exception::raise( Arg::Gds(isc_eem_func_not_returned) << udf->getName().toString() << engine); } metadata->inputParameters = inBuilder->getMetadata(&status); status.check(); metadata->outputParameters = outBuilder->getMetadata(&status); status.check(); } try { udf->setInputFormat(Routine::createFormat(pool, metadata->inputParameters, false)); udf->setOutputFormat(Routine::createFormat(pool, metadata->outputParameters, false)); udf->fun_external = FB_NEW(getPool()) Function(tdbb, this, attInfo->engine, metadata.release(), externalFunction, udf); } catch (...) { Attachment::Checkout attCout(tdbb->getAttachment(), FB_FUNCTION); externalFunction->dispose(); throw; } }