Add get_func_rettype() to general-use lsyscache routines,

tglsfdc · tglsfdc · commit b1baf1ff60fd · 1999-08-16T02:06:25.000Z
since it's now needed in both optimizer and parser.
diff --git a/src/backend/utils/cache/lsyscache.c b/src/backend/utils/cache/lsyscache.c
@@ -6,7 +6,7 @@
  * Copyright (c) 1994, Regents of the University of California
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/backend/utils/cache/lsyscache.c,v 1.32 1999/08/09 03:13:30 tgl Exp $
+ *	  $Header: /cvsroot/pgsql/src/backend/utils/cache/lsyscache.c,v 1.33 1999/08/16 02:06:25 tgl Exp $
  *
  * NOTES
  *	  Eventually, the index information should go through here, too.
@@ -15,6 +15,7 @@
 #include "postgres.h"
 
 #include "catalog/pg_operator.h"
+#include "catalog/pg_proc.h"
 #include "catalog/pg_type.h"
 #include "utils/lsyscache.h"
 #include "utils/syscache.h"
@@ -453,6 +454,31 @@ get_oprjoin(Oid opno)
 		return (RegProcedure) NULL;
 }
 
+/*				---------- FUNCTION CACHE ----------					 */
+
+/*
+ * get_func_rettype
+ *		Given procedure id, return the function's result type.
+ */
+Oid
+get_func_rettype(Oid funcid)
+{
+	HeapTuple	func_tuple;
+	Oid			funcrettype;
+
+	func_tuple = SearchSysCacheTuple(PROOID,
+									 ObjectIdGetDatum(funcid),
+									 0, 0, 0);
+
+	if (!HeapTupleIsValid(func_tuple))
+		elog(ERROR, "Function OID %u does not exist", funcid);
+
+	funcrettype = (Oid)
+		((Form_pg_proc) GETSTRUCT(func_tuple))->prorettype;
+
+	return funcrettype;
+}
+
 /*				---------- RELATION CACHE ----------					 */
 
 /*
diff --git a/src/include/utils/lsyscache.h b/src/include/utils/lsyscache.h
@@ -5,7 +5,7 @@
  *
  * Copyright (c) 1994, Regents of the University of California
  *
- * $Id: lsyscache.h,v 1.19 1999/08/09 03:13:28 tgl Exp $
+ * $Id: lsyscache.h,v 1.20 1999/08/16 02:06:23 tgl Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -32,6 +32,7 @@ extern HeapTuple get_operator_tuple(Oid opno);
 extern Oid	get_negator(Oid opid);
 extern RegProcedure get_oprrest(Oid opid);
 extern RegProcedure get_oprjoin(Oid opid);
+extern Oid	get_func_rettype(Oid funcid);
 extern int	get_relnatts(Oid relid);
 extern char *get_rel_name(Oid relid);
 extern struct varlena *get_relstub(Oid relid, int no, bool *islast);

Original file line number	Diff line number	Diff line change
`@@ -5,7 +5,7 @@`
`5`	`5`	`*`
`6`	`6`	`* Copyright (c) 1994, Regents of the University of California`
`7`	`7`	`*`
`8`		`- * $Id: lsyscache.h,v 1.19 1999/08/09 03:13:28 tgl Exp $`
	`8`	`+ * $Id: lsyscache.h,v 1.20 1999/08/16 02:06:23 tgl Exp $`
`9`	`9`	`*`
`10`	`10`	`*-------------------------------------------------------------------------`
`11`	`11`	`*/`
`@@ -32,6 +32,7 @@ extern HeapTuple get_operator_tuple(Oid opno);`
`32`	`32`	`extern Oid get_negator(Oid opid);`
`33`	`33`	`extern RegProcedure get_oprrest(Oid opid);`
`34`	`34`	`extern RegProcedure get_oprjoin(Oid opid);`
	`35`	`+extern Oid get_func_rettype(Oid funcid);`
`35`	`36`	`extern int get_relnatts(Oid relid);`
`36`	`37`	`extern char *get_rel_name(Oid relid);`
`37`	`38`	`extern struct varlena get_relstub(Oid relid, int no, bool islast);`