Changeset b4b74c in git for Singular/extra.cc

Timestamp:

Oct 23, 2021, 8:38:31 PM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

474eb59e589a28737a03f498f9d8504424271455

Parents:

e2c597cebf3e1f2e5391b7e5756aa240b3fb0ab8

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2021-10-23 20:38:31+02:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2021-10-23 20:41:01+02:00

Message:

test p_Content: system("content",p)

File:

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

Singular/extra.cc

@@ -224 +224 @@
 }
 
-//void emStart();
 /*2
 *  the "system" command
@@ -291 +290 @@
       }
       else
+/*==================== content ==================================*/
+    if(strcmp(sys_cmd,"content")==0)
+    {
+      if ((h!=NULL) && ((h->Typ()==POLY_CMD)||(h->Typ()==VECTOR_CMD)))
+      {
+        int t=h->Typ();
+        poly p=(poly)h->CopyD();
+        if (p!=NULL)
+        {
+           if (!nCoeff_is_Ring(currRing->cf)) p_Cleardenom(p,currRing);
+          p_Content(p,currRing);
+        }
+        res->data=(void *)p;
+        res->rtyp=t;
+        return FALSE;
+      }
+      return TRUE;
+    }
+    else
 /*==================== cpu ==================================*/
     if(strcmp(sys_cmd,"cpu")==0)