9 #define MAX_BB_TYPES 256 15 #define BLACKBOX_OFFSET (MAX_TOK+1) 27 WerrorS(
"missing blackbox_destroy");
31 WerrorS(
"missing blackbox_String");
36 WerrorS(
"missing blackbox_Copy");
41 char *
s=b->blackbox_String(b,d);
52 WerrorS(
"blackbox_serialize is not implemented");
58 WerrorS(
"blackbox_deserialize is not implemented");
103 res->
data=b->blackbox_String(b,args->
Data());
110 if (ret)
return TRUE;
111 char *s2=(
char*)
omAlloc(strlen((
char*)res->
data)+strlen((
char*)res2.
data)+1);
112 sprintf(s2,
"%s%s",(
char*)res->
data,(
char*)res2.
data);
144 WerrorS(
"too many bb types defined");
159 #ifdef BLACKBOX_DEVEL 188 if (b!=
NULL)
return b;
197 #ifdef BLACKBOX_DEVEL void blackbox_default_Print(blackbox *b, void *d)
default procedure blackbox_default_Print: print the string
char * blackbox_default_String(blackbox *, void *)
const CanonicalForm int s
Class used for (list of) interpreter objects.
BOOLEAN blackbox_default_Check(blackbox *, leftv, leftv)
BOOLEAN blackbox_default_serialize(blackbox *, void *, si_link)
static int blackboxTableCnt
static blackbox * blackboxTable[MAX_BB_TYPES]
BOOLEAN iiExprArithM(leftv res, leftv a, int op)
void WerrorS(const char *s)
BOOLEAN blackboxDefaultOp2(int, leftv, leftv, leftv)
default procedure blackboxDefaultOp2, to be called as "default:" branch
void printBlackboxTypes()
list all defined type (for debugging)
BOOLEAN blackboxDefaultOp3(int, leftv, leftv, leftv, leftv)
default procedure blackboxDefaultOp3, to be called as "default:" branch
BOOLEAN blackbox_default_deserialize(blackbox **, void **, si_link)
BOOLEAN blackboxDefaultOp1(int op, leftv l, leftv r)
default procedure blackboxDefaultOp1, to be called as "default:" branch
void PrintS(const char *s)
static char * blackboxName[MAX_BB_TYPES]
void removeBlackboxStuff(const int rt)
BOOLEAN jjLIST_PL(leftv res, leftv v)
void * blackbox_default_Init(blackbox *)
int blackboxIsCmd(const char *n, int &tok)
used by scanner: returns ROOT_DECL for known types (and the type number in tok)
void * blackbox_default_Copy(blackbox *, void *)
BOOLEAN blackboxDefaultOpM(int op, leftv res, leftv args)
default procedure blackboxDefaultOpM, to be called as "default:" branch
void CleanUp(ring r=currRing)
void blackbox_default_destroy(blackbox *, void *)
const char * getBlackboxName(const int t)
return the name to the type given by t (r/o)
int setBlackboxStuff(blackbox *bb, const char *n)
define a new type
blackbox * getBlackboxStuff(const int t)
return the structure to the type given by t