159 WerrorS(
"cannot set ring-dependend objects at this type");
172 WerrorS(
"cannot set attributes of this object");
175 WerrorS(
"cannot set ring-dependend objects at this type");
239 WerrorS(
"this object cannot have attributes");
248 PrintS(
"attr:isSB, type int\n");
253 PrintS(
"attr:qringNF, type int\n");
258 PrintS(
"attr:cf_class, type int\n");
259 PrintS(
"attr:cf_class_Zp, type int\n");
260 PrintS(
"attr:cf_class_QQ, type int\n");
261 PrintS(
"attr:global, type int\n");
262 PrintS(
"attr:maxExp, type int\n");
263 PrintS(
"attr:ring_cf, type int\n");
265 PrintS(
"attr:isLetterplaceRing, type int\n");
267 PrintS(
"attr:ncgenCount, type int\n");
284 char *
name=(
char *)
b->Data();
298 res->data=(
void *)(((
ideal)
v->Data())->rank);
304 res->data=(
void *)(((
ring)
v->Data())->OrdSgn==1);
310 res->data=(
void *)(
long)(((
ring)
v->Data())->bitmask);
329 res->data=(
void *)(
long)(
int)
cf->type;
338 else if ((
strcmp(
name,
"isLetterplaceRing")==0)
342 res->data=(
void *)(
long)(((
ring)
v->Data())->isLPring);
348 res->data=(
void *)(
long)(((
ring)
v->Data())->LPncGenCount);
356 WerrorS(
"this object cannot have attributes");
386 char *
name=(
char *)
b->Data();
391 WerrorS(
"attribute isSB must be int");
394 if (((
long)c->
Data())!=0L)
409 WerrorS(
"attribute qringNF must be int");
412 if (((
long)c->
Data())!=0L)
427 WerrorS(
"attribute `rank` must be int");
444 else if ((
strcmp(
name,
"isLetterplaceRing")==0)
451 WerrorS(
"attribute `isLetterplaceRing` must be int");
462 WerrorS(
"attribute `ncgenCount` must be int");
485 if (
h->attribute!=
NULL)
497 WerrorS(
"object must have a name");
500 char *
name=(
char *)
b->Data();
508 WerrorS(
"can not set attribut `global`");
BOOLEAN atATTRIB3(leftv, leftv v, leftv b, leftv c)
STATIC_VAR omBin sattr_bin
BOOLEAN atKILLATTR2(leftv, leftv a, leftv b)
BOOLEAN atKILLATTR1(leftv, leftv a)
void at_KillAll(idhdl root, const ring r)
void at_Kill(idhdl root, const char *name, const ring r)
void atSet(idhdl root, char *name, void *data, int typ)
static void attr_free(attr h, const ring r=currRing)
BOOLEAN atATTRIB2(leftv res, leftv v, leftv b)
void * atGet(idhdl root, const char *name, int t, void *defaultReturnValue)
BOOLEAN atATTRIB1(leftv res, leftv v)
static int si_max(const int a, const int b)
const CanonicalForm CFMap CFMap & N
void killAll(const ring r)
attr set(char *s, void *data, int t)
Class used for (list of) interpreter objects.
@ n_Q
rational (GMP) numbers
const CanonicalForm int s
const Variable & v
< [in] a sqrfree bivariate poly
char name(const Variable &v)
void WerrorS(const char *s)
const char * Tok2Cmdname(int tok)
static int RingDependend(int t)
The main handler for Singular numbers which are suitable for Singular polynomials.
#define omCheckAddr(addr)
#define omCheckAddrSize(addr, size)
#define omFreeBin(addr, bin)
#define omGetSpecBin(size)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
Compatibility layer for legacy polynomial operations (over currRing)
void PrintS(const char *s)
void Werror(const char *fmt,...)
static BOOLEAN rIsLPRing(const ring r)
#define rField_is_Ring(R)
long id_RankFreeModule(ideal s, ring lmRing, ring tailRing)
return the maximal component number found in any polynomial in s
void s_internalDelete(const int t, void *d, const ring r)