196 |
|
|
197 |
|
|
198 |
|
int |
199 |
< |
vardefined( /* return non-zero if variable defined */ |
199 |
> |
vardefined( /* return '=' or ':' if variable/constant defined */ |
200 |
|
char *name |
201 |
|
) |
202 |
|
{ |
203 |
< |
EPNODE *dp; |
203 |
> |
EPNODE *dp = dlookup(name); |
204 |
|
|
205 |
< |
return((dp = dlookup(name)) != NULL && dp->v.kid->type == SYM); |
205 |
> |
if (dp == NULL || dp->v.kid->type != SYM) |
206 |
> |
return(0); |
207 |
> |
|
208 |
> |
return(dp->type); |
209 |
|
} |
210 |
|
|
211 |
|
|
640 |
|
ep2 = newnode(); |
641 |
|
ep2->type = SYM; |
642 |
|
ep2->v.name = savestr(getname()); |
643 |
+ |
if (strchr(ep2->v.name, CNTXMARK) != NULL) |
644 |
+ |
syntax("illegal parameter name"); |
645 |
|
addekid(ep1, ep2); |
646 |
|
} while (nextc == ','); |
647 |
|
if (nextc != ')') |