Changeset 5cdbfe in git for dyn_modules/bigintm

Timestamp:

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

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', '91e5db82acc17434e4062bcfa44e6efa7d41fd30')

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

Location:

dyn_modules/bigintm

Files:

• bigintm.cc (modified) (3 diffs)
• bigintm.tst (modified) (2 diffs)
• mod_main.cc (modified) (3 diffs)

dyn_modules/bigintm/bigintm.cc

@@ -106 +106 @@
   // interpreter: a1 is ist bigintm
   assume( r->Typ() == bigintm_type_id );
-
+/*
+  // "typeof( <blackbox> )" is handled by 'blackboxDefaultOp1'
   if (op==TYPEOF_CMD)
   {
@@ -113 +114 @@
     return FALSE;
   }
+*/
   
   if( op=='(' ) // <bigintm>  VAR();
@@ -246 +248 @@
     case '.':
     {
-      Werror("bigintm_Op2: Op: '.': 2nd argument-type: '%s'(%d) in", Tok2Cmdname(a2->Typ()), a2->Typ());      
+
+      if (a2->name==NULL)
+      {
+        Werror("bigintm_Op2: Op: '.': 2nd argument-type: '%s'(%d) should be a NAME", Tok2Cmdname(a2->Typ()), a2->Typ());      
+        return TRUE;
+      }
+      
+      Werror("bigintm_Op2: Op: '.': 2nd argument-type: '%s'(%d) is called '%s' in ", Tok2Cmdname(a2->Typ()), a2->Typ(), a2->name);      
       return blackboxDefaultOp2(op,res,a1,a2);
       return TRUE;

dyn_modules/bigintm/bigintm.tst

@@ -2 +2 @@
 
 LIB("./bigintm.so");
+
+bigintm_print_load_counter();
+printBlackboxTypes();
+
+
+LIB("./bigintm.so");
+
+bigintm_print_load_counter();
+printBlackboxTypes();
+
+LIB("./bigintm.so");
+
+bigintm_print_load_counter();
+printBlackboxTypes();
+
 
 printBlackboxTypes();
@@ -81 +96 @@
 
 
-a - s;
 
-c == s;
+
+
+
+
 
 c.s;
 c.sss;
-c.0;
+c."a";
 
+
+
+option(yacc);
+c - s;
+c == s; // BUG?
+option(noyacc);
+
+
+
+c.0; // BUG?
+option(yacc);
+c.1; // BUG?
+c. ; // BUG?
+option(noyacc);
 
 

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!!!
+
+    }
+      
   }
 }