Add missing SRF file.

diff --git a/src/backend/utils/fmgr/funcapi.c b/src/backend/utils/fmgr/funcapi.c
new file mode 100644 (file)
index 0000000..bd65c39
--- /dev/null
+++ b/src/backend/utils/fmgr/funcapi.c
@@ -0,0 +1,122 @@
+/*-------------------------------------------------------------------------
+ *
+ * funcapi.c
+ *   Utility and convenience functions for fmgr functions that return
+ *   sets and/or composite types.
+ *
+ * Copyright (c) 2002, PostgreSQL Global Development Group
+ *
+ *-------------------------------------------------------------------------
+ */
+
+#include "funcapi.h"
+#include "catalog/pg_type.h"
+#include "utils/syscache.h"
+
+/*
+ * init_MultiFuncCall
+ * Create an empty FuncCallContext data structure
+ * and do some other basic Multi-function call setup
+ * and error checking
+ */
+FuncCallContext *
+init_MultiFuncCall(PG_FUNCTION_ARGS)
+{
+   FuncCallContext *retval;
+
+   /*
+    * Bail if we're called in the wrong context
+    */
+   if (fcinfo->resultinfo == NULL || !IsA(fcinfo->resultinfo, ReturnSetInfo))
+       elog(ERROR, "function called in context that does not accept a set result");
+
+   if (fcinfo->flinfo->fn_extra == NULL)
+   {
+       /*
+        * First call
+        */
+       MemoryContext oldcontext;
+
+       /* switch to the appropriate memory context */
+       oldcontext = MemoryContextSwitchTo(fcinfo->flinfo->fn_mcxt);
+
+       /*
+        * allocate space and zero it
+        */
+       retval = (FuncCallContext *) palloc(sizeof(FuncCallContext));
+       MemSet(retval, 0, sizeof(FuncCallContext));
+
+       /*
+        * initialize the elements
+        */
+       retval->call_cntr = 0;
+       retval->max_calls = 0;
+       retval->slot = NULL;
+       retval->fctx = NULL;
+       retval->attinmeta = NULL;
+       retval->fmctx = fcinfo->flinfo->fn_mcxt;
+
+       /*
+        * save the pointer for cross-call use
+        */
+       fcinfo->flinfo->fn_extra = retval;
+
+       /* back to the original memory context */
+       MemoryContextSwitchTo(oldcontext);
+   }
+   else    /* second and subsequent calls */
+   {
+       elog(ERROR, "init_MultiFuncCall may not be called more than once");
+
+       /* never reached, but keep compiler happy */
+       retval = NULL;
+   }
+
+   return retval;
+}
+
+/*
+ * end_MultiFuncCall
+ * Clean up after init_MultiFuncCall
+ */
+void
+end_MultiFuncCall(PG_FUNCTION_ARGS, FuncCallContext *funcctx)
+{
+   MemoryContext oldcontext;
+
+   /* unbind from fcinfo */
+   fcinfo->flinfo->fn_extra = NULL;
+
+   /*
+    * Caller is responsible to free up memory for individual
+    * struct elements other than att_in_funcinfo and elements.
+    */
+   oldcontext = MemoryContextSwitchTo(funcctx->fmctx);
+
+   if (funcctx->attinmeta != NULL)
+       pfree(funcctx->attinmeta);
+
+   pfree(funcctx);
+
+   MemoryContextSwitchTo(oldcontext);
+}
+
+void
+get_type_metadata(Oid typeid, Oid *attinfuncid, Oid *attelem)
+{
+   HeapTuple       typeTuple;
+   Form_pg_type    typtup;
+
+   typeTuple = SearchSysCache(TYPEOID,
+                              ObjectIdGetDatum(typeid),
+                              0, 0, 0);
+   if (!HeapTupleIsValid(typeTuple))
+       elog(ERROR, "get_type_metadata: Cache lookup of type %u failed", typeid);
+
+   typtup = (Form_pg_type) GETSTRUCT(typeTuple);
+
+   *attinfuncid = typtup->typinput;
+   *attelem = typtup->typelem;
+
+   ReleaseSysCache(typeTuple);
+}