Changeset d59bc4 in git for libpolys/polys/monomials/p_polys.cc

Timestamp:

Jan 29, 2019, 11:17:23 AM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

54b24c79febc0e79ee3f9c6a86b7c4d505c69a43e7f87f8c0c1e0f9a32c413846486e3d60a8c191a

Parents:

4b79c7b8189f75f27945f29fcb0e545394b85ab0

Message:

add: p_CopyPowerProduct

File:

• libpolys/polys/monomials/p_polys.cc (modified) (1 diff)

libpolys/polys/monomials/p_polys.cc

@@ -4881 +4881 @@
   return G;
 }
+
+poly p_CopyPowerProduct(poly p, const ring r)
+{
+  if (p == NULL) return NULL;
+  p_LmCheckPolyRing1(p, r);
+  poly np;
+  omTypeAllocBin(poly, np, r->PolyBin);
+  p_SetRingOfLm(np, r);
+  memcpy(np->exp, p->exp, r->ExpL_Size*sizeof(long));
+  pNext(np) = NULL;
+  pSetCoeff0(np, n_Init(1, r->cf));
+  return np;
+}
+