Changeset 727b55 in git for Singular/iparith.cc

Timestamp:

Jan 21, 2022, 8:30:08 PM (2 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

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

Children:

4f78ef385b670780dc32c84abab0c78d5a8114ccbc7e82b6e8efcdc2a912e66194fc7ecb188de4b2

Parents:

e554f21585589b3fa40d36c5a8343fa9c329dbb6

Message:

add: kernel for matrix/smatrix

File:

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

Singular/iparith.cc

@@ -28 +28 @@
 #include "polys/ext_fields/transext.h"
 #include "polys/clapsing.h"
+#include "polys/flintconv.h"
 
 #include "kernel/combinatorics/stairc.h"
@@ -4462 +4463 @@
 }
 
+static BOOLEAN jjKERNEL_M(leftv res, leftv v)
+{
+  res->data = (char *)singflint_kernel((matrix)(v->Data()),currRing);
+  return res->data==NULL;
+}
+static BOOLEAN jjKERNEL_SM(leftv res, leftv v)
+{
+  res->data = (char *)singflint_kernel((ideal)(v->Data()),currRing);
+  return res->data==NULL;
+}
 static BOOLEAN jjKBASE(leftv res, leftv v)
 {