1774 char *what=(
char *)(d->arg1.Data());
1792 else if (d->op==
'=')
1800 const char *n=d->arg1.name;
1801 nok=(n ==
NULL) || d->arg2.Eval();
1804 int save_typ=d->arg1.rtyp;
1806 if (d->arg1.rtyp!=
IDHDL)
1809 if (d->arg1.rtyp==
IDHDL)
1824 memcpy(&d->arg1,&t,
sizeof(
sleftv));
1826 nok=nok||
iiAssign(&d->arg1,&d->arg2);
1831 memset(&d->arg1,0,
sizeof(
sleftv));
1843 if ((toktype==
CMD_M)
1849 if (d->argc>=1) nok=d->arg1.Eval();
1850 if ((!nok) && (d->argc>=2))
1854 memcpy(d->arg1.next,&d->arg2,
sizeof(
sleftv));
1857 if ((!nok) && (d->argc==3))
1861 memcpy(d->arg1.next->next,&d->arg3,
sizeof(
sleftv));
1875 else if (d->argc==1)
1883 nok=nok||d->arg2.Eval();
1889 nok=nok||d->arg2.Eval();
1890 nok=nok||d->arg3.Eval();
1891 nok=nok||
iiExprArith3(&tmp,d->op,&d->arg1,&d->arg2,&d->arg3);
1903 memcpy(
this,&tmp,
sizeof(tmp));
1931 ideal
id=(ideal)
Data();
1933 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)