int nargs;
List *args;
int sublevels_up;
-} substitute_actual_srf_parameters_context;
+} substitute_actual_parameters_in_from_context;
typedef struct
{
static Node *substitute_actual_parameters_mutator(Node *node,
substitute_actual_parameters_context *context);
static void sql_inline_error_callback(void *arg);
-static Query *substitute_actual_srf_parameters(Query *expr,
- int nargs, List *args);
-static Node *substitute_actual_srf_parameters_mutator(Node *node,
- substitute_actual_srf_parameters_context *context);
+static Query *inline_sql_function_in_from(PlannerInfo *root,
+ RangeTblFunction *rtfunc,
+ FuncExpr *fexpr,
+ HeapTuple func_tuple,
+ Form_pg_proc funcform,
+ const char *src);
+static Query *substitute_actual_parameters_in_from(Query *expr,
+ int nargs, List *args);
+static Node *substitute_actual_parameters_in_from_mutator(Node *node,
+ substitute_actual_parameters_in_from_context *context);
static bool pull_paramids_walker(Node *node, Bitmapset **context);
/*
- * inline_set_returning_function
- * Attempt to "inline" a set-returning function in the FROM clause.
+ * inline_function_in_from
+ * Attempt to "inline" a function in the FROM clause.
*
* "rte" is an RTE_FUNCTION rangetable entry. If it represents a call of a
- * set-returning SQL function that can safely be inlined, expand the function
- * and return the substitute Query structure. Otherwise, return NULL.
+ * function that can be inlined, expand the function and return the
+ * substitute Query structure. Otherwise, return NULL.
*
* We assume that the RTE's expression has already been put through
* eval_const_expressions(), which among other things will take care of
* default arguments and named-argument notation.
*
* This has a good deal of similarity to inline_function(), but that's
- * for the non-set-returning case, and there are enough differences to
+ * for the general-expression case, and there are enough differences to
* justify separate functions.
*/
Query *
-inline_set_returning_function(PlannerInfo *root, RangeTblEntry *rte)
+inline_function_in_from(PlannerInfo *root, RangeTblEntry *rte)
{
RangeTblFunction *rtfunc;
FuncExpr *fexpr;
Oid func_oid;
HeapTuple func_tuple;
Form_pg_proc funcform;
- char *src;
- Datum tmp;
- bool isNull;
MemoryContext oldcxt;
MemoryContext mycxt;
+ Datum tmp;
+ char *src;
inline_error_callback_arg callback_arg;
ErrorContextCallback sqlerrcontext;
- SQLFunctionParseInfoPtr pinfo;
- TypeFuncClass functypclass;
- TupleDesc rettupdesc;
- List *raw_parsetree_list;
- List *querytree_list;
- Query *querytree;
+ Query *querytree = NULL;
Assert(rte->rtekind == RTE_FUNCTION);
/*
- * It doesn't make a lot of sense for a SQL SRF to refer to itself in its
- * own FROM clause, since that must cause infinite recursion at runtime.
- * It will cause this code to recurse too, so check for stack overflow.
- * (There's no need to do more.)
+ * Guard against infinite recursion during expansion by checking for stack
+ * overflow. (There's no need to do more.)
*/
check_stack_depth();
func_oid = fexpr->funcid;
- /*
- * The function must be declared to return a set, else inlining would
- * change the results if the contained SELECT didn't return exactly one
- * row.
- */
- if (!fexpr->funcretset)
- return NULL;
-
/*
* Refuse to inline if the arguments contain any volatile functions or
* sub-selects. Volatile functions are rejected because inlining may
funcform = (Form_pg_proc) GETSTRUCT(func_tuple);
/*
- * Forget it if the function is not SQL-language or has other showstopper
- * properties. In particular it mustn't be declared STRICT, since we
- * couldn't enforce that. It also mustn't be VOLATILE, because that is
- * supposed to cause it to be executed with its own snapshot, rather than
- * sharing the snapshot of the calling query. We also disallow returning
- * SETOF VOID, because inlining would result in exposing the actual result
- * of the function's last SELECT, which should not happen in that case.
- * (Rechecking prokind, proretset, and pronargs is just paranoia.)
+ * If the function SETs any configuration parameters, inlining would cause
+ * us to miss making those changes.
*/
- if (funcform->prolang != SQLlanguageId ||
- funcform->prokind != PROKIND_FUNCTION ||
- funcform->proisstrict ||
- funcform->provolatile == PROVOLATILE_VOLATILE ||
- funcform->prorettype == VOIDOID ||
- funcform->prosecdef ||
- !funcform->proretset ||
- list_length(fexpr->args) != funcform->pronargs ||
- !heap_attisnull(func_tuple, Anum_pg_proc_proconfig, NULL))
+ if (!heap_attisnull(func_tuple, Anum_pg_proc_proconfig, NULL))
{
ReleaseSysCache(func_tuple);
return NULL;
/*
* Make a temporary memory context, so that we don't leak all the stuff
- * that parsing might create.
+ * that parsing and rewriting might create. If we succeed, we'll copy
+ * just the finished query tree back up to the caller's context.
*/
mycxt = AllocSetContextCreate(CurrentMemoryContext,
- "inline_set_returning_function",
+ "inline_function_in_from",
ALLOCSET_DEFAULT_SIZES);
oldcxt = MemoryContextSwitchTo(mycxt);
tmp = SysCacheGetAttrNotNull(PROCOID, func_tuple, Anum_pg_proc_prosrc);
src = TextDatumGetCString(tmp);
+ /*
+ * If the function has an attached support function that can handle
+ * SupportRequestInlineInFrom, then attempt to inline with that.
+ */
+ if (funcform->prosupport)
+ {
+ SupportRequestInlineInFrom req;
+
+ req.type = T_SupportRequestInlineInFrom;
+ req.root = root;
+ req.rtfunc = rtfunc;
+ req.proc = func_tuple;
+
+ querytree = (Query *)
+ DatumGetPointer(OidFunctionCall1(funcform->prosupport,
+ PointerGetDatum(&req)));
+ }
+
/*
* Setup error traceback support for ereport(). This is so that we can
- * finger the function that bad information came from.
+ * finger the function that bad information came from. We don't install
+ * this while running the support function, since it'd be likely to do the
+ * wrong thing: any parse errors reported during that are very likely not
+ * against the raw function source text.
*/
callback_arg.proname = NameStr(funcform->proname);
callback_arg.prosrc = src;
sqlerrcontext.previous = error_context_stack;
error_context_stack = &sqlerrcontext;
+ /*
+ * If SupportRequestInlineInFrom didn't work, try our built-in inlining
+ * mechanism.
+ */
+ if (!querytree)
+ querytree = inline_sql_function_in_from(root, rtfunc, fexpr,
+ func_tuple, funcform, src);
+
+ if (!querytree)
+ goto fail; /* no luck there either, fail */
+
+ /*
+ * The result had better be a SELECT Query.
+ */
+ Assert(IsA(querytree, Query));
+ Assert(querytree->commandType == CMD_SELECT);
+
+ /*
+ * Looks good --- substitute parameters into the query.
+ */
+ querytree = substitute_actual_parameters_in_from(querytree,
+ funcform->pronargs,
+ fexpr->args);
+
+ /*
+ * Copy the modified query out of the temporary memory context, and clean
+ * up.
+ */
+ MemoryContextSwitchTo(oldcxt);
+
+ querytree = copyObject(querytree);
+
+ MemoryContextDelete(mycxt);
+ error_context_stack = sqlerrcontext.previous;
+ ReleaseSysCache(func_tuple);
+
+ /*
+ * We don't have to fix collations here because the upper query is already
+ * parsed, ie, the collations in the RTE are what count.
+ */
+
+ /*
+ * Since there is now no trace of the function in the plan tree, we must
+ * explicitly record the plan's dependency on the function.
+ */
+ record_plan_function_dependency(root, func_oid);
+
+ /*
+ * We must also notice if the inserted query adds a dependency on the
+ * calling role due to RLS quals.
+ */
+ if (querytree->hasRowSecurity)
+ root->glob->dependsOnRole = true;
+
+ return querytree;
+
+ /* Here if func is not inlinable: release temp memory and return NULL */
+fail:
+ MemoryContextSwitchTo(oldcxt);
+ MemoryContextDelete(mycxt);
+ error_context_stack = sqlerrcontext.previous;
+ ReleaseSysCache(func_tuple);
+
+ return NULL;
+}
+
+/*
+ * inline_sql_function_in_from
+ *
+ * This implements inline_function_in_from for SQL-language functions.
+ * Returns NULL if the function couldn't be inlined.
+ *
+ * The division of labor between here and inline_function_in_from is based
+ * on the rule that inline_function_in_from should make all checks that are
+ * certain to be required in both this case and the support-function case.
+ * Support functions might also want to make checks analogous to the ones
+ * made here, but then again they might not, or they might just assume that
+ * the function they are attached to can validly be inlined.
+ */
+static Query *
+inline_sql_function_in_from(PlannerInfo *root,
+ RangeTblFunction *rtfunc,
+ FuncExpr *fexpr,
+ HeapTuple func_tuple,
+ Form_pg_proc funcform,
+ const char *src)
+{
+ Datum sqlbody;
+ bool isNull;
+ List *querytree_list;
+ Query *querytree;
+ TypeFuncClass functypclass;
+ TupleDesc rettupdesc;
+
+ /*
+ * The function must be declared to return a set, else inlining would
+ * change the results if the contained SELECT didn't return exactly one
+ * row.
+ */
+ if (!fexpr->funcretset)
+ return NULL;
+
+ /*
+ * Forget it if the function is not SQL-language or has other showstopper
+ * properties. In particular it mustn't be declared STRICT, since we
+ * couldn't enforce that. It also mustn't be VOLATILE, because that is
+ * supposed to cause it to be executed with its own snapshot, rather than
+ * sharing the snapshot of the calling query. We also disallow returning
+ * SETOF VOID, because inlining would result in exposing the actual result
+ * of the function's last SELECT, which should not happen in that case.
+ * (Rechecking prokind, proretset, and pronargs is just paranoia.)
+ */
+ if (funcform->prolang != SQLlanguageId ||
+ funcform->prokind != PROKIND_FUNCTION ||
+ funcform->proisstrict ||
+ funcform->provolatile == PROVOLATILE_VOLATILE ||
+ funcform->prorettype == VOIDOID ||
+ funcform->prosecdef ||
+ !funcform->proretset ||
+ list_length(fexpr->args) != funcform->pronargs)
+ return NULL;
+
/* If we have prosqlbody, pay attention to that not prosrc */
- tmp = SysCacheGetAttr(PROCOID,
- func_tuple,
- Anum_pg_proc_prosqlbody,
- &isNull);
+ sqlbody = SysCacheGetAttr(PROCOID,
+ func_tuple,
+ Anum_pg_proc_prosqlbody,
+ &isNull);
if (!isNull)
{
Node *n;
- n = stringToNode(TextDatumGetCString(tmp));
+ n = stringToNode(TextDatumGetCString(sqlbody));
if (IsA(n, List))
querytree_list = linitial_node(List, castNode(List, n));
else
querytree_list = list_make1(n);
if (list_length(querytree_list) != 1)
- goto fail;
+ return NULL;
querytree = linitial(querytree_list);
/* Acquire necessary locks, then apply rewriter. */
AcquireRewriteLocks(querytree, true, false);
querytree_list = pg_rewrite_query(querytree);
if (list_length(querytree_list) != 1)
- goto fail;
+ return NULL;
querytree = linitial(querytree_list);
}
else
{
+ SQLFunctionParseInfoPtr pinfo;
+ List *raw_parsetree_list;
+
/*
* Set up to handle parameters while parsing the function body. We
* can use the FuncExpr just created as the input for
*/
raw_parsetree_list = pg_parse_query(src);
if (list_length(raw_parsetree_list) != 1)
- goto fail;
+ return NULL;
querytree_list = pg_analyze_and_rewrite_withcb(linitial(raw_parsetree_list),
src,
(ParserSetupHook) sql_fn_parser_setup,
pinfo, NULL);
if (list_length(querytree_list) != 1)
- goto fail;
+ return NULL;
querytree = linitial(querytree_list);
}
*/
if (!IsA(querytree, Query) ||
querytree->commandType != CMD_SELECT)
- goto fail;
+ return NULL;
/*
* Make sure the function (still) returns what it's declared to. This
(functypclass == TYPEFUNC_COMPOSITE ||
functypclass == TYPEFUNC_COMPOSITE_DOMAIN ||
functypclass == TYPEFUNC_RECORD))
- goto fail; /* reject not-whole-tuple-result cases */
+ return NULL; /* reject not-whole-tuple-result cases */
/*
* check_sql_fn_retval might've inserted a projection step, but that's
*/
querytree = linitial_node(Query, querytree_list);
- /*
- * Looks good --- substitute parameters into the query.
- */
- querytree = substitute_actual_srf_parameters(querytree,
- funcform->pronargs,
- fexpr->args);
-
- /*
- * Copy the modified query out of the temporary memory context, and clean
- * up.
- */
- MemoryContextSwitchTo(oldcxt);
-
- querytree = copyObject(querytree);
-
- MemoryContextDelete(mycxt);
- error_context_stack = sqlerrcontext.previous;
- ReleaseSysCache(func_tuple);
-
- /*
- * We don't have to fix collations here because the upper query is already
- * parsed, ie, the collations in the RTE are what count.
- */
-
- /*
- * Since there is now no trace of the function in the plan tree, we must
- * explicitly record the plan's dependency on the function.
- */
- record_plan_function_dependency(root, func_oid);
-
- /*
- * We must also notice if the inserted query adds a dependency on the
- * calling role due to RLS quals.
- */
- if (querytree->hasRowSecurity)
- root->glob->dependsOnRole = true;
-
return querytree;
-
- /* Here if func is not inlinable: release temp memory and return NULL */
-fail:
- MemoryContextSwitchTo(oldcxt);
- MemoryContextDelete(mycxt);
- error_context_stack = sqlerrcontext.previous;
- ReleaseSysCache(func_tuple);
-
- return NULL;
}
/*
* that it needs its own code.
*/
static Query *
-substitute_actual_srf_parameters(Query *expr, int nargs, List *args)
+substitute_actual_parameters_in_from(Query *expr, int nargs, List *args)
{
- substitute_actual_srf_parameters_context context;
+ substitute_actual_parameters_in_from_context context;
context.nargs = nargs;
context.args = args;
context.sublevels_up = 1;
return query_tree_mutator(expr,
- substitute_actual_srf_parameters_mutator,
+ substitute_actual_parameters_in_from_mutator,
&context,
0);
}
static Node *
-substitute_actual_srf_parameters_mutator(Node *node,
- substitute_actual_srf_parameters_context *context)
+substitute_actual_parameters_in_from_mutator(Node *node,
+ substitute_actual_parameters_in_from_context *context)
{
Node *result;
{
context->sublevels_up++;
result = (Node *) query_tree_mutator((Query *) node,
- substitute_actual_srf_parameters_mutator,
+ substitute_actual_parameters_in_from_mutator,
context,
0);
context->sublevels_up--;
}
}
return expression_tree_mutator(node,
- substitute_actual_srf_parameters_mutator,
+ substitute_actual_parameters_in_from_mutator,
context);
}
#include "commands/sequence.h"
#include "commands/trigger.h"
#include "executor/executor.h"
+#include "executor/functions.h"
#include "executor/spi.h"
#include "funcapi.h"
#include "mb/pg_wchar.h"
#include "port/atomics.h"
#include "postmaster/postmaster.h" /* for MAX_BACKENDS */
#include "storage/spin.h"
+#include "tcop/tcopprot.h"
#include "utils/array.h"
#include "utils/builtins.h"
#include "utils/geo_decls.h"
PG_RETURN_POINTER(ret);
}
+PG_FUNCTION_INFO_V1(test_inline_in_from_support_func);
+Datum
+test_inline_in_from_support_func(PG_FUNCTION_ARGS)
+{
+ Node *rawreq = (Node *) PG_GETARG_POINTER(0);
+
+ if (IsA(rawreq, SupportRequestInlineInFrom))
+ {
+ /*
+ * Assume that the target is foo_from_bar; that's safe as long as we
+ * don't attach this to any other function.
+ */
+ SupportRequestInlineInFrom *req = (SupportRequestInlineInFrom *) rawreq;
+ StringInfoData sql;
+ RangeTblFunction *rtfunc = req->rtfunc;
+ FuncExpr *expr = (FuncExpr *) rtfunc->funcexpr;
+ Node *node;
+ Const *c;
+ char *colname;
+ char *tablename;
+ SQLFunctionParseInfoPtr pinfo;
+ List *raw_parsetree_list;
+ List *querytree_list;
+ Query *querytree;
+
+ if (list_length(expr->args) != 3)
+ {
+ ereport(WARNING, (errmsg("test_inline_in_from_support_func called with %d args but expected 3", list_length(expr->args))));
+ PG_RETURN_POINTER(NULL);
+ }
+
+ /* Get colname */
+ node = linitial(expr->args);
+ if (!IsA(node, Const))
+ {
+ ereport(WARNING, (errmsg("test_inline_in_from_support_func called with non-Const parameters")));
+ PG_RETURN_POINTER(NULL);
+ }
+
+ c = (Const *) node;
+ if (c->consttype != TEXTOID || c->constisnull)
+ {
+ ereport(WARNING, (errmsg("test_inline_in_from_support_func called with non-TEXT parameters")));
+ PG_RETURN_POINTER(NULL);
+ }
+ colname = TextDatumGetCString(c->constvalue);
+
+ /* Get tablename */
+ node = lsecond(expr->args);
+ if (!IsA(node, Const))
+ {
+ ereport(WARNING, (errmsg("test_inline_in_from_support_func called with non-Const parameters")));
+ PG_RETURN_POINTER(NULL);
+ }
+
+ c = (Const *) node;
+ if (c->consttype != TEXTOID || c->constisnull)
+ {
+ ereport(WARNING, (errmsg("test_inline_in_from_support_func called with non-TEXT parameters")));
+ PG_RETURN_POINTER(NULL);
+ }
+ tablename = TextDatumGetCString(c->constvalue);
+
+ /* Begin constructing replacement SELECT query. */
+ initStringInfo(&sql);
+ appendStringInfo(&sql, "SELECT %s::text FROM %s",
+ quote_identifier(colname),
+ quote_identifier(tablename));
+
+ /* Add filter expression if present. */
+ node = lthird(expr->args);
+ if (!(IsA(node, Const) && ((Const *) node)->constisnull))
+ {
+ /*
+ * We only filter if $3 is not constant-NULL. This is not a very
+ * exact implementation of the PL/pgSQL original, but it's close
+ * enough for demonstration purposes.
+ */
+ appendStringInfo(&sql, " WHERE %s::text = $3",
+ quote_identifier(colname));
+ }
+
+ /* Build a SQLFunctionParseInfo with the parameters of my function. */
+ pinfo = prepare_sql_fn_parse_info(req->proc,
+ (Node *) expr,
+ expr->inputcollid);
+
+ /* Parse the generated SQL. */
+ raw_parsetree_list = pg_parse_query(sql.data);
+ if (list_length(raw_parsetree_list) != 1)
+ {
+ ereport(WARNING, (errmsg("test_inline_in_from_support_func parsed to more than one node")));
+ PG_RETURN_POINTER(NULL);
+ }
+
+ /* Analyze the parse tree as if it were a SQL-language body. */
+ querytree_list = pg_analyze_and_rewrite_withcb(linitial(raw_parsetree_list),
+ sql.data,
+ (ParserSetupHook) sql_fn_parser_setup,
+ pinfo, NULL);
+ if (list_length(querytree_list) != 1)
+ {
+ ereport(WARNING, (errmsg("test_inline_in_from_support_func rewrote to more than one node")));
+ PG_RETURN_POINTER(NULL);
+ }
+
+ querytree = linitial(querytree_list);
+ if (!IsA(querytree, Query))
+ {
+ ereport(WARNING, (errmsg("test_inline_in_from_support_func didn't parse to a Query")));
+ PG_RETURN_POINTER(NULL);
+ }
+
+ PG_RETURN_POINTER(querytree);
+ }
+
+ PG_RETURN_POINTER(NULL);
+}
+
PG_FUNCTION_INFO_V1(test_opclass_options_func);
Datum
test_opclass_options_func(PG_FUNCTION_ARGS)
projects / users / rhaas / postgres.git / commitdiff