15 |
|
#define ARG 6 |
16 |
|
#define TICK 7 |
17 |
|
#define SYM 8 |
18 |
< |
/* also: '+', '-', '*', '/', '^', '=' */ |
18 |
> |
/* also: '+', '-', '*', '/', '^', '=', ':' */ |
19 |
|
|
20 |
|
typedef struct { |
21 |
|
char *fname; /* function name */ |
22 |
< |
int nargs; /* # of required arguments */ |
22 |
> |
short nargs; /* # of required arguments */ |
23 |
> |
short atyp; /* assignment type (':' or '=') */ |
24 |
|
double (*f)(); /* pointer to function */ |
25 |
|
} LIBR; /* a library function */ |
26 |
|
|
60 |
|
extern int errno; |
61 |
|
|
62 |
|
#define evalue(ep) (*eoper[(ep)->type])(ep) |
62 |
– |
|
63 |
– |
#ifdef CPM |
64 |
– |
#define defined(D) D |
65 |
– |
#endif |