Return to clr_tuple.c CVS log

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

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

1.1     ! root        1: # include      <ingres.h>
        !             2: # include      <symbol.h>
        !             3: # include      <access.h>
        !             4: # include      <sccs.h>
        !             5: 
        !             6: SCCSID(@(#)clr_tuple.c 7.1     2/5/81)
        !             7: 
        !             8: 
        !             9: /*
        !            10: **     Clr_tuple initializes all character domains
        !            11: **     to blank and all numeric domains to zero.
        !            12: */
        !            13: 
        !            14: clr_tuple(desc, tuple)
        !            15: struct descriptor      *desc;
        !            16: char                   *tuple;
        !            17: {
        !            18:        register struct descriptor      *d;
        !            19:        register char                   *tup;
        !            20:        register int                    i;
        !            21:        int                             j, pad;
        !            22: 
        !            23:        d = desc;
        !            24: 
        !            25:        for (i = 1; i <= d->reldum.relatts; i++)
        !            26:        {
        !            27:                if (d->relfrmt[i] == CHAR)
        !            28:                        pad = ' ';
        !            29:                else
        !            30:                        pad = 0;
        !            31: 
        !            32:                tup = &tuple[d->reloff[i]];
        !            33:                j = d->relfrml[i] & I1MASK;
        !            34: 
        !            35:                while (j--)
        !            36:                        *tup++ = pad;
        !            37:        }
        !            38: }

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