1861 char *what=(
char *)(d->arg1.Data());
1879 else if (d->op==
'=')
1887 const char *n=d->arg1.name;
1888 nok=(n ==
NULL) || d->arg2.Eval();
1891 int save_typ=d->arg1.rtyp;
1893 if (d->arg1.rtyp!=
IDHDL)
1896 if (d->arg1.rtyp==
IDHDL)
1911 memcpy(&d->arg1,&t,
sizeof(
sleftv));
1913 nok=nok||
iiAssign(&d->arg1,&d->arg2);
1918 memset(&d->arg1,0,
sizeof(
sleftv));
1930 if ((toktype==
CMD_M)
1936 if (d->argc>=1) nok=d->arg1.Eval();
1937 if ((!nok) && (d->argc>=2))
1941 memcpy(d->arg1.next,&d->arg2,
sizeof(
sleftv));
1944 if ((!nok) && (d->argc==3))
1948 memcpy(d->arg1.next->next,&d->arg3,
sizeof(
sleftv));
1962 else if (d->argc==1)
1970 nok=nok||d->arg2.Eval();
1976 nok=nok||d->arg2.Eval();
1977 nok=nok||d->arg3.Eval();
1978 nok=nok||
iiExprArith3(&tmp,d->op,&d->arg1,&d->arg2,&d->arg3);
1990 memcpy(
this,&tmp,
sizeof(tmp));
2018 ideal
id=(ideal)
Data();
2020 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 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)