My Project  debian-1:4.1.1-p2+ds-4build2
mod_main.cc
Go to the documentation of this file.
1 #include "kernel/mod2.h"
2 
3 #include "Singular/mod_lib.h"
4 
5 #include "Singular/blackbox.h"
6 
7 #include "Singular/tok.h"
8 #include "Singular/ipid.h"
9 #include "Singular/lists.h"
10 
11 #include "bigintm.h"
12 
13 namespace
14 {
15 
16 static inline void NoReturn(leftv& res)
17 {
18  res->rtyp = NONE;
19  res->data = NULL;
20 }
21 
22 
23 /// listing all blackbox types (debug stuff)
24 static BOOLEAN printBlackboxTypes0(leftv __res, leftv /*__v*/)
25 {
26  NoReturn(__res);
28  return FALSE;
29 }
30 
31 /// init the bigintm (a sample blackbox) type
32 static BOOLEAN bigintm_setup0(leftv __res, leftv /*__v*/)
33 {
34  NoReturn(__res);
35  return bigintm_setup();
36 }
37 
38 }
39 
40 
41 extern "C" int SI_MOD_INIT(bigintm)(SModulFunctions* psModulFunctions)
42 {
43  psModulFunctions->iiAddCproc(currPack->libname,(char*)"printBlackboxTypes",FALSE, printBlackboxTypes0);
44  psModulFunctions->iiAddCproc(currPack->libname,(char*)"bigintm_setup",FALSE, bigintm_setup0);
45 
46  // Q: should we call 'bigintm_setup' here??!?!?
47  return MAX_TOK;
48 }
NoReturn
static void NoReturn(leftv &res)
Definition: mod_main.cc:78
FALSE
#define FALSE
Definition: auxiliary.h:94
mod_lib.h
bigintm
int SI_MOD_INIT() bigintm(SModulFunctions *psModulFunctions)
Definition: mod_main.cc:41
lists.h
NONE
#define NONE
Definition: tok.h:218
MAX_TOK
@ MAX_TOK
Definition: tok.h:215
currPack
package currPack
Definition: ipid.cc:59
printBlackboxTypes
void printBlackboxTypes()
list all defined type (for debugging)
Definition: blackbox.cc:209
sleftv
Class used for (list of) interpreter objects.
Definition: subexpr.h:82
bigintm_setup
BOOLEAN bigintm_setup()
Definition: bigintm.cc:276
res
CanonicalForm res
Definition: facAbsFact.cc:64
BOOLEAN
int BOOLEAN
Definition: auxiliary.h:85
mod2.h
blackbox.h
bigintm.h
tok.h
SModulFunctions
Definition: ipid.h:67
NULL
#define NULL
Definition: omList.c:10
ipid.h