101 if (0 == strcmp(s,h->
name))
135 void *
atGet(
idhdl root,
const char * name,
int t,
void *defaultReturnValue)
138 if ((temp!=
NULL) && (temp->
atyp==t))
141 return defaultReturnValue;
150 if ((temp!=
NULL) && (temp->
atyp==t))
163 WerrorS(
"cannot set ring-dependend objects at this type");
176 WerrorS(
"cannot set attributes of this object");
180 WerrorS(
"cannot set ring-dependend objects at this type");
183 *a=(*a)->
set(name,data,typ);
198 attr temp =
this,temp1;
222 while (temp1->
next!=temp) temp1 = temp1->
next;
247 WerrorS(
"this object cannot have attributes");
256 PrintS(
"attr:isSB, type int\n");
257 haveNoAttribute=
FALSE;
261 PrintS(
"attr:qringNF, type int\n");
262 haveNoAttribute=
FALSE;
266 PrintS(
"attr:global, type int\n");
267 PrintS(
"attr:maxExp, type int\n");
268 PrintS(
"attr:ring_cf, type int\n");
270 PrintS(
"attr:isLPring, type int\n");
273 haveNoAttribute=
FALSE;
282 else if(haveNoAttribute)
PrintS(
"no attributes\n");
287 char *name=(
char *)b->
Data();
292 if (strcmp(name,
"isSB")==0)
298 else if ((strcmp(name,
"rank")==0)&&(v->
Typ()==
MODUL_CMD))
301 res->
data=(
void *)(((ideal)v->
Data())->rank);
303 else if ((strcmp(name,
"global")==0)
307 res->
data=(
void *)(((ring)v->
Data())->OrdSgn==1);
309 else if ((strcmp(name,
"maxExp")==0)
313 res->
data=(
void *)(
long)(((ring)v->
Data())->bitmask/2);
315 else if ((strcmp(name,
"ring_cf")==0)
321 else if (strcmp(name,
"qringNF")==0)
328 else if ((strcmp(name,
"isLPring")==0)
332 res->
data=(
void *)(
long)(((ring)v->
Data())->isLPring);
340 WerrorS(
"this object cannot have attributes");
370 char *name=(
char *)b->
Data();
371 if (strcmp(name,
"isSB")==0)
375 WerrorS(
"attribute isSB must be int");
378 if (((
long)c->
Data())!=0L)
389 else if (strcmp(name,
"qringNF")==0)
393 WerrorS(
"attribute qringNF must be int");
396 if (((
long)c->
Data())!=0L)
407 else if ((strcmp(name,
"rank")==0)&&(v->
Typ()==
MODUL_CMD))
411 WerrorS(
"attribute `rank` must be int");
414 ideal I=(ideal)v->
Data();
418 else if (((strcmp(name,
"global")==0)
419 || (strcmp(name,
"ring_cf")==0)
420 || (strcmp(name,
"maxExp")==0))
423 Werror(
"can not set attribute `%s`",name);
427 else if ((strcmp(name,
"isLPring")==0)
431 ((ring)v->
Data())->isLPring=(
int)(long)c->
Data();
434 WerrorS(
"attribute `isLPring` must be int");
469 WerrorS(
"object must have a name");
472 char *name=(
char *)b->
Data();
473 if (strcmp(name,
"isSB")==0)
478 else if (strcmp(name,
"global")==0)
480 WerrorS(
"can not set attribut `global`");
const CanonicalForm int s
#define omCheckAddrSize(addr, size)
void atSet(idhdl root, const char *name, void *data, int typ)
Class used for (list of) interpreter objects.
void killAll(const ring r)
attr set(const char *s, void *data, int t)
Compatiblity layer for legacy polynomial operations (over currRing)
void at_KillAll(idhdl root, const ring r)
void WerrorS(const char *s)
BOOLEAN atKILLATTR2(leftv, leftv a, leftv b)
BOOLEAN atKILLATTR1(leftv, leftv a)
BOOLEAN atATTRIB2(leftv res, leftv v, leftv b)
void at_Kill(idhdl root, const char *name, const ring r)
ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
long id_RankFreeModule(ideal s, ring lmRing, ring tailRing)
return the maximal component number found in any polynomial in s
const CanonicalForm CFMap CFMap & N
BOOLEAN atATTRIB3(leftv, leftv v, leftv b, leftv c)
void s_internalDelete(const int t, void *d, const ring r)
static int si_max(const int a, const int b)
void PrintS(const char *s)
BOOLEAN atATTRIB1(leftv res, leftv v)
#define omGetSpecBin(size)
const Variable & v
< [in] a sqrfree bivariate poly
void * atGet(idhdl root, const char *name, int t, void *defaultReturnValue)
static BOOLEAN rField_is_Ring(const ring r)
const char * Tok2Cmdname(int tok)
#define omCheckAddr(addr)
static void attr_free(attr h, const ring r=currRing)
#define omFreeBin(addr, bin)
void Werror(const char *fmt,...)