4.3BSD/usr/ingres/source/iutil/get_reltup.c

# include <ingres.h>
# include <access.h>
# include <aux.h>
# include <sccs.h>

SCCSID(@(#)get_reltup.c	8.1	12/31/84)

/*
**  GET_RELTUP -- get appropriate tuple from relation catalog
**
**	Get the tuple for the relation specified by 'name'
**	and put it in the descriptor 'dx'.
**
**	First a relation named 'name' owned
**	by the current user is searched for. If that fails,
**	then a relation owned by the dba is searched for.
*/

get_reltup(d, name)
register DESC	*d;
char		*name;
{
	struct relation	rel;
	register int	i;

	clearkeys(&Admin.adreld);

	/* make believe relation relation is read only for concurrency */
	Admin.adreld.relopn = abs(Admin.adreld.relopn);

	/* relation relation is open. Search for relation 'name' */
	setkey(&Admin.adreld, (char *) &rel, name, RELID);
	setkey(&Admin.adreld, (char *) &rel, Usercode, RELOWNER);

	if ((i = getequal(&Admin.adreld, (char *) &rel, d, &d->reltid.s_tupid)) == 1)
	{
		/* not a user relation. try relation owner by dba */
		setkey(&Admin.adreld, (char *) &rel, Admin.adhdr.adowner, RELOWNER);
		i = getequal(&Admin.adreld, (char *) &rel, d, &d->reltid.s_tupid);
	}

	flush_rel(&Admin.adreld, TRUE);

#	ifdef xATR1
	if (tTf(21, 1))
		printf("get_reltup: %d\n", i);
#	endif

	/* restore relation relation to read/write mode */
	Admin.adreld.relopn = -Admin.adreld.relopn;
	return (i);
}