Changeset 730552d in git

Timestamp:

Jan 30, 2020, 9:33:25 AM (4 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

578c244e61e993d1e00b722610ebfd792e88078e

Parents:

b5956dddb610d9317f5d3bd0f445cf503593dc03

Message:

add p_getExpVlV/p_SetExpVLV

File:

• libpolys/polys/monomials/p_polys.h (modified) (3 diffs)

libpolys/polys/monomials/p_polys.h

@@ -1472 +1472 @@
       ev[j-1] = p_GetExp(p, j, r);
 }
+// p_GetExpVLV is used in Singular,jl
+static inline int64 p_GetExpVLV(poly p, int64 *ev, const ring r)
+{
+  p_LmCheckPolyRing1(p, r);
+  for (unsigned j = r->N; j!=0; j--)
+      ev[j-1] = p_GetExp(p, j, r);
+  return (int64)p_GetComp(p,r);
+}
+// p_GetExpVL is used in Singular,jl
 static inline void p_SetExpV(poly p, int *ev, const ring r)
 {
@@ -1481 +1490 @@
   p_Setm(p, r);
 }
-// p_SetExpVL is used in Singular,jl
 static inline void p_SetExpVL(poly p, int64 *ev, const ring r)
 {
@@ -1488 +1496 @@
       p_SetExp(p, j, ev[j-1], r);
   p_SetComp(p, 0,r);
+
+  p_Setm(p, r);
+}
+
+// p_SetExpVLV is used in Singular,jl
+static inline void p_SetExpVLV(poly p, int64 *ev, int64 comp, const ring r)
+{
+  p_LmCheckPolyRing1(p, r);
+  for (unsigned j = r->N; j!=0; j--)
+      p_SetExp(p, j, ev[j-1], r);
+  p_SetComp(p, comp,r);
 
   p_Setm(p, r);