| 26 |
|
#include <math.h> |
| 27 |
|
#include <stdlib.h> |
| 28 |
|
|
| 29 |
+ |
#include "rterror.h" |
| 30 |
|
#include "calcomp.h" |
| 31 |
|
|
| 32 |
|
#define MAXLINE 256 /* maximum line length */ |
| 35 |
|
|
| 36 |
|
#define isdecimal(c) (isdigit(c) || (c) == '.') |
| 37 |
|
|
| 38 |
< |
static double euminus(), eargument(), enumber(); |
| 39 |
< |
static double echannel(); |
| 40 |
< |
static double eadd(), esubtr(), emult(), edivi(), epow(); |
| 41 |
< |
static double ebotch(); |
| 38 |
> |
static double euminus(EPNODE *), eargument(EPNODE *), enumber(EPNODE *); |
| 39 |
> |
static double echannel(EPNODE *); |
| 40 |
> |
static double eadd(EPNODE *), esubtr(EPNODE *), |
| 41 |
> |
emult(EPNODE *), edivi(EPNODE *), |
| 42 |
> |
epow(EPNODE *); |
| 43 |
> |
static double ebotch(EPNODE *); |
| 44 |
|
|
| 45 |
|
unsigned int esupport = /* what to support */ |
| 46 |
|
E_VARIABLE | E_FUNCTION ; |
| 771 |
|
|
| 772 |
|
if (ep->type != VAR) |
| 773 |
|
return(0); |
| 774 |
< |
if ((dp = ep->v.ln->def) != NULL) |
| 774 |
> |
if ((dp = ep->v.ln->def) != NULL) { |
| 775 |
|
if (dp->v.kid->type == FUNC) |
| 776 |
|
return(dp->type == ':'); |
| 777 |
|
else |
| 778 |
|
return(0); /* don't identify masked library functions */ |
| 779 |
+ |
} |
| 780 |
|
if ((lp = ep->v.ln->lib) != NULL) |
| 781 |
|
return(lp->atyp == ':'); |
| 782 |
|
return(0); |
