13 #define MAX_BB_TYPES 256
19 #define BLACKBOX_OFFSET (MAX_TOK+1)
31 WerrorS(
"missing blackbox_destroy");
35 WerrorS(
"missing blackbox_String");
40 WerrorS(
"missing blackbox_Copy");
45 char *
s=b->blackbox_String(b,d);
56 WerrorS(
"blackbox_serialize is not implemented");
62 WerrorS(
"blackbox_deserialize is not implemented");
105 res->
data=b->blackbox_String(b,args->
Data());
112 if (ret)
return TRUE;
113 char *s2=(
char*)
omAlloc(strlen((
char*)res->
data)+strlen((
char*)res2.
data)+1);
114 sprintf(s2,
"%s%s",(
char*)res->
data,(
char*)res2.
data);
146 WerrorS(
"too many bb types defined");
161 #ifdef BLACKBOX_DEVEL
190 if (b!=
NULL)
return b;
199 #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
BOOLEAN blackboxDefaultOp3(int op, leftv, leftv r1, leftv, leftv)
default procedure blackboxDefaultOp3, to be called as "default:" branch
static blackbox * blackboxTable[MAX_BB_TYPES]
const CanonicalForm CFMap CFMap int &both_non_zero int n
BOOLEAN iiExprArithM(leftv res, leftv a, int op)
void WerrorS(const char *s)
void printBlackboxTypes()
list all defined type (for debugging)
BOOLEAN blackbox_default_deserialize(blackbox **, void **, si_link)
BOOLEAN blackboxDefaultOp2(int op, leftv, leftv r1, leftv)
default procedure blackboxDefaultOp2, to be called as "default:" branch
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 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