Go to the source code of this file.
|
void * | atGet (idhdl root, const char *name, int t, void *defaultReturnValue=NULL) |
|
void * | atGet (leftv root, const char *name, int t) |
|
void | atSet (idhdl root, char *name, void *data, int typ) |
|
void | atSet (leftv root, char *name, void *data, int typ) |
|
void | at_KillAll (idhdl root, const ring r) |
|
void | at_KillAll (leftv root, const ring r) |
|
void | at_Kill (idhdl root, const char *name, const ring r) |
|
BOOLEAN | atATTRIB1 (leftv res, leftv a) |
|
BOOLEAN | atATTRIB2 (leftv res, leftv a, leftv b) |
|
BOOLEAN | atATTRIB3 (leftv res, leftv a, leftv b, leftv c) |
|
BOOLEAN | atKILLATTR1 (leftv res, leftv a) |
|
BOOLEAN | atKILLATTR2 (leftv res, leftv a, leftv b) |
|
◆ atKill
◆ atKillAll
◆ attr
◆ at_Kill()
Definition at line 202 of file attrib.cc.
203{
206 {
210 {
212 }
213 else
214 {
217 }
219 }
220}
const CanonicalForm CFMap CFMap & N
char name(const Variable &v)
◆ at_KillAll() [1/2]
Definition at line 222 of file attrib.cc.
223{
226}
void killAll(const ring r)
◆ at_KillAll() [2/2]
◆ atATTRIB1()
Definition at line 234 of file attrib.cc.
235{
238 {
239 WerrorS(
"this object cannot have attributes");
241 }
245 {
247 {
248 PrintS(
"attr:isSB, type int\n");
250 }
252 {
253 PrintS(
"attr:qringNF, type int\n");
255 }
257 {
258 PrintS(
"attr:cf_class, type int\n");
259 PrintS(
"attr:global, type int\n");
260 PrintS(
"attr:maxExp, type int\n");
261 PrintS(
"attr:ring_cf, type int\n");
262 #ifdef HAVE_SHIFTBBA
263 PrintS(
"attr:isLetterplaceRing, type int\n");
265 PrintS(
"attr:ncgenCount, type int\n");
266 #endif
267
269 }
270 }
271 else
272 {
275 }
279}
BOOLEAN atATTRIB1(leftv res, leftv v)
Class used for (list of) interpreter objects.
const Variable & v
< [in] a sqrfree bivariate poly
void WerrorS(const char *s)
void PrintS(const char *s)
static BOOLEAN rIsLPRing(const ring r)
◆ atATTRIB2()
Definition at line 280 of file attrib.cc.
281{
282 char *
name=(
char *)
b->Data();
288 {
292 }
294 {
296 res->data=(
void *)(((
ideal)
v->Data())->rank);
297 }
300 {
302 res->data=(
void *)(((
ring)
v->Data())->OrdSgn==1);
303 }
306 {
308 res->data=(
void *)(
long)(((
ring)
v->Data())->bitmask);
309 }
312 {
315 }
318 {
323 res->data=(
void *)(
long)(
int)(
cf->type);
324 }
326 {
330 }
331#ifdef HAVE_SHIFTBBA
332 else if ((
strcmp(
name,
"isLetterplaceRing")==0)
334 {
336 res->data=(
void *)(
long)(((
ring)
v->Data())->isLPring);
337 }
340 {
342 res->data=(
void *)(
long)(((
ring)
v->Data())->LPncGenCount);
343 }
344#endif
345 else
346 {
349 {
350 WerrorS(
"this object cannot have attributes");
352 }
356 {
359 }
360 else
361 {
364 }
365 }
367}
The main handler for Singular numbers which are suitable for Singular polynomials.
#define rField_is_Ring(R)
◆ atATTRIB3()
Definition at line 368 of file attrib.cc.
369{
372 {
376 }
379
380 char *
name=(
char *)
b->Data();
382 {
384 {
385 WerrorS(
"attribute isSB must be int");
387 }
388 if (((
long)c->
Data())!=0L)
389 {
392 }
393 else
394 {
397 }
398 }
400 {
402 {
403 WerrorS(
"attribute qringNF must be int");
405 }
406 if (((
long)c->
Data())!=0L)
407 {
410 }
411 else
412 {
415 }
416 }
418 {
420 {
421 WerrorS(
"attribute `rank` must be int");
423 }
427 }
433 {
436 }
437#ifdef HAVE_SHIFTBBA
438 else if ((
strcmp(
name,
"isLetterplaceRing")==0)
440 {
443 else
444 {
445 WerrorS(
"attribute `isLetterplaceRing` must be int");
447 }
448 }
451 {
454 else
455 {
456 WerrorS(
"attribute `ncgenCount` must be int");
458 }
459 }
460#endif
461 else
462 {
466 }
468}
void atSet(idhdl root, char *name, void *data, int typ)
static int si_max(const int a, const int b)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
void Werror(const char *fmt,...)
long id_RankFreeModule(ideal s, ring lmRing, ring tailRing)
return the maximal component number found in any polynomial in s
◆ atGet() [1/2]
◆ atGet() [2/2]
◆ atKILLATTR1()
Definition at line 470 of file attrib.cc.
471{
474 {
477 }
479 if (
h->attribute!=
NULL)
480 {
483 }
486}
◆ atKILLATTR2()
Definition at line 487 of file attrib.cc.
488{
490 {
491 WerrorS(
"object must have a name");
493 }
494 char *
name=(
char *)
b->Data();
496 {
499 }
501 {
502 WerrorS(
"can not set attribut `global`");
504 }
505 else
506 {
508 }
510}
◆ atSet() [1/2]
Definition at line 153 of file attrib.cc.
154{
156 {
159 WerrorS(
"cannot set ring-dependend objects at this type");
160 else
162 }
163}
attr set(char *s, void *data, int t)
static int RingDependend(int t)
◆ atSet() [2/2]
Definition at line 165 of file attrib.cc.
166{
168 {
172 WerrorS(
"cannot set attributes of this object");
175 WerrorS(
"cannot set ring-dependend objects at this type");
176 else
177 {
179 }
180 }
181}