1996-07-09 08:22:35 +02:00
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
*
|
|
|
|
* regproc.c--
|
1997-09-07 07:04:48 +02:00
|
|
|
* Functions for the built-in type "RegProcedure".
|
1996-07-09 08:22:35 +02:00
|
|
|
*
|
|
|
|
* Copyright (c) 1994, Regents of the University of California
|
|
|
|
*
|
|
|
|
*
|
|
|
|
* IDENTIFICATION
|
1997-09-08 04:41:22 +02:00
|
|
|
* $Header: /cvsroot/pgsql/src/backend/utils/adt/regproc.c,v 1.7 1997/09/08 02:30:58 momjian Exp $
|
1996-07-09 08:22:35 +02:00
|
|
|
*
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
*/
|
|
|
|
#include <string.h>
|
|
|
|
#include "postgres.h"
|
|
|
|
#include "access/heapam.h"
|
|
|
|
#include "access/relscan.h"
|
|
|
|
#include "fmgr.h"
|
|
|
|
#include "utils/palloc.h"
|
|
|
|
|
|
|
|
#include "catalog/catname.h"
|
1997-09-07 07:04:48 +02:00
|
|
|
#include "utils/builtins.h" /* where function declarations go */
|
1996-07-09 08:22:35 +02:00
|
|
|
|
1997-09-07 07:04:48 +02:00
|
|
|
/*****************************************************************************
|
|
|
|
* USER I/O ROUTINES *
|
1996-07-09 08:22:35 +02:00
|
|
|
*****************************************************************************/
|
|
|
|
|
|
|
|
/*
|
1997-09-07 07:04:48 +02:00
|
|
|
* regprocin - converts "proname" to proid
|
1996-07-09 08:22:35 +02:00
|
|
|
*
|
1997-09-07 07:04:48 +02:00
|
|
|
* proid of NULL signifies unknown
|
1996-07-09 08:22:35 +02:00
|
|
|
*/
|
1997-09-07 07:04:48 +02:00
|
|
|
int32
|
|
|
|
regprocin(char *proname)
|
1996-07-09 08:22:35 +02:00
|
|
|
{
|
1997-09-08 04:41:22 +02:00
|
|
|
Relation proc;
|
|
|
|
HeapScanDesc procscan;
|
|
|
|
HeapTuple proctup;
|
|
|
|
ScanKeyData key;
|
|
|
|
RegProcedure result = (Oid) 0;
|
|
|
|
bool isnull;
|
1997-09-07 07:04:48 +02:00
|
|
|
|
|
|
|
if (proname == NULL)
|
|
|
|
return (0);
|
|
|
|
proc = heap_openr(ProcedureRelationName);
|
|
|
|
if (!RelationIsValid(proc))
|
|
|
|
{
|
|
|
|
elog(WARN, "regprocin: could not open %s",
|
|
|
|
ProcedureRelationName);
|
|
|
|
return (0);
|
|
|
|
}
|
|
|
|
ScanKeyEntryInitialize(&key,
|
|
|
|
(bits16) 0,
|
|
|
|
(AttrNumber) 1,
|
|
|
|
(RegProcedure) F_CHAR16EQ,
|
|
|
|
(Datum) proname);
|
|
|
|
|
|
|
|
procscan = heap_beginscan(proc, 0, NowTimeQual, 1, &key);
|
|
|
|
if (!HeapScanIsValid(procscan))
|
|
|
|
{
|
|
|
|
heap_close(proc);
|
|
|
|
elog(WARN, "regprocin: could not being scan of %s",
|
|
|
|
ProcedureRelationName);
|
|
|
|
return (0);
|
1996-07-09 08:22:35 +02:00
|
|
|
}
|
1997-09-07 07:04:48 +02:00
|
|
|
proctup = heap_getnext(procscan, 0, (Buffer *) NULL);
|
|
|
|
switch (HeapTupleIsValid(proctup))
|
|
|
|
{
|
1997-09-08 04:41:22 +02:00
|
|
|
case 1:
|
|
|
|
result = (RegProcedure) heap_getattr(proctup,
|
|
|
|
InvalidBuffer,
|
|
|
|
ObjectIdAttributeNumber,
|
1997-09-07 07:04:48 +02:00
|
|
|
RelationGetTupleDescriptor(proc),
|
1997-09-08 04:41:22 +02:00
|
|
|
&isnull);
|
|
|
|
if (isnull)
|
|
|
|
{
|
|
|
|
elog(FATAL, "regprocin: null procedure %s", proname);
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case 0:
|
|
|
|
result = (RegProcedure) 0;
|
1996-07-09 08:22:35 +02:00
|
|
|
#ifdef EBUG
|
1997-09-08 04:41:22 +02:00
|
|
|
elog(DEBUG, "regprocin: no such procedure %s", proname);
|
1997-09-07 07:04:48 +02:00
|
|
|
#endif /* defined(EBUG) */
|
|
|
|
}
|
|
|
|
heap_endscan(procscan);
|
|
|
|
heap_close(proc);
|
|
|
|
return ((int32) result);
|
1996-07-09 08:22:35 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
1997-09-07 07:04:48 +02:00
|
|
|
* regprocout - converts proid to "proname"
|
1996-07-09 08:22:35 +02:00
|
|
|
*/
|
1997-09-08 04:41:22 +02:00
|
|
|
char *
|
1997-09-07 07:04:48 +02:00
|
|
|
regprocout(RegProcedure proid)
|
1996-07-09 08:22:35 +02:00
|
|
|
{
|
1997-09-08 04:41:22 +02:00
|
|
|
Relation proc;
|
|
|
|
HeapScanDesc procscan;
|
|
|
|
HeapTuple proctup;
|
|
|
|
char *result;
|
|
|
|
ScanKeyData key;
|
1997-09-07 07:04:48 +02:00
|
|
|
|
|
|
|
result = (char *) palloc(NAMEDATALEN);
|
|
|
|
proc = heap_openr(ProcedureRelationName);
|
|
|
|
if (!RelationIsValid(proc))
|
|
|
|
{
|
|
|
|
elog(WARN, "regprocout: could not open %s",
|
|
|
|
ProcedureRelationName);
|
|
|
|
return (0);
|
|
|
|
}
|
|
|
|
ScanKeyEntryInitialize(&key,
|
|
|
|
(bits16) 0,
|
|
|
|
(AttrNumber) ObjectIdAttributeNumber,
|
|
|
|
(RegProcedure) F_INT4EQ,
|
|
|
|
(Datum) proid);
|
|
|
|
|
|
|
|
procscan = heap_beginscan(proc, 0, NowTimeQual, 1, &key);
|
|
|
|
if (!HeapScanIsValid(procscan))
|
|
|
|
{
|
|
|
|
heap_close(proc);
|
|
|
|
elog(WARN, "regprocin: could not being scan of %s",
|
|
|
|
ProcedureRelationName);
|
|
|
|
return (0);
|
1996-07-09 08:22:35 +02:00
|
|
|
}
|
1997-09-07 07:04:48 +02:00
|
|
|
proctup = heap_getnext(procscan, 0, (Buffer *) NULL);
|
|
|
|
switch (HeapTupleIsValid(proctup))
|
|
|
|
{
|
1997-09-08 04:41:22 +02:00
|
|
|
char *s;
|
|
|
|
bool isnull;
|
1997-09-07 07:04:48 +02:00
|
|
|
|
1997-09-08 04:41:22 +02:00
|
|
|
case 1:
|
|
|
|
s = (char *) heap_getattr(proctup, InvalidBuffer, 1,
|
1997-09-07 07:04:48 +02:00
|
|
|
RelationGetTupleDescriptor(proc), &isnull);
|
1997-09-08 04:41:22 +02:00
|
|
|
if (!isnull)
|
|
|
|
{
|
|
|
|
strNcpy(result, s, 16);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
elog(FATAL, "regprocout: null procedure %d", proid);
|
|
|
|
/* FALLTHROUGH */
|
|
|
|
case 0:
|
|
|
|
result[0] = '-';
|
|
|
|
result[1] = '\0';
|
1996-07-09 08:22:35 +02:00
|
|
|
#ifdef EBUG
|
1997-09-08 04:41:22 +02:00
|
|
|
elog(DEBUG, "regprocout: no such procedure %d", proid);
|
1997-09-07 07:04:48 +02:00
|
|
|
#endif /* defined(EBUG) */
|
|
|
|
}
|
|
|
|
heap_endscan(procscan);
|
|
|
|
heap_close(proc);
|
|
|
|
return (result);
|
1996-07-09 08:22:35 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
1997-09-07 07:04:48 +02:00
|
|
|
/*****************************************************************************
|
|
|
|
* PUBLIC ROUTINES *
|
1996-07-09 08:22:35 +02:00
|
|
|
*****************************************************************************/
|
|
|
|
|
1997-04-27 21:20:16 +02:00
|
|
|
/* regproctooid()
|
|
|
|
* Lowercase version of RegprocToOid() to allow case-insensitive SQL.
|
|
|
|
* Define RegprocToOid() as a macro in builtins.h.
|
|
|
|
* Referenced in pg_proc.h. - tgl 97/04/26
|
|
|
|
*/
|
1997-09-07 07:04:48 +02:00
|
|
|
Oid
|
|
|
|
regproctooid(RegProcedure rp)
|
1996-07-09 08:22:35 +02:00
|
|
|
{
|
1997-09-07 07:04:48 +02:00
|
|
|
return (Oid) rp;
|
1996-07-09 08:22:35 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/* (see int.c for comparison/operation routines) */
|
|
|
|
|
|
|
|
|
|
|
|
/* ========== PRIVATE ROUTINES ========== */
|