44 |
|
if (pnew == NULL) |
45 |
|
return(NULL); |
46 |
|
strcpy(pnew->rem, comm); |
47 |
+ |
pnew->nfield = 0; |
48 |
|
pnew->flist = NULL; |
49 |
|
pnew->pname = pent->key; /* add to table */ |
50 |
|
pnew->pnext = (IDF_PARAMETER *)pent->data; |
77 |
|
if (fnew == NULL) |
78 |
|
return(0); |
79 |
|
fnew->next = NULL; |
80 |
< |
cp = fnew->arg; /* copy argument and comments */ |
80 |
> |
cp = fnew->val; /* copy value and comments */ |
81 |
|
while ((*cp++ = *fval++)) |
82 |
|
; |
83 |
|
fnew->rem = cp; |
95 |
|
param->flist = fnew; |
96 |
|
else |
97 |
|
flast->next = fnew; |
98 |
+ |
param->nfield++; |
99 |
|
return(fnum); |
100 |
|
} |
101 |
|
|
367 |
|
fputs(param->rem, fp); |
368 |
|
for (fptr = param->flist; fptr != NULL; fptr = fptr->next) { |
369 |
|
if (!incl_comm) |
370 |
< |
fputs("\n\t", fp); |
371 |
< |
fputs(fptr->arg, fp); |
370 |
> |
fputs("\n ", fp); |
371 |
> |
fputs(fptr->val, fp); |
372 |
|
fputc((fptr->next==NULL ? ';' : ','), fp); |
373 |
|
if (incl_comm) |
374 |
|
fputs(fptr->rem, fp); |