OpenXM_contrib2/asir2000/parse/pvar.c - diff

Return to pvar.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/pvar.c between version 1.2 and 1.4

version 1.2, 2000/08/21 08:31:47

version 1.4, 2000/09/21 09:19:27

Line 23

* shall be made on your publication or presentation in any form of the

* results obtained by use of the SOFTWARE.

* (4) In the event that you modify the SOFTWARE, you shall notify FLL by

* e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification

* e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification

* for such modification or the source code of the modified part of the

* SOFTWARE.

Line 45

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

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

* $OpenXM: OpenXM_contrib2/asir2000/parse/pvar.c,v 1.3 2000/08/22 05:04:28 noro Exp $

#include "ca.h"

#include "parse.h"

Line 231 pointer p;

reallocarray((char **)&APVS->va,(int *)&APVS->asize,(int *)&APVS->n,(int)sizeof(struct oPV));

APVS->va[APVS->n++].priv = p;

}

#if 1

pointer evalpv(id,expr,f)

int id;

FNODE expr;

pointer f;

{

pointer a,val = 0;

pointer *addr;

if ( expr->id != I_PVAR && expr->id != I_CAST )

error("evalpv : invalid assignment");

switch ( id ) {

case I_PRESELF:

getmemberp((FNODE)expr,(Obj **)&addr);

(*((ARF)f)->fp)(CO,*addr,ONE,&val); *addr = val; break;

case I_POSTSELF:

getmemberp((FNODE)expr,(Obj **)&addr);

val = *addr; (*((ARF)f)->fp)(CO,*addr,ONE,&a); *addr = a; break;

case I_PVAR:

getmember((FNODE)expr,(Obj *)&val); break;

case I_ASSPVAR:

getmemberp((FNODE)expr,(Obj **)&addr); *addr = val = eval((FNODE)f); break;

}

return val;

}

#endif

#if 0

pointer evalpv(id,tree,f)

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>