In plpgsql, allow foreign tables to define row types.

This seems to have been just an oversight in previous foreign-table work.
A quick grep didn't turn up any other places where RELKIND_FOREIGN_TABLE
was obviously omitted.

One change noted by Alexander Soudakov, the other by me.
Back-patch to 9.1.

diff --git a/src/pl/plpgsql/src/pl_comp.c b/src/pl/plpgsql/src/pl_comp.c
index 48399d3929ceb1b36b6ebb693be16695814bd2d0..04d8b532c3960d364d212783c2ea7b29cdffbbd0 100644 (file)
--- a/src/pl/plpgsql/src/pl_comp.c
+++ b/src/pl/plpgsql/src/pl_comp.c
@@ -1721,12 +1721,13 @@ plpgsql_parse_cwordtype(List *idents)
        classStruct = (Form_pg_class) GETSTRUCT(classtup);
 
        /*
-        * It must be a relation, sequence, view, or type
+        * It must be a relation, sequence, view, composite type, or foreign table
         */
        if (classStruct->relkind != RELKIND_RELATION &&
                classStruct->relkind != RELKIND_SEQUENCE &&
                classStruct->relkind != RELKIND_VIEW &&
-               classStruct->relkind != RELKIND_COMPOSITE_TYPE)
+               classStruct->relkind != RELKIND_COMPOSITE_TYPE &&
+               classStruct->relkind != RELKIND_FOREIGN_TABLE)
                goto done;
 
        /*
@@ -1942,11 +1943,12 @@ build_row_from_class(Oid classOid)
        classStruct = RelationGetForm(rel);
        relname = RelationGetRelationName(rel);
 
-       /* accept relation, sequence, view, or composite type entries */
+       /* accept relation, sequence, view, composite type, or foreign table */
        if (classStruct->relkind != RELKIND_RELATION &&
                classStruct->relkind != RELKIND_SEQUENCE &&
                classStruct->relkind != RELKIND_VIEW &&
-               classStruct->relkind != RELKIND_COMPOSITE_TYPE)
+               classStruct->relkind != RELKIND_COMPOSITE_TYPE &&
+               classStruct->relkind != RELKIND_FOREIGN_TABLE)
                ereport(ERROR,
                                (errcode(ERRCODE_WRONG_OBJECT_TYPE),
                                 errmsg("relation \"%s\" is not a table", relname)));