Go to the source code of this file.
|
void | paCleanUp (package pack) |
|
static long | iiS2I (const char *s) |
|
void * | idrecDataInit (int t) |
|
idhdl | enterid (const char *s, int lev, int t, idhdl *root, BOOLEAN init, BOOLEAN search) |
|
void | killid (const char *id, idhdl *ih) |
|
void | killhdl (idhdl h, package proot) |
|
void | killhdl2 (idhdl h, idhdl *ih, ring r) |
|
idhdl | ggetid (const char *n) |
|
void | ipListFlag (idhdl h) |
|
lists | ipNameList (idhdl root) |
|
lists | ipNameListLev (idhdl root, int lev) |
|
static int | ipSwapId (idhdl tomove, idhdl &root1, idhdl &root2) |
|
void | ipMoveId (idhdl tomove) |
|
const char * | piProcinfo (procinfov pi, const char *request) |
|
BOOLEAN | piKill (procinfov pi) |
|
idhdl | packFindHdl (package r) |
|
BOOLEAN | iiAlias (leftv p) |
|
◆ enterid()
Definition at line 281 of file ipid.cc.
282{
287
289 {
291 {
293 }
294 }
295
296 if ((
h=(*root)->get_level(
s,lev))!=
NULL)
297 {
299 {
301 {
303 {
305 }
307 }
308 else
309 {
311 {
315 else
317 }
320 {
322 }
323 }
324 }
325 else
327 }
328
330 {
332 {
334 {
336 {
340 else
342 }
344
346 }
347 else
349 }
350 }
351
353 {
355 {
357 {
359 {
363 else
365 }
368 {
370 }
371 }
372 else
374 }
375 }
376 *root = (*root)->
set(
s, lev, t, init);
377#ifndef SING_NDEBUG
379#endif
380 return *root;
381
383
384 Werror(
"identifier `%s` in use",
s);
385
388}
idhdl set(const char *s, int lev, int t, BOOLEAN init=TRUE)
const CanonicalForm int s
int search(const CFArray &A, const CanonicalForm &F, int i, int j)
search for F in A between index i and j
VAR char my_yylinebuf[80]
void killhdl2(idhdl h, idhdl *ih, ring r)
#define omFreeBinAddr(addr)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
void Werror(const char *fmt,...)
◆ ggetid()
Definition at line 583 of file ipid.cc.
584{
586 {
592 }
593 else
594 {
597 }
601}
◆ idrecDataInit()
Definition at line 140 of file ipid.cc.
141{
142 switch (t)
143 {
144
145#ifdef SINGULAR_4_2
151#endif
159 else
160 {
161 WerrorS(
"need basering for polyBucket");
163 }
166 return (
void *)
new intvec();
168 {
171 }
178 return (
void*)
idInit(1,1);
180 {
184 }
188 {
192 }
193
197 {
198 package pa=(package)omAlloc0Bin(sip_package_bin);
202 }
204 {
209 }
212
221 default:
222 {
224 {
225#ifdef BLACKBOX_DEVEL
226 Print(
"bb-type %d\n",t);
227#endif
230 return (
void *)
bb->blackbox_Init(
bb);
231 }
232 else
233 Werror(
"unknown type in idrecDataInit:%d",t);
234 break;
235 }
236 }
237 return (void *)0L;
238}
blackbox * getBlackboxStuff(const int t)
return the structure to the type given by t
CanonicalForm map(const CanonicalForm &primElem, const Variable &alpha, const CanonicalForm &F, const Variable &beta)
map from to such that is mapped onto
static FORCE_INLINE number n_Init(long i, const coeffs r)
a number representing i in the given coeff field/ring r
static BOOLEAN pa(leftv res, leftv args)
void WerrorS(const char *s)
sBucket_pt sBucketCreate(const ring r)
ideal idInit(int idsize, int rank)
initialise an ideal / module
◆ iiAlias()
Definition at line 846 of file ipid.cc.
847{
849 {
853 }
858 {
863 }
864 if ((
h->Typ()!=
p->Typ()) &&(
p->Typ()!=
DEF_CMD))
865 {
868 }
871 {
874 break;
877 break;
881 break;
884 break;
887 break;
889 {
893 }
894
899 break;
904 break;
907 break;
910 break;
911
912 default:
913 {
916 {
919 }
920
921 break;
922 }
923 }
929 {
931 }
935}
Class used for (list of) interpreter objects.
static FORCE_INLINE void n_Delete(number *p, const coeffs r)
delete 'p'
void nKillChar(coeffs r)
undo all initialisations
const char * Tok2Cmdname(int tok)
static int RingDependend(int t)
#define idDelete(H)
delete an ideal
BOOLEAN iiAssign(leftv l, leftv r, BOOLEAN toplevel)
static int ipSwapId(idhdl tomove, idhdl &root1, idhdl &root2)
EXTERN_VAR omBin sleftv_bin
BOOLEAN lRingDependend(lists L)
The main handler for Singular numbers which are suitable for Singular polynomials.
#define omFreeBin(addr, bin)
◆ iiS2I()
◆ ipListFlag()
Definition at line 621 of file ipid.cc.
622{
624#ifdef HAVE_PLURAL
626#endif
627}
void PrintS(const char *s)
◆ ipMoveId()
Definition at line 706 of file ipid.cc.
707{
709 {
712 {
713
716 }
717 else
718 {
719
721 }
722 }
723}
◆ ipNameList()
Definition at line 629 of file ipid.cc.
630{
632
635
638
642 {
643
648 }
649 return L;
650}
INLINE_THIS void Init(int l=0)
◆ ipNameListLev()
Definition at line 652 of file ipid.cc.
653{
655
658
661
665 {
667 {
668
672 }
674 }
675 return L;
676}
◆ ipSwapId()
Definition at line 681 of file ipid.cc.
682{
684
688
691 {
693 }
694 else
695 {
699 }
700
704}
◆ killhdl()
Definition at line 416 of file ipid.cc.
417{
422 else
423 {
425 {
427 }
428 else
429 {
435 {
440 else
442 }
443 }
444 }
445}
◆ killhdl2()
Definition at line 447 of file ipid.cc.
448{
449
451
455 {
459 }
460 if (
h->attribute!=
NULL)
461 {
464 else
465 h->attribute->killAll(r);
467 }
469 {
473 {
475 return;
476 }
477
479 {
481 {
484 }
489 {
493 }
496 }
500 }
506
507
513 {
514
516 }
518 {
519
522 {
524 {
525 PrintS(
">>?<< not found for kill\n");
526 return;
527 }
530 {
532 break;
533 }
535 }
536 }
538}
idhdl packFindHdl(package r)
void paKill(package pack)
void iiCheckPack(package &p)
void s_internalDelete(const int t, void *d, const ring r)
◆ killid()
Definition at line 389 of file ipid.cc.
390{
392 {
394
395
397 {
399 {
402 {
404 return;
405 }
406 }
407 Werror(
"`%s` is not defined",
id);
408 return;
409 }
411 }
412 else
414}
◆ packFindHdl()
◆ paCleanUp()
Definition at line 787 of file ipid.cc.
788{
789 (pack->ref)--;
790 if (pack->ref < 0)
791 {
792 if( pack->language ==
LANG_C)
793 {
794 Print(
"//dlclose(%s)\n",pack->libname);
795#ifdef HAVE_DYNAMIC_LOADING
797#endif
798 }
802 }
803}
int dynl_close(void *handle)
◆ piKill()
Definition at line 749 of file ipid.cc.
750{
753 {
755 {
758 {
759 if (
p->pi==
pi &&
pi->ref <= 1)
760 {
761 Warn(
"`%s` in use, can not be killed",
pi->procname);
763 }
765 }
766 }
771
773 {
774 if (
pi->data.s.body !=
NULL)
776 }
778 {
779 }
781
783 }
785}
◆ piProcinfo()
Definition at line 725 of file ipid.cc.
726{
731 {
732 switch (
pi->language)
733 {
735 case LANG_C:
return "object";
break;
737 default: return "unknown language";
738 }
739 }
741 {
745 }
746 return "??";
747}
◆ basePack
◆ basePackHdl
◆ coeffs_BIGINT
◆ currPack
◆ currPackHdl
◆ currRingHdl
◆ idrec_bin
◆ procstack
◆ sip_command_bin
◆ sip_package_bin