57 |
|
|
58 |
|
#define evalue(ep) (*eoper[(ep)->type])(ep) |
59 |
|
|
60 |
+ |
#define dfn_name(ep) ((ep)->v.kid->type == SYM ? \ |
61 |
+ |
(ep)->v.kid->v.name : \ |
62 |
+ |
(ep)->v.kid->v.kid->v.name) |
63 |
+ |
|
64 |
|
/* flags to set in esupport */ |
65 |
|
#define E_VARIABLE 001 |
66 |
|
#define E_FUNCTION 002 |
75 |
|
extern EPNODE *curfunc; |
76 |
|
extern int nextc; |
77 |
|
extern int eofc; |
74 |
– |
|
78 |
|
/* defined in biggerlib.c */ |
79 |
|
extern void biggerlib(void); |
77 |
– |
|
80 |
|
/* defined in caldefn.c */ |
81 |
|
extern void fcompile(char *fname); |
82 |
|
extern void scompile(char *str, char *fname, int ln); |
147 |
|
extern void dprint(char *name, FILE *fp); |
148 |
|
/* defined by client */ |
149 |
|
extern double chanvalue(int n); |
148 |
– |
|
150 |
|
|
151 |
|
#ifdef __cplusplus |
152 |
|
} |