Changeset b4b74c in git

Timestamp:

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

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

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)

Files:

• Singular/LIB/polylib.lib (modified) (1 diff)
• Singular/extra.cc (modified) (2 diffs)
• doc/reference.doc (modified) (previous)

Singular/LIB/polylib.lib

@@ -906 +906 @@
 {
   if (f==0) { return(number(1)); }
-  if (attrib(basering,"ring_cf")
-  && ((typeof(f)=="poly")||(typeof(f)=="vector")))
-  {
-    number c=leadcoef(f);
-    while((c!=1)&&(f!=0))
-    {
-      c=gcd(c,leadcoef(f));
-      f=f-lead(f);
-    }
-    return(c);
-  }
-  else
-  {
-    return(leadcoef(f)/leadcoef(cleardenom(f)));
-  }
+  return(leadcoef(f)/leadcoef(system("content",f)));
 }
 example

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)