Return to delete.c CVS log

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

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

1.1     ! root        1: # include      <ingres.h>
        !             2: # include      <access.h>
        !             3: # include      <sccs.h>
        !             4: 
        !             5: SCCSID(@(#)delete.c    7.1     2/5/81)
        !             6: 
        !             7: /*
        !             8: **     Delete - delete the tuple specified by tid
        !             9: **
        !            10: **     Delete removes the tuple specified by tid
        !            11: **     and reclaims the tuple space.
        !            12: **
        !            13: **     returns:
        !            14: **             <0  fatal error
        !            15: **             0   success
        !            16: **             2   tuple specified by tid aleady deleted
        !            17: */
        !            18: 
        !            19: delete(dx, tidx)
        !            20: DESC   *dx;
        !            21: TID    *tidx;
        !            22: {
        !            23:        register DESC   *d;
        !            24:        register TID    *tid;
        !            25:        register int    i;
        !            26: 
        !            27:        d = dx;
        !            28:        tid = tidx;
        !            29: 
        !            30: #      ifdef xATR1
        !            31:        if (tTf(24, 8))
        !            32:        {
        !            33:                printf("delete: %.14s,", d->reldum.relid);
        !            34:                dumptid(tid);
        !            35:        }
        !            36: #      endif
        !            37: 
        !            38:        if (i = get_page(d, tid))
        !            39:                return (i);
        !            40: 
        !            41:        if (i = invalid(tid))
        !            42:                return (i);
        !            43: 
        !            44:        i = tup_len(tid);
        !            45: 
        !            46:        del_tuple(tid, i);
        !            47:        d->reladds--;
        !            48: 
        !            49:        return (0);
        !            50: }

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