OpenXM_contrib2/asir2000/parse/eval.c - diff

Return to eval.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.65, 2009/03/04 09:15:36

version 1.66, 2010/04/23 04:44:52

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.64 2008/11/18 20:52:47 ohara Exp $

* $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.65 2009/03/04 09:15:36 ohara Exp $

#include <ctype.h>

#include "ca.h"

Line 987 pointer evalf(FUNC f,FNODE a,FNODE opt)

for ( tn = f->f.usrf->args, sn = BDY(args);

sn; tn = NEXT(tn), sn = NEXT(sn) )

ASSPV((int)FA0((FNODE)BDY(tn)),BDY(sn));

f_return = f_break = f_continue = 0;

if ( f->f.usrf->module ) {

prev_mpvs = MPVS;

MPVS = f->f.usrf->module->pvs;

Line 1195 pointer bevalf(FUNC f,NODE a)

Line 1196 pointer bevalf(FUNC f,NODE a)

for ( tn = f->f.usrf->args, sn = a;

sn; tn = NEXT(tn), sn = NEXT(sn) )

ASSPV((int)FA0((FNODE)BDY(tn)),BDY(sn));

f_return = f_break = f_continue = 0;

if ( f->f.usrf->module ) {

prev_mpvs = MPVS;

MPVS = f->f.usrf->module->pvs;

Line 1273 pointer bevalf_with_opts(FUNC f,NODE a,NODE opts)

Line 1275 pointer bevalf_with_opts(FUNC f,NODE a,NODE opts)

for ( tn = f->f.usrf->args, sn = a;

sn; tn = NEXT(tn), sn = NEXT(sn) )

ASSPV((int)FA0((FNODE)BDY(tn)),BDY(sn));

f_return = f_break = f_continue = 0;

if ( f->f.usrf->module ) {

prev_mpvs = MPVS;

MPVS = f->f.usrf->module->pvs;