Changeset 18a3df in git

Timestamp:

Dec 18, 2018, 1:52:37 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')

Children:

b1b525cd20342e04cd56fc4787c7164fdea70af5b8498566aa4a3ab88d5be05cde0f7e4a5652c890c3386ebc4dcfe486c552436b043e43ea2c6dcc42

Parents:

db143caff538ce6623eb9e74ac621443cbf378a5

Message:

add: twostd for shiftalgebra

Location:

Singular

Files:

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

Singular/iparith.cc

@@ -5102 +5102 @@
 static BOOLEAN jjTWOSTD(leftv res, leftv a)
 {
-  if (rIsPluralRing(currRing))  res->data=(ideal)twostd((ideal)a->Data());
-  else  res->data=(ideal)a->CopyD();
+  ideal result;
+  if (rIsPluralRing(currRing))
+    result=(ideal)twostd((ideal)a->Data());
+  else /*commutative or shiftalgebra*/
+  {
+    result=kStd(v_id,currRing->qideal,hom,&w);
+    idSkipZeroes(result);
+  }
+  res->data = (char *)result;
   setFlag(res,FLAG_STD);
   setFlag(res,FLAG_TWOSTD);

Singular/table.h

@@ -279 +279 @@
 ,{D(jjENVELOPE),   ENVELOPE_CMD,    RING_CMD,       RING_CMD      , ALLOW_PLURAL |NO_RING}
 ,{D(jjOPPOSITE),   OPPOSITE_CMD,    RING_CMD,       RING_CMD      , ALLOW_PLURAL |NO_RING}
-,{D(jjTWOSTD),     TWOSTD_CMD,      IDEAL_CMD,      IDEAL_CMD     , ALLOW_PLURAL |NO_RING}
+,{D(jjTWOSTD),     TWOSTD_CMD,      IDEAL_CMD,      IDEAL_CMD     , ALLOW_NC |NO_RING}
 #endif
 //,{  jjWRONG ,      TRACE_CMD,       0,              INTVEC_CMD    , ALLOW_NC |ALLOW_RING}