Return to noclose.c CVS log

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

Annotation of 43BSD/ingres/source/iutil/noclose.c, revision 1.1

1.1     ! root        1: # include      <stdio.h>
        !             2: # include      <ingres.h>
        !             3: # include      <aux.h>
        !             4: # include      <access.h>
        !             5: # include      <sccs.h>
        !             6: 
        !             7: SCCSID(@(#)noclose.c   8.1     12/31/84)
        !             8: 
        !             9: /*
        !            10: **     noclose - update system catalogs for a relation
        !            11: **     DESCRIPTION
        !            12: **
        !            13: **     function values:
        !            14: **
        !            15: **             <0  fatal error
        !            16: **              0  success
        !            17: **              1  relation was not open
        !            18: */
        !            19: 
        !            20: 
        !            21: noclose(d)
        !            22: register DESC  *d;
        !            23: {
        !            24:        register int    i;
        !            25:        struct relation rel;
        !            26: 
        !            27: #      ifdef xATR1
        !            28:        if (tTf(21, 12))
        !            29:                printf("noclose: %.14s,%ld\n", d->reldum.relid, d->reladds);
        !            30: #      endif
        !            31: 
        !            32:        /* make sure relation relation is read/write mode */
        !            33:        if (abs(d->relopn) != (d->relfp + 1) * 5)
        !            34:                return (1);
        !            35: 
        !            36:        /* flush all pages associated with relation */
        !            37:        /* if system catalog, reset all the buffers so they can't be reused */
        !            38:        i = flush_rel(d, d->reldum.relstat & S_CATALOG);
        !            39: 
        !            40:        /* check to see if number of tuples has changed */
        !            41:        if (d->reladds != 0)
        !            42:        {
        !            43:                /* yes, update the system catalogs */
        !            44:                /* get tuple from relation relation */
        !            45:                Admin.adreld.relopn = (Admin.adreld.relfp + 1) * -5;
        !            46:                if (i = get_page(&Admin.adreld, &d->reltid.s_tupid))
        !            47:                        return (i);     /* fatal error */
        !            48: 
        !            49:                /* get the actual tuple */
        !            50:                get_tuple(&Admin.adreld, &d->reltid.s_tupid, (char *) &rel);
        !            51: 
        !            52:                /* update the reltups field */
        !            53:                rel.reltups += d->reladds;
        !            54:                d->reldum.reltups = rel.reltups;
        !            55: 
        !            56:                /* put the tuple back */
        !            57:                put_tuple(&d->reltid.s_tupid, (char *) &rel, Admin.adreld.reldum.relwid);
        !            58:                i = resetacc(Acc_head);
        !            59:                d->reladds = 0;
        !            60:        }
        !            61:        return (i);
        !            62: }

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