removed altogether if pg_dump doesn't need it anymore.
<!--
Documentation of the system catalogs, directed toward PostgreSQL developers
- $Header: /cvsroot/pgsql/doc/src/sgml/catalogs.sgml,v 2.52 2002/08/05 02:30:46 tgl Exp $
+ $Header: /cvsroot/pgsql/doc/src/sgml/catalogs.sgml,v 2.53 2002/08/13 17:22:08 petere Exp $
-->
<chapter id="catalogs">
<entry></entry>
<entry>
This is false for internal languages (such as SQL) and true for
- dynamically loaded language handler modules. It essentially
- means that, if it is true, the language may be dropped.
+ user-defined languages. Currently,
+ <application>pg_dump</application> still uses this to determine
+ which languages need to be dumped, but this may be replaced by
+ a different mechanism sometime.
</entry>
</row>
* Portions Copyright (c) 1994, Regents of the University of California
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/commands/proclang.c,v 1.39 2002/08/05 03:29:17 tgl Exp $
+ * $Header: /cvsroot/pgsql/src/backend/commands/proclang.c,v 1.40 2002/08/13 17:22:08 petere Exp $
*
*-------------------------------------------------------------------------
*/
* Check permission
*/
if (!superuser())
- elog(ERROR, "Only users with Postgres superuser privilege are "
+ elog(ERROR, "Only users with superuser privilege are "
"permitted to create procedural languages");
/*
MemSet(typev, 0, sizeof(typev));
procOid = LookupFuncName(stmt->plhandler, 0, typev);
if (!OidIsValid(procOid))
- elog(ERROR, "PL handler function %s() doesn't exist",
+ elog(ERROR, "function %s() doesn't exist",
NameListToString(stmt->plhandler));
if (get_func_rettype(procOid) != InvalidOid)
- elog(ERROR, "PL handler function %s() does not return type \"opaque\"",
+ elog(ERROR, "function %s() does not return type \"opaque\"",
NameListToString(stmt->plhandler));
/* validate the validator function */
typev[0] = OIDOID;
valProcOid = LookupFuncName(stmt->plvalidator, 1, typev);
if (!OidIsValid(valProcOid))
- elog(ERROR, "PL validator function %s(oid) doesn't exist",
+ elog(ERROR, "function %s(oid) doesn't exist",
NameListToString(stmt->plvalidator));
}
else
* Check permission
*/
if (!superuser())
- elog(ERROR, "Only users with Postgres superuser privilege are "
+ elog(ERROR, "Only users with superuser privilege are "
"permitted to drop procedural languages");
/*
if (!HeapTupleIsValid(langTup))
elog(ERROR, "Language %s doesn't exist", languageName);
- if (!((Form_pg_language) GETSTRUCT(langTup))->lanispl)
- elog(ERROR, "Language %s isn't a created procedural language",
- languageName);
-
object.classId = get_system_catalog_relid(LanguageRelationName);
object.objectId = HeapTupleGetOid(langTup);
object.objectSubId = 0;
* Portions Copyright (c) 1994, Regents of the University of California
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/commands/trigger.c,v 1.124 2002/08/05 03:29:17 tgl Exp $
+ * $Header: /cvsroot/pgsql/src/backend/commands/trigger.c,v 1.125 2002/08/13 17:22:08 petere Exp $
*
*-------------------------------------------------------------------------
*/
HeapTuple tuple;
Oid fargtypes[FUNC_MAX_ARGS];
Oid funcoid;
- Oid funclang;
Oid trigoid;
int found = 0;
int i;
if (((Form_pg_proc) GETSTRUCT(tuple))->prorettype != 0)
elog(ERROR, "CreateTrigger: function %s() must return OPAQUE",
NameListToString(stmt->funcname));
- funclang = ((Form_pg_proc) GETSTRUCT(tuple))->prolang;
ReleaseSysCache(tuple);
- if (funclang != ClanguageId && funclang != INTERNALlanguageId)
- {
- HeapTuple langTup;
-
- langTup = SearchSysCache(LANGOID,
- ObjectIdGetDatum(funclang),
- 0, 0, 0);
- if (!HeapTupleIsValid(langTup))
- elog(ERROR, "CreateTrigger: cache lookup for language %u failed",
- funclang);
- if (((Form_pg_language) GETSTRUCT(langTup))->lanispl == false)
- elog(ERROR, "CreateTrigger: only internal, C and PL functions are supported");
- ReleaseSysCache(langTup);
- }
-
/*
* Build the new pg_trigger tuple.
*/
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/utils/fmgr/fmgr.c,v 1.60 2002/06/20 20:29:39 momjian Exp $
+ * $Header: /cvsroot/pgsql/src/backend/utils/fmgr/fmgr.c,v 1.61 2002/08/13 17:22:08 petere Exp $
*
*-------------------------------------------------------------------------
*/
Oid language = procedureStruct->prolang;
HeapTuple languageTuple;
Form_pg_language languageStruct;
+ FmgrInfo plfinfo;
languageTuple = SearchSysCache(LANGOID,
ObjectIdGetDatum(language),
elog(ERROR, "fmgr_info: cache lookup for language %u failed",
language);
languageStruct = (Form_pg_language) GETSTRUCT(languageTuple);
- if (languageStruct->lanispl)
- {
- FmgrInfo plfinfo;
- fmgr_info(languageStruct->lanplcallfoid, &plfinfo);
- finfo->fn_addr = plfinfo.fn_addr;
+ fmgr_info(languageStruct->lanplcallfoid, &plfinfo);
+ finfo->fn_addr = plfinfo.fn_addr;
+
+ /*
+ * If lookup of the PL handler function produced nonnull fn_extra,
+ * complain --- it must be an oldstyle function! We no longer
+ * support oldstyle PL handlers.
+ */
+ if (plfinfo.fn_extra != NULL)
+ elog(ERROR, "fmgr_info: language %u has old-style handler",
+ language);
- /*
- * If lookup of the PL handler function produced nonnull fn_extra,
- * complain --- it must be an oldstyle function! We no longer
- * support oldstyle PL handlers.
- */
- if (plfinfo.fn_extra != NULL)
- elog(ERROR, "fmgr_info: language %u has old-style handler",
- language);
- }
- else
- {
- elog(ERROR, "fmgr_info: function %u: unsupported language %u",
- functionId, language);
- }
ReleaseSysCache(languageTuple);
}