Changeset dbbf3d in git for Singular

Timestamp:

Mar 14, 2022, 2:57:57 PM (2 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

31f6493f817b702a6f55e8cdcdc8d11d7231b65ab8cd6e55df305b9b3acc93334793917681831296

Parents:

8a1fe4426c708fa3dd94b3c5be07cd36f9e6eb96

Message:

fix: spasm_rref, add transpose

File:

• Singular/dyn_modules/sispasm/sispasm.cc (modified) (3 diffs)

Singular/dyn_modules/sispasm/sispasm.cc

@@ +1 @@
+/*
+ * provides (after defintion of a ring with coeffs in Z/p)
+ * - type spasm
+ * - assignment smatrix ->spasm, matrix ->spasm
+ * - printing/string(spasm)
+ * - transpose(spasm) -> spasm
+ * - to_matrix(spams) -> matrix
+ * - to_smatrix(spasm) -> smatrix
+ * - spasm_kernel(spasm)->spasm
+*/
 #include "singularconfig.h"
 #include "libpolys/polys/monomials/monomials.h"
@@ -243 +253 @@
   {
     res->rtyp=SPASM_CMD;
-    res->data=(void*)sp_rref((spasm*)u->Data(),currRing);
-    return FALSE;
-  }
-  return TRUE;
+    res->data=(void*)sp_rref((spasm*)u->Data());
+    return FALSE;
+  }
+  return TRUE;
+}
+static BOOLEAN sp_Op1(int op,leftv l, leftv r)
+{
+  if(op==TRANSPOSE_CMD)
+  {
+    l->rtyp=r->Typ();
+    l->data=(void*)spasm_transpose((spasm*)r->Data(),1);
+    return FALSE;
+  }
+  return  blackboxDefaultOp1(op,l,r);
 }
 /*----------------------------------------------------------------*/
@@ -258 +278 @@
   b->blackbox_Copy=sp_Copy;
   b->blackbox_Assign=sp_Assign;
+  b->blackbox_Op1=sp_Op1;
   SPASM_CMD=setBlackboxStuff(b,"spasm");
   p->iiAddCproc("spasm.so","spasm_kernel",FALSE,kernel);