Changeset 5cdbfe in git for dyn_modules/bigintm/mod_main.cc

Timestamp:

Mar 15, 2011, 7:17:48 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

f247337dd844f01e85a8379ff9c1e26fe7eea863

Parents:

92e0ebb492f002a11e78b302b3758d32aedea17e

Message:

ADD: dynamic module stuff...

From: Oleksandr Motsak <motsak@mathematik.uni-kl.de>

git-svn-id: file:///usr/local/Singular/svn/trunk@13980 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• dyn_modules/bigintm/mod_main.cc (modified) (3 diffs)

dyn_modules/bigintm/mod_main.cc

@@ -24 +24 @@
 
 /// listing all blackbox types (debug stuff)
-BOOLEAN printBlackboxTypes(leftv __res, leftv __v)
+BOOLEAN printBlackboxTypes0(leftv __res, leftv __v)
 {
   NoReturn(__res);
@@ -32 +32 @@
 
 /// init the bigintm (a sample blackbox) type
-BOOLEAN bigintm_setup(leftv __res, leftv __v)
+BOOLEAN bigintm_setup0(leftv __res, leftv __v)
 {
   NoReturn(__res);
@@ -38 +38 @@
 }
 
+static long int load_counter = -1;
+
+/// init the bigintm (a sample blackbox) type
+BOOLEAN print_load_counter(leftv __res, leftv __v)
+{
+  Print("print_load_counter: load counter: %ld", load_counter);
+  Print(", printBlackboxTypes: %p", (void*)(printBlackboxTypes0));
+  Print(", bigintm_setup: %p", (void*)(bigintm_setup0));
+  PrintLn();
+
+  NoReturn(__res);
+  return FALSE;
+}
+
+
 extern "C" 
 {
   int mod_init(SModulFunctions* psModulFunctions) 
   {
-    psModulFunctions->iiAddCproc(currPack->libname,(char*)"printBlackboxTypes",FALSE, printBlackboxTypes);
-    psModulFunctions->iiAddCproc(currPack->libname,(char*)"bigintm_setup",FALSE, bigintm_setup);
-    return 0;
+    load_counter++;
+    
+    if( !load_counter)
+    {
+      
+      psModulFunctions->iiAddCproc(currPack->libname,(char*)"printBlackboxTypes",FALSE, printBlackboxTypes0);
+      psModulFunctions->iiAddCproc(currPack->libname,(char*)"bigintm_setup",FALSE, bigintm_setup0);
+      psModulFunctions->iiAddCproc(currPack->libname,(char*)"bigintm_print_load_counter",FALSE, print_load_counter);
+
+      // Q: should we call 'bigintm_setup' here??!?!?
+      return 0;
+    }
+    else
+    {
+      PrintS("ERROR: Sorry this dynamic module was already loaded...!!!");
+      PrintLn();
+      // Q: what about loading this module multipple times...?
+      return 0; // -1? - No difference!!!
+
+    }
+      
   }
 }