Return to get_reltup.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / iutil

Annotation of 42BSD/ingres/source/iutil/get_reltup.c, revision 1.1

1.1     ! root        1: # include <ingres.h>
        !             2: # include <access.h>
        !             3: # include <aux.h>
        !             4: # include <sccs.h>
        !             5: 
        !             6: SCCSID(@(#)get_reltup.c        7.1     2/5/81)
        !             7: 
        !             8: /*
        !             9: **  GET_RELTUP -- get appropriate tuple from relation catalog
        !            10: **
        !            11: **     Get the tuple for the relation specified by 'name'
        !            12: **     and put it in the descriptor 'dx'.
        !            13: **
        !            14: **     First a relation named 'name' owned
        !            15: **     by the current user is searched for. If that fails,
        !            16: **     then a relation owned by the dba is searched for.
        !            17: */
        !            18: 
        !            19: get_reltup(d, name)
        !            20: register DESC  *d;
        !            21: char           *name;
        !            22: {
        !            23:        struct relation rel;
        !            24:        register int    i;
        !            25: 
        !            26:        clearkeys(&Admin.adreld);
        !            27: 
        !            28:        /* make believe relation relation is read only for concurrency */
        !            29:        Admin.adreld.relopn = abs(Admin.adreld.relopn);
        !            30: 
        !            31:        /* relation relation is open. Search for relation 'name' */
        !            32:        setkey(&Admin.adreld, (char *) &rel, name, RELID);
        !            33:        setkey(&Admin.adreld, (char *) &rel, Usercode, RELOWNER);
        !            34: 
        !            35:        if ((i = getequal(&Admin.adreld, (char *) &rel, d, &d->reltid.s_tupid)) == 1)
        !            36:        {
        !            37:                /* not a user relation. try relation owner by dba */
        !            38:                setkey(&Admin.adreld, (char *) &rel, Admin.adhdr.adowner, RELOWNER);
        !            39:                i = getequal(&Admin.adreld, (char *) &rel, d, &d->reltid.s_tupid);
        !            40:        }
        !            41: 
        !            42:        flush_rel(&Admin.adreld, TRUE);
        !            43: 
        !            44: #      ifdef xATR1
        !            45:        if (tTf(21, 1))
        !            46:                printf("get_reltup: %d\n", i);
        !            47: #      endif
        !            48: 
        !            49:        /* restore relation relation to read/write mode */
        !            50:        Admin.adreld.relopn = -Admin.adreld.relopn;
        !            51:        return (i);
        !            52: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.