version 1.1, 1999/12/03 07:39:12 |
version 1.3, 2000/07/13 05:09:03 |
|
|
/* $OpenXM: OpenXM/src/asir99/parse/eval.c,v 1.2 1999/11/18 05:42:03 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.2 2000/02/08 04:47:12 noro Exp $ */ |
#include <ctype.h> |
#include <ctype.h> |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
|
|
#include <sys/types.h> |
#include <sys/types.h> |
#include <sys/stat.h> |
#include <sys/stat.h> |
#endif |
#endif |
|
#if PARI |
#include "genpari.h" |
#include "genpari.h" |
|
#endif |
|
|
extern jmp_buf timer_env; |
extern jmp_buf timer_env; |
|
|
|
|
|
|
args = (LIST)eval(a); |
args = (LIST)eval(a); |
node = BDY(args); head = (Obj)BDY(node); rest = NEXT(node); |
node = BDY(args); head = (Obj)BDY(node); rest = NEXT(node); |
|
if ( !head ) { |
|
val = bevalf(f,node); |
|
return val; |
|
} |
switch ( OID(head) ) { |
switch ( OID(head) ) { |
case O_VECT: |
case O_VECT: |
v = (VECT)head; len = v->len; MKVECT(rv,len); |
v = (VECT)head; len = v->len; MKVECT(rv,len); |