ING_DB
This commit is contained in:
Oliver Lehmann
parent
dfeca39a34
commit
374b3a7b58
|
|
@ -0,0 +1,317 @@
|
|||
# include "gen.h"
|
||||
# include "../h/dbs.h"
|
||||
# include "../h/aux.h"
|
||||
# include "../h/bs.h"
|
||||
# include "../h/catalog.h"
|
||||
# include "../h/access.h"
|
||||
# include "../h/tree.h"
|
||||
# ifdef BC
|
||||
# define QLEND 21 /* NULL branch at end of QUAL */
|
||||
# define RESDOM 11 /* RESULT DOMAIN NUMBER */
|
||||
# define TREE 25 /* SIGNALS BEGINNING of TREE */
|
||||
# define VAR 12 /* VARIABLE */
|
||||
# define mdDEFINE 14
|
||||
# define mdPROT 22
|
||||
# else
|
||||
# include "../h/symbol.h"
|
||||
# endif
|
||||
# include "../h/lock.h"
|
||||
# include "qrymod.h"
|
||||
|
||||
extern struct admin AAdmin;
|
||||
extern DESC Prodes;
|
||||
extern DESC Reldes;
|
||||
extern QTREE *Treeroot;
|
||||
|
||||
struct downame
|
||||
{
|
||||
char *dow_name;
|
||||
int dow_num;
|
||||
};
|
||||
|
||||
static struct downame Dowlist[] =
|
||||
{
|
||||
"sun", 0,
|
||||
"sunday", 0,
|
||||
"mon", 1,
|
||||
"monday", 1,
|
||||
"tue", 2,
|
||||
"tues", 2,
|
||||
"tuesday", 2,
|
||||
"wed", 3,
|
||||
"wednesday", 3,
|
||||
"thu", 4,
|
||||
"thurs", 4,
|
||||
"thursday", 4,
|
||||
"fri", 5,
|
||||
"friday", 5,
|
||||
"sat", 6,
|
||||
"saturday", 6,
|
||||
(char *) 0
|
||||
};
|
||||
|
||||
/*
|
||||
** D_PROT -- define protection constraint
|
||||
**
|
||||
** A protection constraint as partially defined by the last tree
|
||||
** defined by d_tree is defined.
|
||||
**
|
||||
** The stuff that comes through the pipe as parameters is complex.
|
||||
** It comes as a sequence of strings:
|
||||
** # The operation set, already encoded in the parser into a
|
||||
** bit map. If the PRO_RETR permission is set, the PRO_TEST
|
||||
** and PRO_AGGR permissions will also be set.
|
||||
** # The relation name.
|
||||
** # The relation owner.
|
||||
** # The user name. This must be a user name as specified in
|
||||
** the AA_USERS, or the keyword 'all', meaning all users.
|
||||
** # The terminal id. Must be a string of the form 'ttyx' or
|
||||
** the keyword 'all'.
|
||||
** # The starting time of day, as minutes-since-midnight.
|
||||
** # The ending time of day.
|
||||
** # The starting day-of-week, with 0 = Sunday.
|
||||
** # The ending dow.
|
||||
**
|
||||
** The domain reference set is build automatically from the
|
||||
** target list of the tree. Thus, the target list must exist,
|
||||
** but it is not inserted into the tree. The target list must
|
||||
** be a flat sequence of RESDOM nodes with VAR nodes hanging
|
||||
** of the rhs; also, the VAR nodes must all be for Resultvar.
|
||||
** If there is no target list on the tree, the set of all var-
|
||||
** iables is assumed.
|
||||
**
|
||||
** The relstat field in the relation relation is updated to
|
||||
** reflect any changes.
|
||||
**
|
||||
** It only makes sense for the DBA to execute this command.
|
||||
**
|
||||
** If there is one of the special cases
|
||||
** permit all to all
|
||||
** permit retrieve to all
|
||||
** it is caught, and the effect is achieved by diddling
|
||||
** relstat bits instead of inserting into the AA_PROTECT catalog.
|
||||
*/
|
||||
d_prot()
|
||||
{
|
||||
struct protect protup;
|
||||
struct tup_id protid;
|
||||
struct protect prokey;
|
||||
struct protect proxtup;
|
||||
register int i;
|
||||
short ix;
|
||||
register QTREE *t;
|
||||
struct relation reltup;
|
||||
struct relation relkey;
|
||||
struct tup_id reltid;
|
||||
int relstat;
|
||||
int all_pro;
|
||||
|
||||
/*
|
||||
** Check for valid tree:
|
||||
** There must be a tree defined, and all variables
|
||||
** referenced must be owned by the current user; this
|
||||
** is because you could otherwise get at data by
|
||||
** mentioning it in a permit statement; see protect.c
|
||||
** for a better explanation of this.
|
||||
*/
|
||||
|
||||
if (Treeroot == (QTREE *) 0)
|
||||
AAsyserr(19009);
|
||||
for (i = 0; i < MAXVAR + 1; i++)
|
||||
{
|
||||
if (!Rangev[i].rused)
|
||||
continue;
|
||||
if (!AAbequal(Rangev[i].rowner, AAusercode, 2))
|
||||
far_error(3592, -1, i, (char *) 0);
|
||||
}
|
||||
|
||||
/* test for dba */
|
||||
if (!AAbequal(AAusercode, AAdmin.adhdr.adowner, 2))
|
||||
far_error(3595, -1, Resultvar, (char *) 0);
|
||||
|
||||
clr_tuple(&Prodes, &protup);
|
||||
|
||||
all_pro = fillprotup(&protup);
|
||||
|
||||
/* get domain reference set from target list */
|
||||
/* (also, find the TREE node) */
|
||||
t = Treeroot->left;
|
||||
if (t->sym.type == TREE)
|
||||
{
|
||||
for (i = 0; i < 8; i++)
|
||||
protup.prodomset[i] = -1;
|
||||
}
|
||||
else
|
||||
{
|
||||
for (i = 0; i < 8; i++)
|
||||
protup.prodomset[i] = 0;
|
||||
for ( ; t->sym.type != TREE; t = t->left)
|
||||
{
|
||||
if (t->right->sym.type != VAR ||
|
||||
t->sym.type != RESDOM ||
|
||||
((VAR_NODE *) t->right)->varno != Resultvar)
|
||||
AAsyserr(19010);
|
||||
lsetbit(((VAR_NODE *) t->right)->attno, protup.prodomset);
|
||||
}
|
||||
all_pro = FALSE;
|
||||
}
|
||||
|
||||
/* trim off the target list, since it isn't used again */
|
||||
Treeroot->left = t;
|
||||
|
||||
/*
|
||||
** Check out the target relation.
|
||||
** We first save the varno of the relation which is
|
||||
** getting the permit stuff. Also, we check to see
|
||||
** that the relation mentioned is a base relation,
|
||||
** and not a view, since that tuple would never do
|
||||
** anything anyway. Finally, we clear the Resultvar
|
||||
** so that it does not get output to the AA_TREE catalog.
|
||||
** This would result in a 'AAsyserr' when we tried to
|
||||
** read it.
|
||||
*/
|
||||
|
||||
protup.proresvar = Resultvar;
|
||||
# ifdef xQTR3
|
||||
if (Resultvar < 0)
|
||||
AAsyserr(19011, Resultvar);
|
||||
# endif
|
||||
|
||||
/* check for the resultvariable being a real relation */
|
||||
if (Rangev[Resultvar].rstat & S_VIEW)
|
||||
far_error(3593, -1, Resultvar, (char *) 0); /* is a view */
|
||||
|
||||
/* and not an index */
|
||||
if (Rangev[Resultvar].rstat & S_INDEX)
|
||||
far_error(3596, -1, Resultvar, (char *) 0); /* is an index */
|
||||
|
||||
/* clear the (unused) Qmode */
|
||||
# ifdef xQTR3
|
||||
if (Qmode != mdDEFINE)
|
||||
AAsyserr(19012, Qmode);
|
||||
# endif
|
||||
Qmode = -1;
|
||||
|
||||
/*
|
||||
** Check for PERMIT xx to ALL case.
|
||||
** The relstat bits will be adjusted as necessary
|
||||
** to reflect these special cases.
|
||||
**
|
||||
** This is actually a little tricky, since we cannot
|
||||
** afford to turn off any permissions. If we already
|
||||
** have some form of PERMIT xx to ALL access, we must
|
||||
** leave it.
|
||||
*/
|
||||
|
||||
relstat = Rangev[Resultvar].rstat;
|
||||
if (all_pro && (protup.proopset & PRO_RETR))
|
||||
{
|
||||
if (ctoi(protup.proopset) == -1)
|
||||
relstat &= ~S_PROTALL;
|
||||
else
|
||||
{
|
||||
relstat &= ~S_PROTRET;
|
||||
if ((protup.proopset & ~(PRO_RETR|PRO_AGGR|PRO_TEST)))
|
||||
{
|
||||
/* some special case: still insert prot tuple */
|
||||
all_pro = FALSE;
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
all_pro = FALSE; /* insert tuple if not special case */
|
||||
|
||||
/* see if we are adding any tuples */
|
||||
if (!all_pro)
|
||||
relstat |= S_PROTUPS;
|
||||
|
||||
/*
|
||||
** Change relstat field in AA_REL catalog
|
||||
*/
|
||||
|
||||
opencatalog(AA_REL, 2);
|
||||
AAam_setkey(&Reldes, &relkey, Rangev[Resultvar].relid, RELID);
|
||||
AAam_setkey(&Reldes, &relkey, Rangev[Resultvar].rowner, RELOWNER);
|
||||
if (i = AAgetequal(&Reldes, &relkey, &reltup, &reltid))
|
||||
AAsyserr(19013, i);
|
||||
reltup.relstat = relstat;
|
||||
if (AAsetusl(A_SLP, reltid, M_EXCL) < 0)
|
||||
AAsyserr(5000);
|
||||
if (AAam_replace(&Reldes, &reltid, &reltup, FALSE) < 0)
|
||||
AAsyserr(19014);
|
||||
AAunlus(reltid);
|
||||
if (AAnoclose(&Reldes))
|
||||
AAsyserr(19015);
|
||||
|
||||
Resultvar = -1;
|
||||
|
||||
if (!all_pro)
|
||||
{
|
||||
/*
|
||||
** Output the created tuple to the AA_PROTECT catalog
|
||||
** after making other internal adjustments and deter-
|
||||
** mining a unique sequence number (with the
|
||||
** AA_PROTECT catalog locked).
|
||||
*/
|
||||
|
||||
if (Treeroot->right->sym.type != QLEND)
|
||||
protup.protree = puttree(Treeroot, protup.prorelid, protup.prorelown, mdPROT);
|
||||
else
|
||||
protup.protree = -1;
|
||||
|
||||
/* compute unique permission id */
|
||||
opencatalog(AA_PROTECT, 2);
|
||||
if (AAsetrll(A_SLP, Prodes.reltid, M_EXCL) < 0)
|
||||
AAsyserr(5000);
|
||||
AAam_setkey(&Prodes, &prokey, protup.prorelid, PRORELID);
|
||||
AAam_setkey(&Prodes, &prokey, protup.prorelown, PRORELOWN);
|
||||
for (ix = 2; ; ix++)
|
||||
{
|
||||
AAam_setkey(&Prodes, &prokey, &ix, PROPERMID);
|
||||
i = AAgetequal(&Prodes, &prokey, &proxtup, &protid);
|
||||
if (i < 0)
|
||||
AAsyserr(19016);
|
||||
else if (i > 0)
|
||||
break;
|
||||
}
|
||||
protup.propermid = ix;
|
||||
|
||||
/* do actual insert */
|
||||
i = AAam_insert(&Prodes, &protid, &protup, FALSE);
|
||||
if (i < 0)
|
||||
AAsyserr(19017);
|
||||
if (AAnoclose(&Prodes))
|
||||
AAsyserr(19018);
|
||||
|
||||
/* clear the lock */
|
||||
AAunlrl(Prodes.reltid);
|
||||
}
|
||||
Treeroot = (QTREE *) 0;
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
** CVT_DOW -- convert day of week
|
||||
**
|
||||
** Converts the day of the week from string form to a number.
|
||||
**
|
||||
** Parameters:
|
||||
** sdow -- dow in string form.
|
||||
**
|
||||
** Returns:
|
||||
** 0 -> 6 -- the encoded day of the week.
|
||||
** -1 -- error.
|
||||
*/
|
||||
cvt_dow(sdow)
|
||||
char *sdow;
|
||||
{
|
||||
register struct downame *d;
|
||||
register char *s;
|
||||
|
||||
s = sdow;
|
||||
|
||||
for (d = Dowlist; d->dow_name; d++)
|
||||
if (AAsequal(d->dow_name, s))
|
||||
return (d->dow_num);
|
||||
return (-1);
|
||||
}
|
||||
Loading…
Reference in New Issue