Function par_udf

src/gpre/sqe.cpp:3182–3409

//

static gpre_nod* par_udf( gpre_req* request)
{
	if (!request)
		return NULL;

	assert_IS_REQ(request);

	// Check for user defined functions
	// resolve only if an identifier
	if ((isQuoted(gpreGlob.token_global.tok_type)) || gpreGlob.token_global.tok_type == tok_ident)
		SQL_resolve_identifier("<Udf Name>", NULL, NAME_SIZE);

	gpre_nod* node;
	USHORT local_count;

	udf* an_udf;
	if (request->req_database)
		an_udf = MET_get_udf(request->req_database, gpreGlob.token_global.tok_string);
	else
	{
		// no database was specified, check the metadata for all the databases
		// for the existence of the udf

		an_udf = NULL;
		for (gpre_dbb* db = gpreGlob.isc_databases; db; db = db->dbb_next)
		{
			udf* tmp_udf = MET_get_udf(db, gpreGlob.token_global.tok_string);
			if (tmp_udf)
				if (an_udf)
				{
					// udf was found in more than one database
					SCHAR s[ERROR_LENGTH];
					fb_utils::snprintf(s, sizeof(s), "UDF %s is ambiguous", gpreGlob.token_global.tok_string);
					PAR_error(s);
				}
				else
				{
					an_udf = tmp_udf;
					request->req_database = db;
				}
		}
	}

	if (an_udf)
	{
		if ((SQL_DIALECT_V5 == gpreGlob.sw_sql_dialect) &&
			(dtype_sql_date == an_udf->udf_dtype ||
			 dtype_sql_time == an_udf->udf_dtype ||
			 dtype_int64 == an_udf->udf_dtype))
		{
			SQL_dialect1_bad_type(an_udf->udf_dtype);
		}

		node = MSC_node(nod_udf, 2);
		node->nod_count = 1;
		node->nod_arg[1] = (gpre_nod*) an_udf;
		PAR_get_token();
		EXP_left_paren(0);