32 |
|
|
33 |
|
#define isdecimal(c) (isdigit(c) || (c) == '.') |
34 |
|
|
35 |
< |
extern double atof(), pow(); |
35 |
> |
#ifndef atof |
36 |
> |
extern double atof(); |
37 |
> |
#endif |
38 |
> |
extern double pow(); |
39 |
|
extern char *fgets(), *savestr(); |
40 |
|
extern char *emalloc(), *ecalloc(); |
41 |
|
extern EPNODE *curfunc; |
753 |
|
|
754 |
|
if (ep->type != VAR) |
755 |
|
return(0); |
756 |
< |
dp = ep->v.ln->def; |
757 |
< |
if (dp != NULL && dp->type != ':') |
758 |
< |
return(0); |
759 |
< |
if ((dp == NULL || dp->v.kid->type != FUNC) |
760 |
< |
&& ((lp = liblookup(ep->v.ln->name)) == NULL |
758 |
< |
|| lp->atyp != ':')) |
759 |
< |
return(0); |
760 |
< |
return(1); |
756 |
> |
if ((dp = ep->v.ln->def) != NULL && dp->v.kid->type == FUNC) |
757 |
> |
return(dp->type == ':'); |
758 |
> |
if ((lp = ep->v.ln->lib) != NULL) |
759 |
> |
return(lp->atyp == ':'); |
760 |
> |
return(0); |
761 |
|
} |
762 |
|
#endif |
763 |
|
#endif |