home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / database / ingres04.lzh / source / iutil / clr_tuple.c < prev    next >
Encoding:
C/C++ Source or Header  |  1985-01-23  |  594 b   |  39 lines
  1. # include    <ingres.h>
  2. # include    <symbol.h>
  3. # include    <access.h>
  4. # include    <sccs.h>
  5.  
  6. SCCSID(@(#)clr_tuple.c    8.1    12/31/84)
  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. }
  39.