Return to delete.c CVS log

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

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

1.1     ! root        1: # include      <ingres.h>
        !             2: # include      <access.h>
        !             3: # include      <catalog.h>
        !             4: # include      <batch.h>
        !             5: # include      <btree.h>
        !             6: # include      <sccs.h>
        !             7: 
        !             8: SCCSID(@(#)delete.c    8.1     12/31/84)
        !             9: 
        !            10: /*
        !            11: **     Delete - delete the tuple specified by tid
        !            12: **
        !            13: **     Delete removes the tuple specified by tid
        !            14: **     and reclaims the tuple space.
        !            15: **
        !            16: **     returns:
        !            17: **             <0  fatal error
        !            18: **             0   success
        !            19: **             2   tuple specified by tid aleady deleted
        !            20: */
        !            21: 
        !            22: delete(dx, tidx)
        !            23: DESC   *dx;
        !            24: TID    *tidx;
        !            25: {
        !            26:        register DESC   *d;
        !            27:        register TID    *tid;
        !            28:        register int    i;
        !            29:        char            btree[MAXNAME + 4];
        !            30:        TID             tidloc;
        !            31:        long            lid[MAXLID];
        !            32: 
        !            33:        d = dx;
        !            34:        tid = tidx;
        !            35: 
        !            36: #      ifdef xATR1
        !            37:        if (tTf(24, 8))
        !            38:        {
        !            39:                printf("delete: %.14s,", d->reldum.relid);
        !            40:                dumptid(tid);
        !            41:        }
        !            42: #      endif
        !            43: 
        !            44:        if (i = get_page(d, tid))
        !            45:                return (i);
        !            46: 
        !            47:        if (i = invalid(tid))
        !            48:                return (i);
        !            49: 
        !            50:        i = tup_len(tid);
        !            51: 
        !            52:        del_tuple(tid, i);
        !            53: 
        !            54:        if (d->reldum.reldim > 0)
        !            55:        /* remove corresponding lid from B-Tree */
        !            56:        {
        !            57:                btreename(d->reldum.relid, btree);
        !            58:                search_btree(*tid, &tidloc);
        !            59:                get_lid(&tidloc, lid);
        !            60:                if (fwrite(lid, 1, LIDSIZE * d->reldum.reldim, Del_infp) != LIDSIZE * d->reldum.reldim)
        !            61:                        syserr("write error");
        !            62:                ++Del_cnt;
        !            63:        }
        !            64: 
        !            65:        d->reladds--;
        !            66: 
        !            67:        return (0);
        !            68: }

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