1930 char *what=(
char *)(d->arg1.Data());
1948 else if (d->op==
'=')
1956 const char *n=d->arg1.name;
1957 nok=(n ==
NULL) || d->arg2.Eval();
1960 int save_typ=d->arg1.rtyp;
1962 if (d->arg1.rtyp!=
IDHDL)
1965 if (d->arg1.rtyp==
IDHDL)
1980 memcpy(&d->arg1,&t,
sizeof(
sleftv));
1982 nok=nok||
iiAssign(&d->arg1,&d->arg2);
1999 if ((toktype==
CMD_M)
2005 if (d->argc>=1) nok=d->arg1.Eval();
2006 if ((!nok) && (d->argc>=2))
2010 memcpy(d->arg1.next,&d->arg2,
sizeof(
sleftv));
2013 if ((!nok) && (d->argc==3))
2017 memcpy(d->arg1.next->next,&d->arg3,
sizeof(
sleftv));
2031 else if (d->argc==1)
2039 nok=nok||d->arg2.Eval();
2045 nok=nok||d->arg2.Eval();
2046 nok=nok||d->arg3.Eval();
2047 nok=nok||
iiExprArith3(&tmp,d->op,&d->arg1,&d->arg2,&d->arg3);
2059 memcpy(
this,&tmp,
sizeof(tmp));
2087 ideal
id=(ideal)
Data();
2089 int i=
id->ncols*
id->nrows-1;
#define n_Test(a, r)
BOOLEAN n_Test(number a, const coeffs r)
BOOLEAN iiExprArith2(leftv res, leftv a, int op, leftv b, BOOLEAN proccall)
BOOLEAN iiExprArith1(leftv res, leftv a, int op)
BOOLEAN iiExprArithM(leftv res, leftv a, int op)
BOOLEAN iiExprArith3(leftv res, int op, leftv a, leftv b, leftv c)
BOOLEAN iiAssign(leftv l, leftv r, BOOLEAN toplevel)
idhdl ggetid(const char *n)
void killhdl(idhdl h, package proot)
BOOLEAN iiMake_proc(idhdl pn, package pack, leftv args)
INST_VAR sleftv iiRETURNEXPR
int iiDeclCommand(leftv sy, leftv name, int lev, int t, idhdl *root, BOOLEAN isring, BOOLEAN init_b)
#define omCheckAddr(addr)
#define omCheckIf(cond, test)
#define omCheckAddrSize(addr, size)
void syMake(leftv v, const char *id, package pa)