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 278 of file ipid.cc.
293 if ((
h=(*root)->get_level(
s,lev))!=
NULL)
299 if (strcmp(
s,
"Top")==0)
310 if (strcmp(
f,
"STDIN")==0)
332 if (strcmp(
f,
"STDIN")==0)
354 if (strcmp(
f,
"STDIN")==0)
366 *root = (*root)->
set(
s, lev, t,
init);
374 Werror(
"identifier `%s` in use",
s);
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)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
void Werror(const char *fmt,...)
◆ ggetid()
◆ idrecDataInit()
void* idrecDataInit |
( |
int |
t | ) |
|
Definition at line 139 of file ipid.cc.
146 return (
void*)n2Init(0,
NULL);
148 return (
void*)p2Init(0,
NULL);
158 WerrorS(
"need basering for polyBucket");
163 return (
void *)
new intvec();
175 return (
void*)
idInit(1,1);
195 package pa=(package)omAlloc0Bin(sip_package_bin);
222 #ifdef BLACKBOX_DEVEL
223 Print(
"bb-type %d\n",t);
227 return (
void *)bb->blackbox_Init(bb);
230 Werror(
"unknown type in idrecDataInit:%d",t);
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
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 836 of file ipid.cc.
854 if ((
h->Typ()!=
p->Typ()) &&(
p->Typ()!=
DEF_CMD))
903 Werror(
"unknown type %d",
p->Typ());
908 int eff_typ=
h->Typ();
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
#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)
BOOLEAN RingDependend(int t)
◆ iiS2I()
static long iiS2I |
( |
const char * |
s | ) |
|
|
inlinestatic |
Definition at line 65 of file ipid.cc.
68 strncpy((
char*)&
l,
s,SIZEOF_LONG);
◆ ipListFlag()
void ipListFlag |
( |
idhdl |
h | ) |
|
Definition at line 609 of file ipid.cc.
void PrintS(const char *s)
◆ ipMoveId()
void ipMoveId |
( |
idhdl |
tomove | ) |
|
◆ ipNameList()
Definition at line 617 of file ipid.cc.
INLINE_THIS void Init(int l=0)
◆ ipNameListLev()
◆ ipSwapId()
◆ killhdl()
◆ killhdl2()
Definition at line 437 of file ipid.cc.
450 if (
h->attribute!=
NULL)
455 h->attribute->killAll(r);
461 || (strcmp(
IDID(
h),
"Top")==0))
513 PrintS(
">>?<< not found for kill\n");
idhdl packFindHdl(package r)
void paKill(package pack)
void iiCheckPack(package &p)
void s_internalDelete(const int t, void *d, const ring r)
◆ killid()
◆ packFindHdl()
◆ paCleanUp()
Definition at line 775 of file ipid.cc.
781 if( pack->language ==
LANG_C)
783 Print(
"//dlclose(%s)\n",pack->libname);
784 #ifdef HAVE_DYNAMIC_LOADING
int dynl_close(void *handle)
◆ piKill()
Definition at line 737 of file ipid.cc.
747 if (
p->pi==
pi &&
pi->ref <= 1)
749 Warn(
"`%s` in use, can not be killed",
pi->procname);
762 if (
pi->data.s.body !=
NULL)
◆ piProcinfo()
Definition at line 713 of file ipid.cc.
716 else if (strcmp(request,
"libname") == 0)
return pi->libname;
717 else if (strcmp(request,
"procname") == 0)
return pi->procname;
718 else if (strcmp(request,
"type") == 0)
720 switch (
pi->language)
723 case LANG_C:
return "object";
break;
725 default:
return "unknown language";
728 else if (strcmp(request,
"ref") == 0)
731 sprintf(
p,
"%d",
pi->ref);
◆ basePack
◆ basePackHdl
◆ coeffs_BIGINT
◆ currPack
◆ currPackHdl
◆ currRingHdl
◆ idrec_bin
◆ procstack
◆ sip_command_bin
◆ sip_package_bin