Changeset e3c628 in git for Singular

Timestamp:

Sep 8, 2022, 1:23:18 PM (20 months ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

9901d1e5fcfb4a0a68123562716aeb89b3013a9b

Parents:

9487e9aedf3f8533bbf8ca861dae3f53b4dd9c4e

Message:

add sispasm: assign module -> spasm

File:

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

Singular/dyn_modules/sispasm/sispasm.cc

@@ -2 +2 @@
  * provides (after defintion of a ring with coeffs in Z/p)
  * - type spasm
- * - assignment smatrix ->spasm, matrix ->spasm
+ * - assignment smatrix,module ->spasm, matrix ->spasm
  * - printing/string(spasm)
  * - transpose(spasm) -> spasm
@@ -230 +230 @@
     l->data = (void*)NULL;
   }
-
-  if (r->Typ()==l->Typ())
+  int rt=r->Typ():
+
+  if (rt==l->Typ())
   {
     A=(spasm*)sp_Copy(NULL,r->Data());
   }
-  else if (r->Typ()==SMATRIX_CMD)
+  else if ((rt==SMATRIX_CMD)||(rt==MODUL_CMD))
   {
     A=conv_smatrix2spasm((ideal)r->Data(),currRing);
   }
-  else if (r->Typ()==MATRIX_CMD)
+  else if (rt==MATRIX_CMD)
   {
     A=conv_matrix2spasm((matrix)r->Data(),currRing);