Return to memb.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / rt

Annotation of 43BSD/contrib/icon/rt/memb.c, revision 1.1

1.1     ! root        1: #include "../h/rt.h"
        !             2: #ifdef SETS
        !             3: /*
        !             4:  * memb - sets res flag to 1 if x is a member of set S,
        !             5:  *  sets res flag to 0 if not.
        !             6:  *  Returns pointer to the descriptor which points to
        !             7:  *  the element (or which would point to it if it were
        !             8:  *  there).
        !             9:  */
        !            10: 
        !            11: struct descrip *memb(ps,x,hn,res)
        !            12: int *res;                              /* pointer to integer result flag */
        !            13: struct b_set *ps;
        !            14: struct descrip  *x;
        !            15: int hn;
        !            16:    {
        !            17:     register struct descrip *lp;
        !            18:     register struct b_selem  *pe;
        !            19:     extern int equiv();
        !            20: 
        !            21:    lp = &(ps->sbucks[hn % NBUCKETS]);
        !            22:    /*
        !            23:     * Look for x in the hash chain.
        !            24:     */
        !            25:    *res = 0;
        !            26:    while (BLKLOC(*lp) != NULL) {
        !            27:        pe = (struct b_selem *) BLKLOC(*lp);
        !            28:        if ( pe->hnum > hn)             /* too far - it isn't there */
        !            29:          return (lp);
        !            30:        else if (( pe->hnum == hn ) && ( equiv(&pe->setmem, x )))  {
        !            31:          *res = 1;
        !            32:          return (lp);
        !            33:          }
        !            34:    /*
        !            35:     * We haven't reached the right hashnumber yet or
        !            36:     *  the element isn't the right one so keep looking.
        !            37:     */
        !            38:       lp = &(pe->sblink);
        !            39:    }
        !            40:    /*
        !            41:     *  At end of chain - not there.
        !            42:     */
        !            43:    return (lp);
        !            44:    }
        !            45: #else SETS
        !            46: char junk;   /* prevent null object file */
        !            47: #endif SETS

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