Changeset bca6c6 in git

Timestamp:

Mar 2, 2011, 9:45:23 AM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

31a04de9654ef6c91a67d31ba39e3e2f1c9537fe

Parents:

b521f3698286cefec0d2866b873155439fcc9619

Message:

bigintm example code

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

File:

• Singular/bigintm.cc (modified) (8 diffs)

Singular/bigintm.cc

@@ +1 @@
+// as this file provides only example code,
+// no trace of it must appear in Singular and Singularg
+//
+#if 0
+//
 #include <Singular/mod2.h>
 #include <Singular/ipid.h>
@@ -9 +14 @@
 
 
-#define HAVE_BIGINTM 1
-
-#ifdef HAVE_BIGINTM
-static int bigintm_type_id = -1;
-#endif
-
-
-#ifdef HAVE_BIGINTM
 static char * bigintm_String(blackbox *b, void *d)
 { if (d==NULL) return omStrDup("oo");
@@ -31 +28 @@
 static BOOLEAN bigintm_Assign(leftv l, leftv r)
 {
-  assume( l->Typ() == bigintm_type_id );
-  
   blackbox *ll=getBlackboxStuff(l->Typ());
   
   if (r->Typ()>MAX_TOK)
   {
-    if (bigintm_type_id == r->Typ())
+    if (l->Typ() == r->Typ())
     {
       blackbox *rr=getBlackboxStuff(r->Typ());
@@ -85 +80 @@
 {
   // interpreter: a1 is ist bigintm
-  assume( a1->Typ() == bigintm_type_id );
   
   blackbox *a=getBlackboxStuff(a1->Typ());
@@ -112 +106 @@
     }
     default:
-      Werror("bigintm_Op2: op %d not implemented for type %s (%d)", op, getBlackboxName(a1->Typ()), a1->Typ());
-      break;
+      return blackboxDefaultOp2(op,res,a1,a2);
   }
   return blackboxDefaultOp2(op,res,a1,a2);
@@ -121 +114 @@
 {
   // interpreter: args->1. arg is ist bigintm
-  assume( args->Typ() == bigintm_type_id );
   blackbox *a=getBlackboxStuff(args->Typ());
   switch(op)
@@ -132 +124 @@
     }
     default:
-      Werror("bigintm_OpM: op %d not implemented for type %s (%d)", op, getBlackboxName(args->Typ()), args->Typ());
+      return blackboxDefaultOpM(op,res,args);
       break;
   }
-  return TRUE;
+  return blackboxDefaultOpM(op,res,args);
 }
 static void bigintm_destroy(blackbox *b, void *d)
@@ -146 +138 @@
 }
 
-#endif
 
-
-
-
-// this is only a demo
 BOOLEAN bigintm_setup()
 {
-#ifndef HAVE_BIGINTM
-  Werror("bigintm_setup: Sorry BIGINTM was not compiled in!");
-  return TRUE; // ok, TRUE = error!
-#else
+  // it is not very usefull to call this setup routine twice,
+  // but (as this is an example) it is possible.
+  // Other blackbox type really require multiple setup calls 
+  // (with different names).
+  // Also the format of this setup routine is not fixed,
+  // it may take additional parameters, it may return a value or not
+  // - it really depends.
 
-  if( bigintm_type_id == -1 )
-  {
-    blackbox *b=(blackbox*)omAlloc0(sizeof(blackbox));
-    // all undefined entries will be set to default in setBlackboxStuff
-    // the default Print is quite usefule,
-    // all other are simply error messages
-    b->blackbox_destroy=bigintm_destroy;
-    b->blackbox_String=bigintm_String;
-    //b->blackbox_Print=blackbox_default_Print;
-    //b->blackbox_Init=blackbox_default_Init;
-    b->blackbox_Copy=bigintm_Copy;
-    b->blackbox_Assign=bigintm_Assign;
-    //b->blackbox_Op1=blackboxDefaultOp1;
-    b->blackbox_Op2=bigintm_Op2;
-    //b->blackbox_Op3=blackbox_default_Op3;
-    b->blackbox_OpM=bigintm_OpM;
+  blackbox *b=(blackbox*)omAlloc0(sizeof(blackbox));
+  // all undefined entries will be set to default in setBlackboxStuff
+  // the default Print is quite usefule,
+  // all other are simply error messages
+  b->blackbox_destroy=bigintm_destroy;
+  b->blackbox_String=bigintm_String;
+  //b->blackbox_Print=blackbox_default_Print;
+  //b->blackbox_Init=blackbox_default_Init;
+  b->blackbox_Copy=bigintm_Copy;
+  b->blackbox_Assign=bigintm_Assign;
+  //b->blackbox_Op1=blackboxDefaultOp1;
+  b->blackbox_Op2=bigintm_Op2;
+  //b->blackbox_Op3=blackbox_default_Op3;
+  b->blackbox_OpM=bigintm_OpM;
+  int rt=setBlackboxStuff(b,"bigintm");
 
-    bigintm_type_id = setBlackboxStuff(b,"bigintm");
+  Print("bigintm_setup: create type %d (%s)\n",rt, getBlackboxName(rt));
 
-    Print("bigintm_setup: create type %d (%s)",bigintm_type_id, getBlackboxName(bigintm_type_id));
-    PrintLn();
-
-    return FALSE; // ok, TRUE = error!
-  } else
-  {
-    Werror("bigintm_setup: Sorry should NOT be run twice!");
-    return TRUE; // ok, TRUE = error!
-  }
+  return FALSE; // ok, TRUE = error!: this example never fails
+}
 
 #endif
-}
-
-
-