| 76 |
|
for (n = strlen(ass); n > 0; n--) |
| 77 |
|
if (!isspace(ass[n-1])) |
| 78 |
|
break; |
| 79 |
< |
if (!n && !nowarn) { |
| 80 |
< |
fprintf(stderr, "%s: warning - missing value for variable '%s'\n", |
| 81 |
< |
progname, varname); |
| 79 |
> |
if (!n) { |
| 80 |
> |
if (!nowarn) |
| 81 |
> |
fprintf(stderr, |
| 82 |
> |
"%s: warning - missing value for variable '%s'\n", |
| 83 |
> |
progname, varname); |
| 84 |
|
return; |
| 85 |
|
} |
| 86 |
|
/* match variable from list */ |
| 135 |
|
|
| 136 |
|
|
| 137 |
|
char * |
| 138 |
< |
nvalue(vp, n) /* return nth variable value */ |
| 139 |
< |
VARIABLE *vp; |
| 138 |
> |
nvalue(vn, n) /* return nth variable value */ |
| 139 |
> |
register int vn; |
| 140 |
|
register int n; |
| 141 |
|
{ |
| 142 |
|
register char *cp; |
| 143 |
|
|
| 144 |
< |
if (vp == NULL | n < 0 | n >= vp->nass) |
| 144 |
> |
if (vval(vn) == NULL | n < 0 | n >= vdef(vn)) |
| 145 |
|
return(NULL); |
| 146 |
< |
cp = vp->value; |
| 146 |
> |
cp = vval(vn); |
| 147 |
|
while (n--) |
| 148 |
|
while (*cp++) |
| 149 |
|
; |
| 281 |
|
fputs("= ", fp); |
| 282 |
|
k = clipline = ( vv[i].fixval == catvalues ? 64 : 320 ) |
| 283 |
|
- strlen(vnam(i)) ; |
| 284 |
< |
cp = nvalue(vv+i, j); |
| 284 |
> |
cp = nvalue(i, j); |
| 285 |
|
while (*cp) { |
| 286 |
|
putc(*cp++, fp); |
| 287 |
|
if (--k <= 0) { /* line too long */ |