Return to noclose.c CVS log

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

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

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

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