OpenXM_contrib2/asir2000/parse/eval.c - diff

Return to eval.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.2, 2000/02/08 04:47:12

version 1.3, 2000/07/13 05:09:03

Line 1

/* $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.1.1.1 1999/12/03 07:39:12 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.2 2000/02/08 04:47:12 noro Exp $ */

#include <ctype.h>

#include "ca.h"

#include "al.h"

Line 483 FNODE a;

args = (LIST)eval(a);

node = BDY(args); head = (Obj)BDY(node); rest = NEXT(node);

if ( !head ) {

val = bevalf(f,node);

return val;

}

switch ( OID(head) ) {

case O_VECT:

v = (VECT)head; len = v->len; MKVECT(rv,len);