 |
My Project
debian-1:4.1.2-p1+ds-2
|
Go to the documentation of this file.
41 #ifdef HAVE_DYNAMIC_LOADING
57 VAR package currPack = NULL;
58 VAR package basePack = NULL;
93 int less4=(
i < (1<<24));
103 if (less4 || (0 == strcmp(
s+4,id_+4)))
132 return (
void*)n2Init(0,
NULL);
134 return (
void*)p2Init(0,
NULL);
144 WerrorS(
"need basering for polyBucket");
149 return (
void *)
new intvec();
161 return (
void*)
idInit(1,1);
183 package pa=(package)omAlloc0Bin(sip_package_bin);
209 #ifdef BLACKBOX_DEVEL
210 Print(
"bb-type %d\n",t);
214 return (
void *)bb->blackbox_Init(bb);
217 Werror(
"unknown type in idrecDataInit:%d",t);
258 memset(&tmp,0,
sizeof(
sleftv));
280 if ((
h=(*root)->get(
s,lev))!=
NULL)
288 if (strcmp(
s,
"Top")==0)
344 *root = (*root)->
set(
s, lev, t, init);
352 Werror(
"identifier `%s` in use",
s);
375 Werror(
"`%s` is not defined",
id);
428 if (
h->attribute!=
NULL)
433 h->attribute->killAll(r);
439 || (strcmp(
IDID(
h),
"Top")==0))
491 PrintS(
">>?<< not found for kill\n");
516 if (h2==
NULL)
return h;
528 if (h2!=
NULL)
return h2;
643 else if (strcmp(request,
"libname") == 0)
return pi->libname;
644 else if (strcmp(request,
"procname") == 0)
return pi->procname;
645 else if (strcmp(request,
"type") == 0)
647 switch (
pi->language)
650 case LANG_C:
return "object";
break;
652 default:
return "unknown language";
655 else if (strcmp(request,
"ref") == 0)
658 sprintf(
p,
"%d",
pi->ref);
674 if (
p->pi==
pi &&
pi->ref <= 1)
676 Warn(
"`%s` in use, can not be killed",
pi->procname);
689 if (
pi->data.s.body !=
NULL)
708 if( pack->language ==
LANG_C)
710 Print(
"//dlclose(%s)\n",pack->libname);
711 #ifdef HAVE_DYNAMIC_LOADING
781 if ((
h->Typ()!=
p->Typ()) &&(
p->Typ()!=
DEF_CMD))
829 Werror(
"unknown type %d",
p->Typ());
834 int eff_typ=
h->Typ();
int dynl_close(void *handle)
void iiCheckPack(package &p)
#define idDelete(H)
delete an ideal
void * idrecDataInit(int t)
#define omGetSpecBin(size)
idhdl enterid(const char *s, int lev, int t, idhdl *root, BOOLEAN init, BOOLEAN search)
CanonicalForm map(const CanonicalForm &primElem, const Variable &alpha, const CanonicalForm &F, const Variable &beta)
map from to such that is mapped onto
int search(const CFArray &A, const CanonicalForm &F, int i, int j)
search for F in A between index i and j
void killid(const char *id, idhdl *ih)
idhdl get(const char *s, int lev)
lists ipNameListLev(idhdl root, int lev)
static FORCE_INLINE void n_Delete(number *p, const coeffs r)
delete 'p'
Class used for (list of) interpreter objects.
char * String(BOOLEAN typed=FALSE)
idhdl packFindHdl(package r)
EXTERN_VAR omBin sleftv_bin
void paCleanUp(package pack)
const char * piProcinfo(procinfov pi, const char *request)
VAR omBin sip_command_bin
void PrintS(const char *s)
#define omFreeSize(addr, size)
void killhdl2(idhdl h, idhdl *ih, ring r)
sBucket_pt sBucketCreate(const ring r)
BOOLEAN lRingDependend(lists L)
lists ipNameList(idhdl root)
BOOLEAN piKill(procinfov pi)
void paKill(package pack)
static FORCE_INLINE number n_Init(long i, const coeffs r)
a number representing i in the given coeff field/ring r
void killhdl(idhdl h, package proot)
void ipMoveId(idhdl tomove)
static int ipSwapId(idhdl tomove, idhdl &root1, idhdl &root2)
VAR proclevel * procstack
char * String(void *d=NULL, BOOLEAN typed=FALSE, int dim=1)
Called for conversion to string (used by string(..), write(..),..)
void Werror(const char *fmt,...)
ideal idInit(int idsize, int rank)
initialise an ideal / module
void WerrorS(const char *s)
VAR char my_yylinebuf[80]
void s_internalDelete(const int t, void *d, const ring r)
BOOLEAN pa(leftv res, leftv args)
#define omCheckAddr(addr)
INLINE_THIS void Init(int l=0)
VAR omBin sip_package_bin
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
idhdl ggetid(const char *n)
const CanonicalForm int s
idhdl set(const char *s, int lev, int t, BOOLEAN init=TRUE)
#define omFreeBin(addr, bin)
blackbox * getBlackboxStuff(const int t)
return the structure to the type given by t
BOOLEAN iiAssign(leftv l, leftv r, BOOLEAN toplevel)
void nKillChar(coeffs r)
undo all initialisations