9 ring r=(ring)args->
Data();
20 else if ((r->block0[i]==1)&&(r->block1[i]==r->N)) i++;
23 WerrorS(
"only for rings with a global ordering of one block");
30 WerrorS(
"only for rings with a global ordering of one block");
47 poly
p=(poly)args->
CopyD();
49 int sh=(int)((
long)(args->
Data()));
52 WerrorS(
"negative shift for pLPshift");
58 WerrorS(
"pLPshift: too big shift requested\n");
74 poly
p=(poly)h->
Data();
88 poly
p=(poly)h->
Data();
96 ideal I=(ideal)h->
Data();
103 res->
data=(
void*)(
long)1;
107 res->
data=(
void*)(
long)0;
118 poly
p=(poly)h->
Data();
119 int pos=(int)((
long)(h->
next->
Data()));
136 p->iiAddCproc(
"freealgebra.so",
"stest",
TRUE,
stest);
137 p->iiAddCproc(
"freealgebra.so",
"btest",
TRUE,
btest);
BOOLEAN rHasLocalOrMixedOrdering(const ring r)
Class used for (list of) interpreter objects.
static BOOLEAN btest(leftv res, leftv h)
void WerrorS(const char *s)
int SI_MOD_INIT() freealgebra(SModulFunctions *p)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
void p_LPshift(poly p, int sh, const ring ri)
static BOOLEAN freeAlgebra(leftv res, leftv args)
BOOLEAN p_LPDivisibleBy(poly a, poly b, const ring r)
poly p_LPVarAt(poly p, int pos, const ring r)
static BOOLEAN stest(leftv res, leftv args)
BOOLEAN iiCheckTypes(leftv args, const short *type_list, int report)
check a list of arguemys against a given field of types return TRUE if the types match return FALSE (...
static BOOLEAN lpLmDivides(leftv res, leftv h)
static BOOLEAN lpVarAt(leftv res, leftv h)