Changeset 8316b0 in git for Singular

Timestamp:

Sep 6, 2022, 2:07:08 PM (20 months ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

9487e9aedf3f8533bbf8ca861dae3f53b4dd9c4e

Parents:

61b23dbd8490ceddb7e3db6a82bba09eff76d347

Message:

add system("CoeffTerm",<vector>,<module>)

File:

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

Singular/extra.cc

@@ -3972 +3972 @@
       const short t6[]={2,MODUL_CMD,POLY_CMD};
       const short t7[]={2,VECTOR_CMD,IDEAL_CMD};
+      const short t8[]={2,VECTOR_CMD,MODUL_CMD};
       if (iiCheckTypes(h,t1,0)
       || iiCheckTypes(h,t2,0))
@@ -4011 +4012 @@
         ideal q=(ideal)h->next->Data();
         res->data=p_CoeffTermId(p,q,p_MaxComp(p,currRing),currRing);
+        res->rtyp=VECTOR_CMD;
+        return FALSE;
+      }
+      else if (iiCheckTypes(h,t8,0)) /* vector,module*/
+      {
+        poly p=(poly)h->Data();
+        ideal q=(ideal)h->next->Data();
+        res->data=p_CoeffTermMo(p,q,p_MaxComp(p,currRing),currRing);
         res->rtyp=VECTOR_CMD;
         return FALSE;