OpenXM_contrib2/asir2000/parse/eval.c - diff

Return to eval.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

version 1.69, 2013/11/21 06:48:04

version 1.70, 2014/08/09 06:08:11

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.68 2011/02/18 02:54:49 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.69 2013/11/21 06:48:04 noro Exp $

#include <ctype.h>

#include "ca.h"

Line 70 int evalstatline;

int recv_intr;

int show_crossref;

int at_root;

void gen_searchf_searchonly(char *name,FUNC *r);

void gen_searchf_searchonly(char *name,FUNC *r,int global);

LIST eval_arg(FNODE a,unsigned int quote);

pointer eval(FNODE f)

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

FUNC f1;

if ( f->id == A_UNDEF ) {

gen_searchf_searchonly(f->fullname,&f1);

gen_searchf_searchonly(f->fullname,&f1,0);

if ( f1->id == A_UNDEF ) {

sprintf(errbuf,"evalf : %s undefined",NAME(f));

error(errbuf);

Line 1435 void gen_searchf(char *name,FUNC *r)

*r = val;

}

void gen_searchf_searchonly(char *name,FUNC *r)

void gen_searchf_searchonly(char *name,FUNC *r,int global)

{

FUNC val = 0;

int global = 0;

if ( *name == ':' ) {

global = 1;

name += 2;