15 |
|
#include <stdio.h> |
16 |
|
#include <string.h> |
17 |
|
#include <errno.h> |
18 |
+ |
#include <stdlib.h> |
19 |
|
#include <math.h> |
20 |
|
|
21 |
|
#include "rterror.h" |
201 |
|
argument(int n) /* return nth argument for active function */ |
202 |
|
{ |
203 |
|
ACTIVATION *actp = curact; |
204 |
< |
EPNODE *ep = NULL; |
204 |
> |
EPNODE *ep; |
205 |
|
double aval; |
206 |
|
|
207 |
|
if (!actp | (--n < 0)) { |
295 |
|
|
296 |
|
curact = act.prev; /* pop environment */ |
297 |
|
return(rval); |
298 |
+ |
} |
299 |
+ |
|
300 |
+ |
|
301 |
+ |
double |
302 |
+ |
eargument( /* evaluate an argument */ |
303 |
+ |
EPNODE *ep |
304 |
+ |
) |
305 |
+ |
{ |
306 |
+ |
if ((ep->v.chan < AFLAGSIZ) & curact->an >> ep->v.chan) |
307 |
+ |
return(curact->ap[ep->v.chan]); |
308 |
+ |
|
309 |
+ |
return(argument(ep->v.chan)); |
310 |
|
} |
311 |
|
|
312 |
|
|