*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/catalog/indexing.c,v 1.46 1999/09/29 16:05:56 wieck Exp $
+ * $Header: /cvsroot/pgsql/src/backend/catalog/indexing.c,v 1.47 1999/09/30 10:31:42 wieck Exp $
*
*-------------------------------------------------------------------------
*/
AttributeNumIndex,
AttributeRelidIndex};
char *Name_pg_proc_indices[Num_pg_proc_indices] = {ProcedureNameIndex,
- ProcedureOidIndex,
-ProcedureSrcIndex};
+ ProcedureOidIndex};
char *Name_pg_type_indices[Num_pg_type_indices] = {TypeNameIndex,
TypeOidIndex};
char *Name_pg_class_indices[Num_pg_class_indices] = {ClassNameIndex,
}
-HeapTuple
-ProcedureSrcIndexScan(Relation heapRelation, text *procSrc)
-{
- Relation idesc;
- ScanKeyData skey[1];
- HeapTuple tuple;
-
- ScanKeyEntryInitialize(&skey[0],
- (bits16) 0x0,
- (AttrNumber) 1,
- (RegProcedure) F_TEXTEQ,
- PointerGetDatum(procSrc));
-
- idesc = index_openr(ProcedureSrcIndex);
- tuple = CatalogIndexFetchTuple(heapRelation, idesc, skey, 1);
-
- index_close(idesc);
-
- return tuple;
-}
-
-
HeapTuple
TypeOidIndexScan(Relation heapRelation, Oid typeId)
{
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/catalog/pg_proc.c,v 1.34 1999/09/18 19:06:34 tgl Exp $
+ * $Header: /cvsroot/pgsql/src/backend/catalog/pg_proc.c,v 1.35 1999/09/30 10:31:42 wieck Exp $
*
*-------------------------------------------------------------------------
*/
Oid typev[8];
Oid relid;
Oid toid;
- text *prosrctext;
NameData procname;
TupleDesc tupDesc;
*/
if (!strcmp(procedureName, GENERICSETNAME))
{
+#ifdef SETS_FIXED
+ /* ----------
+ * The code below doesn't work any more because the
+ * PROSRC system cache and the pg_proc_prosrc_index
+ * have been removed. Instead a sequential heap scan
+ * or something better must get implemented. The reason
+ * for removing is that nbtree index crashes if sources
+ * exceed 2K what's likely for procedural languages.
+ *
+ * 1999/09/30 Jan
+ * ----------
+ */
+ text *prosrctext;
+
prosrctext = textin(prosrc);
tup = SearchSysCacheTuple(PROSRC,
PointerGetDatum(prosrctext),
pfree(prosrctext);
if (HeapTupleIsValid(tup))
return tup->t_data->t_oid;
+#else
+ elog(ERROR, "lookup for procedure by source needs fix (Jan)");
+#endif /* SETS_FIXED */
}
}
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/utils/cache/syscache.c,v 1.36 1999/09/18 19:07:55 tgl Exp $
+ * $Header: /cvsroot/pgsql/src/backend/utils/cache/syscache.c,v 1.37 1999/09/30 10:31:43 wieck Exp $
*
* NOTES
* These routines allow the parser/planner/executor to perform
offsetof(FormData_pg_rewrite, ev_qual),
NULL,
(ScanFunc) NULL},
- {ProcedureRelationName, /* PROSRC */
- 1,
- {
- Anum_pg_proc_prosrc,
- 0,
- 0,
- 0
- },
- offsetof(FormData_pg_proc, prosrc),
- ProcedureSrcIndex,
- (ScanFunc) ProcedureSrcIndexScan},
{OperatorClassRelationName, /* CLADEFTYPE */
1,
{
*
* Copyright (c) 1994, Regents of the University of California
*
- * $Id: indexing.h,v 1.24 1999/09/29 16:06:14 wieck Exp $
+ * $Id: indexing.h,v 1.25 1999/09/30 10:31:44 wieck Exp $
*
*-------------------------------------------------------------------------
*/
* Some definitions for indices on pg_attribute
*/
#define Num_pg_attr_indices 3
-#define Num_pg_proc_indices 3
+#define Num_pg_proc_indices 2
#define Num_pg_type_indices 2
#define Num_pg_class_indices 2
#define Num_pg_attrdef_indices 1
#define AttributeRelidIndex "pg_attribute_attrelid_index"
#define ProcedureOidIndex "pg_proc_oid_index"
#define ProcedureNameIndex "pg_proc_proname_narg_type_index"
-#define ProcedureSrcIndex "pg_proc_prosrc_index"
#define TypeOidIndex "pg_type_oid_index"
#define TypeNameIndex "pg_type_typname_index"
#define ClassOidIndex "pg_class_oid_index"
extern HeapTuple ProcedureOidIndexScan(Relation heapRelation, Oid procId);
extern HeapTuple ProcedureNameIndexScan(Relation heapRelation,
char *procName, int2 nargs, Oid *argTypes);
-extern HeapTuple ProcedureSrcIndexScan(Relation heapRelation, text *procSrc);
extern HeapTuple TypeOidIndexScan(Relation heapRelation, Oid typeId);
extern HeapTuple TypeNameIndexScan(Relation heapRelation, char *typeName);
extern HeapTuple ClassNameIndexScan(Relation heapRelation, char *relName);
DECLARE_INDEX(pg_proc_oid_index on pg_proc using btree(oid oid_ops));
DECLARE_INDEX(pg_proc_proname_narg_type_index on pg_proc using btree(proname name_ops, pronargs int2_ops, proargtypes oid8_ops));
-DECLARE_INDEX(pg_proc_prosrc_index on pg_proc using btree(prosrc text_ops));
DECLARE_INDEX(pg_type_oid_index on pg_type using btree(oid oid_ops));
DECLARE_INDEX(pg_type_typname_index on pg_type using btree(typname name_ops));
*
* Copyright (c) 1994, Regents of the University of California
*
- * $Id: syscache.h,v 1.18 1999/08/09 03:13:28 tgl Exp $
+ * $Id: syscache.h,v 1.19 1999/09/30 10:31:47 wieck Exp $
*
*-------------------------------------------------------------------------
*/
#define GRONAME 23
#define GROSYSID 24
#define REWRITENAME 25
-#define PROSRC 26
-#define CLADEFTYPE 27
-#define LANOID 28
+#define CLADEFTYPE 26
+#define LANOID 27
/* ----------------
* struct cachedesc: information needed for a call to InitSysCache()