29 lines
511 B
C
29 lines
511 B
C
# include "gen.h"
|
|
# include "../h/dbs.h"
|
|
# include "../h/symbol.h"
|
|
# include "../h/access.h"
|
|
|
|
/*
|
|
** Clr_tuple initializes all character domains
|
|
** to blank and all numeric domains to zero.
|
|
*/
|
|
clr_tuple(d, tuple)
|
|
register DESC *d;
|
|
char *tuple;
|
|
{
|
|
register char *tup;
|
|
register int i;
|
|
register int j;
|
|
register int pad;
|
|
|
|
for (i = 1; i <= d->reldum.relatts; i++)
|
|
{
|
|
pad = (d->relfrmt[i] == CHAR)? ' ': 0;
|
|
tup = &tuple[d->reloff[i]];
|
|
j = ctou(d->relfrml[i]);
|
|
|
|
while (j--)
|
|
*tup++ = pad;
|
|
}
|
|
}
|