Changeset a1ef3a2 in git for Singular/iparith.cc

Timestamp:

Mar 27, 2021, 7:21:22 PM (3 years ago)

Author:

Karim Abou Zeid <karim23697@…>

Branches:

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

Children:

80dee2b8505d045ce3d5bf4fa6bee7b4383af86c

Parents:

2daaaec2c36328eb8638fe3a6b61d9971c661dc4

git-author:

Karim Abou Zeid <karim23697@gmail.com>2021-03-27 19:21:22+01:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2021-03-30 00:45:51+02:00

Message:

implement kdim in kernel as vdim

File:

• Singular/iparith.cc (modified) (1 diff)

Singular/iparith.cc

@@ -5361 +5361 @@
 {
   assumeStdFlag(v);
+#ifdef HAVE_SHIFTBBA
+  if (currRing->isLPring)
+  {
+#ifdef HAVE_RINGS
+    if (rField_is_Ring(currRing))
+    {
+      WerrorS("`vdim` is not implemented for letterplace rings over rings");
+      return TRUE;
+    }
+#endif
+    if (currRing->qideal != NULL)
+    {
+      WerrorS("qring not supported by `vdim` for letterplace rings at the moment");
+      return TRUE;
+    }
+    int kDim = lp_kDim((ideal)(v->Data()));
+    res->data = (char *)(long)kDim;
+    return (kDim == -2);
+  }
+#endif
   res->data = (char *)(long)scMult0Int((ideal)v->Data(),currRing->qideal);
   return FALSE;