Changeset 243404 in git

Timestamp:

May 21, 2012, 7:34:02 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

ebbb9c021139eb2de39769f50c7f00762df8fc33

Parents:

e73abe2246b5f27f16872412d2daae5888ef54f1

Message:

add: ncols/nrows for bigintmat

Location:

Singular

Files:

• iparith.cc (modified) (2 diffs)
• table.h (modified) (2 diffs)

Singular/iparith.cc

@@ -3674 +3674 @@
   return FALSE;
 }
+static BOOLEAN jjCOLS_BIM(leftv res, leftv v)
+{
+  res->data = (char *)(long)((bigintmat*)(v->Data()))->cols();
+  return FALSE;
+}
 static BOOLEAN jjCOLS_IV(leftv res, leftv v)
 {
@@ -4702 +4707 @@
   ideal i = (ideal)v->Data();
   res->data = (char *)i->rank;
+  return FALSE;
+}
+static BOOLEAN jjROWS_BIM(leftv res, leftv v)
+{
+  res->data = (char *)(long)((bigintmat*)(v->Data()))->rows();
   return FALSE;
 }

Singular/table.h

@@ -56 +56 @@
 ,{D(jjCOLS),       COLS_CMD,        INT_CMD,        MODUL_CMD     , ALLOW_PLURAL |ALLOW_RING}
 ,{D(jjCOLS_IV),    COLS_CMD,        INT_CMD,        INTMAT_CMD    , ALLOW_PLURAL |ALLOW_RING}
+,{D(jjCOLS_BIM),   COLS_CMD,        INT_CMD,        BIGINTMAT_CMD , ALLOW_PLURAL |ALLOW_RING}
 ,{  jjWRONG ,      COLS_CMD,        0,              INTVEC_CMD    , ALLOW_PLURAL |ALLOW_RING}
 ,{D(jjCONTENT),    CONTENT_CMD,     POLY_CMD,       POLY_CMD      , ALLOW_PLURAL |ALLOW_RING}
@@ -234 +235 @@
 ,{D(jjROWS),       ROWS_CMD,        INT_CMD,        MATRIX_CMD    , ALLOW_PLURAL |ALLOW_RING}
 ,{D(jjROWS_IV),    ROWS_CMD,        INT_CMD,        INTMAT_CMD    , ALLOW_PLURAL |ALLOW_RING}
+,{D(jjROWS_BIM),   ROWS_CMD,        INT_CMD,        BIGINTMAT_CMD , ALLOW_PLURAL |ALLOW_RING}
 ,{D(jjCOUNT_IV),   ROWS_CMD,        INT_CMD,        INTVEC_CMD    , ALLOW_PLURAL |ALLOW_RING}
 ,{D(jjSLIM_GB),    SLIM_GB_CMD,     IDEAL_CMD,      IDEAL_CMD     , ALLOW_PLURAL }