Changeset 239d73 in git

Timestamp:

Mar 15, 2018, 1:26:07 PM (6 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

4dda3ed2d0a4ac4c52db5cbb2f1b77b888dc7ef2

Parents:

59b9fdb6e4914ed681cc7907561abf9361bae474

Message:

add p_Vec2Array (julia), opt: p_Vec2polys

Location:

libpolys/polys

Files:

• monomials/p_polys.cc (modified) (1 diff)
• monomials/p_polys.h (modified) (1 diff)
• simpleideals.cc (modified) (1 diff)

libpolys/polys/monomials/p_polys.cc

@@ -3538 +3538 @@
     k=__p_GetComp(h,r);
     p_SetComp(h,0,r);
-    (*p)[k-1]=p_Add_q((*p)[k-1],h,r);
+    pNext(h)=(*p)[k-1];(*p)[k-1]=h;
     pIter(v);
+  }
+  for(int i=(*len-1);i>=0;i--)
+  {
+    if ((*p)[i]!=NULL) (*p)[i]=pReverse((*p)[i]);
+  }
+}
+
+/// julia: vector to already allocated array (len=p_MaxComp(v,r))
+void  p_Vec2Array(poly v, poly *p, int len, const ring r)
+{
+  poly h;
+  int k;
+
+  while (v!=NULL)
+  {
+    h=p_Head(v,r);
+    k=__p_GetComp(h,r);
+    p_SetComp(h,0,r);
+    pNext(h)=p[k-1];p[k-1]=h;
+    pIter(v);
+  }
+  for(int i=len-1;i>=0;i--)
+  {
+    if (p[i]!=NULL) p[i]=pReverse(p[i]);
   }
 }

libpolys/polys/monomials/p_polys.h

@@ -97 +97 @@
 
 void  p_Vec2Polys(poly v, poly**p, int *len, const ring r);
+
+/// julia: vector to already allocated array (len=p_MaxComp(v,r))
+void  p_Vec2Array(poly v, poly *p, int len, const ring r);
 
 /***************************************************************

libpolys/polys/simpleideals.cc

@@ -1137 +1137 @@
    ideal result=idInit(1,1);
    omFree((ADDRESS)result->m);
-   result->m=NULL; // remove later
    p_Vec2Polys(vec, &(result->m), &(IDELEMS(result)),R);
    return result;