Changeset 9487e9 in git

Timestamp:

Sep 8, 2022, 11:01:01 AM (20 months ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e3c62842bdfa4557a78d3d53b8f4c3fb9738fa65

Parents:

8316b0efd9e51b6bd74331408041129d899f6853

Message:

add to sispasm: nrows, ncols

File:

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

Singular/dyn_modules/sispasm/sispasm.cc

@@ -5 +5 @@
  * - printing/string(spasm)
  * - transpose(spasm) -> spasm
+ * - nrows(spasm) -> int
+ * - ncols(spasm) -> int
  * - to_matrix(spams) -> matrix
  * - to_smatrix(spasm) -> smatrix
@@ -307 +309 @@
     return FALSE;
   }
+  else if (op==COLS_CMD)
+  {
+    spasm* A=(spasm*)arg->Data();
+    res->rtyp=INT_CMD;
+    res->data=(void*)(long)A->m;
+    return FALSE;
+  }
+  else if (op==ROWS_CMD)
+  {
+    spasm* A=(spasm*)arg->Data();
+    res->rtyp=INT_CMD;
+    res->data=(void*)(long)A->n;
+    return FALSE;
+  }
   return  blackboxDefaultOp1(op,res,arg);
 }