Return to paramd.c CVS log

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

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

1.1     ! root        1: # include      <ingres.h>
        !             2: # include      <aux.h>
        !             3: # include      <catalog.h>
        !             4: # include      <access.h>
        !             5: # include      <sccs.h>
        !             6: 
        !             7: SCCSID(@(#)paramd.c    7.1     2/5/81)
        !             8: 
        !             9: 
        !            10: 
        !            11: /*
        !            12: **     get access parameters of a relation from its descriptor and return
        !            13: **     them in struct pointed to by "ap".
        !            14: */
        !            15: 
        !            16: 
        !            17: paramd(d, ap)
        !            18: register DESC                  *d;
        !            19: register struct accessparam    *ap;
        !            20: {
        !            21:        register int    i;
        !            22:        int             p;
        !            23: 
        !            24: 
        !            25:        ap->mode = getmode(d->reldum.relspec);
        !            26:        ap->sec_index = FALSE;  /* indicate that this isn't the index-rel */
        !            27: 
        !            28:        for (i = 0; i < MAXDOM+1; i++)
        !            29:                ap->keydno[i] = 0;
        !            30: 
        !            31:        for (p = 1; p <= d->reldum.relatts; p++)
        !            32:                if (i = d->relxtra[p])
        !            33:                        ap->keydno[i-1] = p;
        !            34:        return (0);
        !            35: }
        !            36: 
        !            37: parami(ip, param)
        !            38: struct index           *ip;
        !            39: struct accessparam     *param;
        !            40: {
        !            41:        register struct accessparam     *ap;
        !            42: 
        !            43:        ap  = param;
        !            44:        ap->mode = getmode(ip->irelspeci);
        !            45:        ap->sec_index = TRUE;   /* this is an index */
        !            46: 
        !            47:        bmove(ip->idom, ap->keydno, MAXKEYS);
        !            48:        ap->keydno[MAXKEYS] = 0;
        !            49:        return(0);
        !            50: }
        !            51: 
        !            52: 
        !            53: getmode(spec)
        !            54: int    spec;
        !            55: {
        !            56:        switch (abs(spec))
        !            57:        {
        !            58:          case M_HEAP:
        !            59:                return(NOKEY);
        !            60: 
        !            61:          case M_ISAM:
        !            62:                return(LRANGEKEY);
        !            63: 
        !            64:          case M_HASH:
        !            65:                return(EXACTKEY);
        !            66: 
        !            67:          default: 
        !            68:                syserr("getmode:bad relspec %d", spec);
        !            69:        }
        !            70: }

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