Return to ret_unique.c CVS log

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

Annotation of 42BSD/ingres/source/decomp/ret_unique.c, revision 1.1

1.1     ! root        1: # include      <ingres.h>
        !             2: # include      <symbol.h>
        !             3: # include      <aux.h>
        !             4: # include      <tree.h>
        !             5: # include      "globs.h"
        !             6: # include      <sccs.h>
        !             7: 
        !             8: SCCSID(@(#)ret_unique.c        7.1     2/5/81)
        !             9: 
        !            10: 
        !            11: 
        !            12: /*
        !            13: **     create a result relation for a ret_unique
        !            14: */
        !            15: 
        !            16: mk_unique(root)
        !            17: QTREE  *root;
        !            18: {
        !            19:        register int    i, domcnt;
        !            20:        register QTREE  *r;
        !            21: 
        !            22:        r = root;
        !            23: 
        !            24:        /* verify that target list is within range */
        !            25:        domcnt = r->left->sym.type != TREE ? r->left->sym.value.sym_resdom.resno : 0;
        !            26:        if (findwid(r) > MAXTUP || domcnt > MAXDOM)
        !            27:                derror(4620);
        !            28:        i = MAXRANGE - 1;
        !            29:        De.de_rangev[i].relnum = mak_t_rel(r, "u", -1);
        !            30:        De.de_resultvar = i;
        !            31: 
        !            32:        /* don't count retrieve into portion as a user query */
        !            33:        r->sym.value.sym_root.rootuser = 0;
        !            34: }
        !            35: /*
        !            36: **     Retrieve all domains of the variable "var".
        !            37: **     This routine is used for ret_unique to retrieve
        !            38: **     the result relation. First duplicates are removed
        !            39: **     then the original tree is converted to be a
        !            40: **     retrieve of all domains of "var", and then
        !            41: **     ovqp is called to retrieve the relation.
        !            42: */
        !            43: 
        !            44: pr_unique(root1, var1)
        !            45: QTREE  *root1;
        !            46: int                    var1;
        !            47: {
        !            48:        register QTREE  *root, *r;
        !            49:        register int    var;
        !            50:        extern QTREE    *makavar();
        !            51: 
        !            52:        root = root1;
        !            53:        var = var1;
        !            54: 
        !            55:        /* remove duplicates from the unopened relation */
        !            56:        removedups(var);
        !            57: 
        !            58:        /* remove the qual from the tree */
        !            59:        root->right = De.de_qle;
        !            60: 
        !            61:        /* make all resdoms refer to the result relation */
        !            62:        for (r = root->left; r->sym.type != TREE; r = r->left)
        !            63:                r->right = makavar(r, var, r->sym.value.sym_resdom.resno);
        !            64: 
        !            65:        /* count as a user query */
        !            66:        root->sym.value.sym_root.rootuser = TRUE;
        !            67: 
        !            68:        /* run the retrieve */
        !            69:        De.de_sourcevar = var;
        !            70:        De.de_newq = De.de_newr = TRUE;
        !            71:        call_ovqp(root, mdRETR, NORESULT);
        !            72: }

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