Changeset 1e47945 in git for Singular

Timestamp:

May 13, 2016, 4:47:59 PM (8 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

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

Children:

20e09dd107f7ee63d5218e4c9e1334f4b4c4604f

Parents:

8e11c18a3a737eb1a4f019cd5a31a51b01b07da8

Message:

add: ==, <> for ring

Location:

Singular

Files:

• iparith.cc (modified) (1 diff)
• table.h (modified) (2 diffs)

Singular/iparith.cc

@@ -1326 +1326 @@
 {
   res->data = (char *)((long)mp_Equal((matrix)u->Data(),(matrix)v->Data(),currRing));
+  jjEQUAL_REST(res,u,v);
+  return FALSE;
+}
+static BOOLEAN jjEQUAL_R(leftv res, leftv u, leftv v)
+{
+  res->data = (char *)(long)(u->Data()==v->Data());
   jjEQUAL_REST(res,u,v);
   return FALSE;

Singular/table.h

@@ -498 +498 @@
 #endif
 ,{D(jjEQUAL_Ma),  EQUAL_EQUAL,    INT_CMD,        MATRIX_CMD, MATRIX_CMD, ALLOW_PLURAL | ALLOW_RING}
+,{D(jjEQUAL_R),   EQUAL_EQUAL,    INT_CMD,        RING_CMD,   RING_CMD, ALLOW_PLURAL | ALLOW_RING}
 ,{  jjWRONG2 ,    EQUAL_EQUAL,    0,              IDEAL_CMD,  IDEAL_CMD, ALLOW_PLURAL | ALLOW_RING}
 ,{  jjWRONG2 ,    EQUAL_EQUAL,    0,              MODUL_CMD,  MODUL_CMD, ALLOW_PLURAL | ALLOW_RING}
@@ -515 +516 @@
 ,{  jjWRONG2 ,    NOTEQUAL,       0,              IDEAL_CMD,  MODUL_CMD, ALLOW_PLURAL | ALLOW_RING}
 ,{  jjWRONG2 ,    NOTEQUAL,       0,              MODUL_CMD,  IDEAL_CMD, ALLOW_PLURAL | ALLOW_RING}
+,{D(jjEQUAL_R),   NOTEQUAL,       INT_CMD,        RING_CMD,   RING_CMD, ALLOW_PLURAL | ALLOW_RING}
 ,{D(jjDOTDOT),    DOTDOT,         INTVEC_CMD,     INT_CMD,    INT_CMD, ALLOW_PLURAL | ALLOW_RING}
 ,{D(jjINDEX_I),   '[',            INT_CMD,        INTVEC_CMD, INT_CMD, ALLOW_PLURAL | ALLOW_RING}