Changeset 3eb1631 in git

Timestamp:

Feb 22, 2005, 4:25:55 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

f5a8b36ae84134eb9607a0498d04eace5b03f006

Parents:

3f2e22cd9975bb1510a509daa3455435ae14e798

Message:

*hannes: mod for number


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

File:

• Singular/iparith.cc (modified) (3 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.340 2005-02-17 09:49:18 Singular Exp $ */
+/* $Id: iparith.cc,v 1.341 2005-02-22 15:25:55 Singular Exp $ */
 
 /*
@@ -1994 +1994 @@
   return FALSE;
 }
+static BOOLEAN jjMOD_N(leftv res, leftv u, leftv v)
+{
+  number q=(number)v->Data();
+  if (nIsZero(q))
+  {
+    WerrorS(ii_div_by_0);
+    return TRUE;
+  }
+  res->data =(char *) nIntMod((number)u->Data(),q);
+  return FALSE;
+}
 static BOOLEAN jjMONITOR2(leftv res, leftv u,leftv v)
 {
@@ -2558 +2569 @@
 ,{jjOP_IV_I,   INTMOD_CMD,     INTVEC_CMD,     INTVEC_CMD, INT_CMD ALLOW_PLURAL}
 ,{jjOP_IV_I,   INTMOD_CMD,     INTMAT_CMD,     INTMAT_CMD, INT_CMD ALLOW_PLURAL}
+,{jjMOD_N,     INTMOD_CMD,     NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
 ,{jjPOWER_I,   '^',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
 ,{jjPOWER_N,   '^',            NUMBER_CMD,     NUMBER_CMD, INT_CMD ALLOW_PLURAL}