Function init

src/yvalve/user_dsql.cpp:1104–1154

____________________________________________________________ Initialize dynamic SQL. This is called only once.

//	Initialize dynamic SQL.  This is called only once.
//
static void init(FB_API_HANDLE* db_handle)
{
	// If we haven't been initialized yet, do it now
	if (!init_flag)
	{
		UDSQL_error = (dsql_err_stblock*) gds__alloc((SLONG) sizeof(dsql_err_stblock));
		// FREE: by exit cleanup()
		if (!UDSQL_error)
		{
			// NOMEM:
			return;				// Don't set the init_flag
		}
		init_flag = true;
		gds__register_cleanup(cleanup, 0);
	}

	if (!db_handle) {
		return;
	}

	dsql_dbb* dbb;

	{ // scope
		Firebird::ReadLockGuard guard(global_sync, FB_FUNCTION);

		for (dbb = databases; dbb; dbb = dbb->dbb_next)
		{
			if (dbb->dbb_handle == *db_handle) {
				return;
			}
		}
	}

	dbb = (dsql_dbb*) gds__alloc((SLONG) sizeof(dsql_dbb));

	// FREE: by database exit handler cleanup_database()
	if (!dbb)
	{
		// NOMEM
		return;					// Not a great error handler
	}

	Firebird::WriteLockGuard guard(global_sync, FB_FUNCTION);

	dbb->dbb_next = databases;
	databases = dbb;
	dbb->dbb_handle = *db_handle;

	ISC_STATUS_ARRAY local_status;
	isc_database_cleanup(local_status, db_handle, cleanup_database, NULL);
}


static dsql_name* insert_name(const TEXT* symbol_name, dsql_name** list_ptr, dsql_stmt* stmt)