Method Statement

src/jrd/Statement.cpp:63–230

Start to turn a parsed scratch into a statement. This is completed by makeStatement.

// Start to turn a parsed scratch into a statement. This is completed by makeStatement.
Statement::Statement(thread_db* tdbb, MemoryPool* p, CompilerScratch* csb)
	: pool(p),
	  rpbsSetup(*p),
	  requests(*p),
	  externalList(*p),
	  accessList(*p),
	  resources(*p),
	  triggerName(*p),
	  triggerInvoker(NULL),
	  parentStatement(NULL),
	  subStatements(*p),
	  fors(*p),
	  localTables(*p),
	  invariants(*p),
	  blr(*p),
	  mapFieldInfo(*p)
{
	try
	{
		makeSubRoutines(tdbb, this, csb, csb->subProcedures);
		makeSubRoutines(tdbb, this, csb, csb->subFunctions);

		topNode = (csb->csb_node && csb->csb_node->getKind() == DmlNode::KIND_STATEMENT) ?
			static_cast<StmtNode*>(csb->csb_node) : NULL;

		accessList = csb->csb_access;
		csb->csb_access.clear();

		externalList = csb->csb_external;
		csb->csb_external.clear();

		mapFieldInfo.takeOwnership(csb->csb_map_field_info);

		resources = csb->csb_resources; // Assign array contents
		csb->csb_resources.clear();

		impureSize = csb->csb_impure;

		//if (csb->csb_g_flags & csb_blr_version4)
		//	flags |= FLAG_VERSION4;
		blrVersion = csb->blrVersion;

		// Take out existence locks on resources used in statement. This is
		// a little complicated since relation locks MUST be taken before
		// index locks.

		for (Resource* resource = resources.begin(); resource != resources.end(); ++resource)
		{
			switch (resource->rsc_type)
			{
				case Resource::rsc_relation:
				{
					jrd_rel* relation = resource->rsc_rel;
					MET_post_existence(tdbb, relation);
					break;
				}

				case Resource::rsc_index: