Changeset 68e012 in git

Timestamp:

May 7, 2014, 5:31:21 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

83ce221ff06900901bec39d172e89083a2a00b8f

Parents:

db307034db2dde8aab44eb52538a2043154907c5

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2014-05-07 17:31:21+02:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2014-05-07 19:22:55+02:00

Message:

cleanup: bigintm

File:

• Singular/dyn_modules/bigintm/bigintm.cc (modified) (18 diffs)

Singular/dyn_modules/bigintm/bigintm.cc

@@ -15 +15 @@
 #include <Singular/ipshell.h>
 
-#include <Singular/ipid.h> 
+#include <Singular/ipid.h>
 // extern coeffs coeffs_BIGINT
 
@@ -47 +47 @@
 {
   assume( l->Typ() == bigintm_type_id );
-  
+
   // blackbox *ll=getBlackboxStuff(l->Typ());
-  
+
   if (r->Typ()>MAX_TOK)
   {
@@ -55 +55 @@
     {
       // blackbox *rr=getBlackboxStuff(r->Typ());
-      
+
       if (l->Data()!=NULL) { number n1=(number)l->Data(); n_Delete(&n1,coeffs_BIGINT); }
       number n2=(number)r->CopyD();
@@ -92 +92 @@
   else
     Werror("assign %d = %d",l->Typ(),r->Typ());
-  
+
   return TRUE;
 }
@@ -109 +109 @@
   }
 */
-  
+
   if( op=='(' ) // <bigintm>  VAR();
   {
     Werror("bigintm_Op1: What do you mean by '<bigintm>()'?!");
-    return TRUE;  
+    return TRUE;
   }
 
@@ -127 +127 @@
   // interpreter: a1 is ist bigintm
   assume( a1->Typ() == bigintm_type_id );
-  
+
   // blackbox *a=getBlackboxStuff(a1->Typ());
-  number n1=(number)a1->Data(); 
+  number n1=(number)a1->Data();
   switch(op)
   {
@@ -144 +144 @@
       else if (a2->Typ()==a1->Typ())
       {
-        number n2=(number)a2->Data(); 
+        number n2=(number)a2->Data();
         number n=n_Add(n1,n2, coeffs_BIGINT);
         res->data=(void *)n;
@@ -152 +152 @@
 
       Werror("bigintm_Op2: Op: '+': Sorry unsupported 2nd argument-type: %s in", Tok2Cmdname(a2->Typ()));
-      return WrongOp("bigintm_Op2", op, a1);
+      return TRUE;
     }
 
@@ -167 +167 @@
       else if (a2->Typ()==a1->Typ())
       {
-        number n2=(number)a2->Data(); 
+        number n2=(number)a2->Data();
         number n=n_Sub(n1,n2, coeffs_BIGINT);
         res->data=(void *)n;
@@ -173 +173 @@
         return FALSE;
       }
-      
+
       Werror("bigintm_Op2: Op: '-': Sorry unsupported 2nd argument-type: %s in", Tok2Cmdname(a2->Typ()));
-      WrongOp("bigintm_Op2", op, a1);
       return TRUE;
     }
@@ -192 +191 @@
       else if (a2->Typ()==a1->Typ())
       {
-        number n2=(number)a2->Data(); 
+        number n2=(number)a2->Data();
         number n=n_Mult(n1,n2, coeffs_BIGINT);
         res->data=(void *)n;
@@ -199 +198 @@
       }
       Werror("bigintm_Op2: Op: '*': Sorry unsupported 2nd argument-type: '%s' in", Tok2Cmdname(a2->Typ()));
-      WrongOp("bigintm_Op2", op, a1);
       return TRUE;
     }
@@ -207 +205 @@
     {
       Werror("bigintm_Op2: What du you mean by '<bigintm>(...%s...)'?!", Tok2Cmdname(a2->Typ()));
-      return TRUE;  
+      return TRUE;
     }
 */
@@ -227 +225 @@
       else if (a2->Typ()==a1->Typ())
       {
-        number n2=(number)a2->Data(); 
+        number n2=(number)a2->Data();
         res->data=(void *) (long) n_Equal(n1,n2, coeffs_BIGINT);
         res->rtyp= INT_CMD;
@@ -234 +232 @@
 
       Werror("bigintm_Op2: Op: '==': Sorry unsupported 2nd argument-type: '%s' in", Tok2Cmdname(a2->Typ()));
-      WrongOp("bigintm_Op2", op, a1);
       return TRUE;
     }
@@ -243 +240 @@
       if (a2->name==NULL)
       {
-        Werror("bigintm_Op2: Op: '.': 2nd argument-type: '%s'(%d) should be a NAME", Tok2Cmdname(a2->Typ()), a2->Typ());      
+        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);      
+
+      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;
     }
 
     default:
-    {
-      WrongOp("bigintm_Op2", op, a1);
       return blackboxDefaultOp2(op,res,a1,a2);
-      break;
-    }
   }
 }
@@ -279 +271 @@
     {
       Werror("bigintm_OpM: What do you mean by '<bigintm>(...)'?!");
-      return TRUE;  
-    }
-    
+      return TRUE;
+    }
+
     default:
-      WrongOp("bigintm_OpM", op, args);
-      break;
-  }
-  return blackbox_default_OpM(op, res, args);
+      return blackbox_default_OpM(op, res, args);
+  }
+  return TRUE;
 }
 
@@ -333 +324 @@
 
     return FALSE; // ok, TRUE = error!
-  } else
+  }
+  else
   {
     Werror("bigintm_setup: Sorry should NOT be run twice!");