1864 char *what=(
char *)(d->arg1.Data());
1882 else if (d->op==
'=')
1890 const char *n=d->arg1.name;
1891 nok=(n ==
NULL) || d->arg2.Eval();
1894 int save_typ=d->arg1.rtyp;
1896 if (d->arg1.rtyp!=
IDHDL)
1899 if (d->arg1.rtyp==
IDHDL)
1914 memcpy(&d->arg1,&t,
sizeof(
sleftv));
1916 nok=nok||
iiAssign(&d->arg1,&d->arg2);
1921 memset(&d->arg1,0,
sizeof(
sleftv));
1933 if ((toktype==
CMD_M)
1939 if (d->argc>=1) nok=d->arg1.Eval();
1940 if ((!nok) && (d->argc>=2))
1944 memcpy(d->arg1.next,&d->arg2,
sizeof(
sleftv));
1947 if ((!nok) && (d->argc==3))
1951 memcpy(d->arg1.next->next,&d->arg3,
sizeof(
sleftv));
1965 else if (d->argc==1)
1973 nok=nok||d->arg2.Eval();
1979 nok=nok||d->arg2.Eval();
1980 nok=nok||d->arg3.Eval();
1981 nok=nok||
iiExprArith3(&tmp,d->op,&d->arg1,&d->arg2,&d->arg3);
1993 memcpy(
this,&tmp,
sizeof(tmp));
2021 ideal
id=(ideal)
Data();
2023 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)
INST_VAR sleftv iiRETURNEXPR
BOOLEAN iiMake_proc(idhdl pn, package pack, leftv sl)
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)